Board logo

标题: [问题求助] [已解决]VBS怎样根据输入的数值运行不同的按键动作？ [打印本页]
作者: qiaoliangih    时间: 2011-5-5 19:48     标题: [已解决]VBS怎样根据输入的数值运行不同的按键动作？

本帖最后由 qiaoliangih 于 2011-5-11 00:29 编辑

本人在医院工作，经常输入一些重复的药名与化验
所以做了一个vbs，全部用WshShell.SendKeys写的。但功能不完善
有些病号用药多，有些少，化验也是如此，我不得的不每次运行完vbs后修改录入记录。
我想让大家帮忙写个高级一点的。
运行vbs后先会询问这个药需要几个，按照输入的值去输入药量。
然后第二次询问另外一种药，如果是0就不输入，如果是1就输入1，是2就是输入2。
第三次询问有无特殊化验（默认是输出3种化验），如是0，则不输出特殊化验，如果是1，就输出特殊化验。
请大家帮帮忙，谢谢
作者: 冷玉公子    时间: 2011-5-5 20:27

批处理不能调用按键的，不过你可以用批处理调用VBS的WshShell.SendKeys动作

如果你对批处理有了解过的话 就是连个命令就可以解决你的问题

用 Set /P = 命令等待输入值 然后用 IF 命令去判断这个值 然后调用相应的VBS即可

例如
  1. @echo off

  2. Echo 1 是我  2 是你

  3. Set /P Var= 请输入值：

  4. if "%Var%" == "1" goto :1

  5. if "%Var%" == "2" goto :2

  6. :1

  7. Echo 是我

  8. :2

  9. Echo 是你
复制代码
就是这样的思路了
作者: qiaoliangih    时间: 2011-5-6 00:21

可否改用vbs来做判断？
作者: qiaoliangih    时间: 2011-5-6 00:40

类似于这种
  1. Dim name,sex,birth

  2. name=InputBox("请输入姓名")

  3. sex=InputBox("请输入姓别")

  4. birth=InputBox("请输入出生日期")

  5. Set fso=CreateObject("scripting.filesystemobject")

  6. Set file=fso.createtextfile("" & name & ".txt",True)

  7. file.Close

  8. MsgBox name 

  9. set fi=fso.opentextfile("" & name & ".txt",2) 

  10. s="姓名:"&name&vbCrLf&"姓别:"&sex&vbCrLf&"出生日期:"&birth

  11. fi.write  s 

  12. fi.close 
复制代码
作者: batman    时间: 2011-5-6 08:49

本帖最后由 batman 于 2011-5-6 09:23 编辑

还是用数组来处理吧，下面给个示例，楼主对照着修改罗
  1. '假如有4种药，每种药有3种剂量，每种药有2种化验

  2. Dim chufan(3, 2, 1), a, b, c, name, number, test

  3. namearray = Array("头胞", "葡萄糖", "阿期匹林", "刺五加")

  4. numberarray = Array("2ml", "4ml", "6ml")

  5. testarray = Array("甲类", "乙类")

  6. For a = 0 To 3

  7.   name = name & a+1 & ":" & namearray(a) & " "

  8.   For b = 0 To 2

  9.     If a = 0 Then number = number & b+1 & ":" & numberarray(b) & " "

  10.     For c = 0 To 1

  11.       If a & b = "00" Then test = test & c+1 & ":" & testarray(c) & " "

  12.       chufan(a, b, c) = namearray(a) & "-" & numberarray(b) & "-" & testarray(c)

  13.     Next

  14.   Next

  15. Next

  16. input = InputBox(name & vbcrlf & number & vbcrlf & test & vbcrlf & "请分别输入药品、剂量、化验的序号，中间请用-符号格开：")

  17. inputsplit = Split(input, "-")

  18. MsgBox chufan(inputsplit(0)-1, inputsplit(1)-1, inputsplit(2)-1)
复制代码
作者: qiaoliangih    时间: 2011-5-6 19:10

