登录 注册
当前位置:主页 > 资源下载 > 15 > VBS自动更换IP.vbs下载

VBS自动更换IP.vbs下载

  • 更新:2024-10-02 23:57:26
  • 大小:415B
  • 推荐:★★★★★
  • 来源:网友上传分享
  • 类别:网络基础 - 网络技术
  • 格式:VBS

资源介绍

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