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 ]