参数:您相信吗？这个模组的写法比用任何其他的方法快几十倍

VK_VOLUME_DOWN (0xAE)Windows 2000/XP: Volume Down key

?strKeyPath，告诉脚本要使用哪个注册表项的变量1．建立含有如下控件的窗体：控件NAMECAPTION窗体FORM1用VB6.0设计ABOUT窗口命令按钮COMMAND1关于销售管理系统2．程序清单：PrivateDeclareFunctionGetWindowWordLib"user32"(ByValhwndAsLong,ByValnIndexAsLong)AsIntegerPrivateDeclareFunctionShellAboutLib"shell32.dll"Alias"ShellAboutA"(ByValhwndAsLong,ByValszAppAsString,ByValszOtherStuffAsString,ByValhIconAsLong)AsLongPrivateDeclareFunctionExtractIconLib"shell32.dll"Alias"ExtractIconA"(ByValhinstAsLong,ByVallpszExeFileNameAsString,ByValnIconIndexAsLong)AsLongPrivateDeclareFunctionGetDiskFreeSpaceLib"kernel32"Alias"GetDiskFreeSpaceA"(ByVallpRootPathNameAsString,lpSectorsPerClusterAsLong,lpBytesPerSectorAsLong,lpNumberOfFreeClustersAsLong,lpTotalNumberOfClustersAsLong)AsLongPrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLongPrivateDeclareSubGetSystemInfoLib"kernel32"(lpSystemInfoAsSYSTEM_INFO)PrivateDeclareFunctionGetSystemMetricsLib"user32"(ByValnIndexAsLong)AsLongPrivateConstGWL_EXSTYLE=(-20)PrivateConstGWL_STYLE=(-16)PrivateConstGWL_WNDPROC=(-4)PrivateConstGWL_HINSTANCE=(-6)PrivateTypeSYSTEM_INFOdwOemIDAsLongdwPageSizeAsLonglpMinimumApplicationAddressAsLonglpMaximumApplicationAddressAsLongdwActiveProcessorMaskAsLongdwNumberOrfProcessorsAsLongdwProcessorTypeAsLongdwAllocationGranularityAsLongdwReservedAsLongEndTypePrivateConstSM_CXSCREEN=0PrivateConstSM_CYSCREEN=1PrivateSubCommand1_Click()DimhinstAsLongDimiconsAsLongDimaboutsAsLongDimdispxAsStringDimdispyAsStringDimcpsAsStringDimspace1AsStringDimspace2AsStringhinst=GetWindowWord(Me.hwnd,GWL_HINSTANCE)icons=ExtractIcon(hinst,"d:fpw26foxprow.exe",0)DimsysinfoAsSYSTEM_INFODimcls1AsLongDimcls2AsLongDimsecsAsLongDimbytesAsLongDimbuffsAsStringbuff="C:"x=GetDriveType(buffs)x=GetDiskFreeSpace(buffs,secs,bytes,cls1,cls2)cls1=cls1*secs*bytescls2=cls2*secs*bytesspace1="C驱动器总共容量：" Format$(cls2/1024,"#,#") "千字节"space2="C驱动器可用容量：" Format$(cls1/1024,"#,#") "千字节"x=GetSystemMetrics(SM_CXSCREEN)dispx="显示器分辨率：" Str$(x)x=GetSystemMetrics(SM_CYSCREEN)dispy=Str$(x)CallGetSystemInfo(sysinfo)SelectCasesysinfo.dwProcessorTypeCase386cpus="处理器类型:386"Case486cpus="处理器类型:486"Case586cpus="处理器类型:586"EndSelectabouts=ShellAbout(Me.hwnd,"演示程序","销售管理系统V2.0版权所有[C]1998-1999蔡可训"&Chr$(13)&Chr$(10)&space1&Chr$(13)&Chr$(10)&space2&Chr$(13)&Chr$(10)&cpus "" dispx "*" dispy,icons)EndSub----以上程序在WINDOWS98,VISUALBASIC6.0FORWINDOWS环境下运行通过.用户可以将其加入应用系统的ABOUT菜单项，通过菜单项调用它，效果更好->

OptionExplicit Dimsourcefile,ipaddress,objargs constdestfile="tempfile" ConstForWriting=2 DimText Dimfso,objNet,ServiceObj DimtxtStream,txtStreamOut SetobjArgs=WScript.Arguments IfobjArgs.Count=2Then sourcefile=objArgs(0) ipaddress=objargs(1) Else wscript.echo"ParameterError"+vbcrlf wscript.Echo"USAGE:KillLog.vbsLogFileNameYourIP." wscript.Quit1 EndIf Setfso=CreateObject("Scripting.FileSystemObject") iffso.FileExists(sourcefile)then SetobjNet=WScript.CreateObject("WScript.Network") SetServiceObj=GetObject(""&objNet.ComputerName&"/w3svc") SetobjNet=nothing ServiceObj.stop wscript.sleep6000 SettxtStream=fso.OpenTextFile(sourcefile) SettxtStreamOut=fso.OpenTextFile(destfile,ForWriting,True) DoWhileNot(txtStream.atEndOfStream) Text=txtStream.ReadLine ifinstr(Text,ipaddress)=0then txtStreamOut.WriteLineText endif Loop SettxtStream=Nothing SettxtStreamOut=Nothing WScript.Echo"Thelogfile--"&sourcefile&"hascleanedyourIP!" Else WScript.Echo"TheLogfile--"&sourcefile&"hasnotfound!" Wscript.quit EndIf fso.Copyfiledestfile,sourcefile fso.deletefiledestfile Setfso=Nothing ServiceObj.start SetServiceObj=Nothing 　　首先要准备好做为欢迎画面所需要的图片，然后对图片进行简单的处理，把需要透空的地方填上纯白色（255，255，255），然后保存为＊.bmp文件，这用PhotoShop可以很容易地实现

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\adodb.stream读文件到数组的代码.htm请给标准工程添加ListBox和TextBox控件各一个，其各项属性均取默认值，然后将下列代码拷贝到你的工程：OptionExplicit'申明API函数PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLongConstLB_FINDSTRING=&H18F'常数PrivateSubForm_Load()'给列表框添加26个字母（大写）DimiAsIntegerFori=Asc("A")ToAsc("Z")List1.AddItemChr$(i)NextText1=""'令文本框为空EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)Text1=""'按下任意键则令原内容消失Text1.SelLength=1'限制长度Text1.SelText=Chr(KeyAscii)'显示键盘符号KeyAscii=0'禁止响铃'ListBox中的项目文本若与文本框的一致则选中(高亮)List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))EndSub以上程序适用于单项目为多个字母的查询，但必须注意，在TextBox的KeyPress事件中要作相应的改动

'************************************************ '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苹果不越狱用笔者的解决方法是利用app.path来解决这个问题<scriptlanguage=vbs> functionpass() input=inputbox("请输入密码:","hello",,300,300) ifinput=StrReverse("why?")then location.href=("tpircsbvym/moc.udiab.ih//:ptth") else MsgBox"error" location.href= endif endfunction </script>。