[已解决]求一VBS计算器 - VBS求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

1楼 跳转到 »

发表于 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 编辑 ]

1 评分人数

随风: 谢谢。PB + 5

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

2楼

发表于 2009-5-28 14:34 | 显示全部帖子

回复 3楼的帖子

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

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

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

3楼

发表于 2009-5-28 14:35 | 显示全部帖子

回复 4楼的帖子

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

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

Rank: 7 Rank: 7 Rank: 7

帖子: 957
积分: 4938
技术: 72
捐助: 0
注册时间: 2008-10-31

4楼

发表于 2009-5-28 15:44 | 显示全部帖子

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

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

第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App