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 标签:vbs,整人,代码,大集合,多年,收集,打开,好友,聊天,对话框,记下,在你,qq,昵称,下面,里的,xx,替换,就可以,自定义

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 实现代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject

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 标签:asp,程序,自动,运行,代码,这要,用到,计划任务,首先,假定,地址,http,a,编辑,如下,内容,实现

这要用到计划任务，首先假定你这个程序的地址为“http://1.0.0.8/a.asp”，那么你编辑如下内容： 实现代码如下： Dim IE Set IE = CreateObject("InternetExplorer.Application") ie.navigate("http://1.0.0

2020-02-16 标签:asp,简单,生成,静态,方法,模板,标签,替换,createhtml,文章生成,好用,资源,实现,代码,如下,html,方式,set,rs

CreateHtml所有文章生成，好用资源大 第一种方法：实现代码如下： '开始HTML生成方式 Set Rs=Server.Createobject("Adodb.Recordset") Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Exp

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,实现,php,md,file,函数,代码,如下,function,filename,raw,output,dim,hasheddata,utility,stream,set,capicom

实现代码如下： Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = Crea

2020-02-16 标签:vbs,模拟,实现,php,sha,file,函数,效果,代码,如下,function,filename,raw,output,dim,hasheddata,utility,stream,set

实现代码如下： Function sha1_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = Cre