金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想学习按键精灵的朋友可以添加金猪脚本粉丝交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

有的时候会需要注册多个帐号，但是帐号如果太相似就会被怀疑为马甲而封号。那么就需要一个随机产生的帐号。这个程序可以完成。

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((99999999 * Rnd) + 10000000)

MessageBox(x)

set pd12=fso.opentextfile("d:随机数.txt",forappending)

pd12.writeline(x)

pd12.close

Goto start