脚本序列号
❶ 脚本防封号的技巧
脚本防封号的技巧如下：
1.IP要动态，十个小时换一次。如果不陆亩是动态的，最好经常cclean。
2.不要混用脚本。不要这样。脚本用了一段时间，马上换一个，以后再换一个。有些人会误以为这样会更安全。其实正好相反。多个脚本留给网易更多的功能。
3.注册账号取角色昵称很重要。衫陆你可以很容易地记住一些序列号，如GZS0001、GZS0002、GZS0003等等。不要拿捉鬼敢死队01，捉鬼敢死队02等。你角色的昵称。看看世界冠军的小技巧。很多都是用昵称联系起来的。封号的时候，所有你没用过的剧本都会被送进棺材。
4.不要从劳动挂机，辅助不比别人好，每个人都有傻的时候。助手中有一个错误。如果人不在，角色长时间停在某个地方，网易会有行为检测。
5.尽量避开周二周三中午12点、周日下午等网易人工测试时间段。还是注意，没有掉线提示，马上掉线其他号码，防止IP追踪大封。
没有（弹出网络中断或异常陷阱基本没问题，没有提示掉线，90%都是在暗室里关机。）
6.不要在电脑上留下任何与黑客、黑客有关的东西。网易也在关注这些事情，因为这个原因造成禁欲主或悉顷义太不值得了。
7.很简单也很重要的一个。开机时间不要太长。任何程序都可以很容易的检测出这台机器从开机到当前的运行时间。重启没问题。不会花很长时间的。重新启动至少12-24小时。真的有几天甚至十几天我都不忍心关掉工作室。他仍然想知道为什么肿了。他总是封很多头衔。特色明确告诉网易你是工作室。他要给人做手术，肯定先找你。https://www.zywjw.com/zb_users/upload/2016/11/2016110857643377.png
❷ 大话西游2免费版脚本
大话2免费版新手序列号
DB00-3238-3535-8532
DB00-1996-4857-7070
DB00-1282-6201-6344
DB00-8345-2260-4386
DB00-9028-7616-5175
❸ 请教，VBS脚本怎么获取电脑硬件序列号
dim bsb,cpu,disk
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_BaseBoard",,48)
For Each objItem in colItems
bsb = "BaseBoard SerialNumber: " & objItem.SerialNumber & vbCrlf & bsb
Next
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems
cpu = "CPU ProcessorId: " & objItem.ProcessorId & vbCrlf & cpu
Next
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive",,48)
For Each objItem in colItems
disk = "DiskDrive SerialNumber: " & objItem.SerialNumber & vbCrlf & disk
Next
dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("D:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write(bsb)
f.Write(cpu)
f.Write(disk)
f.Close()
set f = nothing
set fso = nothing
MsgBox "已完成！"
复制到文本，另存为，右下角编码选择ANSI,类型选择所有，文件名：HWinfo.vbs
❹ 如何从小精灵中提取脚本
一些脚本是作者用大量心血和汗水编写的，下面是一种利用小精灵加密限制用户使用的方法。需要作者授权才能单机使用，拷贝到别的电脑无法运行。注册步骤是发给用户编译后的小精灵文件，用户运行生成注册码文件，发给作者者，作者根据注册码文件（Script目录），生成仅能在此用户电脑上运行的小精灵文件。加密思路：利用用户C盘硬盘序列号的唯一性与一些随机码混合。下面是脚本代码 VBS Dim fso,dr,sn,snt,i,regstring,file,temp,vaid,serialnumber VBS Set fso=CreateObject("Scripting.FileSystemObject") VBS serialnumber="28"&"3F"&"12"&"02" //此处的283F1202是用户c盘序列号，分开写可以避免工具容易查找。 //每个序列号与该电脑对应，根据用户发来的注册文件提取，修改该句得到只能在该 //电脑运行的脚本，编译为小精灵即可 Rem checkreginfo Gosub checkreg If vaid=0 Goto outdoor EndIf Rem mainscript //此处放置需要加密的脚本 Rem outdoor EndScript Sub checkreg If fso.FileExists(".\reginfo.tdt")=0 VBS vaid=0 Gosub creatregtxt VBSCall Call MessageBox("Invaid Register information ,reginfo file created!") Goto checkover EndIf VBS Set file=fso.OpenTextFile(".\reginfo.tdt",1) VBS regstring=file.ReadLine VBS file.Close VBS i=1 VBS sn="" While i<=8 VBS sn=sn&Mid(regstring,5*i,1) VBS i=i+1 EndWhile VBS sn=Clng("&H"&sn) VBS snt=Clng("&H"&serialnumber) If snt=sn VBS vaid=1 VBSCall Call MessageBox("Vaid User!") Else VBS vaid=0 Gosub creatregtxt VBSCall Call MessageBox("Invaid Register information ,reginfo file created!") EndIf Rem checkover Return checkreg EndScript Sub creatregtxt VBS Set file=fso.OpenTextFile(".\reginfo.tdt",2,True) VBS Set dr=fso.GetDrive("c:") VBS sn=Hex