为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

按键精灵 乱世隋唐自动注册-并获取新手卡,保存到桌面TXT

三叶资源网 2018-11-04 按键精灵Q语言 59 ℃ 0 评论
三叶资源网易语言免费公开课

按键精灵乱世隋唐自动注册-并获取新手卡,保存到桌面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


Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
JS教程取色器黑客微信加人正则Vmprotect易语言资源网自动更新wordpress吃鸡辅助超文本浏览框支持库引流Ex_DirectUI精易模块分段加密雷电模拟器多线程特训班常量支持库微信公众号自媒体
最新评论