创建虚拟网络连接

diandiand163

贴　代码如下：
Run("rundll32.exe netshell.dll,StartNCW")
WinWait("新建连接向导", "欢迎使用新建连接向导")
WinWaitActive("新建连接向导", "欢迎使用新建连接向导")
send ("!n")
WinWaitActive("新建连接向导", "连接到 Internet")
ControlClick("新建连接向导","连接到 Internet","Button2")
send ("!n")
WinWaitActive("新建连接向导","新建连接向导")
ControlClick("新建连接向导","新建连接向导","Button2")
send ("!n")
WinWaitActive("新建连接向导","新建连接向导")
send("!n")
WinWaitActive("新建连接向导","新建连接向导")
send ("!n")
WinWaitActive("新建连接向导","输入您正连接的计算机的主机名或 IP 地址")
ControlClick("新建连接向导","新建连接向导","Edit1")
send ("diandian.3322.org")
send ("!n")
WinWaitActive("新建连接向导","正在完成新建连接向导")
ControlClick("新建连接向导","新建连接向导","Button21")

自动创建虚拟网络连接，为什么运行不正常啊，哪儿出错了？请高手指点下！

[ 本帖最后由 diandiand163 于 2008-7-11 12:18 编辑 ]

diandiand163

晕，运行了你发给我的程序，虚护网络连接都删除不了了。 ，不过还得感谢你回贴，回贴是一种美德。

kaige

过路人。。。。。。。。。。。。。。。

dmqhcx88

run("RUNDLL32 netshell.dll,StartNCW");---------------运行程序
TrayTip("正在自动创建虚拟专用网络连接 创建期间请别动鼠键 ",10,1);---------------提示文字
Sleep(1000);---------------等待时间
WinWaitActive("新建连接向导","欢迎使用新建连接向导");-------------激活目标窗口
send("!N");---------------模拟键盘
WinWaitActive("新建连接向导","连接到我的工作场所的网络");-------------激活目标窗口
send("!O");---------------模拟键盘
send("!N");---------------模拟键盘
WinWaitActive("新建连接向导","创建下列连接:");-------------激活目标窗口
send("!V");---------------模拟键盘
send("!N");---------------模拟键盘
WinWaitActive("新建连接向导","在下面框中输入此连接的名称");-------------激活目标窗口
ControlClick("新建连接向导","在下面框中输入此连接的名称","Button8");-------------鼠标点击控件       
WinActive("新建连接向导","不拨初始连接(&D");-------------窗口是否激活
ControlCommand("新建连接向导", "不拨初始连接(&D)","Button1","check", "") ;--------选中目标按钮--------
ControlClick("新建连接向导","不拨初始连接(&D)","Button10");-------------鼠标点击控件
WinWaitActive("新建连接向导","输入您正连接的计算机的主机名或 IP 地址");-------------激活目标窗口
send("192.168.1.1");---------------发送网关地址文字
ControlClick("新建连接向导","输入您正连接的计算机的主机名或 IP 地址","Button10");-------------鼠标点击控件
WinWaitActive("新建连接向导","正在完成新建连接向导");-------------激活目标窗口
ControlClick("新建连接向导","正在完成新建连接向导","Button21");-------------鼠标点击控件
Run("rasphone.exe");---------------运行程序
WinWait("网络连接","选择网络连接");-------------等待窗口出现
ControlSetText ("网络连接","选择网络连接","ComboBox1","虚拟专用网络连接" );---------------向目标控件发送文字
ControlClick("网络连接","选择网络连接","Button1");----------------鼠标点击控件
WinWait("连接 虚拟专用网络连接","为下面用户保存用户名和密码");-------------等待窗口出现
ControlSetText("连接 虚拟专用网络连接","为下面用户保存用户名和密码", "Edit1","test");---------------向目标控件发送文字
ControlSetText("连接 虚拟专用网络连接","为下面用户保存用户名和密码", "Edit2","test");---------------向目标控件发送文字
ControlCommand("连接 虚拟专用网络连接","为下面用户保存用户名和密码","Button1","check");---------------选中目标按钮
ControlClick("连接 虚拟专用网络连接","为下面用户保存用户名和密码","Button4");-------------鼠标点击控件
WinClose("网络连接","选择网络连接");-----------关闭窗口
Exit