思路方法1:
//打开浏览器
url
inet iinet_base
url = "http://pbsite.yeah.net"
GetContextService("Internet", iinet_base)
iinet_base.HyperlinkToURL(url)
//电子邮件
url
inet iinet_base
url = "mailto:[email protected]"
GetContextService("Internet", iinet_base)
iinet_base.HyperlinkToURL(url)
思路方法2:
//打开浏览器
ls_ferryman,ls_null,ls_oper
ls_ferryman = "http://pbsite.yeah.net/"
null(ls_null)
ls_oper = "open"
ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)
//电子邮件
ls_ferryman,ls_null,ls_oper
ls_ferryman = "mailto:[email protected]"
null(ls_null)
ls_oper = "open"
ShellExecute(handle(parent),ls_oper,ls_ferryman,ls_null,ls_null,0)
最新评论