网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
按键精灵乱世隋唐自动注册-并获取新手卡,保存到桌面TXT
运行环境:分辨率:1366x768 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.30.11233
@7843175632012/10/18
PID=Plugin.Web.Bind("wqm.exe") Call Plugin.Web.Go("http://uc.917st.com/UCWeb/usercenter/html/Register.aspx") //判断是否有指定TXT文件文件 IsFile = Plugin.File.IsFileExit("C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt") If IsFile = True Else set fso=CreateObject("Scripting.FileSystemObject") const forwriting=2 const forreading=1 set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt") set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\乱世隋唐帐号新手卡.txt") End If rem 再次 Call suiji Call Plugin.Web.HtmlInput(y,"id:user") Delay 30 Call Plugin.Web.LeftClick(733, 233) Delay 60 i=0 If 1= Plugin.Web.HtmlExists("id:userokimg") Then Else Goto 再次 End if Delay 30 //下面为密码,可以自行修改 Call Plugin.Web.HtmlInput("13772327137","id:pwd") Delay 30 Call Plugin.Web.HtmlInput("13772327137","id:againpwd") Delay 20 Call Plugin.Web.LeftClick(678,436) Call Plugin.Web.Tips("等待输入验证码,结束按回车键") Delay 500 Rem 等待 key=WaitKey() //<>===================================================按回车键即可提交申请 If key=13 Then Goto 离开 End If Goto 等待 Rem 离开 wenjian ="C:\Users\toshiba\Desktop\乱世隋唐帐号密码为13772327137.txt" /*系统时间 需要在TXT中显示时间的用户,去掉代码左右两端的注释 //sDate = Plugin.Sys.GetDateTime() Call Plugin.File.WriteFileEx(wenjian, sDate)*/ Call Plugin.File.WriteFileEx(wenjian, y) Delay 40 Call Plugin.Web.HtmlClick("id:ImageButton1") //新手卡领取 Call Plugin.Web.Go("http://uc.917st.com/ucweb/usercenter/html/gift/login.aspx") Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl00_4") Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl01_1") Delay 30 Call Plugin.Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl02_2") Delay 30 Call Plugin.Web.HtmlClick("id:ctl00_ContentPlaceHolder1_submit") Delay 800 //获取新手卡到新手卡卡号.txt Call xinshou Delay 800 Call Plugin.Web.Tips("脚本重新运行") Call guanbi Delay 2000 RestartScript /* set fso=CreateObject("Scripting.FileSystemObject") set myfile=fso.createtextfile("C:\Users\toshiba\Desktop\123\123.txt") myfile.writeline (y)*/ Sub suiji y="zhang"&"" For 9 //清空随机种子数 Randomize //得到 0~35 之间的一个随机数 x = Int(32 * Rnd) // 大于或等于10则转换为小写字母 If x>9 x=chr(x+87) EndIf y=y&x EndFor End Sub Sub xinshou PID=Plugin.Web.Bind("wqm.exe") TXT=Plugin.Web.HtmlGet("value","id:ctl00_ContentPlaceHolder1_GiftCode") Delay 1500 Call Plugin.File.WriteFileEx("C:\Users\toshiba\Desktop/乱世隋唐帐号新手卡.txt",TXT) Delay 200 Call Plugin.Web.Tips("您的新手卡号为" & TXT) End Sub Sub guanbi VBSBegin Dim objShell Set objShell = CreateObject("wscript.shell") objShell.Run "taskkill /f /im wqm.exe",vbhide Set objShell =NoThing VBSEnd End Sub
- 上一篇: 易语言WinHttp版WebSocket源码
- 下一篇: LOL英雄联盟自动删除好友源码
猜你喜欢
- 2020-06-25 手机群控框架,可自由灵活编辑功能
- 2019-03-25 按键精灵脚本源码 五开辅助战斗
- 2019-03-25 按键精灵脚本源码 奶德自动N
- 2019-03-25 按键精灵脚本源码 梦幻西游自动打怪
- 2019-03-25 按键精灵脚本源码 梦幻西游五开挂机
- 2019-03-25 按键精灵脚本源码 梦幻西游挂机感恩版v1.1
- 2019-03-25 按键精灵脚本源码 急速封妖1.2.2
- 2019-03-25 按键精灵脚本源码 火源小怪
- 2019-03-25 按键精灵脚本源码 董卓脚本
- 2019-03-25 按键精灵脚本源码 钓鱼智能版
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
本文暂时没有评论,来添加一个吧(●'◡'●)