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

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
1楼 跳转到 » 正序看帖
打印
tT
发表于 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，就输出特殊化验。
请大家帮帮忙，谢谢
收藏 分享

qiaoliangih

Rank: 1

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

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 
19楼
发表于 2011-5-11 00:28 | 只看该作者
17# fastslz
18# fastslz
谢谢，谢谢fastslz 大大给出的完美解决办法，实在是太感谢了！！！！！！

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

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

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 
15楼
发表于 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
复制代码

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
14楼
发表于 2011-5-8 01:15 | 只看该作者
13# batman
恩，是需要Wshshell.SendKeys的，因为是要输入另外一个软件的。目前只有vbs模拟键盘比较有效

TOP

batman

Rank: 8Rank: 8

帖子
2702 
积分
14559 
技术
176  
捐助
630  
注册时间
2008-6-16 
13楼
发表于 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
复制代码
＊＊＊共同提高＊＊＊

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
12楼
发表于 2011-5-7 18:17 | 只看该作者
大家还能帮忙吗

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
11楼
发表于 2011-5-7 12:12 | 只看该作者
目前我在每个Case Else后加了sleep暂时延迟输入,还有其他的好办法吗？

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
10楼
发表于 2011-5-7 10:48 | 只看该作者
原来有有一部分先执行了，当输入第一个对话框不为0时，它马上就开始执行了，第二，第三都是如此，可以等三个对话框全部输入完毕再开始执行吗？

TOP

qiaoliangih

Rank: 1

帖子
13 
积分
14 
技术
0  
捐助
0  
注册时间
2011-5-5 
9楼
发表于 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测试
复制代码
。

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
8楼
发表于 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
复制代码

TOP

12
返回列表