vb聊天记录（vb聊天室）

vb如何获取网页版微信聊天消息？有源码吗

导出文本聊天记录就需要把手机进行root，只有在root后才能进行文本聊天记录的。

首先先把手机进行root。

root完成后，打开\data\data\com.tencent.mm\MicriMsg 文件夹，里面会有一个以很长一串数字或者一些字母组成命名的文件夹（也可能有多个。不同的文件夹名代表不同的QQ，如果你用不同的QQ登陆过微信,每个QQ会产生一个新乱码文件夹，保险起见，可以都备份上）把此文件夹备份出来，文件夹里还有个systemInfo.cfg文件可以不用备份。

然后进入找到MicroMsg.db文件，就是它了，这就是存储好友号码、昵称、聊天记录的数据库文件。想备份，简单，直接复制了就得！想要打开和导出为文本什么的，下载个SQLite相关软件就能做到了。

vb读取微信聊天记录

这个比较难，必须要解密聊天记录文件，如果在电脑版微信打开的状态下，倒时可以简单的获取到！

如何用vb获取qq聊天信息

QQ本身就有一个功能可以导出聊天记录，可以导出记事本格式，也可以导出网面格式，可以永久的保存下去。

打开消息管理器，左上角有一个导出

VBX如何恢复虚拟机聊天记录

你好，这个记录是可以查的

都是联网的 或是找公安要不就是花点钱就行

但是只要数据不被泄露就没什么影响的

36+18+38+78QQ他查得到

你的采纳是我前进的动力!

记得好评和采纳，答题不易，互相帮助，

手机提问的朋友在客户端右上角评价点满意即可.

如果你认可我的回答，请及时点击采纳为满意回答按钮！as擦拭vcv

VB聊天程序的思想

如果就2台电脑互相聊天,是不需要数据库的.不用那么麻烦呵.

主要就是要使用TCP协议的..

下面从书上抄一段吧:

数据控制传输协议允许创建和维护与远程计算机的连接。连接两台计算机就可彼此进行数据传输。如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。

如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。

建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。

2.Winsock控件描述

要创建一个cgi漏洞扫描程序，我们就需要使用Winsock控件，下面列出了Winsock控件的介绍。请把它看完，因为这是我们下一个步骤的前提条件。

Winsock控件的基本属性、方法、事件

属性

方法

LocalHostName | 本地机器名

LocalIP | 本地机器IP地址

LocalPort | 本地机器通信程序的端口(0端口65536)

RemoteHost | 远程机器名

RemotePort | 远程机器的通信程序端口

state | 连接的当前状态

Protocal | 使用TCP或UDP协议

Listen

Listen方法用于服务器程序，等待客户访问。

格式：Winsock对象.listen

Connect

Connect方法用于向远程主机发出连接请求

格式：Winsock对象.connect [远程主机IP,远程端口]

Accept

Accept方法用于接受一个连接请求

格式：Winsock对象.accept Request ID

Senddata

此方法用于发送数据

格式：Winsock对象.senddata 数据

Getdata

用来取得接收到的数据

格式：Winsock对象.getdata 变量 [,数据类型 [,最大长度]]

Close

关闭当前连接

格式：Winsock对象.close

事件

Close | 远程机器关闭连接时触发

Connect | 连接建立好，可以进行通信时触发(客户端)

ConnectRequest | 有请求连接到达时产生(服务器端)

DataArrival | 有数据到达时触发

Error | 发生错误时发生

SendProgress | 数据传送进度

Winsock的state属性

常数 值 描述

sckClosed 0 缺省值，关闭。

SckOpen 1 打开。

SckListening 2 侦听

sckConnectionPending 3

连接挂起

sckResolvingHost 4

识别主机。

sckHostResolved 5

已识别主机

sckConnecting 6

正在连接。

sckConnected 7 已连接。

sckClosing 8 同级人员正在关闭连接。

sckError 9 错误。

3.一个简单的实例

(1)新建工程，添加Winsock控件

(2)输入如下代码:

Private Sub Form_Load()

Msgbox str(Winsock1.LocalIP) '显示本地IP

With Winsock1

.LocalPort = 32555 '定义本地端口，通过这一端口连接服务器

.RemoteHost = "127.0.0.1" '定义服务器的IP,也可以输入域名。

.RemotePort = 80 '要求连接的服务器端口，80为HTTP服务

.Connect '连接服务器

EndWith

End Sub