想用autoit语句写一个软件,想金山卫士似的,客户端接收服务器的指令后弹出窗口进行提示?
1个回答
展开全部
客户端接收服务器的指令
啥指令,请具体描述要求。
啥指令,请具体描述要求。
追问
信息指令。
追答
服务器端:
#include
Opt('MustDeclareVars', 1)
Local $msg ,$data
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
Run($data)
EndIf
WEnd
Func Cleanup()
UDPCloseSocket($socket)
UDPShutdown()
EndFunc
-----------------------------------------------------------------------------------
客户端:
#include
Opt('MustDeclareVars', 1)
Local $Button_2, $msg
GUICreate("My GUI Button")
Opt("GUICoordMode", 2)
Local $Button_2 = GUICtrlCreateButton("Button Test", 0, -1)
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, "C:\WINDOWS\notepad.exe")
If $status = 0 then
MsgBox(0, "错误", "当发送 UDP 消息时发生错误: " & @error)
Exit
EndIf
EndSelect
WEnd
-----------------------------------------------------------------------------------
是通过UDP实现的。我是单机环境下测试的,所以用的是回环地址127.0.0.1。
用法:
服务器端先运行监听。
客户端运行,点击"Button Test"按钮后发指令给服务器端,要求打开notepad。
服务器端收到后在本地打开notepad。
你可以自己修改指令内容和服务器端的响应方式。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询