Question

怎样用autoit写一个服务器来信息后弹出的自动提示窗口?

Answer 1

服务器端：
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Local $msg ,$data
$MGUI = GUICreate("My GUI Button")
GUISetState()

UDPStartup()
OnAutoItExitRegister("Cleanup")
Local $socket = UDPBind("127.0.0.1", 65532)
If @error <> 0 Then Exit

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
$data = UDPRecv($socket, 50)
If $data <> "" Then
MsgBox(64, "信息", "你妈喊你回去吃饭啦!", 0, WinGetHandle($MGUI))
EndIf
WEnd

Func Cleanup()
UDPCloseSocket($socket)
UDPShutdown()
EndFunc

-----------------------------------------------------------------------------------
客户端：
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Local $Button_2, $msg
GUICreate("My GUI Button")
Opt("GUICoordMode", 2)
Local $Button_2 = GUICtrlCreateButton("发送信息", 0, 0)
GUISetState()

UDPStartup()
OnAutoItExitRegister("Cleanup")
Local $socket = UDPOpen("127.0.0.1", 65532)
If @error <> 0 Then Exit

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_2
Local $status = UDPSend($socket, "你妈喊你回去吃饭啦!")
If $status = 0 then
MsgBox(0, "错误", "当发送 UDP 消息时发生错误: " & @error)
Exit
EndIf
EndSelect
WEnd

Func Cleanup()
UDPCloseSocket($socket)
UDPShutdown()
EndFunc

-----------------------------------------------------------------------------------
用法：
先分别编译为exe程序。
服务器端先运行监听。
然后客户端运行，点击"发送信息"按钮后发指令给服务器端，要求显示信息。
服务器端收到后在自动弹出信息框，显示客户端要求显示的信息。

我是通过UDP实现的，在单机环境下测试通过（程序中用的是本机回环地址127.0.0.1，你需要改为你的服务器地址）。你还可以自己修改信息指令的内容。

追问

你会不会写用autoit脚本语言写一个数组里面的数可以执行定向安排的放入另一个数组中啊？

追答

如何定向安排呢？你先看看帮助中 _Array 开头的函数是否能满足你的要求。

追问

我问你的是另一个题，就是把一个数组里的叔放到另一个数组里的程序代码。就是简单的移动。重新排列，嘿嘿，谢谢。

追答

这个，我是问你如何重新排列，按什么排序？由大到小，由小到大？
你啥都不说我怎么做啊？

追问

就是用autoit把数据读到二维数组里，然后可以将里面的数据地址加一后存到另一个数组里面。谢谢大哥，我没有思路，不会写。

追答

看看是你要的不？

#include

Local $avArrayTarget[5][2] = [["JPM1", "JIM2"], ["Holger1", "Holger2"], ["Jon1", "Jon2"], ["Larry1", "Larry2"], ["Jeremy1", "Jeremy2"]]
Local $avArraySource[2] = ["xx", "oo"]

_ArrayDisplay($avArrayTarget, "$avArrayTarget 原 _ArrayConcatenate()")
$avArrayTarget = _Array2DInsertRow($avArrayTarget, 0, $avArraySource)
_ArrayDisplay($avArrayTarget, "$avArrayTarget 后 _ArrayConcatenate()")

;二维数组插入行
Func _Array2DInsertRow($avArray, $row, $aRow)
Local $avArray2[UBound($avArray, 1) + 1][UBound($avArray, 2)]
For $j = 0 To UBound($avArray, 2) - 1
For $i = 0 To $row - 1
$avArray2[$i][$j] = $avArray[$i][$j]
Next
If $j _Array2DInsertRow

追问

哥，比如说将“你好”这两个字检索读取出来然后放入数组中，在你给我的代码上怎么加啊？

追答

这个不需要二维数组吧，一维就够了。
用二维的话，就把上面代码里的：
Local $avArraySource[2] = ["xx", "oo"]
改为：
Local $avArraySource[2] = ["你", "好"]

另外，上面代码格式发出来后有点乱了，最后一行
EndFunc ;==>_Array2DInsertRow
要分行的