要引用MTSAdmin类型库，请从VisualBasic工程工具栏中选择“引用”选项使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉

'Set wmiServices=GetObject("winmgmts:root/default") 'Set wmiSink=WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") 'wmiServices.ExecNotificationQueryAsync wmiSink, _ '"SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND " & _ '"KeyPath='SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run'" 'WScript.Echo "开始监视注册表HKLM_Run主键的键值变化......" & vbCrLf 'While(1) 'WScript.Sleep 1000 'Wend 'Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) 'WScript.Echo ".........注册表改变......" & vbCrLf & _ '"----------监视注册表主键键值变化-----------" & vbCrLf & _ 'wmiObject.GetObjectText_() 'WScript.Quit(0)'''用作发现修改则提示后退出 'End Sub '''-----------------监视注册表根键"REG_RootKey_SZ"---------------------------- '''监视注册表，以发现对 HKLM 的任何更改用鼠标点击按钮Command1，将图像从Clipboard“粘贴”到图片框中

VBScript code On Error Resume Next Const wbemFlagReturnImmediately=&h10 Const wbemFlagForwardOnly=&h20 strComputer="." Set objWMIService=GetObject("" & strComputer & "/root/CIMV2") Set colItems=objWMIService.ExecQuery("SELECT * FROM Win32_SystemDriver", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems WScript.Echo objItem.DisplayName Next PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLongPublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPublicDeclareFunctionBitBltLib"gdi32"_(ByValhDestDCAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhSrcDCAsLong,_ByValxSrcAsLong,_ByValySrcAsLong,_ByValdwRopAsLong)AsLongPrivateSubForm_Load()DimlDesktopAsLongDimlDCAsLongForm1.AutoRedraw=TrueForm1.ScaleMode=1lDesktop=GetDesktopWindow()'取得桌面窗口lDC=GetDC(lDesktop)'取得桌面窗口的设备场景BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体EndSub->

'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do while 1 fname=arg(0) err.number=0 Set Ado=CreateObject("adodb.stream") With Ado .Type=1 .open .loadfromfile fname ss=.read End With if err.number<>0 then if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set Abo=nothing Function Bin2Str(Re) For i=1 To lenB(Re) bt=AscB(MidB(Re, i, 1)) if bt < 16 Then Bin2Str=Bin2Str&"0" Bin2Str=Bin2Str & Hex(bt) Next End Function 使用ADO的打开Accecc数据库方法：DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码：Data1.Database.NewPassword老密码,新密码

->

作者：lcx 来源：vbs小铺 首先将字符集中的174转一下,wscript.echo"%"&CStr(Hex(ascb(chrb(174)))),url编码的结果为%AE蘑菇下载流程

->next。