'/*========================================================================= ' * Intro 用XMLDOM分析QQ签名文档 ' * FileName QQ_QianMing.vbs ' * Author &...
http://www.jb51.net//article/14931.htm
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetDWORDValue H...
http://www.jb51.net//article/14930.htm
[code]msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务") 'msgbox join(msg,vbcrlf) For i = 0 To UBound(msg) MsgBox msg(i) Next [/...
http://www.jb51.net//article/14910.htm
[code]Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile都可以ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")MsgBox ClipboardText[/code]...
http://www.jb51.net//article/14909.htm
SplitFile.vbs'/*========================================================================= ' * Intro .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。 ' * FileName SplitFile.vbs ...
http://www.jb51.net//article/14908.htm
'/*========================================================================= ' * Intro 定时提醒，格式：时间|提示语，具体使用方法可以参考例子 ' * FileName Remind.vbs ' * Author ...
http://www.jb51.net//article/14904.htm
msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷")If IP = "" Then IP = "127.0.0.1"url = "http://www.ip.cn/?q="& IP &""Body = getHTTPPage(url)Set Re = New RegExpRe.Pattern = "(查询结果为：.+)"Set&nbs...
http://www.jb51.net//article/14901.htm
<%Function RegExpTest(patrn, strng) Dim regEx, Match, Matches '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn'设置模式。&nbs...
http://www.jb51.net//article/14899.htm
Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This&nb...
http://www.jb51.net//article/14898.htm
Set wmi=GetObject("winmgmts:\\")Set board=wmi.instancesof("win32_baseboard")For Each b In boardmsg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)Nextmsg=msg&Chr(13)&"---"+Chr(13)Set cpus=wmi.instancesof("win32_processor")msg=msg&...
http://www.jb51.net//article/14897.htm
Set os=CreateObject("wscript.shell")Set os0=CreateObject("shell.application")Do input1=InputBox(" 请选择："+chr(13)+chr(13)+ _ "1. 全部窗口最小化"+chr(13)+ _ "2. 窗口状态复原"+c...
http://www.jb51.net//article/14896.htm