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

Wingl83

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，可以分别弹出如下图的对话框可以设置对应的值

Wingl83

http://william.w.blogbus.com/tag/VisualStyles/

zz100001

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

Wingl83

如果是这样，每次运行A.VBS都会弹出inputbox设置框

batman

为什么要另设一个set.vbs，在自身中加入不行，如下：

str=inputbox("请输入值")
wsh.echo "你输入的值为",str
复制代码