高分求一VB6或者按键精灵程序 关于自动填写用户密码登陆网页

发布网友 发布时间：2022-04-25 10:19

我来回答

共1个回答

热心网友 时间：2023-05-13 23:31

[General]
Description=WQM-一键注册QQ帐号
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
一键注册QQ帐号
【使用说明】
验证码输入需要手动输入,再按回车键后即可完成注册

[Script]
Delay 1000
Plugin Web.Bind("wqm.exe")
//<>===================================================打开网页免费申请
Plugin Web.Tips("打开网页免费申请网页")
Plugin Web.Go("http://newreg.qq.com/")
Plugin Web.SetSize(913,850)
Delay 1000
//<>===================================================输入名字
Plugin Web.HtmlInput("name","type:text&index:0")
Plugin Web.Tips("输入生日")
Delay 500
//<>===================================================输入生日-年
Plugin Web.LeftClick(325,200)
Delay 500
For 3
Plugin Web.KeyPress(40)
EndFor
Delay 500
//<>===================================================输入生日-月
Plugin Web.LeftClick(425,200)
Delay 500
For 3
Plugin Web.KeyPress(40)
EndFor
Delay 500
//<>===================================================输入生日-日
Plugin Web.LeftClick(525,200)
Delay 500
For 3
Plugin Web.KeyPress(40)
EndFor
Delay 500
Plugin Web.LeftClick(625,200)
//<>===================================================输入密码
Plugin Web.LeftClick(360,260)
Delay 500
Plugin Web.Tips("输入密码")
Plugin Web.KeyPress(65)
For 6
Plugin Web.KeyPress(49)
EndFor
Delay 500
Plugin Web.LeftClick(360,310)
Delay 500
Plugin Web.KeyPress(65)
For 6
Plugin Web.KeyPress(49)
EndFor
Delay 500
//<>==================================================输入验证码
Plugin Web.Tips("等待输入验证码,结束按回车键")
Plugin Web.LeftClick(335,373)
Delay 500
Rem 等待
WaitKey key
//<>===================================================按回车键即可提交申请
If key=13
Goto 离开
EndIf
Goto 等待
Rem 离开
//<>===================================================确定并同意以下条款
Plugin Web.Tips("注册提交")
//Plugin Web.LeftClick(375,485)
Plugin web.HtmlClick("tag:span&txt:确定并同意以下条款")
Delay 500
EndScript
Sub OnScriptExit
Plugin Web.Tips("脚本停止运行")
Return