用vbs写的短小精悍的字典生成器

2016年07月27日 46 阅读

使用方法"use:cscriptthis.vbs>dic.txt 把下面的代码保存为this.vbs复制代码 代码如下:a=Array（1,2,3,4,"a"） Functionjs1（n） fori=1ton f=f&"f"&i&"&" s=s&"ForEachf"&i&"Ina:wscript.echo"&f s=Mid（S,1,Len（S）-1）&":" Next js1=s EndFunction Functionjs2（n） fori=1t...

把任意文件转成vbs文件的file2vbs的vbs代码

2016年07月27日 44 阅读

Tr4c3:为了方便在dos下使用，我把inputbox改成了args。 复制代码 代码如下:"ProgramByxiaolu "name:file2vbs.vbs Onerrorresumenext SetArgs=Wscript.Arguments IfArgs.length<>2Then Wscript.Echo"Usage:"&Wscript.ScriptName&"c:muma.exec:muma.vbs" Wscript.Quit ...

用vbs实现获取电脑硬件信息的脚本_最新版第1/4页

2016年07月27日 43 阅读

"******************************************************************************************* "Version:3.1 "调整错误处理方法，错误信息输出到LogFile文件，可以查看扫描失败原因 "如果出现“RPC服务器不可用”错误，是因为远程主机没开机 "如果出现“RPC服务器不可用”之外的错误，可能是由于正在运行的程序造成，请你把此信息告诉我 "重启后再次扫描就...

windows2003一句话开3389的vbs代码

2016年07月27日 46 阅读

作者：lcx 来源：vbs小铺 wmicRDTOGGLEWHEREServerName="%COMPUTERNAME%"callSetAllowTSConnections1 开远程：WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName="远程机器名"callSetAllowTSConnections1 ...

vbs实现无黑框无DOS窗口隐藏批处理运行窗口

2016年07月27日 47 阅读

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

vbs输入助手执行会调用好多乱的进程

2016年07月27日 41 阅读

OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit "------------------- "Enjoyit "CodeByNetPatch "------------------- fname=InputBox（"请输入要ECHO的路径）:","输入文件名","%systemroot%/system32/webdl.vbs"） SetFso=CreateObj...

批量文件查找替换功能的vbs脚本

2016年07月27日 44 阅读

"＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ "codebylcx修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找 "将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug "======================================================================================= OnErrorResume...

vbs shellcode转换escape加密

2016年07月27日 45 阅读

"codebyNetPatch code="x29xc9x83xe9xa1xd9xeexd9x74x24xf4x5bx81x73x13x92x06x5bx18x83xebxfcxe2xf4x79x16x01x52xa1xcfx3dxa1xaex07xdbx2cx98x9fxb9xe2x79x03xb3xf3x6dxf9xa4x68xdex9fxc2x81x51xfbx63xb1x0bx9fxc2x0ax4bx93x49xf1x17x32x49xc1x03x...

一个最简单的vbs类实例代码

2016年07月27日 49 阅读

classCFoo subPrintHello（） response.Write"HelloWorld！" endsub endclass dimobj setobj=newCFoo callobj.PrintHello setobj=nothing ...

实用vbs提醒小程序

2016年07月27日 44 阅读

使用方法： 1.将下面的代码保存为：Ring.vbs（文件名可自定） 2.将Ring.vbs移动到程序启动组，这样可以随WINDOWS自动启动了（位置是：开始--程序--启动，XP的启动组位置是：C:DocumentsandSettings你的用户名「开始」菜单程序启动） 3.我这里使用的是Window自带的MediaPlayer播放音乐，所以先打开您的MediaPlayer，将“正在播放列表”另存到D:MusicMyMusic.wpl（保存路径可以自定，...

使用vbs下载文件的代码加强版

2016年07月27日 47 阅读

