[原创]QQ任意输入(想聊就聊) - 编程论坛

#2

b136909767542007-05-26 19:52

不需要加对方就直接找他/她聊天原理就是连接 “点QQ联系我”功能一样

#3

google2007-05-26 19:56

tencent://message/?uin=104861367&Site=123&Menu=yes

#4

b136909767542007-05-26 20:20

恩

#5

西山居士2007-05-27 10:10

很不错

#6

b136909767542007-05-27 10:49

嘿嘿谢谢

#7

Liaof2007-05-27 15:23

能发源码吗。

#8

b136909767542007-05-27 15:29

回复：（b13690976754）[原创]QQ任意输入(想聊就聊)

只有本站会员才能查看附件，请登录

呵呵很简单的

#9

西山居士2007-05-27 16:01

代码简单并且很实用。

#10

lthiy2007-05-27 16:59

下过来看看

#11

lthiy2007-05-27 17:01

呵呵
有意思

#12

xd030215062007-05-27 17:50

这个好像有过了，所以没下来看，不过你的可以跟黑名单里面的人聊天吗，最好是能够即使别人把你拖进黑名单，还能给他发消息。

#13

wenber05982007-05-27 17:51

牛

#14

b136909767542007-05-27 18:16

可以就是黑名单或者对方阻止陌生消息一样可强制聊天怎么样情况也可以

#15

蓝皮鼠2007-05-28 12:06

这个原理是利用了“想聊就Q我”，1. “http://wpa.”，用这个连接也可以，把你要聊的QQ号置换123456789就OK了，我是VB新手，以后还请多指教

#16

Hunt2007-05-28 13:42

是否有人可以介绍一下原理呢

#17

b136909767542007-05-28 15:22

源代码不是已经上传了吗？

#18

tszl2007-05-29 02:08

不错不错~~~~~~~~~

#19

b136909767542007-05-29 17:48

#20

寻找2007-05-29 20:39

谢谢分享!

#21

sausion2007-05-29 22:59

看看先

#22

黑刀2007-05-30 19:29

不错，学习了，顶之。

#23

tszl2007-05-31 01:17

那要怎么才可以插进一个已经编好的EXE里啊？

#24

q4707023422007-06-03 12:57

aaaaaaaaaaaa

#25

XXXX狂XXXX2007-06-03 14:30

我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
我想学习编程！想找个人教教我！诚心学习
QQ:514378533

#26

编程战神＄2007-06-08 07:55

把脚本也发下来嘛

#27

b136909767542007-06-08 12:57

脚本？

#28

llxf2007-06-09 21:32

回复：（b13690976754）[原创]QQ任意输入(想聊就聊)

看看！

#29

puding2007-06-10 02:18

Private Sub Command1_Click()
WebBrowser1.Navigate "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text '
WebBrowser1.Stop '
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "tencent://buddy/?Menu=Yes&type=101&peeruin=" & Text1.Text '
WebBrowser1.Stop '
End Sub

Private Sub Command3_Click()
End
end sub

#30

abbotpldfy2007-06-10 12:04

好东西就因该得到好评阿！

#31

wangwang35042007-06-10 16:24

#32

anyiluo132007-06-12 17:16

程序好象没有做END!!

#33

b136909767542007-06-12 17:25

有哟

#34

西山居士2007-06-12 22:18

大家都喜欢的贴子，加精！！！

#35

lee0304052007-06-26 12:12

好好用啊!1

#36

zhulei19782007-06-26 14:41

我的QQ:331507760
谁能用这个程序给我发个消息,测试一下
在线等
谢谢

#37

lee0304052007-06-28 11:58

额~~``

#38

lee0304052007-06-28 12:04

请问这个WebBrowser1.Navigate 控件是什么控件

#39

lee0304052007-06-28 12:09

http://wpa.qq.com/msgrd?V=1&Uin=79994561&Site=www.yesky.com&Menu=yes这个也挺好用的吗？不比ＱＱ任你聊差．
应该算是同一个原理的～～｀｀

#40

卡卡希比2007-07-02 20:18

我这个更简单
Private Sub Command1_Click()
a = Text1.Text
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE tencent://message/?uin=" & a & "&Site=im.qq.com&Menu=yes"
End Sub

#41

happyks2007-08-23 05:46

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

#42

zhp67203692007-08-26 09:01

就是可以把原代码发来

大家参考考啊

啊暗暗 ` `

#43

b136909767542007-08-26 16:14

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

#44

心中有剑2007-08-27 08:31

原代码　　方式很多的

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

#45

lele20072007-09-04 15:57

---------------------------------------------------------------
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。这个不用我说你们都会了。
就这么简单。源码就不用了吧

#46

lele20072007-09-24 18:12

跟我来做：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编辑过]

#47

lele20072007-09-24 18:14

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

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

#48

yxxhack2007-12-23 04:27

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

#49

lamy3112007-12-24 15:16

谢谢

谢谢楼主

#50

xyc_lemon2007-12-26 23:06

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

#51

Blasting2007-12-27 09:53

haodongxi a xiexie la ,