大家好,欢迎来到IT知识分享网。
金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot,Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想学习按键精灵的朋友可以添加金猪脚本粉丝交流群: 学习路上不再孤单,金猪脚本伴你一同成长.
![按键精灵自动获许随机帐号,存储到文本,注册多个帐号,果然厉害插图1 按键精灵自动获许随机帐号,存储到文本,注册多个帐号,果然厉害](https://yundeesoft.com/wp-content/uploads/2022/11/2022112316405970.jpg)
有的时候会需要注册多个帐号,但是帐号如果太相似就会被怀疑为马甲而封号。那么就需要一个随机产生的帐号。这个程序可以完成。
1、随机产生8位的数字帐号
2、判断要存储的文件是否存在,如果不存在就建立新文件
3、将数字帐号写入文件
这个程序主要完成了全部分功能,加上一些另外的程序代码就可以从文件中读出帐号,自动申请等等操作了。。。。程序继续完善中。。。
希望各位大侠指点指点。。。。。
MessageBox(“程序开始”)
set fso=CreateObject(“Scripting.FileSystemObject”)
const forreading=1
const forwriting=2
const forappending=8
Rem start
Dim fso
count=0
pd1=fso.FileExists(“d:随机数.txt”)
If pd1=0
set pd1=fso.createtextfile(“d:随机数.txt”,false)
pd1.close
End If
Randomize
x = Int(( * Rnd) + )
MessageBox(x)
set pd12=fso.opentextfile(“d:随机数.txt”,forappending)
pd12.writeline(x)
pd12.close
Goto start
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/57425.html