两台电脑怎么实现即时通讯？@寒潮

阿Q3

寒潮 大哥你写的那两个即时通讯 我发给好友 两个连不上啊 这个到底怎么用？怎么才能让两台电脑连上 收发信息？哪位大哥教下怎么实现两台电脑的即时通讯？（注：不需要服务器的 本人小白搞不懂服务器）
服务器.E (3.51 KB, 下载次数: 8)

2020-1-3 21:00 上传

点击文件名下载附件 客户.E (4.13 KB, 下载次数: 8)

2020-1-3 21:00 上传

点击文件名下载附件

347747669

有位朋友@阿Q3写了一篇帖子：https://bbs.125.la/forum.php?mod=viewthread&tid=14523371
客户Duan和服务器的教程我就不说了。因为易语言TV网里面很多。
世宝老师也有讲
重点讲一个IP的问题：：：：：
https://bbs.125.la/forum.php?mod ... D%BF%CD%BB%A7%B6%CB
这是很好的一个例子

里面的IP因为是动态的，所以就无法连接到服务器了。是不是

下面推荐一个很笨的办法，（网盘。对没错。个人推荐：永硕E盘）
记得设置E盘的访客权限：

然后打开fidder.exe 手动创建一个像IP的文件夹：截下POST.

然后用精易助手post一波。发现成功了。而且连cookie都不用就能写入验证IP。



第四，肯定是找ip了。**峦常叵乱欢蝩rl。发现里面含有写上去的IP。


原理大家懂了吧。开始码服务器传送IP的源码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
wai网IP	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
内容	文本型
开始位置	整数型
长度	整数型
网址	文本型
开始标识符	文本型
结束标识符	文本型

网址 ＝ “http://www.net.cn/static/customercare/yourIP.asp”
开始标识符 ＝ “”
结束标识符 ＝ “”
内容 ＝ 到文本 (HTTP读文件 (网址))
开始位置 ＝ 寻找文本 (内容, 开始标识符, , 假) ＋ 取文本长度 (开始标识符)
长度 ＝ 取文本长度 (内容) － 取文本长度 (开始标识符) － 寻找文本 (内容, 开始标识符, , 假) ��� (取文本长度 (内容) － 寻找文本 (内容, 结束标识符, , 假))
wai网IP ＝ 取文本中间 (内容, 开始位置, 长度)
调试输出 (wai网IP)
启动线程 (&功能_网页写入IP, , )

子程序名	返回值类型	公开	备 注
功能_网页写入IP	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类 型	静态	数组	备 注
局_网址	文本型

局_网址 ＝ “http://cd.ys168.com/f_ht/ajcx/ml.aspx?cz=Ml_add&qx=000101&_dlmc=***&_dlmm=”
网页_访问_对象 (局_网址, 1,“bt=17*.12*.12*.8*&sm=&kqmm=” , , , , , , , , , , , , , , )

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 wai网IP, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 内容, 文本型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 网址, 文本型<br /> .局部变量 开始标识符, 文本型<br /> .局部变量 结束标识符, 文本型<br /> <br /> 网址 ＝ “http://www.net.cn/static/customercare/yourIP.asp”<br /> 开始标识符 ＝ “”<br /> 结束标识符 ＝ “”<br /> 内容 ＝ 到文本 (HTTP读文件 (网址))<br /> 开始位置 ＝ 寻找文本 (内容, 开始标识符, , 假) ＋ 取文本长度 (开始标识符)<br /> 长度 ＝ 取文本长度 (内容) － 取文本长度 (开始标识符) － 寻找文本 (内容, 开始标识符, , 假) － (取文本长度 (内容) － 寻找文本 (内容, 结束标识符, , 假))<br /> wai网IP ＝ 取文本中间 (内容, 开始位置, 长度)<br /> 调试输出 (wai网IP)<br /> 启动线程 (&功能_网页写入IP, , )<br /> <br /> <br /> .子程序 功能_网页写入IP, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .局部变量 局_网址, 文本型<br /> <br /> 局_网址 ＝ “http://cd.ys168.com/f_ht/ajcx/ml.aspx?cz=Ml_add&qx=000101&_dlmc=***&_dlmm=”<br /> 网页_访问_对象 (局_网址, 1,“bt=17*.12*.12*.8*&sm=&kqmm=” , , , , , , , , , , , , , , )

这边服务器每次启动。都会自动吧IP备份到E盘上了。那么剩下最后一步，在客户Duan每次登陆都把自己连接的IP改成该IP就可以了。

服务器端获取公网IP源码：其中常量。#正则表达式为
href="javascript:;">(\d+?\.\d+?\.\d+?\.\d+?)</a><

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
正则	正则表达式类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
源码	文本型
服务器IP	文本型

源码 ＝ 编码_URL解码 (网页_访问_对象 (“http://cd.ys168.com/f_ht/ajcx/ml.aspx?cz=ml_dq&_dlmc=******&_dlmm=”, 0, , , , , , , , , , , , , , , ), )
正则.创建 ( #正则表达式, 源码, , , , )
服务器IP ＝ 正则.取子匹配文本 (1, 1, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 正则, 正则表达式类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 源码, 文本型<br /> .局部变量 服务器IP, 文本型<br /> <br /> 源码 ＝ 编码_URL解码 (网页_访问_对象 (“http://cd.ys168.com/f_ht/ajcx/ml.aspx?cz=ml_dq&_dlmc=******&_dlmm=”, 0, , , , , , , , , , , , , , , ), )<br /> 正则.创建 (#正则表达式, 源码, , , , )<br /> 服务器IP ＝ 正则.取子匹配文本 (1, 1, )

阿Q3

就这样 另个主机 两个人连不上啊

寒潮

wai网？
wai网连接得用wai网ip啊，你这样当然连接不上啊。

jackliuwenli

v*n或端口映射可解决~
建议v*n

阿Q3

@寒潮 wai网IP能写进服务器里去吗？写进去后能实现两台计算机即时通讯吗？

阿Q3

@jackliuwenli 建议v*n 这个怎么写？能详细说明吗？

347747669

wai网是随时在变的。你自己百度搜索IP两个字。记下来，下次开机或者一天以后搜IP。又会换。因为电信和移动网络是随机给你分配的IP地址。所以你不可能聊天成功。。。我之前也问过这个问题。。。后来才明白，要么用服务器。要么去电信或者移动购买固定IP（舍不得钱。听说电信的一个月就是300）。。然后好像有各种百度办法可以套路电信的人工客服，让他帮你免费固定IP。我也没试过。。。你去百度试试吧，顺便试完了回来告诉我一下！

jackliuwenli

阿Q3 发表于 2020-1-3 21:38
@jackliuwenli 建议v*n 这个怎么写？能详细说明吗？

百度吧，主要是网络设置方面的知识

阿Q3

@347747669  具体怎么写 能聊一时算一时吧。