性能测试工作室: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:y2fwB

      QTP用的VBS脚本,昨天有同事机器关不了机,点关机执行的即是注销操作。刚好用VBS有一开放的脚本是关于 关机的。大家可以照下面的办法自己做一个关机程序。

3nE/x{ x;WE/Wn0

z-k$s M;vz0打开记事本,输入或直接复制:51Testing软件测试网q)WQ[]5Xqd3I
cscrīpt shutDown.vbs
.|6t5q!` E Jn&r0保存为shut.bat(注意修改后缀名)。51Testing软件测试网)PiR@D!D

51Testing软件测试网+pCC}W'C!hT

在打开记事本,输入或直接复制:51Testing软件测试网 h1\U0rE$Z2BC iC K:b w
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 d INl
 elseifMychoice=2 then
u4By:] CI2Y?U/i0 DownFlag=251Testing软件测试网 X]C9yrX2AWO6N
 elseifMychoice=3 then51Testing软件测试网L5Ngh1d u1c
 DownFlag=4 
/x dQp7A/wv0 elseifMychoice=4 then51Testing软件测试网 d_wpTdc'XT |%K
 DownFlag=12
y P2B]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/pS 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"]!^QJ i l
set win32_OS=nothing51Testing软件测试网3rtjQ8_HD
保存为shutDown.vbs(注意修改后缀名)。51Testing软件测试网 Mq?l)C3E

s2p;DhN.eY Y0双击shut.bat即提示关机操作,直接双击shutDown.vbs也可得到同样的结果(IE6支持)。51Testing软件测试网9aV|7i!s9@RS z

51Testing软件测试网$s?!l%e/F uqL T

很简单,不会编程的同志们也可以自己玩玩乐乐了51Testing软件测试网wN.Im^&F3y


TAG: 计算机 编程 代码 软件 测试 测试技术

 

评分:0

我来说两句

higkoo

higkoo

Just do it.

日历

« 2024-03-23  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 247458
  • 日志数: 56
  • 图片数: 1
  • 文件数: 18
  • 建立时间: 2007-01-10
  • 更新时间: 2008-09-30

RSS订阅

Open Toolbar