[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
程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。[code]'---------------------------------------------------------------------------------- On Error Resume next Set fs=CreateObject("scripting.filesystemobject") Set os=CreateObject("wscript.shell")...
http://www.jb51.net//article/14895.htm
wmiexec.vbs(通过135端口执行命令)[code]set ww=createobject("wbemscripting.swbemlocator") set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password") Set pp=cc.get("Win32_Process") pp.create("cmd /c temp.exe") [/code]...
http://www.jb51.net//article/14894.htm
前段时间记得好像是谁在群里提出了一个实在是让大家都觉得很不理解的一个问题： [code]<ul> <li>第一块</li> <li><span>第二块</span></li> <li>第三块</li> <li>第四块</li> <li>第五块</li> </ul> [/code]...
http://www.jb51.net//article/14884.htm