用记事本写一个关机小程序

昨天整个QTP调用外面DLL的代码，头都大了。基本摸清楚了个大概，下一步去探索Win32_API。

[F!LJZ1Zd0      正事没办好，倒弄出了一个歪点子。51Testing软件测试网4d M2yo(H(^

      QTP用的VBS脚本，昨天有同事机器关不了机，点关机执行的即是注销操作。刚好用VBS有一开放的脚本是关于 关机的。大家可以照下面的办法自己做一个关机程序。51Testing软件测试网 @a@cc\$S

/_Z7x3C]ER'S0打开记事本，输入或直接复制：
"i:snShe(x(\g5K9` u0cscrīpt shutDown.vbs51Testing软件测试网S;p!`|R@e)Vx
保存为shut.bat(注意修改后缀名)。

在打开记事本，输入或直接复制：51Testing软件测试网/g;JF4h3^ v
Mychoice = inputbox ( "请按提示输入：" &  chr(13) & "普通关机请输入 1 "& chr(13) & "重新启动请输入 2 "& chr(13) & "强制注销请输入 3 "& chr(13) & "强行关机请输入 4 "& chr(13) & "强制重启请输入 5 " , "选择操作" , "5"  ) '此句不换行
,d~)o'\'Y`.Y0IfMychoice=1 Then
7Aq"S^a0 DownFlag=851Testing软件测试网f3Fce@A [
v
 elseifMychoice=2 then
2T r(G;X {;q0 DownFlag=2
.b4m'i*Y'fuRb&~0 elseifMychoice=3 then
{5bu ]"v0 DownFlag=4 51Testing软件测试网9r ?c_,Rw.iG
 elseifMychoice=4 then
j r*[? n!QN0 DownFlag=1251Testing软件测试网7S$_mL,a:N6y&A
 elseifMychoice=5 then51Testing软件测试网q}ck#iJHA H\x
 DownFlag=651Testing软件测试网a{)H(^$n RTT
 else
#jK.x f1c QG*`4A m0 msgbox "未执行任何操作！",64+0,"提示"51Testing软件测试网*t/}0Dm4S~Jg+[Y
End If
~;Y-L0A^d&ikTJ? w0set win32_OS=getobject("winmgmts:{(Shutdown)}//./root/cimv2").execQuery("select * from win32_operatingsystem where primary=true") '此句不换行51Testing软件测试网~ IJ4K0|(\ t"I|
for each OS in win32_OS51Testing软件测试网'zZT,Qa9a,z.f!R%g
OS.win32shutdown(DownFlag)51Testing软件测试网Un Z`Szq S7l
next
+TIbPH!A0cIT0set win32_OS=nothing51Testing软件测试网feK l4Ou(|I
保存为shutDown.vbs(注意修改后缀名)。51Testing软件测试网2B-a1Iw R h4BK1h

双击shut.bat即提示关机操作，直接双击shutDown.vbs也可得到同样的结果（IE6支持）。

很简单，不会编程的同志们也可以自己玩玩乐乐了51Testing软件测试网0k%|;oph6T w#}!Z pv