我的第一个脚本（创建宽带连接）

zjw767676

在论坛潜水数天，完成了第一个脚本。请大虾们指点下不足之处！
此脚本在XPSP3下测试，几种分辨率下均通过

Run("CONTROL.EXE ncpa.CPL,@0")   ;打开网络连接向导
WinWaitActive("网络连接", "")   ;等待窗口出现
Dim $zb[4],$jiance               ;声明变量
$zb = WinGetPos("网络连接", "")  ;获取窗口坐标
$zb1 = ControlGetPos("网络连接", "", "DirectUIHWND1") ;获取控件坐标
$zb2 = $zb[0]+$zb1[0]
$zb3 = $zb[1]+$zb1[1]
MouseClick("", $zb2+90, $zb3+85)  ;点击“创建一个新的连接"
$jiance = WinWaitActive("新建连接向导", "欢迎使用新建连接向导", 3)
;为防止”网络任务“菜单没有展开
If $jiance = 0 Then
        MouseClick("", $zb2+90, $zb3+60) ;点击”网络菜单“
        MouseClick("", $zb2+90, $zb3+85) ;点击“创建一个新的连接"
        WinWaitActive("新建连接向导", "欢迎使用新建连接向导")
EndIf
ControlClick("新建连接向导", "", "Button2") ;点击”下一步“
WinWaitActive("新建连接向导", "连接到 Internet(&C)")
ControlClick("新建连接向导", "", "Button6") ;点击”下一步“
WinWaitActive("新建连接向导", "手动设置我的连接(&M)")
ControlClick("新建连接向导", "", "Button2") ;选择"手动设置我的连接“
ControlClick("新建连接向导", "", "Button9") ;点击”下一步“
WinWaitActive("新建连接向导", "用拨号调制解调器连接(&D)")
ControlClick("新建连接向导", "", "Button2") ;选择"用要求用户名和密码的宽带连接来连接“
ControlClick("新建连接向导", "", "Button12") ;点击”下一步“
WinWaitActive("新建连接向导", "在下面框中输入您的 ISP 的名称")
ControlSend ("新建连接向导", "", "Edit1", "宽带连接2") ;输入连接名称
ControlClick("新建连接向导", "", "Button12") ;点击”下一步“
WinWaitActive("新建连接向导", "用户名(&U):")
ControlClick("新建连接向导", "", "Button17") ;点击”下一步“
WinWaitActive("新建连接向导", "正在完成新建连接向导")
ControlClick("新建连接向导", "", "Button1") ;选择“桌面快捷方式”
ControlClick("新建连接向导", "", "Button21") ;点击”完成“
WinWaitActive("连接 宽带连接2", "")
WinClose("连接 宽带连接2", "") ;关闭窗口
WinClose("网络连接", "") ;关闭窗口

lpxx

不错不错，恭喜你。

sensel

建议将WinWaitActive改为WinWait

zjw767676

回复 3# sensel

为什么呢？等待激活窗口不是更好吗？

sensel

等待激活的话，窗口必须一直保持在前台。ControlClick只需要窗口存在，不需要窗口已激活。
假如脚本运行过程中，鼠标点一下桌面或是其他软件弹出个窗口，那么你的脚本就停在WinWaitActive。

lxz

没有什么新意...

hzxymkb

这种脚本在论坛很多！不过都不是很好用！

zjw767676

等待激活的话，窗口必须一直保持在前台。ControlClick只需要窗口存在，不需要窗口已激活。
假如脚本运行过 ...
sensel 发表于 2010-5-21 00:33

感谢指点！！！！！！

lanfengc

没有什么新意...
lxz 发表于 2010-5-21 06:04

    你没看人家是新手啊？   谁都是由不会到会的啊， 干嘛打击人家！

waxy

不错，理当支持。

netegg

精神可嘉，不过模拟点击没多大意思
鉴于lZ首次写auto脚本，鼓励下，尝试下不调用系统界面，自己做出一个来

codyzhang

不错

chenronting

我来支持一下。 加油。

qiuqiu

恭喜兄台第一次没有献给hello world

yejier

顶贴、回帖、拿分、走人！url