zxwwxz001 zxwwxz001
关注数: 159 粉丝数: 144 发帖数: 18,518 关注贴吧数: 30
手游党福音之注册邮箱脚本简明教程 本教程含有/需要 计算机基础知识 编程基础知识 首先先准备按键精灵9,下载安装完毕后打开,不会下载的请按ctrl+W 现在我们依次点击新建->源文件进入代码模式 可能会需要的重要命令 For循环, 格式: For 循环变量 = 循环初值 to 循环末值 循环体 Next 例 For k = 1 to 10 a=a+1 next While循环 格式: Do While 循环条件 循环体 Loop 例: x=1 Do While x<5 x=x+1 loop If条件判断 格式: If 条件 then End if 例: X=3 If x<5 then x=x+1 End if FindPic屏幕找图,图片需要事先保存在和脚本保存位置一样的文件夹下,例如我保存在D:\Program Files\按键精灵9\QMScript\ 格式 FindPic 寻找范围左上角x坐标,寻找范围左上角y坐标,寻找范围右下角x坐标,寻找范围右下角y坐标,要寻找的图片名,相似度,寻找到后X坐标保存变量,寻找到后y坐标保存变量 例: FindPic maxx,maxy, 2000,2000,"b2.bmp",0.9,mx,my Plugin.File.OpenFile 打开文件 格式: 文件句柄变量= Plugin.File.OpenFile(文件位置) 例: file1 =Plugin.File.OpenFile("D:\Program Files\按键精灵9\QMScript\hotmail.txt") Call Plugin.File.SeekFile 设置文件内容读写位置,偏移量单位为字节 格式: Call Plugin.File.SeekFile(文件句柄,偏移量) 例: Call Plugin.File.SeekFile(file1, 11 + (i -1) * 35) Plugin.File.ReadFile读取文件,读取位置使用CallPlugin.File.SeekFile设定 格式: 变量= Plugin.File.ReadFile(文件句柄,读取字节数量) 例: mail1 = Plugin.File.ReadFile(file1, 26) Call Plugin.File.WriteFile写入文件,写入位置使用CallPlugin.File.SeekFile设定 格式: Call Plugin.File.WriteFile(文件句柄,写入的字符串) 例: Call Plugin.File.WriteFile(file1, "XXXXXXXX+"+ s1 + "@hotmail.com,000000" + vbCrLf) 好了,本教程正式开始 首先准备safari进入开发模式,用户代理选择iphone,然后在脚本保存目录建立一个txt文件,例如我在D:\Program Files\按键精灵9\QMScript\建立了hotmail.txt 然后safari第一个标签页打开mbga,第二个标签页打开hotmail进入收件箱 首先我们需要注册邮件 因此脚本的第一步 设定邮件起始的编号,例如100(此处建议从100或1000开始,这样可以保证邮件长度恒定) 于是我写下m1=100 然后需要开始写一个不断注册邮件的循环 因此写下for i= 1 to 100 这样开始就是注册100个邮件 然后我们需要让脚本能够打开纪录的文件 于是我写下file1 = Plugin.File.OpenFile("D:\Program Files\按键精灵9\QMScript\hotmail.txt") 因为每次写入的位置都变化,因此要设定位置 于是我写下Call Plugin.File.SeekFile(file1, 11 + (i - 1) * 35) 11为起始偏移量,35为每次增加的偏移量,就是每次写入德字符串长度 我们写入文件的是字符串,但是变量m1是数字,于是需要一个命令CStr转换为字符串 于是我写下了 m1 = m1 + 1 s1=CStr(m1) 这样循环一开始m1自动加1,然后转换为字符串保存的s1 现在要写入了 于是我写下 Call Plugin.File.WriteFile(file1, "XXXXXXXX+"+ s1 + "@hotmail.com,000000" + vbCrLf) 双引号内部的是字符串,双引号外部的是表达式 "XXXXXXXX+" + s1 +"@hotmail.com,000000" + vbCrLf在s1是100的时候写出来就是[email protected],000000
首页 1 2 3 4 5 6 下一页