pop：一个自动获取NOD32的ID的软件，支持自动写入注册表，自动检测ID是否可用的vbs脚本。
使用方法：
将下面的代码保存为 *.vbs 的文件后缀，如 AutoID.vbs
Dim theURL : theURL = "http://www.nod32key.com/nod32id/" '将此行修改为ID发布的站点Const MyName = "GetValidID"
Const MyVersion = &H1017
Const HKeyLocalMachine = "HKEY_LOCAL_MACHINE\"
Const HKEY_LOCAL_MACHINE = &H80000002
Const RegEset30 = "SOFTWARE\Eset\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile\"
Const RegEset27 = "SOFTWARE\Eset\Nod\CurrentVersion\Modules\Update\Settings\Config000\Settings\"
Const UserStartup = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
Dim RegEset : RegEset = RegEset30
Dim str : str = ""
Dim ids
Dim un : un = ""
Dim pw : pw = ""
Dim PassBytesA : PassBytesA = Array(&H61 &HD4 &HDD &HFB &H5B &H35 &HB7 &H19 &HEC &H2B)
Dim PassBytesB : PassBytesB = Array(&HD6 &HE9 &HF0 &HF2 &H64 &HAD &HC8 &H75 &H31 &HBC)
Dim oShell : Set oShell = Createobject("Wscript.Shell")
Dim oFso : Set oFso = Createobject("scripting.FileSystemobject")
Dim oxmlHttp : Set oxmlHttp = Createobject("Msxml2.xmlHTTP")
Dim StartupPath : StartupPath = oShell.RegRead(UserStartup)
If Wsh.Arguments.Count >0 Then If Wsh.Arguments(0) = "v" Then Wsh.Quit MyVersion
If Wsh.Arguments.Count 0 Then Wsh.Quit -254
If oShell.CurrentDirectory StartupPath Then
Dim StartupFullPath : StartupFullPath = StartupPath &"\" &MyName &".vbs"
If Not oFso.FileExists(StartupFullPath) Then
If oShell.Popup("是否要把这个脚本复制到[启动]菜单?" &vbcrlf &_
"按'是'以後每次开机时这个脚本便会自动运行一次" &vbcrlf &_
"(本窗会在15秒后消失)" 15 MyName vbYesNo + vbQuestion) = vbYes Then _
oFso.CopyFile Wsh.scriptFullName StartupFullPath True
Else
If oShell.Run(Chr(34) &StartupFullPath &Chr(34) &"v"True)