【文件属性】：
文件名称：VBS自动更换IP.vbs
文件大小：415B
文件格式：VBS
更新时间：2016-01-27 13:20:51
VBS 自动 更换 IP
VBS自动更换IP.vbs
'VBS自动更换IP
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set oIE = CreateObject("InternetExplorer.Application")
for i=1 to 5
wsh.run "Rasdial /DISCONNECT",false,1
wsh.run "Rasdial 连接名字 账号 密码",false,1
oIE.Navigate "http://www.ip138.com/?"&i&""
Call SynchronizeIE
oIE.Visible = True
next
Sub SynchronizeIE
On Error Resume Next
Do While(oIE.Busy)
WScript.Sleep 3000
Loop
End Sub