[已解决]求一VBS计算器

随风

求一vbs计算器
要求运行vbs后，提示输入算式，支持连续算式如： 1+2+5/2*3
回车后显示算式及结果 如：1+2+5/2*3=10.50 并把该算式及结果复制到剪贴板。

[ 本帖最后由 随风 于 2009-5-28 15:20 编辑 ]

defanive

是题目还是？

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

你的代码有多于。。。

IE对象直接能。。。
SHELL调用MSHTA也可以。。。

你2个都声明，但是只用了SHELL了，IE对象就不要要了。。。ie对象蛮废内存的。。。

随风

re 2 楼
代码运行提示错误，且要等好一会儿才提示错误。

re 3 楼
能给出代码么？谢了。

defanive

本来是用IE的，但是太占内存了，于是就删掉换MsHta了。。。

那个Set IE的是删漏的。。。

defanive

貌似我这边没有错误唉。。。

随风

开始那个不行，现在的可以了，谢谢！
哦对了，能给对话框弄个标题吗？比如 计算器

[ 本帖最后由 随风 于 2009-5-28 15:22 编辑 ]

defanive

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])


从vb中摘录的，default后面的参数可能无效，自己增加title参数吧。。。