怎样用autoit写一个服务器来信息后弹出的自动提示窗口?
展开全部
服务器端:
#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,你需要改为你的服务器地址)。你还可以自己修改信息指令的内容。
#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 开头的函数是否能满足你的要求。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询