2020-02-16 标签:vbs,16,进制,验证,特定,字符,实现,代码,如下,fastslz,file,wscript,dim,slz,set,adodb,stream,type

实现代码如下： '验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 s

2020-02-16 标签:vbs,脚本,也有,gui,图形,界面,日志,清除,功能,使用方法,下面,代码,保存为,rizhi,双击,运行,即可,不行,可能是,杀毒软件

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。以前提供过解决方法。set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' ie.menubar=

2020-02-16 标签:运行,同一,目录,下的,可执行,程序,vbs,代码,实现,如下,set,objshell,wscript,shell,fso,scripting

实现代码如下： Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") se

2020-02-16 标签:vbs,中将,gb,2312,unicode,代码,今天,写了,类似于,下面,程序,实现,如下,dim,http,set,msxml

今天写了一个类似于下面的程序： 实现代码如下： Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http

2020-02-16 标签:vbs,实现,音乐,播放,多个,代码,小结,第一个,会使,默认,mp,文件,关联,程序,会出,如下,wscript

第一个代码，会使用默认mp3文件关联的程序，会出现音乐播放框 实现代码如下：wscript.sleep 12000 set ws=createobject("wscript.shell") ws.run "兄弟你累了吗.mp3"第二段代码 调用了WMPlayer.OCX插件，不会出现音乐播放框，如果

2020-02-16 标签:crack,vbs,整人,脚本,不说,你爱,我就,关机,实现,代码,如下,set,ierunner,wscript,shell,run,cmd,c

实现代码如下： set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on

2020-02-16 标签:实现,winrar,密码,破解,vbs,代码,如下,title,破译,目前,只做,数字,set,wshshell,wscript,shell,fso,scripting

实现代码如下： title="WinRaR破译(目前只做了破译数字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input(

2020-02-16 标签:安静,运行,批处理,vbs,脚本,保存为,dim,objshell,set,wscript,shell,ireturn,run,cmd,exe,c,路径,改成

1、保存为.vbs DIM objShell set objShell=wscript.createObject("wscript.shell") iReturn=objShell.Run("cmd.exe /C 路径/改成你需要的批处理.bat", 0, TRUE) 2、继续保存.vbs on E

2020-02-16 标签:vbs,探测,端口,代码,不用,注册,winsock,实现,如下,error,resume,next,lcase,right,wscript,fullname,11,exe,echo,execute

实现代码如下： On Error Resume Next if (lcase(right(wscript.fullname,11))="wscript.exe") then wscript.echo "Execute it under the cmd.exe Plz! Thx." wscript.q

2020-02-16 标签:vbs,代码,实现,如下,error,resume,n,ext,dim,username,password,wscript,arguments,count,else,hacker

实现代码如下： on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments (0):password=Wscript.Arguments(1):Else:u