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 标签:vs,2008,中文,试用版,改为,正式版,破解,方法,setup,sdb,文件,product,key,t,crqgdkbvw,kjr,c

把Setup\setup.sdb文件中的 [Product Key] T2CRQGDKBVW7KJR8C6CKXMW3D改成 [Product Key]PYHYPWXB3BB2CCMV9DX9VDY8T 2.安装完成后，在“控制面板”中启动“添加删除程序”,选中Vs2008，点击“更改、删除”，输入

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"处理

2020-02-16 标签:vbs,xmldom,初次,实战,获取,qq,签名,代码,intro,分析,文档,filename,qianming,author,yongfa,365,version,v

'/*=========================================================================' * Intro用XMLDOM分析QQ签名文档' * FileNameQQ_QianMing.vbs' * Authoryongfa365' *

2020-02-16 标签:vbs,脚本,使用,wmi,操作,注册表,代码,oreg,createkey,hkey,local,machine,strkeypath,strvalue,dwvalue

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPathoReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValueoReg.SetStringValue HKEY_LO