返回列表 发帖
yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 »
发表于 2015-1-3 10:58 | 显示全部帖子 
  1. Dim strPrgpth

  2. strPrgpth = """e:\工具\武侠.exe"""

  3. Set wshshell = CreateObject("wscript.shell")

  4. Set oexec = wshshell.exec(strPrgpth)

  5. 

  6. t=timer

  7. do while timer-t<160

  8.     wscript.sleep 1000 

  9.     wshshell.Sendkeys "{ENTER}"

  10.     wscript.sleep 30000

  11.     wshshell.Sendkeys "{ENTER}"

  12. loop

  13. process.Terminate
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-1-3 20:34 | 显示全部帖子 
  1. Dim strPrgpth

  2. strPrgpth = """%WinDir%\NOTEPAD.EXE"""

  3. Set wshshell = CreateObject("wscript.shell")

  4. Set oexec = wshshell.exec(strPrgpth)

  5. 

  6. t = Timer

  7. Do While Timer - t < 5

  8.     wscript.sleep 1000 

  9.     wshshell.Sendkeys "{ENTER}"

  10.     wscript.sleep 3000

  11.     wshshell.Sendkeys "{ENTER}"

  12. loop

  13. oexec.Terminate
复制代码
1

评分人数

    • hnldwhm52: 谢谢yu2n老师解决！！技术 + 1
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表