找回密码
 加入
搜索
查看: 2237|回复: 5

[AU3基础] 【求助】用Ping来判断IP地址的通否来自动切换IP设置

[复制链接]
发表于 2010-12-27 10:34:52 | 显示全部楼层 |阅读模式
本帖最后由 cityofthesky 于 2010-12-27 10:36 编辑
While 1
    $p=ping("192.168.1.1",250)
    $q=ping("10.10.0.1",250)
           If $p <> 0 Or $q <> 0 Then 
           ExitLoop        
           ElseIf $p = 0 And $q = 0 Then
               $Rs=Random(100,199,1)
               ToolTip(@CR&"  正在设置网卡ip "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
               RunWait(@ComSpec & ' /C netsh interface ip set address "本地连接" static 192.168.1.' & $Rs & ' 255.255.255.0 192.168.1.1 auto ',"", @SW_HIDE )
               ToolTip(@CR&"  正在设置网络dns "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
               RunWait(@ComSpec & ' /C netsh interface ip set dns "本地连接" static 222.34.29.158 ',"", @SW_HIDE )
               ToolTip(@CR&"  正在设置网络备用dns"  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
               RunWait(@ComSpec & ' /C netsh interface ip add dns "本地连接" 222.34.29.166 ',"", @SW_HIDE )                   
            EndIf                   
        
      $w=ping("192.168.1.1",250)
            If $w = 0 Then
                $Rs=Random(100,199,1)
               ToolTip(@CR&"  正在设置网卡ip "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
         RunWait(@ComSpec & ' /C netsh interface ip set address "本地连接" static 10.0.0.' & $Rs & ' 255.255.255.0 10.0.0.1 auto ',"", @SW_HIDE )
               ToolTip(@CR&"  正在设置网络dns "  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
               RunWait(@ComSpec & ' /C netsh interface ip set dns "本地连接" static 10.161.32.86 ',"", @SW_HIDE )
               ToolTip(@CR&"  正在设置网络备用dns"  &  @CR,  @DesktopWidth-260, @DesktopHeight-120)
               RunWait(@ComSpec & ' /C netsh interface ip add dns "本地连接" 10.161.32.86 ',"", @SW_HIDE )
         EndIf
WEnd
怎么加入循环呢?ExitLoop 如何用?
发表于 2011-1-5 21:45:22 | 显示全部楼层
怎么循环的,看不太懂
发表于 2011-1-5 21:45:55 | 显示全部楼层
在endif里面加exitloop
发表于 2011-1-5 22:08:13 | 显示全部楼层
神呐,救救我吧
发表于 2011-1-5 22:08:30 | 显示全部楼层
有没有视频教程
发表于 2011-1-5 22:08:53 | 显示全部楼层
我急需一个程序自动修改路由器配置
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-21 14:26 , Processed in 0.102001 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表