augual 发表于 2010-4-17 23:52:00

VPN 路由问题

$g_szVersion = "VPN拨号"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion)
Send("{F11}") ;打开拨号连接，拨号连接快捷方式放在桌面上，快捷键设置为F11
                        ;如果有更好的方式请分享下。谢谢
WinWaitActive("连接 XX.XX.XX.XX", "")
ControlClick("连接 XX.XX.XX.XX", "", "Button4")
Sleep(3000)
While 1
        If Ping("11.34.88.249") Then ;10.34.88.249为拨号后获取的IP地址
                Run("route add 11.0.0.0 mask 255.0.0.0 10.34.88.249") ;添加路由
                MsgBox(0, "VPN拨号", "VPN拨号成功", 5)
                Exit
        Else
                Sleep(1000)
        EndIf
WEnd经测试发现添加路由那条没有成功，但是在拨号后单独测试的时候是可以的。

lanfengc 发表于 2010-4-18 18:43:49

Run用_RunDOS 或者Run("cmd.exe /c ……") 中间的省略号是你的命令。
route add这个命令需要CMD环境支持。

augual 发表于 2010-4-20 18:10:51

谢谢了。嗯，解决了！！1

pusofalse 发表于 2010-4-20 18:35:10

SetIpForwardEntry
http://msdn.microsoft.com/en-us/library/aa916414(v=MSDN.10).aspx

rikthhpgf2005 发表于 2010-4-21 08:57:13

用runwait:face (21):
页: [1]
查看完整版本: VPN 路由问题