中国DOS联盟

Set objIE = CreateObject("InternetExplorer.Application"
objIE.Navigate("about:blank"
strURL = objIE.document.parentwindow.clipboardData.GetData("text"
objIE.Quit
set ws=createobject("wscript.shell"
a=msgbox("请注意:是否将*****添加入你的文档?",Byesno+32,"提示"
if a=vbyes then ws.run "添加联系方式.bat"



假如现在剪贴板里是"张翔 1352031284",如何将剪贴板的变量显示在弹出的选择框上.就是想找代码替换星号部分,,,得到的结果是:

请注意:是否将"张翔 1352031284"添加入你的文档?

选确定后,接着执行添加联系方式.bat



没学过VBS,又来麻烦论坛的虾虾了,先致礼下!

[ Last edited by ka56 on 2009-2-15 at 12:42 ]

汗~表情都出来了,部分就一个右括号""

a=msgbox("请注意:是否将"+strURL+"添加入你的文档?",Byesno+32,"提示" )

这样就行了,谢谢大家!~~