不明白编辑框有什么用。
局部变量 n, 整数型
计次循环首 (超级列表框取表项数 (), n)
服务器发送数据 (超级列表框取标题 (n, 0), “欲发送数据”, )
计次循环尾 ()
/假设的是超级列表框的 0 列是客户IP 请根据源码进行修改
其实就是一句代码:发送消息_ (列表框1取窗口句柄 (), 399, 0, 要添加的项目内容)
如果发送消息返回值为-1表示不重复。
版本 2
DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum,
SendMessageByString是该函数的“类型安全”声明形式 由具体的消息决定
参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
参数 信息值, 整数型, , 消息的标识符
参数 参数一, 整数型, , 具体取决于消息
参数 参数二, 文本型, , 具体取决于消息第一个程序
编辑框1用来显示文件路径
编辑框2用来显示对方发来的文本
按钮1用来浏览文件
按钮2用来发送文件
此外还有服务器 通用对话框
版本 2
程序集 窗口程序集1
子程序 _按钮1_被单击
通用对话框1打开 ()
编辑框1内容 = 通用对话框1文件名
子程序 _按钮2_被单击
服务器1发送数据 (客户IP, 读入文件 (通用对话框1文件名), 1000)
信息框 (“发送成功”, 0, )
子程序 _服务器1_数据到达
局部变量 file, 字节集
file = 服务器1取回数据 ()
编辑框2内容 = 到文本 (file)
信息框 (“数据到达”, 0, )
第二个程序
编辑框1用来显示保存文件的路径
编辑框2用来显示发送的文本
按钮1用来发送文本
此外还有通用对话框 客户
版本 2
程序集 窗口程序集1
子程序 _按钮1_被单击
客户1连接 (用户IP, 19730)
客户1发送数据 (编辑框1内容)
信息框 (“已发送”, 0, )
子程序 _客户1_数据到达
局部变量 file, 字节集
file = 客户1取回数据 ()
通用对话框1打开 ()
编辑框1内容 = 通用对话框1文件名
信息框 (“已保存”, 0, )
我试过了,可以的……
在使用时可以将“客户IP”与“用户IP”替换成想要的IP地址就可以了 IP为文本型
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)