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

autoit

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

qop1830

    很不错    看到这个这舒服！

木纳

收藏学习...

autoit写服务端好用么

lxshiba

?i nclude <GUIConstants.au3>
^ ERROR

xrbenbeba

顶了再学习

59993330

搜藏并学习
谢谢楼主

zjg2003

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

ly2001

收藏了

yy1017

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

muxingwan

好东西 真是好东西

fzlrfzlr

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

lnlzh

下载学习中!!

clshuai

好好研究一下，谢谢哦

caizige

试试看！谢了~

caizige

顶起来，再下~~~   






















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