标题: [已解决]求一VBS计算器 [打印本页]
作者: 随风 时间: 2009-5-28 06:09 标题: [已解决]求一VBS计算器
求一vbs计算器
要求运行vbs后,提示输入算式,支持连续算式如: 1+2+5/2*3
回车后显示算式及结果 如:1+2+5/2*3=10.50 并把该算式及结果复制到剪贴板。
[ 本帖最后由 随风 于 2009-5-28 15:20 编辑 ]
作者: defanive 时间: 2009-5-28 13:27
是题目还是?- Dim strExp, Ws, RunPath
- strExp = InputBox("输入算式:")
- strExp = strExp & "=" & Eval(strExp)
- Set Ws=CreateObject("Wscript.Shell")
- RunPath="MsHta Vbscript:ClipBoardData.SetData(""Text"",""" & strExp & """)(Window.Close)"
- Ws.Run(RunPath)
- MsgBox strExp
复制代码
感觉vbs和bat操作剪贴板都不方便
[ 本帖最后由 defanive 于 2009-5-28 14:34 编辑 ]
作者: slore 时间: 2009-5-28 14:06 标题: 核心函数 eval
你的代码有多于。。。
IE对象直接能。。。
SHELL调用MSHTA也可以。。。
你2个都声明,但是只用了SHELL了,IE对象就不要要了。。。ie对象蛮废内存的。。。
作者: 随风 时间: 2009-5-28 14:09
re 2 楼
代码运行提示错误,且要等好一会儿才提示错误。
re 3 楼
能给出代码么?谢了。
作者: defanive 时间: 2009-5-28 14:34 标题: 回复 3楼 的帖子
本来是用IE的,但是太占内存了,于是就删掉换MsHta了。。。
那个Set IE的是删漏的。。。
作者: defanive 时间: 2009-5-28 14:35 标题: 回复 4楼 的帖子
貌似我这边没有错误唉。。。
作者: 随风 时间: 2009-5-28 15:20 标题: 回复 6楼 的帖子
开始那个不行,现在的可以了,谢谢!
哦对了,能给对话框弄个标题吗?比如 计算器
[ 本帖最后由 随风 于 2009-5-28 15:22 编辑 ]
作者: defanive 时间: 2009-5-28 15:44
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
从vb中摘录的,default后面的参数可能无效,自己增加title参数吧。。。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |