|
| Joined: Oct 2003 Posts: 59 Junior Member | Junior Member Joined: Oct 2003 Posts: 59 | '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" />
"it is the question ...that drives the answer..." Keep Clicking, Bosky
| | |
▼ Sponsored Links ▼
▲ Sponsored Links ▲
| | | Joined: Jun 2003 Posts: 807 Likes: 2 UGN Super Poster | UGN Super Poster Joined: Jun 2003 Posts: 807 Likes: 2 | 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? | | | | Joined: Mar 2002 Posts: 599 UGN's Resident Homo | UGN's Resident Homo Joined: Mar 2002 Posts: 599 | 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.
"It's better to burn out, than to fade away."
| | | | Joined: Mar 2002 Posts: 1,273 DollarDNS Owner | DollarDNS Owner Joined: Mar 2002 Posts: 1,273 | 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 | | | | Joined: Oct 2003 Posts: 59 Junior Member | Junior Member Joined: Oct 2003 Posts: 59 | 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... ?
"it is the question ...that drives the answer..." Keep Clicking, Bosky
| | | | Joined: Mar 2002 Posts: 1,273 DollarDNS Owner | DollarDNS Owner Joined: Mar 2002 Posts: 1,273 | Using Windows 2000 and being on a LAN it returned this message:
"Local system uses a local area network to connect to the Internet." | | |
Forums41 Topics33,840 Posts68,858 Members2,176 | Most Online3,253 Jan 13th, 2020 | | | |
|