Set objIE = CreateObject("InternetExplorer.Application"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
objIE.Navigate("about:blank"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
strURL = objIE.document.parentwindow.clipboardData.GetData("text"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
objIE.Quit
set ws=createobject("wscript.shell"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
a=msgbox("请注意:是否将*****添加入你的文档?",Byesno+32,"提示"<img src="images/smilies/face-wink.png" align="absmiddle" border="0">
if a=vbyes then ws.run "添加联系方式.bat"



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

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

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



没学过VBS,又来麻烦论坛的虾虾了,先致礼下!<img src="images/smilies/face-raspberry.png" align="absmiddle" border="0">

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

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

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

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