if internet on then ... else ...

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

pswanie - 27 Jan 2008 12:08 GMT

how would i do this? we use always on adsl but will use this on a few
computers with out internet connection

workbook_open

if internet = on
then
run userform1
else
run userform4
end if
end sub

Reply to this Message

Mark Ivey - 27 Jan 2008 13:39 GMT

Give this one a go...

I got the function from
http://vbnet.mvps.org/index.html?code/network/internetgetconnectedstate.htm

Private Declare Function InternetGetConnectedState Lib "wininet" _
(ByRef dwFlags As Long, _
ByVal dwReserved As Long) As Long

Sub test()
If IsNetConnectOnline() = True Then
MsgBox "You are connected to the Internet"
ElseIf IsNetConnectOnline() = False Then
MsgBox "You are NOT connected to the Internet"
End If
End Sub

Private Function IsNetConnectOnline() As Boolean
'no flags needed here - the API returns True
'if there is a connection of any type
IsNetConnectOnline = InternetGetConnectedState(0&, 0&)
End Function

> how would i do this? we use always on adsl but will use this on a few
> computers with out internet connection
[quoted text clipped - 8 lines]
> end if
> end sub

Reply to this Message

pswanie - 27 Jan 2008 16:54 GMT

i used the code and it does work but...

we use a network and the phone line goes in the same hub as the network. if
i simply unplug the adsl line it still say "you are connected to the net" if
i unplug my computer from the network hub it says "internet not connected"

will try on a computer with out network and see if it works

> Give this one a go...
>
[quoted text clipped - 31 lines]
> > end if
> > end sub

Reply to this Message

Mark Ivey - 27 Jan 2008 17:15 GMT

Here is another one you can try out. It has a function I was using with my
VB Scripting, but it should work in this scenario as well.

Just change the URL in the function call to whatever you think necessary for
an Internet connection type check.

Sub test2()
If IsAlive("www.google.com") = True Then ' change URL
as needed
MsgBox "You are connected to the Internet"
ElseIf IsAlive("www.google.com") = False Then ' change URL as
needed
MsgBox "You are NOT connected to the Internet"
End If
End Sub

Function IsAlive(strHost)
'---------- Test to see if host or url alive through ping -----------------
' Returns True if Host responds to ping '
' Function is compliments of Phil Gordemer, ARH Associates
' Found @ http://www.tek-tips.com/viewthread.cfm?qid=1279504&page=3
'
' Though there are other ways to ping a computer, Win2K,
' XP and different versions of PING return different error
' codes. So the only reliable way to see if the ping
' was sucessful is to read the output of the ping
' command and look for "TTL="
'
' strHost is a hostname or IP
Const OpenAsASCII = 0
Const FailIfNotExist = 0
Const ForReading = 1
Dim objShell, objFSO, sTempFile, fFile
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sTempFile = objFSO.GetSpecialFolder(2).ShortPath & "\" &
objFSO.GetTempName
objShell.Run "%comspec% /c ping.exe -n 2 -w 500 " & strHost & ">" &
sTempFile, 0, True
Set fFile = objFSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist,
OpenAsASCII)
Select Case InStr(fFile.ReadAll, "TTL=")
Case 0
IsAlive = False
Case Else
IsAlive = True
End Select
fFile.Close
objFSO.DeleteFile (sTempFile)
Set objFSO = Nothing
Set objShell = Nothing
End Function

> i used the code and it does work but...
>
[quoted text clipped - 41 lines]
>> > end if
>> > end sub

Reply to this Message

pswanie - 27 Jan 2008 17:28 GMT

Sub or function not defined....

i am still rather new to this...

how do i define a function and if u got time what exacly that mean and when
and how etc please...

Phillip

> Here is another one you can try out. It has a function I was using with my
> VB Scripting, but it should work in this scenario as well.
[quoted text clipped - 94 lines]
> >> > end if
> >> > end sub

Reply to this Message

pswanie - 27 Jan 2008 17:30 GMT

wups silly me... did not read ur full post.

thanx

> Here is another one you can try out. It has a function I was using with my
> VB Scripting, but it should work in this scenario as well.
[quoted text clipped - 94 lines]
> >> > end if
> >> > end sub

Reply to this Message

pswanie - 27 Jan 2008 17:38 GMT

works perfect....

do thank u!!

Phillip

> how would i do this? we use always on adsl but will use this on a few
> computers with out internet connection
[quoted text clipped - 8 lines]
> end if
> end sub

Reply to this Message

Mark Ivey - 27 Jan 2008 18:19 GMT

No problem...

Glad it worked for you.

Mark

> works perfect....
>
[quoted text clipped - 14 lines]
>> end if
>> end sub

Reply to this Message

pswanie - 27 Jan 2008 18:31 GMT

how will i get true in cell k1 if internet on and false in sell k1 if not
connected?

im gona put the code in the workbook open. got a Wait while loading form
allready.

how will i code a command button to check the value of cell k1?

> No problem...
>
[quoted text clipped - 20 lines]
> >> end if
> >> end sub

Reply to this Message

pswanie - 27 Jan 2008 19:33 GMT

got it. it all work good now

thanx

> No problem...
>
[quoted text clipped - 20 lines]
> >> end if
> >> end sub

Reply to this Message