Function Ping(strHost)
Dim oPing, oRetStatus, bReturn
Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & strHost & "'")
For Each oRetStatus In oPing
If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
bReturn = False
' WScript.Echo "Status code is " & oRetStatus.StatusCode
Else
bReturn = True
' Wscript.Echo "Bytes = " & vbTab & oRetStatus.BufferSize
' Wscript.Echo "Time (ms) = " & vbTab & oRetStatus.ResponseTime
' Wscript.Echo "TTL (s) = " & vbTab & oRetStatus.ResponseTimeToLive
End If
Set oRetStatus = Nothing
Next
Set oPing = Nothing
Ping = bReturn
End Function
Set obj = CreateObject("WScript.Shell")
do
hostring = "google.com"
If Ping(hostring) Then
Else
obj.Run("netsh wlan connect name=Eq>E.txt")
If Ping(hostring) Then
Else
obj.Run("netsh wlan connect name=wireless@bs")
If Ping(hostring) Then
Else
Wscript.Sleep 2000
obj.run("chrome")
Wscript.sleep 2000
obj.run("chrome")
wscript.sleep 2000
obj.SendKeys "http://10.166.250.5/termsAuth/index.htm?www.google.com/"
obj.SendKeys "{ENTER}"
WScript.sleep 3000
obj.SendKeys "{TAB}"
obj.SendKeys " "
obj.SendKeys "{TAB}"
obj.SendKeys " "
WScript.sleep 3000
obj.SendKeys "^a"
obj.SendKeys "2012LiHX"
obj.sendKeys "{TAB}"
obj.SendKeys "^a"
obj.SendKeys "xuan1624"
obj.SendKeys "{ENTER}"
WScript.sleep 2000
obj.SendKeys "%{F4}"
WScript.Sleep 2000
obj.SendKeys "%{F4}"
obj.sendkeys "{ESC}"
End If
End If
End If
WScript.sleep 6000000
loop
