PutAttachment .\plugin *.dll Delay 500 UserVar tx=a12736a8sfgwsadf 通行证(须在4-16位,第1位为英文字母) UserVar mm=a123456789 密码(长度为4-10个字符) Plugin Web.Bind("wqm.exe") //打开申请地址 Plugin Web.Tips("打开申请网页...") Plugin Web.Go("http://register.sdo.com/sdo/reg/mir2_tg/inputinfo.asp") Plugin Web.SetSize(900,850) Delay 500 Plugin Web.Tips("正在输入...") Plugin Web.HtmlInput(tx,"id:username") Plugin Web.HtmlInput(mm,"id:password") Plugin Web.HtmlInput(mm,"id:repassword") Plugin Web.Tips("验证码识别...") //<>=============识别验证码(必须保证能看见验证码在最前面,否则无法识别!) //下面这句是得到当前最前面的窗口句柄 Plugin Hwnd = Window.Foreground() //下面这句是移动窗口到(0, 0)位置 Plugin Window.Move(Hwnd, 0, 0) Delay 500 //下面这句是得到窗口句柄的客户区大小 Plugin Rect = Window.GetClientRect(Hwnd) MyArray = Split(Rect, "|") L = Clng(MyArray(0))+258: T = Clng(MyArray(1))+504 Plugin yzm=SDTXZ.GetSDNO(Hwnd,L,T) Plugin Web.HtmlInput(yzm,"id:attcode2") Delay 500 Plugin Web.Tips("提交申请...") //提交注册 //Plugin Web.Click("tag:INPUT&value:我已经阅读并同意接受用户服务协议,创建我的盛大通行证") EndScript Sub OnScriptExit Plugin Web.Tips("脚本停止运行...") MessageBox "演示填表完成,最好的脚本都是自己做的!" Return