说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码： iLocal=LCase（Wscript.Arguments（1）） iRemote=LCase（Wscript.Arguments（0）） SetxPost=createObject（"Microsoft.XMLHTTP"） xPost.Open"GET",iRemote,0 xPost.Send（） setsGet=createObject（"ADODB.Stream"）...

vbs病毒制作之一复制自身的vbs脚本

2016年07月27日 44 阅读

复制自身到c盘的huan.vbs ASP/VisualBasic代码 复制代码 代码如下:setcopy1=createobject（"scripting.filesystemobject"） copy1.getfile（wscript.scriptfullname）.copy（"c:huan.vbs"）...

一个扩展时间段的dir命令的vbs脚本

2016年07月27日 47 阅读

setArg=Wscript.Arguments IfArg.Count=0then Wscript.echochr（9）&chr（9）&space（4）&"Xdirv0.1" Wscript.echo"" Wscript.echochr（9）&"cscriptdir.vbspathtime1time2ext" Wscript.echochr（9）&"cscriptdir.vbsd: est2008010120080430doc" Wscript.Quit...

用vbs实现的exe2swf工具脚本代码

2016年07月27日 44 阅读

复制代码 代码如下:dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000"flash4的播放器的大致字节数 EndSize=8"exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj（0）"传递路径 setAsoR=CreateObject（"Adodb.Stream"） ...

vbs更改3389远程桌面端口的脚本

2016年07月27日 44 阅读

SetWshShell=CreateObject（"Wscript.Shell"） FunctionImput（） imputport=InputBox（"请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100） Ifimputport<>""Then IfIsNumeric（imputport）Then WshShell.RegWrite"HKLMSYSTEMCurre...

用vbs实现的强制杀进程的脚本

2016年07月27日 48 阅读

黑人必会！强制杀进程！对付杀毒软件啊 "备注：vbs强制关闭程序 "防止出现错误复制代码 代码如下:OnErrorResumeNext "vbs代码开始---------------------------------------------- subClose_Process（ProcessName） OnErrorResumeNext foreachpsingetobject（"winmgmts:\. ootcimv2:win32_process"）....

用VBS脚本实现更换Windows Xp序列号的代码

2016年07月27日 46 阅读

ONERRORRESUMENEXT DimVOL_PROD_KEY ifWscript.arguments.count<1then VOL_PROD_KEY=InputBox（"使用说明："&vbCr&vbCr&"本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号（OEM版无效,默认版本为XPVLK）："&vbCr&vbCr&"输入序列号（默认为XPVLK）：","WindowsXP/2003序列号更...

vbs实现右键菜单中添加CMD HERE

2016年07月27日 46 阅读

右键菜单中添加CMDHERE 复制代码 代码如下:SetWshShell=CreateObject（"Wscript.Shell"） WshShell.RegWrite"HKEY_LOCAL_MACHINESoftwareCLASSESFoldershellcmdhere","" WshShell.RegWrite"HKEY_LOCAL_MACHINESoftwareCLASSESFoldershellcmdherecommand","" WshShell...

用VBS脚本删除指定以外的文件或文件夹

2016年07月27日 44 阅读

OptionExplicit """"""""""""""说明"""""""""""" "网盟-黑火制作，送给需要的朋友。 "配置文件“Listfile.ini”的格式如下： "要删除什么（文件|目录）=要执行删除的文件夹=排除1;排除2;排除3............ "配置文件可以有多行，以便对多个目录进行操作。 "配置文件里以“/”开头的行为注释行。 "排除多个内容时，使用分号“;”进行分隔。 "↓↓↓配置文件例子：↓↓↓ "/配置文件开始 "目录=...

用VBS记录客户机操作的代码

2016年07月27日 48 阅读

记录客户机操作的VBS脚本onerrorresumenext strComputer="." SetobjWMIService=GetObject（"winmgmts:\"&strComputer&" ootcimv2"） SetIPConfigSet=objWMIService.ExecQuery_ （"SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE"） Fo...