[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
16楼 跳转到 »
发表于 2011-5-9 11:20 | 只看该作者
现在我陷入困境了，彻底没有招了

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
17楼
发表于 2011-5-10 13:25 | 只看该作者
本帖最后由 fastslz 于 2011-5-10 15:01 编辑 
  1. Dim tangshui,gansu,touxi,wshshell,aStrs,bStrs,cStrs

  2. Set WshShell = CreateObject ("Wscript.Shell")

  3. input=InputBox("糖水瓶数")

  4. aSelect(input)

  5. input=InputBox("肝素支数")

  6. bSelect(input)

  7. input=InputBox("透析器次数")

  8. cSelect(input)

  9. 

  10. If Not  aStrs = "" Then

  11.    KeysNames = Split(aStrs, ",")

  12.    For i = 0 to UBound(KeysNames)

  13.        Wshshell.SendKeys KeysNames(i)

  14.    Next

  15. End If

  16. 

  17. If Not  bStrs = "" Then

  18.    KeysNames = Split(bStrs, ",")

  19.    For i = 0 to UBound(KeysNames)

  20.        Wshshell.SendKeys KeysNames(i)

  21.    Next

  22. End If

  23. 

  24. Wshshell.SendKeys "xytx"

  25. Wscript.sleep 20 '若想连续模拟按键稳定性，每个模拟按键延时20毫秒，延时多少取决于你的计算机性能

  26. Wshshell.SendKeys "{ENTER}"

  27. Wscript.sleep 20

  28. Wshshell.SendKeys "{ENTER}"

  29. Wscript.sleep 20

  30. Wshshell.SendKeys "{ENTER}"

  31. Wscript.sleep 20

  32. Wshshell.SendKeys "{ENTER}"

  33. Wscript.sleep 20

  34. Wshshell.SendKeys "{ENTER}"

  35. 

  36. Wshshell.SendKeys "xtjc"

  37. Wscript.sleep 20

  38. Wshshell.SendKeys "{ENTER}"

  39. Wscript.sleep 20

  40. Wshshell.SendKeys "{ENTER}"

  41. Wscript.sleep 20

  42. Wshshell.SendKeys "{ENTER}"

  43. Wscript.sleep 20

  44. Wshshell.SendKeys "{ENTER}"

  45. Wscript.sleep 20

  46. Wshshell.SendKeys "{ENTER}"

  47. 

  48. Wshshell.SendKeys "ycxg"

  49. Wscript.sleep 20

  50. Wshshell.SendKeys "{ENTER}"

  51. Wscript.sleep 20

  52. Wshshell.SendKeys "{ENTER}"

  53. Wscript.sleep 20

  54. Wshshell.SendKeys "{ENTER}"

  55. Wscript.sleep 20

  56. Wshshell.SendKeys "{ENTER}"

  57. 

  58. If Not  cStrs = "" Then

  59.    KeysNames = Split(cStrs, ",")

  60.    For i = 0 to UBound(KeysNames)

  61.        Wshshell.SendKeys KeysNames(i)

  62.    Next

  63. End If

  64. 

  65. Function aSelect(N)

  66.     Select Case N

  67.         Case 0

  68.         aStrs = ""

  69.              Exit Function

  70.         Case Else

  71.              aStrs = "lhn,{ENTER},{ENTER}," & N & ",{ENTER},{ENTER},{ENTER}"

  72.     End Select

  73. End Function

  74. 

  75. Function bSelect(B)

  76.     Select Case B

  77.         Case 0

  78.         bStrs = ""

  79.              Exit Function

  80.         Case Else

  81.              bStrs = "gsz,{ENTER},{ENTER}," & B & ",{ENTER},{ENTER},{ENTER}"

  82.     End Select

  83. End Function

  84. 

  85. Function cSelect(c)

  86.     Select Case c

  87.         Case 0

  88.         cStrs = ""

  89.              Exit Function

  90.         Case Else

  91.              cStrs = "txq,{ENTER},{ENTER},{ENTER},{ENTER}"

  92.     End Select

  93. End Function
复制代码
下面的代码更稳定，但必须安装word，例子为循环等待记事本窗体，发现窗体就模拟按键，仅供参考
  1. Dim tangshui,gansu,touxi,wshshell,aStrs,bStrs,cStrs

  2. Set WshShell = CreateObject ("Wscript.Shell")

  3. input=InputBox("糖水瓶数")

  4. aSelect(input)

  5. input=InputBox("肝素支数")

  6. bSelect(input)

  7. input=InputBox("透析器次数")

  8. cSelect(input)

  9. 

  10. If Not  aStrs = "" Then

  11.    KeysNames = Split(aStrs, ",")

  12.    For i = 0 to UBound(KeysNames)

  13.        aWindow("记事本")

  14.        Wshshell.SendKeys KeysNames(i)

  15.    Next

  16. End If

  17. 

  18. If Not  bStrs = "" Then

  19.    KeysNames = Split(bStrs, ",")

  20.    For i = 0 to UBound(KeysNames)

  21.        aWindow("记事本")

  22.        Wshshell.SendKeys KeysNames(i)

  23.    Next

  24. End If

  25. 

  26. aWindow("记事本")

  27. Wshshell.SendKeys "xytx"

  28. Wscript.sleep 20 '若想连续模拟按键稳定性，每个模拟按键延时20毫秒，延时多少取决于你的计算机性能

  29. Wshshell.SendKeys "{ENTER}"

  30. Wscript.sleep 20

  31. Wshshell.SendKeys "{ENTER}"

  32. Wscript.sleep 20

  33. Wshshell.SendKeys "{ENTER}"

  34. Wscript.sleep 20

  35. Wshshell.SendKeys "{ENTER}"

  36. Wscript.sleep 20

  37. Wshshell.SendKeys "{ENTER}"

  38. 

  39. aWindow("记事本")

  40. Wshshell.SendKeys "xtjc"

  41. Wscript.sleep 20

  42. Wshshell.SendKeys "{ENTER}"

  43. Wscript.sleep 20

  44. Wshshell.SendKeys "{ENTER}"

  45. Wscript.sleep 20

  46. Wshshell.SendKeys "{ENTER}"

  47. Wscript.sleep 20

  48. Wshshell.SendKeys "{ENTER}"

  49. Wscript.sleep 20

  50. Wshshell.SendKeys "{ENTER}"

  51. 

  52. aWindow("记事本")

  53. Wshshell.SendKeys "ycxg"

  54. Wscript.sleep 20

  55. Wshshell.SendKeys "{ENTER}"

  56. Wscript.sleep 20

  57. Wshshell.SendKeys "{ENTER}"

  58. Wscript.sleep 20

  59. Wshshell.SendKeys "{ENTER}"

  60. Wscript.sleep 20

  61. Wshshell.SendKeys "{ENTER}"

  62. 

  63. If Not  cStrs = "" Then

  64.    KeysNames = Split(cStrs, ",")

  65.    For i = 0 to UBound(KeysNames)

  66.        aWindow("记事本")

  67.        Wshshell.SendKeys KeysNames(i)

  68.    Next

  69. End If

  70. 

  71. Function aSelect(N)

  72.     Select Case N

  73.         Case 0

  74.         aStrs = ""

  75.              Exit Function

  76.         Case Else

  77.              aStrs = "lhn,{ENTER},{ENTER}," & N & ",{ENTER},{ENTER},{ENTER}"

  78.     End Select

  79. End Function

  80. 

  81. Function bSelect(B)

  82.     Select Case B

  83.         Case 0

  84.         bStrs = ""

  85.              Exit Function

  86.         Case Else

  87.              bStrs = "gsz,{ENTER},{ENTER}," & B & ",{ENTER},{ENTER},{ENTER}"

  88.     End Select

  89. End Function

  90. 

  91. Function cSelect(c)

  92.     Select Case c

  93.         Case 0

  94.         cStrs = ""

  95.              Exit Function

  96.         Case Else

  97.              cStrs = "txq,{ENTER},{ENTER},{ENTER},{ENTER}"

  98.     End Select

  99. End Function

  100. 

  101. Sub aWindow(WindowT)

  102. Set objWord = CreateObject("Word.Application")

  103. Set colTasks = objWord.Tasks

  104. Do

  105.     If colTasks.Exists(WindowT) Then

  106.        colTasks(WindowT).Activate

  107.        colTasks(WindowT).WindowState = 0

  108.        Exit Do

  109.     End If

  110.     Wscript.sleep 200

  111. Loop

  112. objWord.Quit

  113. End Sub
复制代码

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
18楼
发表于 2011-5-10 13:37 | 只看该作者
本帖最后由 fastslz 于 2011-5-10 14:59 编辑

再给你一个方法
  1. Dim tangshui,gansu,touxi,wshshell,aStrs,bStrs,cStrs,dStrs

  2. Set WshShell = CreateObject ("Wscript.Shell")

  3. input=InputBox("糖水瓶数")

  4. aSelect(input)

  5. input=InputBox("肝素支数")

  6. bSelect(input)

  7. input=InputBox("透析器次数")

  8. cSelect(input)

  9. 

  10. If Not  aStrs = "" Then

  11.    KeysNames = Split(aStrs, ",")

  12.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按

  13.    For i = 0 to UBound(KeysNames)

  14.        Wscript.sleep 20

  15.        Wshshell.SendKeys KeysNames(i)

  16.    Next

  17. End If

  18. 

  19. If Not  bStrs = "" Then

  20.    KeysNames = Split(bStrs, ",")

  21.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按

  22.    For i = 0 to UBound(KeysNames)

  23.        Wscript.sleep 20

  24.        Wshshell.SendKeys KeysNames(i)

  25.    Next

  26. End If

  27. 

  28. dStrs = "xytx,{ENTER},{ENTER},{ENTER},{ENTER},{ENTER},xtjc,{ENTER},{ENTER},{ENTER},{ENTER},{ENTER},ycxg,{ENTER},{ENTER},{ENTER},{ENTER}"

  29. If Not  dStrs = "" Then

  30.    KeysNames = Split(dStrs, ",")

  31.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按

  32.    For i = 0 to UBound(KeysNames)

  33.        Wscript.sleep 20

  34.        Wshshell.SendKeys KeysNames(i)

  35.    Next

  36. End If

  37. 

  38. If Not  cStrs = "" Then

  39.    KeysNames = Split(cStrs, ",")

  40.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按

  41.    For i = 0 to UBound(KeysNames)

  42.        Wscript.sleep 20

  43.        Wshshell.SendKeys KeysNames(i)

  44.    Next

  45. End If

  46. 

  47. Function aSelect(N)

  48.     Select Case N

  49.         Case 0

  50.         aStrs = ""

  51.              Exit Function

  52.         Case Else

  53.              aStrs = "lhn,{ENTER},{ENTER}," & N & ",{ENTER},{ENTER},{ENTER}"

  54.     End Select

  55. End Function

  56. 

  57. Function bSelect(B)

  58.     Select Case B

  59.         Case 0

  60.         bStrs = ""

  61.              Exit Function

  62.         Case Else

  63.              bStrs = "gsz,{ENTER},{ENTER}," & B & ",{ENTER},{ENTER},{ENTER}"

  64.     End Select

  65. End Function

  66. 

  67. Function cSelect(c)

  68.     Select Case c

  69.         Case 0

  70.         cStrs = ""

  71.              Exit Function

  72.         Case Else

  73.              cStrs = "txq,{ENTER},{ENTER},{ENTER},{ENTER}"

  74.     End Select

  75. End Function
复制代码

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
19楼
发表于 2011-5-11 00:28 | 只看该作者
17# fastslz
18# fastslz
谢谢，谢谢fastslz 大大给出的完美解决办法，实在是太感谢了！！！！！！

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
20楼
发表于 2011-10-1 17:24 | 只看该作者
这个好用，留个记号！！！！

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
21楼
发表于 2011-12-1 17:53 | 只看该作者
该脚本我已经使用了大半年，今日想起，心存感激，特来再次感谢

TOP

12
返回列表