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

qiaoliangih

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

qiaoliangih

可否改用vbs来做判断？

qiaoliangih

类似于这种

Dim name,sex,birth
name=InputBox("请输入姓名")
sex=InputBox("请输入姓别")
birth=InputBox("请输入出生日期")
Set fso=CreateObject("scripting.filesystemobject")
Set file=fso.createtextfile("" & name & ".txt",True)
file.Close
MsgBox name 
set fi=fso.opentextfile("" & name & ".txt",2) 
s="姓名:"&name&vbCrLf&"姓别:"&sex&vbCrLf&"出生日期:"&birth
fi.write  s 
fi.close 
复制代码

qiaoliangih

5# batman
谢谢版主大大
我想问下如何用if判断值呢？

第一种药是必须有的，输入多少数值，就模拟键盘输入相应的数量
第二种药是非必须的，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入0，就不调用模拟键盘。也就是不输入。
第三个是化验，有人要，就输入相应数值，然后用模拟键盘输入相应的数量。要是不要这个，就输入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

Dim tangshui,gansu,touxi

tangshui=InputBox("瓶数")

gansu=InputBox("支数")

touxi=InputBox("次数")
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

8# fastslz
谢谢做的例子
我已经编辑运行成功，只是有些不足，请看我修改后的

Dim tangshui,gansu,touxi,wshshell
Set WshShell = CreateObject ("Wscript.Shell")
input=InputBox("糖水瓶数")
aSelect(input)
input=InputBox("肝素支数")
bSelect(input)
input=InputBox("透析器次数")
cSelect(input)

Function aSelect(N)
    Select Case N
        Case 0
             Exit Function
        Case Else
             Wscript.sleep 3000
             Wshshell.SendKeys "lhn" 
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys ""&N&"" 
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"

    End Select
End Function

Function bSelect(B)
    Select Case B
        Case 0
             Exit Function
        Case Else
             Wshshell.SendKeys "gsz" 
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys ""&B&"" 
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
    End Select
End Function

Wshshell.SendKeys "xytx" 
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"

Wshshell.SendKeys "xtjc" 
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"

Wshshell.SendKeys "ycxg" 
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Wshshell.SendKeys "{ENTER}"
Function cSelect(c)
    Select Case c
        Case 0
             Exit Function
        Case Else
             Wshshell.SendKeys "txq" 
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
             Wshshell.SendKeys "{ENTER}"
    End Select
End Function
复制代码

1，运行后，在输入糖水瓶数后，第二个肝素的对话框要隔好几秒才出现，大家帮我提速下
2，当有透析器时，透析器在代码的最低端，希望它在输出时也在最低端。
默认顺序是
xytx
xtjc
ycxg
txq
现在的输出结果是
txq
xytx
xtjc
ycxg

PS:输出结果请用TXT测试
复制代码

。

qiaoliangih

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

qiaoliangih

目前我在每个Case Else后加了sleep暂时延迟输入,还有其他的好办法吗？

qiaoliangih

大家还能帮忙吗

qiaoliangih

13# batman
恩，是需要Wshshell.SendKeys的，因为是要输入另外一个软件的。目前只有vbs模拟键盘比较有效

qiaoliangih

现在我陷入困境了，彻底没有招了

qiaoliangih

17# fastslz
18# fastslz
谢谢，谢谢fastslz 大大给出的完美解决办法，实在是太感谢了！！！！！！

qiaoliangih

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