本文目录一览：
qq聊天记录文件怎么打开
这是数据库数据存放文件。每种软件都有它自己的存放格式，就是数据的排列方式。后缀名均为DB。
很多软件都可以打开啊。delphi 、VB、VC等等编程类软件都可以打开的。但显示的数据方式不一定一样。
有些专用软件DB数据是加密不公开的，普通方式还无法打开。
你是不是想看看QQ目录中的QQglobal.db文件里有什么？那里面没啥东西的
跟他的聊天室、搜索、短信等功能有相关。所以是加密的。又没什么特别文件
普通的编程工具无法读取的。
另外提醒好奇心别太强，乱动数据库文件会使你已经正常使用软件可能发生故障
VB获取QQ聊天内容
可以先用FindWindow找到聊天窗口的句柄
FindWindow(窗体类名，窗体标题)
具体为：
SPY++软件获取聊天窗体类名，
a=FindWindow(窗体类名，VBNullstring)
再用SPY++软件获取聊天窗体显示信息框类名，用
b=FindWindowEx(a,0,"显示信息框类名"，VBNullstring）
最后用getwindowstext获取文本
a = Space(255)
GetWindowText b, c, 255
Text1 = c
如何用VB实现得到QQ窗口别人发过来的信息。
可以实现类似QQ局域网聊天VB程序，要接受QQ窗口发来的信息，第一你要知道 腾讯服务器的地址，还要知道对方发给你的地址，winsock控件来连接，但是基本不能实现， 服务器不会允许。放弃
实现是没有问题，那是时间和金钱。为了一个5分的问题我想有技术也不会去弄，给RMB可以考虑下。
用VB能不能得到QQ聊天窗口里的对话内容？
qq2008 下测试可用。
===================================================
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_GETTEXT = HD
Private Const WM_GETTEXTLENGTH = HE
'以下是查找窗口 RichEdit20A 的代码:
Private Function MyFindWindow(ByVal title As String) As Long
'父窗口类名数组
Dim A_szClassName(3) As String
A_szClassName(0) = "#32770"
A_szClassName(1) = "#32770"
A_szClassName(2) = "RichEdit20A"
'父窗口标题数组
Dim A_szWinName(3) As String
A_szWinName(0) = title
A_szWinName(1) = ""
A_szWinName(2) = ""
'首先求得顶级父窗口
Dim hLastWin As Long
hLastWin = FindWindow(A_szClassName(0), A_szWinName(0))
'逐次用FindWindowEx函数求出各级子窗口
For i = 1 To 2
hLastWin = FindWindowEx(hLastWin, 0, A_szClassName(i), A_szWinName(i))
Next i
MyFindWindow = hLastWin
End Function
'举例: Dim hLastWin as Long
' hLastWin = MyFindWindow()
Private Function GetText(WindowHandle As Long) As String
Dim buffer As String, TextLength As Long
TextLength = SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0)
buffer$ = String(TextLength, 0)
Call SendMessageByString(WindowHandle, WM_GETTEXT, TextLength + 1, buffer$)
GetText$ = buffer$
End Function
Private Sub Command1_Click()
MsgBox GetText(MyFindWindow("与 haokeyy 交谈中"))
End Sub
在MyFindWindow函数的参数内写上QQ聊天窗口的标题即可，点击按钮command1后将显示聊天窗口内的聊天记录。
如何用VB或读取QQ消息
VB读取QQ消息，依次读取QQ消息窗口
01 Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
02 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVallpWindowName As String) As Long
03 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVallpString As String, ByVal cch As Long) As Long
04 Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVallpClassName As String, ByVal nMaxCount As Long) As Long
05 Private Const GW_CHILD = 5
06 Private Const GW_HWNDNEXT = 2
07 Private Sub Command1_Click()
08 Dim hWin As Long
09 Dim strText As String
10 Dim strClass As String
11 Dim arr(1 To 5) As String
12 Dim flag As Integer
13 Dim length As Integer
14 flag = 1
15 List1.Clear
16 '第一个QQ消息窗口
17 hWin = FindWindow("CTXOPConntion_Class", vbNullString)
18 If hWin = 0 Then Exit Sub
19 Do
20 strText = String$(50, vbNullChar)
21 GetWindowText hWin, strText, Len(strText)
22 strText = Left$(strText, InStr(strText, vbNullChar) - 1)
23 If InStr(strText, "OP_") = 1 Then
24 strText = Mid$(strText, 4)
25 List1.AddItem strText
26 arr(flag) = strText
27 flag = flag + 1
28 End If
29 Do
30 '下一个窗口
31 hWin = GetWindow(hWin, GW_HWNDNEXT)
32 If hWin = 0 Then Exit Do
33 strClass = String$(50, vbNullChar)
34 GetClassName hWin, strClass, Len(strClass)
35 strClass = Left$(strClass, InStr(strClass, vbNullChar) - 1)
36 Loop While strClass "CTXOPConntion_Class"
37 Loop While hWin
38 List1.Text = strText
39 End Sub