5# batman
谢谢版主大大
我想问下如何用if判断值呢？
  1. 第一种药是必须有的，输入多少数值，就模拟键盘输入相应的数量

  2. 第二种药是非必须的，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入0，就不调用模拟键盘。也就是不输入。

  3. 第三个是化验，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入0，就不调用模拟键盘。也就是不输入。
复制代码
if gansu = "0" then
end if
if gansu = ">0" then
WshShell.SendKeys ""&gansu&""

if touxi = "0" then
end if
if touxi = ">0" then
WshShell.SendKeys ""&touxi&""
作者: qiaoliangih    时间: 2011-5-6 19:16

  1. Dim tangshui,gansu,touxi

  2. 

  3. tangshui=InputBox("瓶数")

  4. 

  5. gansu=InputBox("支数")

  6. 

  7. touxi=InputBox("次数")

  8. if gansu = "0" then

  9. end if 

  10. if gansu = ">0" then 

  11. WshShell.SendKeys ""&gansu&""

  12. 

  13. if touxi = "0" then

  14. end if 

  15. if touxi = ">0" then 

  16. WshShell.SendKeys ""&touxi&""
复制代码
这样的结构可以实现吗？
作者: fastslz    时间: 2011-5-6 20:15

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

  2. input = InputBox("第一次询问，请输入")

  3. aSelect(input)

  4. 

  5. input = InputBox("第二次询问，请输入")

  6. aSelect(input)

  7. 

  8. input = InputBox("第三次询问，请输入")

  9. aSelect(input)

  10. 

  11. Function aSelect(N)

  12.     Select Case N

  13.         Case 0

  14.              Exit Function

  15.         Case Else

  16.              WshShell.SendKeys ""&N&""

  17.     End Select

  18. End Function
复制代码
作者: qiaoliangih    时间: 2011-5-7 01:51

8# fastslz
谢谢做的例子
我已经编辑运行成功，只是有些不足，请看我修改后的
  1. Dim tangshui,gansu,touxi,wshshell

  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. Function aSelect(N)

  11.     Select Case N

  12.         Case 0

  13.              Exit Function

  14.         Case Else

  15.              Wscript.sleep 3000

  16.              Wshshell.SendKeys "lhn" 

  17.              Wshshell.SendKeys "{ENTER}"

  18.              Wshshell.SendKeys "{ENTER}"

  19.              Wshshell.SendKeys ""&N&"" 

  20.              Wshshell.SendKeys "{ENTER}"

  21.              Wshshell.SendKeys "{ENTER}"

  22.              Wshshell.SendKeys "{ENTER}"

  23. 

  24.     End Select

  25. End Function

  26. 

  27. Function bSelect(B)

  28.     Select Case B

  29.         Case 0

  30.              Exit Function

  31.         Case Else

  32.              Wshshell.SendKeys "gsz" 

  33.              Wshshell.SendKeys "{ENTER}"

  34.              Wshshell.SendKeys "{ENTER}"

  35.              Wshshell.SendKeys ""&B&"" 

  36.              Wshshell.SendKeys "{ENTER}"

  37.              Wshshell.SendKeys "{ENTER}"

  38.              Wshshell.SendKeys "{ENTER}"

  39.     End Select

  40. End Function

  41. 

  42. Wshshell.SendKeys "xytx" 

  43. Wshshell.SendKeys "{ENTER}"

  44. Wshshell.SendKeys "{ENTER}"

  45. Wshshell.SendKeys "{ENTER}"

  46. Wshshell.SendKeys "{ENTER}"

  47. Wshshell.SendKeys "{ENTER}"

  48. 

  49. Wshshell.SendKeys "xtjc" 

  50. Wshshell.SendKeys "{ENTER}"

  51. Wshshell.SendKeys "{ENTER}"

  52. Wshshell.SendKeys "{ENTER}"

  53. Wshshell.SendKeys "{ENTER}"

  54. Wshshell.SendKeys "{ENTER}"

  55. 

  56. Wshshell.SendKeys "ycxg" 

  57. Wshshell.SendKeys "{ENTER}"

  58. Wshshell.SendKeys "{ENTER}"

  59. Wshshell.SendKeys "{ENTER}"

  60. Wshshell.SendKeys "{ENTER}"

  61. Function cSelect(c)

  62.     Select Case c

  63.         Case 0

  64.              Exit Function

  65.         Case Else

  66.              Wshshell.SendKeys "txq" 

  67.              Wshshell.SendKeys "{ENTER}"

  68.              Wshshell.SendKeys "{ENTER}"

  69.              Wshshell.SendKeys "{ENTER}"

  70.              Wshshell.SendKeys "{ENTER}"

  71.     End Select

  72. End Function
