url="http://www.hao*.com"n=inputbox("请输入字符：","提示","123")url=replace(url,"*",n)createobject("wscript.shell").run url把上面的文字复制到记事本，另存为a.vbs
VB实现很简单啦网址是多少??
