[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 设inputbox为另一个vbs变量的值

a.vbs:

on error resume next
set args = wscript.arguments
if args.count = 0 then wscript.quit
for i = 0 to args.count - 1
arg = args(i)
ti = mid(arg,instrrev(arg,"\") + 1,instrrev(arg,".") - instrrev(arg,"\") - 1)
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "AAA[email=AAA@qq.com]@qq.com[/email]"    '用来发送邮件的地址
Email.To = "[email=DDD@qq.com]DDD@qq.com[/email]"   '发送到
Email.Subject = ti
Email.Htmlbody = "查看附件"
Email.AddAttachment arg
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com" 'SMTP服务器地址
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "BBB" '邮箱账号
.Item(NameSpace&"sendpassword") = "CCC"'邮箱密码
.update
End With
Email.Send
if Err then
Err.clear
CreateObject("WScript.Shell").popup "发送失败!",2,"右键邮-by:xiaomingtt",48
else
CreateObject("WScript.Shell").popup "发送成功!",2,"右键邮-by:xiaomingtt",64
createobject("scripting.filesystemobject").deletefile(arg)
end if
next

上面的AAA、BBB、CCC和DDD为不定字符,所以不能用替换,现求一set.vbs,可以分别弹出如下图的对话框可以设置对应的值
我是小菜菜……

我是小菜菜……

TOP

你电脑是什么主题啊,那个对话框挺好看的!

TOP

如果是这样,每次运行A.VBS都会弹出inputbox设置框
我是小菜菜……

TOP

为什么要另设一个set.vbs,在自身中加入不行,如下:
  1. str=inputbox("请输入值")
  2. wsh.echo "你输入的值为",str
复制代码
***共同提高***

TOP

返回列表