高手。。。。。。。。。。。。

就是可以把原代码发来


大家参考考啊


啊暗暗 ` `

源代码早已经上传。看都不看，瞎要啥？

原代码　　方式很多的

1. Shell "rundll32.exe url.dll,FileProtocolHandler tencent://message/?uin=" & qq号码
2.Sub ConnIEQQ(InQQnum As String)
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "tencent://message/?uin=" & InQQnum
End Sub

3.Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Sub ConnApiQQ(InQQnum As String)
ShellExecute 0, "Open", "tencent://message/?uin=" & InQQnum , "", "", SW_SHOWNORMAL
End Sub

---------------------------------------------------------------
Private Sub command1_click()
if text1.text="" then
msgbox"QQ号不能为空",64,"出错啦"
else
shell"cmd /c start tencent://message/?uin=" & text1.text,0
end if
end sub
------------------------------------------------------------------
只要把这段代码放在一个命令按钮下就可以了呀。前提是还要有一个``文本框：text1在文本框里输入QQ号就可以强聊了呀。当然。功能还没有完善。比如说。点击按钮就清除文本框里的内容。以便下次输入QQ。这个不用我说你们都会了。
就这么简单。源码就不用了吧

跟我来做：tencent://message/?uin=QQ号码
1、首先启动VB
2、新建一个工程
3、在窗体里加入一个文本框、一个命令按钮。
4、双击命令按钮输入以下代码。
代码：Shell "cmd /c start tencent://message/?uin=" & Text1.Text, 0
5、完成了。别不相信自己。这就是你自己制作的最简单的QQ强聊器。
6、会做了吧。源文件就不发上来了。要的联系我：tanjiaoxian@yeah.net
7、最后代码如下：
Private Sub Command1_Click()
Shell "cmd /c start tencent://message/?uin=" & Text1.Text, 0
End Sub


优化下代码如下：

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "QQ号码不能为空哟 学习Q群：31299344", 64, "乐乐提示你"
Text1.SetFocus
Else
Shell "cmd /c start tencent://message/?uin=" & Text1.Text, 0
Text1.Text = ""
Text1.SetFocus
End If
End Sub

[此贴子已经被作者于2007-10-11 10:35:03编辑过]

楼主的。请问下。如果我的IE安装在D盘就不行了呀。软件就失去了作用了呀。调用不到。路径会出错的。

[此贴子已经被作者于2007-9-24 18:15:46编辑过]

看看去............

谢谢楼主

强` `为什么你们都那么强  `` 我不甘心 ` 我要强``