设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [已解决]VBS怎样根据输入的数值运行不同的按键动作？ ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发新帖
楼主: qiaoliangih

[问题求助] [已解决]VBS怎样根据输入的数值运行不同的按键动作？

[复制链接]
qiaoliangih
 楼主| 发表于 2011-5-9 11:20:08 | 显示全部楼层
现在我陷入困境了，彻底没有招了
回复

举报

fastslz
发表于 2011-5-10 13:25:00 | 显示全部楼层
本帖最后由 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)

  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

  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

  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}"

  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}"

  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}"

  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

  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

  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

  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)

  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

  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

  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}"

  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}"

  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}"

  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

  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

  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

  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

  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
复制代码
回复

举报

fastslz
发表于 2011-5-10 13:37:30 | 显示全部楼层
本帖最后由 fastslz 于 2011-5-10 14:59 编辑

再给你一个方法

  2. Dim tangshui,gansu,touxi,wshshell,aStrs,bStrs,cStrs,dStrs
  3. Set WshShell = CreateObject ("Wscript.Shell")
  4. input=InputBox("糖水瓶数")
  5. aSelect(input)
  6. input=InputBox("肝素支数")
  7. bSelect(input)
  8. input=InputBox("透析器次数")
  9. cSelect(input)

  11. If Not  aStrs = "" Then
  12.    KeysNames = Split(aStrs, ",")
  13.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按
  14.    For i = 0 to UBound(KeysNames)
  15.        Wscript.sleep 20
  16.        Wshshell.SendKeys KeysNames(i)
  17.    Next
  18. End If

  20. If Not  bStrs = "" Then
  21.    KeysNames = Split(bStrs, ",")
  22.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按
  23.    For i = 0 to UBound(KeysNames)
  24.        Wscript.sleep 20
  25.        Wshshell.SendKeys KeysNames(i)
  26.    Next
  27. End If

  29. dStrs = "xytx,{ENTER},{ENTER},{ENTER},{ENTER},{ENTER},xtjc,{ENTER},{ENTER},{ENTER},{ENTER},{ENTER},ycxg,{ENTER},{ENTER},{ENTER},{ENTER}"
  30. If Not  dStrs = "" Then
  31.    KeysNames = Split(dStrs, ",")
  32.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按
  33.    For i = 0 to UBound(KeysNames)
  34.        Wscript.sleep 20
  35.        Wshshell.SendKeys KeysNames(i)
  36.    Next
  37. End If

  39. If Not  cStrs = "" Then
  40.    KeysNames = Split(cStrs, ",")
  41.    WshShell.AppActivate "程序窗体名称"           '用于激活你的程序窗体，不至于在其他窗体上乱按
  42.    For i = 0 to UBound(KeysNames)
  43.        Wscript.sleep 20
  44.        Wshshell.SendKeys KeysNames(i)
  45.    Next
  46. End If

  48. Function aSelect(N)
  49.     Select Case N
  50.         Case 0
  51.         aStrs = ""
  52.              Exit Function
  53.         Case Else
  54.              aStrs = "lhn,{ENTER},{ENTER}," & N & ",{ENTER},{ENTER},{ENTER}"
  55.     End Select
  56. End Function

  58. Function bSelect(B)
  59.     Select Case B
  60.         Case 0
  61.         bStrs = ""
  62.              Exit Function
  63.         Case Else
  64.              bStrs = "gsz,{ENTER},{ENTER}," & B & ",{ENTER},{ENTER},{ENTER}"
  65.     End Select
  66. End Function

  68. Function cSelect(c)
  69.     Select Case c
  70.         Case 0
  71.         cStrs = ""
  72.              Exit Function
  73.         Case Else
  74.              cStrs = "txq,{ENTER},{ENTER},{ENTER},{ENTER}"
  75.     End Select
  76. End Function
复制代码
回复

举报

qiaoliangih
 楼主| 发表于 2011-5-11 00:28:11 | 显示全部楼层
17# fastslz
18# fastslz
谢谢，谢谢fastslz 大大给出的完美解决办法，实在是太感谢了！！！！！！
回复

举报

zhangop9
发表于 2011-10-1 17:24:49 | 显示全部楼层
这个好用，留个记号！！！！
回复

举报

qiaoliangih
 楼主| 发表于 2011-12-1 17:53:53 | 显示全部楼层
该脚本我已经使用了大半年，今日想起，心存感激，特来再次感谢
回复

举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 06:43 , Processed in 0.018694 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表