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

sausion

等　级：新手上路
帖　子：11
专家分：0
注　册：2007-5-29

第 21 楼

得分:0

看看先

2007-05-29 22:59

tszl

等　级：新手上路
帖　子：10
专家分：0
注　册：2007-5-28

第 23 楼

得分:0

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

2007-05-31 01:17

XXXX狂XXXX

等　级：新手上路
帖　子：5
专家分：0
注　册：2007-6-3

第 25 楼

得分:0

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

2007-06-03 14:30

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 27 楼

得分:0

脚本？

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-08 12:57

puding

等　级：新手上路
帖　子：1
专家分：0
注　册：2007-5-24

第 29 楼

得分:0

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

2007-06-10 02:18