爱体育

 
 加入
爱体育»论坛 › au3交流 › 『 提问交流 』 › 无意义问题区 › 如何 用tcp实现远程关机、重启
12
返回列表
楼主: wllx

如何 用tcp实现远程关机、重启-爱体育

[复制链接]
gyp2000
发表于 2023-10-7 21:09:45 | 显示全部楼层
以前写的 tcp服务端，你可以参考一下。
  1. #region ;**** directives created by autoit3wrapper_gui ****
  2. #autoit3wrapper_icon=                                                                                                 ;程序图标
  3. #autoit3wrapper_usex64=n                                                                                         ;是否编译为64位程序(y/n)
  4. #autoit3wrapper_outfile=                                                                                         ;输出的exe名称
  5. #autoit3wrapper_outfile_x64=                                                                                 ;64位输出的exe名称
  6. #autoit3wrapper_useupx=n                                                                                         ;是否使用upx压缩(y/n) 注:开启压缩极易引起误报问题
  7. #autoit3wrapper_res_comment=http://www.autoitscript.com/autoit3/         ;程序注释
  8. #autoit3wrapper_res_description=autoit team                                        ;文件说明
  9. #autoit3wrapper_res_fileversion=1.0.0.40
  10. #autoit3wrapper_res_field=productname|autoit v3                                     ;产品名称
  11. #autoit3wrapper_res_productversion=1.0                                                                 ;产品版本
  12. #autoit3wrapper_res_legal爱体育 copyright=©1999-2021 autoit team                          ;爱体育的版权
  13. #autoit3wrapper_res_language=2052                                                                         ;语言, 英语=2057/中文=2052
  14. #autoit3wrapper_res_field=originalfilename|autoit.exe                    ;原始文件名
  15. #autoit3wrapper_res_field=internalname|autoit_exe                               ;内部名称
  16. #autoit3wrapper_res_fileversion_autoincrement=y                                                 ;自动更新版本 y/n/p=自动/不自动/询问
  17. #autoit3wrapper_res_requestedexecutionlevel=asinvoker                                 ;请求权限: none/asinvoker/highestavailable/requireadministrator
  18. #autoit3wrapper_run_tidy=n                                                                                         ;编译前自动整理脚本(y/n)
  19. #autoit3wrapper_res_hidpi=p                                                                                         ;支持dpi感知
  20. #au3stripper_parameters=/sf=1 /sv=1
  21. #endregion ;**** directives created by autoit3wrapper_gui ****

  23. #cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

  25.         欢迎使用 autoit v3 中文版 !
  26.         au3版本:        3.3.14.5
  27.         脚本作者:
  28.         脚本功能:
  29.         更新日志:
  30.         爱体育的联系方式:

  32. #ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
  33. #include
  34. #include
  35. #include
  36. #include
  37. #include
  38. #include
  39. #include
  40. opt("mustdeclarevars", 1)
  41. opt("guioneventmode", 1)
  42. opt("guicloseonesc", 0)
  43. global const $fd_read = 1
  44. global const $fd_write = 2
  45. global const $fd_accept = 8
  46. global const $fd_connect = 16
  47. global const $fd_close = 32
  48. global const $fd_setsize = 32 ;定义监听客户端数量
  49. global const $tagfd_set = "uint fd_count;uint fd_array[" & $fd_setsize & "]"
  50. global $hdll_ws2_32 = dllopen("ws2_32.dll")
  51. global const $fd_max_events = 10
  52. global $netevent = dllstructcreate("long lnetworkevents;int ierrorcode[" & $fd_max_events & "];")
  53. global $udp_event = dllstructcreate("handle event;")
  54. global $udp_socket
  55. global $udp_port = 6800 ;定义监听端口
  56. global $tcp_max = 2
  57. global $tcp_port[$tcp_max] = [20001, 20002] ;定义监听端口
  58. global $tcp_socket[$tcp_max]
  59. global $tcp_event = dllstructcreate("handle event[" & $tcp_max & "];")
  60. global $client_socket = dllstructcreate($tagfd_set)
  61. global $test, $hgui, $idedit, $idlistview
  62. global $sendgui, $button1, $input, $num, $data
  63. global $fd_array[$fd_setsize][10]
  64. opt("guiresizemode", 1)
  65. global $hidpi
  66. if @compiled then
  67.         if _isprocessdpiaware() then
  68.                 $hidpi = _getdpi()
  69.         else
  70.                 $hidpi = 1
  71.         endif
  72. else
  73.         _setprocessdpiaware()
  74.         $hidpi = _getdpi()
  75. endif

  77. tcpstartup()
  78. $udp_socket = udpopen("255.255.255.255", $udp_port, 1)
  79. udpsend($udp_socket, binary("0x01000000a00f00000000000000000000")) ;发送广播消息，查询是否存在服务。
  80. $data = udprecv($udp_socket, 4096, 1) ;接收消息，耗时 50毫秒。
  81. udpclosesocket($udp_socket)

  83. if $data <> "" then
  84.         exit msgbox(262144 65536 64, "警告", "发现内网服务端:" & binarytostring($data) & " 退出程序.")
  85. endif

  87. creategui()
  88. #region 创建监听端口
  89. for $i = 0 to $tcp_max - 1
  90.         $tcp_socket[$i] = tcplisten("0.0.0.0", $tcp_port[$i], 1024)
  91.         if @error then exit msgbox(262144 65536 64, "tcp端口冲突", "tcp端口被占用:" & $tcp_port[$i])
  92.         _echo($idedit, "监听tcp端口:" & $tcp_port[$i])
  93.         $tcp_event.event($i 1) = _winapi_createevent(0, true, false) ;创建事件对象, 为无信号，手动重置
  94.         _sockeventselect($tcp_socket[$i], $tcp_event.event($i 1), $fd_accept) ;设置到事件模式
  95. next

  97. $udp_socket = udpbind("0.0.0.0", $udp_port)
  98. if @error then exit msgbox(262144 65536 64, "udp端口冲突", "udp端口被占用:" & $udp_port)
  99. _echo($idedit, "监听udp端口:" & $udp_port)
  100. $udp_event.event(1) = _winapi_createevent(0, true, false) ;创建事件对象, 为无信号，手动重置
  101. _sockeventselect($udp_socket[1], $udp_event.event(1), $fd_read) ;设置到事件模式
  102. #endregion 创建监听端口
  103. _echo($idedit, "启动完成。")
  104. onautoitexitregister("_exit")
  105. adlibregister("_timeout", 1000 * 60) ;活动连接心跳检测

  107. while 1
  108.         _tcp_event($client_socket)
  109.         _udp_event()
  110.         _client_event($client_socket)
  111.         sleep(5)
  112. wend

  114. func _data_out($isocket, $idate)
  115.         if binarylen($idate) < 20 then
  116.                 _tcpsend($isocket, "x")
  117.                 ;_echo($idedit, "收到心跳包:" & $idate)
  118.         else
  119.                 _echo($idedit, "收到数据:" & $idate)
  120.         endif
  121. endfunc   ;==>_data_out

  123. func _udp_event() ;处理udp网路事件
  124.         local $iobjects, $data, $aret
  125.         local $datelen = 4096
  126.         $iobjects = _winapi_waitformultipleobjects(1, $udp_event, false, 0) ;检测信号状态，等待5毫秒
  127.         switch $iobjects
  128.                 case 0
  129.                         _winapi_resetevent($udp_event.event($iobjects 1)) ;设置指定事件对象为无信号状态
  130.                         $aret = dllcall("ws2_32.dll", "int", "ioctlsocket", "uint", $udp_socket[1], "long", 0x4004667f, "ulong*", 0) ;查询接收缓冲区数据长度
  131.                         if $aret[0] = 0 then $datelen = $aret[3]
  132.                         $data = udprecv($udp_socket, $datelen, 3)
  133.                         if not @error then
  134.                                 if string($data[0]) == "0x01000000a00f00000000000000000000" then
  135.                                         $udp_socket[2] = $data[1]
  136.                                         $udp_socket[3] = $data[2]
  137.                                         udpsend($udp_socket, @ipaddress1 & ";" & $tcp_port[0] & ";" & $tcp_port[1])
  138.                                 endif
  139.                         endif
  140.                 case -1 ;检测信号状态失败
  141.         endswitch
  142. endfunc   ;==>_udp_event

  144. func _tcp_event(byref $tfd_set) ;处理tcp接入请求事件
  145.         local $iobjects, $isocket, $newip, $ilistitem, $index
  146.         $iobjects = _winapi_waitformultipleobjects($tcp_max, $tcp_event, false, 0) ;检测信号状态，等待5毫秒
  147.         switch $iobjects
  148.                 case 0 to $tcp_max - 1
  149.                         ;_winapi_resetevent($tcp_event.event($iobjects 1)) ;设置指定事件对象为无信号状态
  150.                         ;//添加的代码
  151.                         if _wsaenumnetworkevents($tcp_socket[$iobjects], $tcp_event.event($iobjects 1)) then ;择网络事件
  152.                                 if bitand($netevent.lnetworkevents(1), $fd_accept) then
  153.                                         if $netevent.ierrorcode(3) = 0 then
  154.                                                 $isocket = tcpaccept($tcp_socket[$iobjects])
  155.                                                 if $isocket <> -1 then
  156.                                                         $newip = _sockettoip($isocket)
  157.                                                         if $tfd_set.fd_count(1) >= $fd_setsize then
  158.                                                                 _echo($idedit, "!超出最大连接数：" & $fd_setsize & " 断开新连接")
  159.                                                                 tcpclosesocket($isocket)
  160.                                                         else
  161.                                                                 _fd_set($isocket, $tfd_set)
  162.                                                                 $index = _array_set($isocket, $fd_array)
  163.                                                                 $fd_array[$index][2] = guictrlcreatelistviewitem($newip[0], $idlistview)
  164.                                                                 $fd_array[$index][3] = $newip[0]
  165.                                                                 $fd_array[$index][4] = timerinit()
  166.                                                                 _echo($idedit, "新连接,来自ip:" & $newip[0] & " 源端口:" & $newip[1] & " 目的端口:" & $newip[3] & " 连接数:" & $tfd_set.fd_count(1))
  167.                                                         endif
  168.                                                 endif
  169.                                         else
  170.                                                 consolewrite("wsaenumnetworkevents failed with error code:" & $netevent.ierrorcode(3))
  171.                                         endif
  172.                                 endif
  173.                         endif
  174.                         ;//添加的代码
  175.                 case -1 ;检测信号状态失败
  176.         endswitch
  177. endfunc   ;==>_tcp_event

  179. func _timeout()
  180.         local $i
  181.         for $i = $fd_setsize - 1 to 0 step -1
  182.                 if $fd_array[$i][4] == "" then continueloop
  183.                 if timerdiff($fd_array[$i][4]) > 1000 * 10 then ;活动连接无心跳10秒，关闭连接
  184.                         guictrldelete($fd_array[$i][2])
  185.                         tcpclosesocket($fd_array[$i][1])
  186.                         _echo($idedit, "连接超时,来自ip:" & $fd_array[$i][3])
  187.                         _fd_clr($fd_array[$i][1], $client_socket)
  188.                         _array_clr($fd_array[$i][1], $fd_array)
  189.                 endif
  190.         next
  191. endfunc   ;==>_timeout

  193. func _tcprecv($isocket, $idatalen)
  194.         local $datelen
  195.         local $index = _array_isset($isocket, $fd_array)
  196.         if $index = -1 then return
  197.         $fd_array[$index][4] = timerinit() ;写入时间戳
  198.         local $idata = tcprecv($isocket, $idatalen, 1)
  199.         if @error then return seterror(@error, @extended, "") ;错误处理 待完善
  200.         if isbinary($fd_array[$index][5]) then ;检查缓存
  201.                 $fd_array[$index][5] = binary($fd_array[$index][5] $idata)
  202.         else
  203.                 $fd_array[$index][5] = $idata
  204.         endif
  205.         while 1
  206.                 if binarylen($fd_array[$index][5]) < 4 then exitloop
  207.                 $datelen = int(binarymid($fd_array[$index][5], 1, 4))
  208.                 if binarylen($fd_array[$index][5]) < $datelen 4 then
  209.                         exitloop
  210.                 elseif binarylen($fd_array[$index][5]) = $datelen 4 then
  211.                         _data_out($isocket, binarymid($fd_array[$index][5], 5))
  212.                         $fd_array[$index][5] = ""
  213.                         exitloop
  214.                 endif
  215.                 _data_out($isocket, binarymid($fd_array[$index][5], 5, $datelen))
  216.                 $fd_array[$index][5] = binarymid($fd_array[$index][5], $datelen 5)
  217.         wend
  218. endfunc   ;==>_tcprecv

  220. func _tcpsend($isocket, $ddata)
  221.         if $ddata == "" then return
  222.         if not isbinary($ddata) then $ddata = stringtobinary($ddata)
  223.         local $datalen = binarylen($ddata)
  224.         local $byte = binary(binary(ptr($datalen)) $ddata)
  225.         local $iret = tcpsend($isocket, $byte)
  226.         if @error then return seterror(@error, 0, 0)
  227.         return $iret
  228. endfunc   ;==>_tcpsend

  230. func _echo($hid, $stext = "")
  231.         if not stringisascii($stext) then $stext = string($stext)
  232.         local $logtime = @year & "-" & @mon & "-" & @mday & " " & @hour & ":" & @min & ":" & @sec & " " & $stext & @crlf
  233.         local $hwnd = guictrlgethandle($hid)
  234.         local $len = stringlen($logtime)
  235.         local $text = $logtime & guictrlread($hid)
  236.         if _guictrledit_getlinecount($hwnd) > 300 then
  237.                 $len = _guictrledit_lineindex($hwnd, 299)
  238.                 $text = stringleft($text, $len)
  239.         endif
  240.         guictrlsetdata($hid, $text)
  241. endfunc   ;==>_echo

  243. func creategui()
  244.         local $width = 880, $height = 680, $idcontextmenu
  245.         $hgui = guicreate("广播转发 - 支持" & $fd_setsize & "接入", $width, $height 48, -1, -1) ;创建窗口
  246.         guisetonevent($gui_event_close, "_exit")
  247.         guictrlcreategroup("客户端列表", 5, 10, $width - 10, 500)
  248.         $idlistview = guictrlcreatelistview("编号|", 10, 25, $width - 20, 480, $lvs_showselalways, $lvs_ex_fullrowselect $lvs_ex_gridlines $lvs_ex_doublebuffer) ;,$lvs_sortdescending)
  249.         _guictrllistview_setcolumnwidth($idlistview, 0, $lvscw_autosize_useheader)
  250.         guictrlcreategroup("消息日志", 5, 520, $width - 10, 166)
  251.         $idedit = guictrlcreateedit("", 15, 540, $width - 30, 136, 0x50210804, $ws_ex_staticedge)
  252.         $idcontextmenu = guictrlcreatecontextmenu($idlistview)
  253.         ;创建菜单“所有客户机”主控件-全部
  254.         guictrlcreatemenuitem("关闭连接", $idcontextmenu)
  255.         guictrlsetonevent(-1, "_selected")
  256.         guictrlcreatemenuitem("发送消息", $idcontextmenu)
  257.         guictrlsetonevent(-1, "_selected_send")
  258.         guisetstate(@sw_show)
  259. endfunc   ;==>creategui

  261. func _client_event(byref $tfd_set) ;处理客户端的网路事件
  262.         local $isocket, $idata, $newip, $aret, $index, $datelen
  263.         local $count = $tfd_set.fd_count(1)
  264.         if $count < 1 then return
  265.         local $fd_socket = dllstructcreate($tagfd_set)
  266.         local $tfd_set_dat = dllstructcreate("byte[" & $count * 4 4 & "];", dllstructgetptr($tfd_set))
  267.         local $fd_socket_dat = dllstructcreate("byte[" & $count * 4 4 & "];", dllstructgetptr($fd_socket))
  268.         dllstructsetdata($fd_socket_dat, 1, dllstructgetdata($tfd_set_dat, 1)) ;创建结构体副本
  269.         if _select($fd_socket) then ;查询是否有网络事件
  270.                 for $i = 0 to $fd_socket.fd_count(1) - 1
  271.                         $isocket = $fd_socket.fd_array($i 1)
  272.                         if _fd_isset($isocket, $fd_socket) then ;检查套接字是否存在
  273.                                 $newip = _sockettoip($isocket) ;查询套接字的源地址-目标地址
  274.                                 local $datelen = 4096
  275.                                 $aret = dllcall("ws2_32.dll", "int", "ioctlsocket", "uint", $isocket, "long", 0x4004667f, "ulong*", 0) ;查询套接字接收缓冲区中的数据长度
  276.                                 if $aret[0] = 0 then
  277.                                         if $aret[3] > 0 then
  278.                                                 _tcprecv($isocket, $aret[3])
  279.                                         else
  280.                                                 tcpclosesocket($isocket)
  281.                                                 _fd_clr($isocket, $tfd_set)
  282.                                                 $index = _array_isset($isocket, $fd_array) ;查询套接字在数组中的位置
  283.                                                 if not @error then
  284.                                                         guictrldelete($fd_array[$index][2])
  285.                                                         _array_clr($isocket, $fd_array) ;清理数组
  286.                                                 endif
  287.                                                 _echo($idedit, "断开连接,来自ip:" & $newip[0] & " 源端口:" & $newip[1] & " 目的端口:" & $newip[3])
  288.                                         endif
  289.                                 else
  290.                                         _tcprecv($isocket, 4096)
  291.                                 endif
  292.                         endif
  293.                 next
  294.         endif
  295. endfunc   ;==>_client_event

  297. func _select(byref $tfd_set)
  298.         local $timeval = dllstructcreate("int tv_sec;int tv_usec")
  299.         local $result = dllcall("ws2_32.dll", "int", "select", "int", null, "struct*", $tfd_set, "ptr", 0, "ptr", 0, "struct*", $timeval)
  300.         if $result[0] <= 0 then return false
  301.         return true
  302. endfunc   ;==>_select

  304. func _array_set($isocket, byref $tarray_set)
  305.         if not isarray($tarray_set) then return seterror(2, false, false)
  306.         if $tarray_set[0][0] = "" then $tarray_set[0][0] = 0
  307.         local $rows = ubound($tarray_set)
  308.         local $icount = $tarray_set[0][0]
  309.         for $i = 0 to $icount - 1
  310.                 if $tarray_set[$i][1] = $isocket then
  311.                         exitloop
  312.                 endif
  313.         next
  314.         if $i = $icount then
  315.                 if $icount < $rows then
  316.                         $tarray_set[$i][1] = $isocket
  317.                         $tarray_set[0][0] = $icount 1
  318.                 endif
  319.         endif
  320.         return $tarray_set[0][0] - 1
  321. endfunc   ;==>_array_set

  323. func _array_clr($isocket, byref $tarray_set)
  324.         local $columns = ubound($tarray_set, 2)
  325.         local $icount = $tarray_set[0][0]
  326.         for $i = 0 to $icount - 1
  327.                 if $tarray_set[$i][1] = $isocket then
  328.                         while ($i < $icount - 1)
  329.                                 for $s = 1 to $columns - 1
  330.                                         $tarray_set[$i][$s] = $tarray_set[$i 1][$s]
  331.                                 next
  332.                                 $i = 1
  333.                         wend
  334.                         for $s = 1 to $columns - 1
  335.                                 $tarray_set[$i][$s] = null
  336.                         next
  337.                         $tarray_set[0][0] = $icount - 1
  338.                         exitloop
  339.                 endif
  340.         next
  341. endfunc   ;==>_array_clr

  343. func _array_isset($isocket, byref $tarray_set)
  344.         if not isarray($tarray_set) then return seterror(2, false, -1)
  345.         if $tarray_set[0][0] = "" then $tarray_set[0][0] = 0
  346.         local $ret
  347.         local $columns = ubound($tarray_set, 2)
  348.         local $icount = $tarray_set[0][0]
  349.         for $i = 0 to $icount - 1
  350.                 if $tarray_set[$i][1] = $isocket then
  351.                         $ret = $i
  352.                         exitloop
  353.                 endif
  354.         next
  355.         if $ret == "" then return seterror(2, false, -1)
  356.         return $ret
  357. endfunc   ;==>_array_isset

  359. func _fd_set($isocket, byref $tfd_set)
  360.         local $icount = dllstructgetdata($tfd_set, "fd_count")
  361.         for $i = 0 to $icount - 1
  362.                 if dllstructgetdata($tfd_set, "fd_array", $i 1) = $isocket then
  363.                         exitloop
  364.                 endif
  365.         next
  366.         if $i = $icount then
  367.                 if $icount < $fd_setsize then
  368.                         dllstructsetdata($tfd_set, "fd_array", $isocket, $i 1)
  369.                         dllstructsetdata($tfd_set, "fd_count", $icount 1)
  370.                 endif
  371.         endif
  372. endfunc   ;==>_fd_set

  374. func _fd_clr($isocket, byref $tfd_set)
  375.         local $icount = dllstructgetdata($tfd_set, "fd_count")
  376.         for $i = 0 to $icount - 1
  377.                 if dllstructgetdata($tfd_set, "fd_array", $i 1) = $isocket then
  378.                         while ($i < $icount - 1)
  379.                                 dllstructsetdata($tfd_set, "fd_array", dllstructgetdata($tfd_set, "fd_array", $i 2), $i 1)
  380.                                 $i = 1
  381.                         wend
  382.                         dllstructsetdata($tfd_set, "fd_array", 0, $i 1)
  383.                         dllstructsetdata($tfd_set, "fd_count", $icount - 1)
  384.                         exitloop
  385.                 endif
  386.         next
  387. endfunc   ;==>_fd_clr

  389. func _fd_isset($isocket, byref $tfd_set)
  390.         local $aret = dllcall($hdll_ws2_32, "int", "__wsafdisset", "uint", $isocket, "struct*", $tfd_set)
  391.         return $aret[0]
  392. endfunc   ;==>_fd_isset

  394. func _wsaenumnetworkevents($hsocket, $hwnd)
  395.         local $iret = dllcall($hdll_ws2_32, "int", "wsaenumnetworkevents", "uint", $hsocket, "hwnd", $hwnd, "struct*", $netevent)
  396.         if @error then return seterror(1, @error, false)
  397.         if $iret[0] <> 0 then
  398.                 $iret = dllcall($hdll_ws2_32, "dword", "wsagetlasterror")
  399.                 return seterror(2, $iret[0], false)
  400.         endif
  401.         return true
  402. endfunc   ;==>_wsaenumnetworkevents

  404. func _sockeventselect($hsocket, $hwnd, $ievent = 0)
  405.         local $iret = dllcall($hdll_ws2_32, "int", "wsaeventselect", "uint", $hsocket, "hwnd", $hwnd, "int", $ievent)
  406.         if @error then return seterror(1, @error, false)
  407.         if $iret[0] <> 0 then
  408.                 return seterror(2, _wsagetlasterror(), false)
  409.         endif
  410.         return true
  411. endfunc   ;==>_sockeventselect

  413. func _wsagetlasterror()
  414.         local $iret = dllcall($hdll_ws2_32, "int", "wsagetlasterror")
  415.         if @error then
  416.                 setextended(1)
  417.                 return 0
  418.         endif
  419.         return $iret[0]
  420. endfunc   ;==>_wsagetlasterror

  422. func _sockettoip($hsocket)
  423.         local $sockaddr, $aret, $aarray[4], $error
  424.         $error = false
  425.         $sockaddr = dllstructcreate("short;ushort;uint;char[8]")
  426.         $aret = dllcall($hdll_ws2_32, "int", "getpeername", "int", $hsocket, _
  427.                         "struct*", $sockaddr, "int*", dllstructgetsize($sockaddr))
  428.         if @error or $aret[0] <> 0 then
  429.                 $error = true
  430.         else
  431.                 $aret = dllcall($hdll_ws2_32, "str", "inet_ntoa", "int", dllstructgetdata($sockaddr, 3))
  432.                 if not @error then $aarray[0] = $aret[0]
  433.                 $aret = dllcall($hdll_ws2_32, "ushort", "ntohs", "ushort", dllstructgetdata($sockaddr, 2))
  434.                 if not @error then $aarray[1] = $aret[0]
  435.         endif

  437.         $aret = dllcall($hdll_ws2_32, "int", "getsockname", "int", $hsocket, _
  438.                         "struct*", $sockaddr, "int*", dllstructgetsize($sockaddr))
  439.         if @error or $aret[0] <> 0 then
  440.                 $error = true
  441.         else
  442.                 $aret = dllcall($hdll_ws2_32, "str", "inet_ntoa", "int", dllstructgetdata($sockaddr, 3))
  443.                 if not @error then $aarray[2] = $aret[0]
  444.                 $aret = dllcall($hdll_ws2_32, "ushort", "ntohs", "ushort", dllstructgetdata($sockaddr, 2))
  445.                 if not @error then $aarray[3] = $aret[0]
  446.         endif
  447.         $sockaddr = 0
  448.         return seterror($error, false, $aarray)
  449. endfunc   ;==>_sockettoip

  451. func _selected()
  452.         local $column, $num, $isocket
  453.         $column = _guictrllistview_getselectedcount($idlistview)
  454.         if $column <> 1 then return
  455.         $num = _guictrllistview_getselectedindices($idlistview, false)
  456.         _echo($idedit, "关闭连接" & $fd_array[$num][3])
  457.         $isocket = $fd_array[$num][1]
  458.         tcpclosesocket($isocket)
  459.         guictrldelete($fd_array[$num][2])
  460.         _fd_clr($isocket, $client_socket)
  461.         _array_clr($isocket, $fd_array)
  462. endfunc   ;==>_selected

  464. func _selected_send()
  465.         local $column, $num
  466.         local $ahotkey[1][2]
  467.         $column = _guictrllistview_getselectedcount($idlistview)
  468.         if $column <> 1 then return
  469.         $num = _guictrllistview_getselectedindices($idlistview, false)
  470.         $sendgui = guicreate("发送数据窗口", 600, 160, -1, -1, default, default, $hgui)
  471.         guisetonevent($gui_event_close, "close_gui")
  472.         $button1 = guictrlcreatebutton("发送", 260, 112, 85, 25)
  473.         guictrlsetonevent($button1, "_button")
  474.         $input = guictrlcreateinput("", 32, 48, 520, 32)
  475.         $ahotkey[0][0] = "{enter}"
  476.         $ahotkey[0][1] = $button1
  477.         guisetaccelerators($ahotkey, $sendgui)
  478.         guisetstate(@sw_show, $sendgui)
  479.         controlfocus($sendgui, "", $input)
  480. endfunc   ;==>_selected_send

  482. func _button()
  483.         local $column, $isocket, $idata, $num
  484.         $column = _guictrllistview_getselectedcount($idlistview)
  485.         if $column <> 1 then return
  486.         $num = _guictrllistview_getselectedindices($idlistview, false)
  487.         $idata = guictrlread($input)
  488.         $isocket = $fd_array[$num][1]
  489.         if $idata <> "" and $isocket <> "" then
  490.                 _echo($idedit, "发送消息" & $idata)
  491.                 _tcpsend($isocket, $idata)
  492.         endif
  493. endfunc   ;==>_button

  495. func close_gui()
  496.         guisetaccelerators(0, $sendgui)
  497.         guidelete($sendgui)
  498. endfunc   ;==>close_gui

  500. func _exit()
  501.         for $i = 0 to $tcp_max - 1
  502.                 tcpclosesocket($tcp_socket[$i])
  503.         next
  504.         for $i = 0 to $fd_setsize - 1
  505.                 if $fd_array[$i][1] <> "" then tcpclosesocket($fd_array[$i][1])
  506.         next
  507.         udpclosesocket($udp_socket)
  508.         dllclose($hdll_ws2_32)
  509.         tcpshutdown()
  510.         exit
  511. endfunc   ;==>_exit

  513. #region dpi函数
  514. func _setprocessdpiaware()
  515.         local $aret
  516.         if @osbuild < 6000 then return ;判断系统版本 windows vista
  517.         if @osbuild < 9600 then ;判断系统版本  win8.1(9600)
  518.                 $aret = dllcall("user32.dll", "bool", "isprocessdpiaware") ;检查进程是否支持dpi感知
  519.                 return $aret[0]
  520.                 if $aret[0] = false then
  521.                         $aret = dllcall('user32.dll', 'bool', 'setprocessdpiaware') ;设置：系统dpi感知
  522.                         if @error then return seterror(@error, 0, false)
  523.                         return
  524.                 endif
  525.         else
  526.                 $aret = dllcall("shcore.dll", "bool", "getprocessdpiawareness", "hwnd", 0, "int*", 0) ;检查进程是否支持dpi感知
  527.                 if @error then return seterror(@error, 0, false)
  528.                 if $aret[2] <> 2 then ;0不支持dpi感知 1,系统dpi感知  2,监视器dpi感知
  529.                         $aret = dllcall("shcore.dll", "bool", "setprocessdpiawareness", "int", 2) ;设置：监视器dpi感知
  530.                         if @error then return seterror(@error, 0, false)
  531.                         return
  532.                 endif
  533.         endif
  534. endfunc   ;==>_setprocessdpiaware

  536. func _getdpi()
  537.         local $idpi
  538.         if @osbuild < 6000 then return 1 ;判断系统版本 windows vista
  539.         if @osbuild < 9600 then ;判断系统版本  win8.1(9600)
  540.                 $idpi = regread("hkcu\control panel\desktop\windowmetrics", "applieddpi")
  541.         else
  542.                 local $hwnd = _winapi_monitorfromwindow(_winapi_getdesktopwindow())
  543.                 local $aret = dllcall("shcore.dll", "bool", "getdpiformonitor", "handle", $hwnd, "int", 0, "int*", 0, "int*", 0)
  544.                 if @error then return seterror(@error, 0, false)
  545.                 $idpi = $aret[3]
  546.         endif
  547.         if $idpi < 96 or $idpi > 480 then $idpi = 96
  548.         return $idpi / 96
  549. endfunc   ;==>_getdpi

  551. func _isprocessdpiaware()
  552.         local $aret, $adpi = 0
  553.         if @osbuild < 6000 then return false ;判断系统版本 windows vista
  554.         if @osbuild < 9600 then ;判断系统版本  win8.1(9600)
  555.                 $aret = dllcall("user32.dll", "bool", "isprocessdpiaware") ;检查进程是否支持dpi感知
  556.                 if @error then return seterror(@error, 0, false)
  557.                 $adpi = $aret[0]
  558.         else
  559.                 $aret = dllcall("shcore.dll", "bool", "getprocessdpiawareness", "hwnd", 0, "int*", 0) ;检查进程是否支持dpi感知
  560.                 if @error then return seterror(@error, 0, false)
  561.                 $adpi = $aret[2]
  562.         endif
  563.         return $adpi
  564. endfunc   ;==>_isprocessdpiaware
  565. #endregion dpi函数
复制代码
wllx
 楼主| 发表于 2023-10-7 22:15:22 | 显示全部楼层

以前写的 tcp服务端，你可以参考一下。

难道我要重写一个应对你这个服务端的客户端。老大，请将你的客户端代码一并发出，特别谢谢你
发表于 2023-10-7 22:30:43 | 显示全部楼层

难道我要重写一个应对你这个服务端的客户端。老大，请将你的客户端代码一并发出，特别谢谢你

问题不在tcp呀。在于，【服】与【端】。

看你自己逻辑与想法吧。
wllx
 楼主| 发表于 2023-10-7 23:39:18 | 显示全部楼层

问题不在tcp呀。在于，【服】与【端】。

看你自己逻辑与想法吧。

老大，我真的想不出来，你能帮帮我吗？
12
返回列表
您需要登录后才可以回帖 登录 | 加入

本版积分规则

||小黑屋|爱体育 ( ) "));

gmt 8, 2023-12-7 00:59 , processed in 0.083899 second(s), 15 queries .

powered by x3.5

© 2001-2023 .

返回列表
网站地图