复制代码
1，运行后，在输入糖水瓶数后，第二个肝素的对话框要隔好几秒才出现，大家帮我提速下
2，当有透析器时，透析器在代码的最低端，希望它在输出时也在最低端。
默认顺序是
xytx
xtjc
ycxg
txq
现在的输出结果是
txq
xytx
xtjc
ycxg
  1. PS:输出结果请用TXT测试
复制代码
。
作者: qiaoliangih    时间: 2011-5-7 10:48

原来有有一部分先执行了，当输入第一个对话框不为0时，它马上就开始执行了，第二，第三都是如此，可以等三个对话框全部输入完毕再开始执行吗？
作者: qiaoliangih    时间: 2011-5-7 12:12

目前我在每个Case Else后加了sleep暂时延迟输入,还有其他的好办法吗？
作者: qiaoliangih    时间: 2011-5-7 18:17

大家还能帮忙吗
作者: batman    时间: 2011-5-7 22:52

12# qiaoliangih
非要用sendkey，直接输入不行？
  1. '输入exit退出循环

  2. Dim vbstr, wssh, fso

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

  4. Set fso = CreateObject("scripting.filesystemobject")

  5. Do Until vbstr = "exit"

  6. vbstr = InputBox("请输入")

  7. fso.OpenTextFile("temp.txt", 8, True).WriteLine vbstr

  8. Loop

  9. wssh.Run "temp.txt", 1, True

  10. Set wssh = Nothing

  11. Set fso = Nothing
复制代码
作者: qiaoliangih    时间: 2011-5-8 01:15

13# batman
恩，是需要Wshshell.SendKeys的，因为是要输入另外一个软件的。目前只有vbs模拟键盘比较有效
作者: fastslz    时间: 2011-5-8 11:03

8楼顺序问题，你自己解决吧
就代码不稳定问题我给你一些参考

vbs模拟键盘最不稳定有2大问题，当前窗体及延时，延时还取决于硬件性能

在指定的窗体发送模拟键
  1. '这个下面的例子激活“计算器”窗体发送1+1=模拟键

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

  3. WshShell.AppActivate "计算器"

  4. WshShell.SendKeys "1{+}1~"
复制代码
上面的还有点欠缺不能在"计算器"最小化时不能将其激活
  1. '这个例子需要安装有office 2003以上的系统中运行，

  2. '如果有“计算器”窗体就激活该窗体，激活后将其最大化并发送1+1=模拟键

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

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

  5. Set colTasks = objWord.Tasks

  6. If colTasks.Exists("计算器") Then

  7.     colTasks("计算器").Activate

  8.     colTasks("计算器").WindowState = 1

  9.     WshShell.SendKeys "1{+}1~"

  10. End If

  11. objWord.Quit
复制代码
作者: qiaoliangih    时间: 2011-5-9 11:20

现在我陷入困境了，彻底没有招了
作者: fastslz    时间: 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
复制代码
作者: fastslz    时间: 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
复制代码
作者: qiaoliangih    时间: 2011-5-11 00:28

17# fastslz
18# fastslz
谢谢，谢谢fastslz 大大给出的完美解决办法，实在是太感谢了！！！！！！
作者: zhangop9    时间: 2011-10-1 17:24

这个好用，留个记号！！！！
作者: qiaoliangih    时间: 2011-12-1 17:53

该脚本我已经使用了大半年，今日想起，心存感激，特来再次感谢



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2