性能测试工作室:http://www.cnblogs.com/preftest
个人博客: http://hi.baidu.com/higkoo
用记事本写一个关机小程序
上一篇 /
下一篇 2007-01-10 13:07:18
/ 个人分类:测试技术
昨天整个QTP调用外面DLL的代码,头都大了。基本摸清楚了个大概,下一步去探索Win32_API。$A5]+K._P6w3kC"f1l
V&}w0 正事没办好,倒弄出了一个歪点子。
}zB_!I9b7B8uO7IX9y051Testing软件测试网D
f(b6i;[f:y2f wB QTP用的VBS脚本,昨天有同事机器关不了机,点关机执行的即是注销操作。刚好用VBS有一开放的脚本是关于 关机的。大家可以照下面的办法自己做一个关机程序。
3nE/x{ x;WE/Wn0z-k$sM;vz0打开记事本,输入或直接复制:51Testing软件测试网q)WQ[]5Xqd3I
cscrīpt shutDown.vbs
.|6t5q!` E Jn&r0保存为shut.bat(注意修改后缀名)。51Testing软件测试网)PiR@D!D
51Testing软件测试网+pC C}W'C!h T在打开记事本,输入或直接复制:51Testing软件测试网 h1\U0rE$Z2BC
iC
K:bw
Mychoice = inputbox ( "请按提示输入:" & chr(13) & "普通关机请输入 1 "& chr(13) & "重新启动请输入 2 "& chr(13) & "强制注销请输入 3 "& chr(13) & "强行关机请输入 4 "& chr(13) & "强制重启请输入 5 " , "选择操作" , "5" ) '此句不换行
.c\0Zy@ BX0IfMychoice=1 Then51Testing软件测试网|E-\4O:_6L8e
DownFlag=851Testing软件测试网7s$w
dINl
elseifMychoice=2 then
u4By:]
CI2Y?U/i0 DownFlag=251Testing软件测试网 X]C9yrX2AWO6N
elseifMychoice=3 then51Testing软件测试网L5Ngh1du1c
DownFlag=4
/x dQp7A/wv0 elseifMychoice=4 then51Testing软件测试网 d_wpTdc'XT |%K
DownFlag=12
yP2B]6^4BE0 elseifMychoice=5 then
f/ef
n)TCGM1}0 DownFlag=6
4c9z@}/f[6H+Q.G0 else51Testing软件测试网`
J.wlYBV `&?-x7c
msgbox "未执行任何操作!",64+0,"提示"51Testing软件测试网l%pzFXm
End If
/X2O/p S b"y,H ~v3b*O0set win32_OS=getobject("winmgmts:{(Shutdown)}//./root/cimv2").execQuery("select * from win32_operatingsystem where primary=true") '此句不换行51Testing软件测试网.V0{k]i
for each OS in win32_OS
/kX*?eTj0OS.win32shutdown(DownFlag)51Testing软件测试网 zN+ch)[
next51Testing软件测试网5g,y"]!^QJi l
set win32_OS=nothing51Testing软件测试网3rtjQ8_HD
保存为shutDown.vbs(注意修改后缀名)。51Testing软件测试网 Mq?l)C3E
s2p;DhN.eYY0双击shut.bat即提示关机操作,直接双击shutDown.vbs也可得到同样的结果(IE6支持)。51Testing软件测试网9aV|7i!s9@RS z
51Testing软件测试网$s?!l%e/FuqL
T很简单,不会编程的同志们也可以自己玩玩乐乐了51Testing软件测试网wN.Im^&F3y
收藏
举报
TAG:
计算机
编程
代码
软件
测试
测试技术