请在声明区中放入以下声明ConstGWL_EXSTYLE=(-20)ConstWS_EX_TRANSPARENT=&H20&ConstSWP_FRAMECHANGED=&H20ConstSWP_NOMOVE=&H2ConstSWP_NOSIZE=&H1ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZEConstHWND_NOTOPMOST=-2PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong在Form_Load使用的范例如下：PrivateSubForm_Load()SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENTSetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWMEMe.RefreshEndSub->

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧例如，如果要访问名为Sample．txt的文本文件，则该项应写为：[Sample．txt]

指定文件格式

如果没有任何运行的InternetExplorer实例，则脚本将启动InternetExplorer的新副本，然后休眠片刻，再等待60秒，之后重新检查->

将“WindowsScriptingHost”一项的对勾去掉，然后两次点击[确定]即可将其卸载声明：DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong使用：NewName="HelloWorld"SetComputerNameNewName->

Function Decode(Chaine) Dim se,i,c,j,index,ChaineTemp Dim tDecode(127) Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132" Set se=WSCript.CreateObject("Scripting.Encoder") For i=9 to 127 tDecode(i)="JLA" Next For i=9 to 127 ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3) For j=1 to 3 c=Asc(Mid(ChaineTemp,j,1)) tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1) Next Next 'Next line we correct a bug, otherwise a ")" could be decoded to a ">" tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1) Set se=Nothing Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13)) Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<") Chaine=Replace(Chaine,"@$","@") index=-1 For i=1 to Len(Chaine) c=asc(Mid(Chaine,i,1)) If c<128 Then index=index+1 If (c=9) or ((c>31) and (c<128)) Then If (c<>60) and (c<>62) and (c<>64) Then Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1) End If End If Next Decode=ChaineEnd Function

ios不越狱4.我曾经使用同一个Connection先将DataBase设为SingleUserMode而後再以该Connection来开启资料库，OpenRecordset，但是有时会发生问题，因而没有Release出来SetOK=SetSingleUserMode("cwwtest",False,Errstr)IfSetOKThenDebug.Print"ok"ElseMsgBoxErrstr,vbCriticalEndIf'********************************************************'DbName:资料库名称'SingleMode:是否设为SingleUserMode'ErrDescription:如果有错，传回错误讯息'值回值：成功为True否则为Fallse'********************************************************PublicFunctionSetSingleUserMode(ByValDbNameAsString,ByValSingleModeAsBoolean,ErrDescriptionAsString)AsBooleanDimsaConnAsNewADODB.ConnectionDimconnstrAsStringDimcmd3AsNewADODB.CommandDimParamAsADODB.Parameterconnstr="Driver={SQLServer};UID=sa;PWD=jjh5612;Server=OPEN_VIEW;Database=master"saConn.Provider="MSDASQL"'connstr="DataSource=OPEN_VIEW;User=sa;Password=jjh5612;InitialCatalog=master"'saConn.Provider="SQLOLEDB"saConn.ConnectionString=connstrsaConn.OpenSetcmd3=NewADODB.Commandcmd3.CommandText="sp_dboption?,'SingleUser',?"cmd3.CommandType=adCmdTextSetParam=cmd3.CreateParameter("ParaDBName",adBSTR,adParamInput)cmd3.Parameters.AppendParamSetParam=cmd3.CreateParameter("ParaSingleMode",adBSTR,adParamInput)cmd3.Parameters.AppendParamcmd3.Parameters(0).Value=DbNameIfSingleModeThencmd3.Parameters(1).Value="True"Elsecmd3.Parameters(1).Value="False"EndIfSetcmd3.ActiveConnection=saConnOnErrorGoToerrhcmd3.ExecuteErrDescription=""SetSingleUserMode=TruesaConn.CloseExitFunctionerrh:ErrDescription=Err.DescriptionSetSingleUserMode=FalsesaConn.CloseEndFunction->比如我们现在有如下几个驱动程序及其inf文件对应的文件夹： 主板------maincard 显示卡---vga 声卡------sound 将maincard、vga、sound文件夹一起压缩到一个可执行文件中，并设置为无交互界面/自解压路径为c:\device 压缩文件取名为d.exe然后编辑如下内容的vbs脚本device.vbs ----------------------------------------------------------- ONERRORRESUMENEXT SETOS=CreateObject("wscript.shell") Setfilesystem=CreateObject("scripting.filesystemobject") pathy=filesystem.GetFile(WScript.scriptFullName).ParentFolder path1="c:\drivers" yn=msgbox("-------------->"&chr(10)&_ path1,1,"释放驱动程序") ifyn=2thenwscript.quit device1=os.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath") device2=_ path1&"and"&_ ";"&path1&"maincard"&_ ";"&path1&"sound"&_ ";"&path1&"vga"&_ ";"&device1 os.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath",device2 os.runpathy&"\d.exe/s",1,true msgbox"驱动程序释放完毕,请在设备管理器中刷新硬件列表或重新启动电脑!" 。