powerbuilder怎样点按钮弹出QQ窗口

pengbinhui 2012-06-28 01:54:34

如题，我就是要在PB开发的程序上加个图片按钮，别人点击就可以与我聊QQ，方便联系。就象有些网站一样，有个QQ图标，点一下就可以与站长联系。

...全文

1429 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

ycxu2018 2013-04-06

打赏
举报

可以参考运行其他想用的！顶起来！

fuxiaoyang13 2012-12-24

打赏
举报

顶顶顶！！！！！！！！！！！

kailicom 2012-12-21

打赏
举报

哦？PB的帖子顶顶顶

叁大爷 2012-12-14

打赏
举报

引用 6 楼 pb8 的回复:

用纯pb的 inet iinet_base GetContextService("Internet", iinet_base) iinet_base.HyperlinkToURL("tencent://message/?uin="+ls_tagQQ)

这个好

pb8 2012-07-30

打赏
举报

用纯pb的
inet iinet_base
GetContextService("Internet", iinet_base)

iinet_base.HyperlinkToURL("tencent://message/?uin="+ls_tagQQ)

zjf1119 2012-07-30

打赏
举报

run("rundll32.exe url.dll,FileProtocolHandler tencent://message/?uin='这里填写QQ号码'")

f0restwow 2012-07-30

打赏
举报

不错。。学习

天下云飞 2012-06-28

打赏
举报

great，同意楼上

路人甲cw 2012-06-28

打赏
举报

在网上看到的一种方法，不过前提是你本地的QQ得打开



OLEObject browser

String ls_tagQQ



ls_tagQQ="10000"

Browser = Create OLEObject

try

	Browser.ConnectToNewObject("InternetExplorer.Application")

	Browser.Visible=false

	Browser.Navigate("tencent://message/?uin="+ls_tagQQ)

catch(OLERuntimeError err)

	MessageBox("OLERuntimeError",err.Text)

finally

	Browser.Quit()

	Browser.DisconnectObject()

	Destroy Browser

end try