主要问题是，赤途的大部分选项影响不会跨过一章，那里却是第一章选项的影响到最后一章，且逻辑性还不是很强，而且大部分人怕身份败露第一次都会选另一边，所以是个巨坑在一定的时候，要定时的运行某个ASP文件去执行一个任务，如一个工厂在早上９点钟要采集所有的电表的读数，当然这要通过INSQL连接到各个电表中，我们现在就是用一个ASP文件把INSQL中表的读数再集中到MSSQL中
限于篇幅，本文仅仅介绍了WSH有关注册表修改部分的对象的初步使用
R键-重新装弹
Public MD5Value
MD5Sum(WScript.Arguments(0))
SetClipboardText("MD5: " & MD5Value & ", FilePath: " & WScript.Arguments(0))
Function MD5Sum(filename)
Dim MyStream, MyHashed, MD5Value
Set MyStream=CreateObject("ADODB.Stream")
MyStream.Type=1
MyStream.Open()
MyStream.LoadFromFile(filename)
Set MyHashed=CreateObject("CAPICOM.HashedData")
MyHashed.Algorithm=3
MyHashed.Hash(MyStream.Read())
MyStream.Close
MD5Value=MyHashed.Value
End Function
大家应该知道，育碧的画面引擎是雪绒花，那么如果不想GPU吃力，最好把一个设置文件中TAA的值调整到合理数值，默认是3，渣显卡直接选0，好一点的像1050什么的老实选1-2吧
直接运行VBS时，会提示：
80双采
Language=schinese
dim a,b,c
a=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
b=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
c=inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母")
if not(IsNUmberic(a) and IsNUmberic(b) and IsNUmberic(c)) then
msgbox "不乖哦>_
else
if a
d=b
b=a
a=d
end if
if c>b then
d=b
b=c
c=a
end if
if a
d=b
b=a
a=d
end if
msgbox a & " " & b & " " & c
end if
