加入我们,或者,欢迎回来。
您需要 登录 才可以下载或查看,没有帐号?注册会员
x
本帖最后由 yyq8092 于 2015-6-2 13:29 编辑
RM实现Socket通讯.7z
(1.5 MB, 下载次数: 212)
最简单的Socket库
里面有RM客户端和易语言服务器源码
觉得好的话就~“吱一声”,您的支持就是我最大的动力
# 收到消息 def client_recv(msg) if msg == "exit" $scene = nil return end print("收到消息" + msg) # 同时弹出多个窗口可能导致程序意外结束(正常情况是不会用弹出显示收到数据~~你懂得) end # 断开连接 def client_disconnect print("与服务器连接断开") end # 发送数据 def client_send(msg) $socket_send.call(msg) end #--------------------------------华丽的分割线-------------------------------- # 载入socket $socket_connect = Win32API.new('socket', 'client_connect', 'pi', 'i') $socket_send = Win32API.new('socket', 'client_send', 'p', 'i') $socket_colose = Win32API.new('socket', 'client_close', 'v', 'v') # 连接服务器 if $socket_connect.call("127.0.0.1", 9701) != 0 # 发送数据 client_send("hi server") print("连接服务器成功") # 断开连接 #$socket_colose.call() else print("连接服务器失败") end
# 收到消息
def client_recv(msg)
if msg == "exit"
$scene = nil
return
end
print("收到消息" + msg) # 同时弹出多个窗口可能导致程序意外结束(正常情况是不会用弹出显示收到数据~~你懂得)
end
# 断开连接
def client_disconnect
print("与服务器连接断开")
end
# 发送数据
def client_send(msg)
$socket_send.call(msg)
end
#--------------------------------华丽的分割线--------------------------------
# 载入socket
$socket_connect = Win32API.new('socket', 'client_connect', 'pi', 'i')
$socket_send = Win32API.new('socket', 'client_send', 'p', 'i')
$socket_colose = Win32API.new('socket', 'client_close', 'v', 'v')
# 连接服务器
if $socket_connect.call("127.0.0.1", 9701) != 0
# 发送数据
client_send("hi server")
print("连接服务器成功")
# 断开连接
#$socket_colose.call()
else
print("连接服务器失败")
end
|