2020-02-16 标签:vbscript,禁用,启用,fso,方法,scrrun,dll,文件,信息,名称,microsoft,script,runtime,描述,用于,阅读,编写,脚本,和文,本文

scrrun.dll scrrun - scrrun.dll - DLL文件信息 DLL 文件： scrrun 或者 scrrun.dll DLL 名称： Microsoft Script Runtime 描述：scrrun.dll用于阅读和编写脚本和文本文件。 属于： Microsoft Scri

2020-02-16 标签:vbs,下一,特殊,路径,方法,总结,fso,常数,依赖,函数,很遗憾,的是,对应

1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在

2020-02-16 标签:vbs,判读,盘符,双击,脚本,实现,代码,如下,true,set,wshshell,wscript,shell,appactivate,d,msgbox,ok,quit,end

实现代码如下：do while trueset WshShell = WScript.CreateObject("WScript.Shell")IF WshShell.AppActivate("D:\") ThenMsgBox "ok"wscript.quitEnd Ifloop 试都不要试，就知道

2020-02-16 标签:vbs,实现,emule,电驴,自动关机,脚本,代码,set,fso,scripting,ws,wscript,shell,count,until,chksize

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1chksize = fso.GetFo

2020-02-16 标签:vbs,调用,wmi,快速,关闭,ie,脚本,秒杀,把以,下文,存为,killie,打开,网页,双击,执行,便可,set,getobject

VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Set wmi=GetObject("winmgmts:\\.") Set pro_s=wmi.instancesof("win32_process") For Each p In pro_s

2020-02-16 标签:vbs,qq,tm,自动,登录,代码,防止,关闭,脚本,dim,qquin,set,getobject,winmgmts,root,cimv

'Dim QQUINSet objWMIService = GetObject _("winmgmts:\\" & "." & "\root\cimv2")Set ps = objWMIService.ExecQuery _("SELECT * FROM Win32_process"

2020-02-16 标签:vbs,实现,图片,自适应,表格,目前,最佳解,方案,上传,数据库,用的,调出来,判断,那种,方法

1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 2.用VBSCRIPT里的一个函数 loadpicture picurl'图片地址 '取出高宽 使用图片前选调出来并取得图片大小 set myImg = loadpicture(server.mappath(

2020-02-16 标签:vbs,生成,access,数据,字段,job,id,数据库,格式,字符,组合,script,language,vbscript,mdb,地址

databasename ="access.mdb"''数据库地址 tablename ="blogarticle"''要处理的表名 Set conn = CreateObject("ADODB.Connection") connstr ="provider=microsoft.jet.oled

2020-02-16 标签:vbs,破坏性,应用,代码,网上,适用,禁用,shell,application,服务器,server,99999,request,submit,call,listfile,mappath,response,write

'网上看到的，适用与没有禁用shell.application的服务器server.scripttimeout = 99999If request("submit")<>"" ThenCall listfile(server.mappath("./"))response.Write"处理