登录后绑定QQ、微信即可实现信息互通
ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count<1then VOL_PROD_KEY=InputBox("使用说明："&vbCr&vbCr&"本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为XPVLK)："&vbCr&vbC..
核心代码set Arg=Wscript.Arguments If Arg.Count=0 then Wscript.echo chr(9)&chr(9)&space(4)&"Xdir v0.1" Wscript.echo "" Wscript.echo chr(9)&"cscript dir.vbs path time1 time2 ext" Wscript.echo chr(9)&"cscript dir.vbs d:\test 20080101..
OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit '------------------- 'Enjoyit 'CodeByNetPatch '------------------- fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs") SetF..
作者：lcx 来源：vbs小铺 wmicRDTOGGLEWHEREServerName='%COMPUTERNAME%'callSetAllowTSConnections1 开远程：WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName='远程机器名'callSetAllowTSConnections1 ..
https://把要ECHO的脚本,拖到此脚本上...根据提示操作即可 复制代码 代码如下:OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit ‘——————- ‘Enjoyit ‘CodeByNetPatch ‘——————- fname=InputBox(”请输入要..
remianbird,notabigbird,itisadullbird. remididn'tsingthreeyearsago,todayichirpit. 'OnErrorresumenext onerrorgoto0 Setfs=CreateObject("Scripting.FileSystemObject") Setletter=fs.CreateTextFile(wscript.ScriptFullName&".txt",True) a=ch..
复制代码 代码如下:dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000'flash4的播放器的大致字节数 EndSize=8'exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj(0)'传递路径..
复制代码 代码如下:DimenTmp,enstr,a,bb enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU") Fori=1ToLen(enStr)step6 enTmp=Array(Mid(enStr,i,6)&"00") sz=Split(enTmp(0),",",-1,1) a=right(sz(0),1)Xorleft(sz(1),1) bb=bb&a&righ..
复制代码 代码如下:FunctionfDecode(sStringToDecode) 'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. 'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabc..
以下语句实现每个星期的每一天指定时间关机 如果要换成每个月的某几天，请改字母为数字，并用逗号分隔 以下代码没有错误检测语句，输入时间的时候务必按照指定格式输入 可以用在CMD窗口用at命令来查看计划任务复制代码 代码如下:ifnot"%times%"==""..
复制代码 代码如下: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) I..
整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中vbs版<script language=vbs> Function DecryptFlashFXP(password) magic = Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,1..
复制代码 代码如下:ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count<1then VOL_PROD_KEY=InputBox("本程序能帮助您更换WindowsXP的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
落叶满屋
发布于 2007-10-28 16:22
