批处理之家 - Powered by Discuz! Board

标题: [已解决]求一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://bbs.bathome.net/)