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 标签:vbs,实现,音乐,播放,多个,代码,小结,第一个,会使,默认,mp,文件,关联,程序,会出,如下,wscript

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

2020-02-16 标签:vbs,实现,监视,进程,创建,删除,代码,每次,新的,临时,事件,消费,程序,都发,出警,如下,strcomputer,set

监视进程的创建，在每次创建新的进程时，临时事件消费程序都发出警报。 1.监视进程的创建 实现代码如下： strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersona

2020-02-16 标签:网络连接,状态,建立,断开,vbs,脚本,连接,提示,实现,代码,如下,strcomputer,set,getobject,winmgmts,root,wmi

断开连接提示 实现代码如下： strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi") Set colMonitoredEvents = objWMIServi

2020-02-16 标签:vbs,访问,剪贴板,几种,方法,小结,实现,代码,如下,set,ie,application,navigate,blank,clipboard,document

实现代码如下： Set IE = CreateObject("InternetExplorer.Application") IE.Navigate("about:blank") Set clipboard = IE.document.parentWindow.clipboardData 'SetDa

2020-02-16 标签:vbs,标识符,identifiers,存在,两种,普通,括号,我看,过的,书籍,只讲,规则,很熟悉,第一个,字符,必须,字母

VBS其实存在两种标识符： 普通标识符（NORMALIDENTIFIER） 中括号标识符（BRACKETIDENTIFIER） 但是我看过的VBS书籍上都只讲了普通标识符，没有讲中括号标识符。 普通标识符的规则我们已经很熟悉了： 第一个字符必须是字母。 后面的字符可以是字母、数字和下划线（_） 长度

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 标签:wmi,datetime,类型,转换成,vbs,时间,函数,代码,两种,方法,转换,写个,解析,实现,如下,function,cdate,mid

有两种方法可以转换，一种是自己写个函数解析： 实现代码如下： Function WMIDateStringToDate(DateTime) WMIDateStringToDate = _ CDate(Mid(DateTime, 5, 2) &_ "/" &_ Mid(DateTime

2020-02-16 标签:vbs,tli,遗忘,com,组件,曾经,很好,vbsedit,代码,自动,补全,实现,现在看来,大约,的确,用的,比如,我想

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 实现代码如下： Set tli = CreateObject("TLI.TLIApplicati

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

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