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

2020-02-16 标签:vbs,备忘录,启动,代码,实现,如下,msg,array,解除,电话,57,服务器,处理,流量,有没有,大流,今天,完成

实现代码如下：msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")'msgbox join(msg,vbcrlf)For i = 0 To UBound(msg)MsgBox msg(i)Next

2020-02-16 标签:vbs,如何,察看,获得,剪切板,内容,脚本,实现,代码,如下,set,objhtml,htmlfile,xmlfile,mhtmlfile,都可以

实现代码如下：Set objHTML=CreateObject("htmlfile")'xmlfile、mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") MsgBox ClipboardText

2020-02-16 标签:vbs,实现,支持,拖动,txt,文本,切割,splitfile,intro,默认,8000,个字符,文件,filename,author,yongfa,365,version

SplitFile.vbs '/*=========================================================================' * Intro.txt文本切割器，默认为8000个字符切为一个文件。支持拖动。' * FileNameSplitFi

2020-02-16 标签:vbs,ip,地理位置,查询,小偷,msg,输入,你要,域名,inputbox,127,url,http,www,cn,q

msg="请输入你要查询的IP或域名:"IP=Inputbox(msg,"IP地理位置查询小偷") If IP = "" Then IP = "127.0.0.1" url = "http://www.ip.cn/?q="& IP &"" Body = getHTTPPage(url

2020-02-16 标签:vbs,正则,表达式,代码,function,regexptest,patrn,strng,dim,regex,match,matches,建立,变量,set,new,regexp,pattern,设置,模式

"NextRegExpTest = RetStr End Function response.Write RegExpTest("[ij]s.", "IS1 Js2 IS3 is4") %> 在这个例子中，我们查找字符串中有无is或者js这两个词，忽略大小写。运行的结果如下：Match fou

2020-02-16 标签:vbs,wmi,获取,电脑,硬件,信息,实例,set,getobject,winmgmts,board,instancesof,win,32,baseboard,b,msg,主板,vbtab

Set wmi=GetObject("winmgmts:\\") Set board=wmi.instancesof("win32_baseboard") For Each b In board msg="主板："&b.Manufacturer&vbTab&b.product

2020-02-16 标签:vbs,调用,shell,application,简单,函数,set,os,wscript,input,inputbox,选择,chr,13,全部,窗口

Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Doinput1=InputBox(" 请选择："+chr(13)+chr(13)+ _"1. 全部窗口最小化"+chr(13)+ _"2.

2020-02-16 标签:vbs,sendmail,发邮件,附件,方法,namespace,http,schemas,microsoft,com,cdo,set,email,message,zzzevazzz,21,cn

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "zzzevazzz@21cn.com" Email.To = "zz