Board logo

标题: [已解决]求一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

是题目还是?
  1. Dim strExp, Ws, RunPath
  2. strExp = InputBox("输入算式:")
  3. strExp = strExp & "=" & Eval(strExp)
  4. Set Ws=CreateObject("Wscript.Shell")
  5. RunPath="MsHta Vbscript:ClipBoardData.SetData(""Text"",""" & strExp & """)(Window.Close)"
  6. Ws.Run(RunPath)
  7. 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