这段时间在写小项目的时候,无意中想到一个QQ聊天,就想把QQ聊天加到项目里面去,后面经过一些努力,终于做成了,不过不是动态的。只能把QQ账号输入到窗口中的文本框中,再点击自己交谈按钮。可以实现动态与其他的QQ聊天。
所以我在数据源中加入了QQName列,并且在添加用户和修改用户中添加了相关的代码。现在用户信息里面有QQ号码了。我想做到,在文本框中输入用户名。点击按钮1时。自动在数据源的中的用户表中搜索与文本框一致的用户。再将该行的的QQName列的数据赋予给“QQusername” ,再执行
Dim Proc As New Process '定义一个新的Process
Proc.File = "tencent://message/?uin=" & QQusername '指定要打开的网页地址
Proc.Start()
这里提供一个小小的项目,我知道我能力微薄,但是在论坛里我没找到相关的主题,算是自己对论坛的一点点心意吧,
在这里也希望各位大侠帮帮解决上面的难题,谢谢了
[此贴子已经被作者于2012-6-17 16:22:57编辑过]