UGN Security Forums UGN Security: Knowledge Base Programming VB detecting an dial up internet connection to find the ip ?

'how' do i /what do i use , to detect that the program to connect to the internet(dialer) has been executed ?so that after that i jus have to read the ip using winsock

OR, is there any other way ...

can i detect the ip through an app that opens at start up but gets the ip only when i go online ? <img border="0" alt="[blink]" title="" src="graemlins/blink.gif" />

um, is this thread on VB? no. Is this the VB Section? Yes. Now ask ure self this. Is this the right section to post this in?

using winsock you can get the local ip by saying winsock1.LocalIP and the remote host ip by saying winsock1.RemoteHostIP . not sure if that is exactly what you wanted, but maybe it will help. one way to detect when your computer connects to the internet would be to have the winsock control attempt to connect to remote machine. if it is successful then you know you have an internet connection, if not you are not connected. and ghost, this topic is on vb.

Using the winsock control you can get your local IP, but this is how you can detect whether you are connected to the internet and how:

Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Dim Ret As Long
Me.AutoRedraw = True
'retrieve the connection status
InternetGetConnectedState Ret, 0&
'show the result
If (Ret And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected."
If (Ret And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then Me.Print "Local system uses a local area network to connect to the Internet."
If (Ret And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then Me.Print "Local system uses a modem to connect to the Internet."
If (Ret And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then Me.Print "Local system is in offline mode."
If (Ret And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet."
If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then Me.Print "Local system has RAS installed."
End Sub

thnx a lot guys... got what i was looking for... i got a few tips from the noob section heres the link
http://www.UnderGroundNews.com/boards/ubb-get_topic-f-3-t-000411.html
as well... this was the coding i needed..i'll try it out

SR... just curious..this will work if ur on a LAN as well right... ?

Using Windows 2000 and being on a LAN it returned this message:

"Local system uses a local area network to connect to the Internet."