基于UDP协议的局域网通信工具-『中文资料』-AUTOIT CN

autoit 发表于 2008-5-3 14:20:34

基于UDP协议的局域网通信工具

这是我根椐官方说明文件上面带的一个实例改的，嘿嘿，大家请勿见笑.运行服务器,点击"启动服务",然后运行客户端,这时在服务端上就可以看到客户端发来的消息.大家有兴趣可以去看看官方的帮助文件里面的几个例子,写的很不错.;;;;服务端------------------＃i nclude <GUIConstants.au3> HotKeySet("!q","CLOSEClicked") hotkeyset("!s","startbtn") dim $socket = -1,$PS = True $mainwindow = GUICreate("基于UDP协议的局域网通信工具--服务端", 481, 440, 193, 121) $text1 = GUICtrlCreateEdit("", 12, 12, 457, 384,0x0844 + 0x0008) $startBtn = GUICtrlCreateButton("启动服务(ALT+&S)", 340, 405, 130, 25) guictrlcreatelabel("启动服务 ALT+S，暂停服务 ALT+P，退出程序 ALT+Q",10,410) GUISetState(@SW_SHOW)pause() Func pause() if $socket <> -1 then UDPCloseSocket($socket) While 1  $msg = GuiGetMsg()  Select  Case $msg = $GUI_EVENT_CLOSE   CLOSEClicked()  Case $msg = $startBtn   startBtn()  EndSelect WEnd EndFuncFunc startbtn() if $ps = True then  guictrlsetdata($startbtn,"暂停服务(ALT+&P)")  HotKeySet("!p","startbtn")  HotKeySet("!s")  $ps = not $ps  UDPs() else  guictrlsetdata($startbtn,"启动服务(ALT+&S)")  $ps = not $ps  HotKeySet("!s","startbtn")  HotKeySet("!p")  pause() endif EndFuncFunc udps() UDPStartup() $socket = UDPBind("127.0.0.1", 64213) If @error <> 0 Then Exit While 1     $data = UDPRecv($socket, 50)     If $data <> "" Then         GUICtrlSetData($text1,$data & @CRLF & guictrlread($text1) )     EndIf  $msg = GuiGetMsg()  Select  Case $msg = $GUI_EVENT_CLOSE   CLOSEClicked()  Case $msg = $startBtn   startBtn()  EndSelect     sleep(50) WEnd EndFuncFunc CLOSEClicked()  $ynexit = MsgBox(262196, "提示", "确定退出本程序吗?")  if $ynexit = 6 then   if $socket <> -1 then    UDPCloseSocket($socket)    UDPShutdown()   EndIf   Exit  EndIf EndFunc ;;;;客户端----------------------UDPStartup() $socket = UDPOpen("127.0.0.1", 64213) If @error <> 0 Then Exit UDPSend($socket,@MON & "-" & @MDAY & "  " & @hour & ":" & @min & ":" & @sec & "  " &  @ipaddress1 & " 启动计算机！") UDPCloseSocket($socket) UDPShutdown();;;官方帮助文档自带的客户端--------UDPStartup() $socket = UDPOpen("127.0.0.1", 64213) If @error <> 0 Then Exit $n=0 While 1     Sleep(2000)     $n = $n + 1     $status = UDPSend($socket, "Message #" & $n)     If $status = 0 then         MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)         Exit     EndIf WEnd Func OnAutoItExit()     UDPCloseSocket($socket)     UDPShutdown() EndFunc

qop1830 发表于 2008-5-30 10:31:33

:face (37): 很不错看到这个这舒服！

木纳发表于 2008-5-30 23:28:25

收藏学习...

autoit写服务端好用么

lxshiba 发表于 2008-12-22 18:35:21

?i nclude <GUIConstants.au3>
^ ERROR

xrbenbeba 发表于 2009-2-9 11:30:08

顶了再学习

59993330 发表于 2009-2-10 12:48:48

搜藏并学习
谢谢楼主

zjg2003 发表于 2009-3-16 13:43:22

看了下网络函数，不是很明白，知道这个是本机测试的。
如果换成不同的机器各多个客户机，那服务端和客户端的IP要怎么改才能用呢

ly2001 发表于 2009-3-26 22:27:57

收藏了:face (29): :face (29):

yy1017 发表于 2009-6-15 00:39:35

感动，就你好人，不用下载扣分

muxingwan 发表于 2009-6-15 13:57:46

好东西真是好东西

fzlrfzlr 发表于 2009-6-16 08:36:23

再学习~~~~~~~~~

lnlzh 发表于 2009-7-10 17:05:13

下载学习中!!

clshuai 发表于 2009-7-23 17:00:19

好好研究一下，谢谢哦

caizige 发表于 2010-7-21 16:10:09

试试看！谢了~

caizige 发表于 2010-7-21 16:10:27

顶起来，再下~~~

http://www.jiudingji8.com/images/xiaoshuo.gif
异世邪君最新章节列表阅文屋斗破苍穹凡人修仙传老婆爱上我九鼎记异世邪君猎国吞噬星空禁血红莲长生界官路风流阳神很纯很暧昧狩魔手记紫府仙缘官气寂灭天骄异界全职业大师神墓全文阅读盾击召唤万岁网游之纵横天下官场新贵斗罗大陆全文阅读仙逆百炼成仙间客近身保镖盘龙全文阅读坏蛋是怎样炼成的2 重生之官道星辰变极品公子步步生莲大魔王十方天士仙葫武神傲剑凌云邪龙道英雄无敌之十二翼天使重生之衙内盗墓笔记冒牌大英雄玄幻奇幻网游动漫科幻小说武侠仙侠

页: [1] 2

AUTOIT CN's Archiver

基于UDP协议的局域网通信工具