想用autoit语句写一个软件,想金山卫士似的,客户端接收服务器的指令后弹出窗口进行提示?

 我来答
百度网友5311d79
2012-09-06 · TA获得超过1.9万个赞
知道大有可为答主
回答量:6356
采纳率:71%
帮助的人:3198万
展开全部
客户端接收服务器的指令
啥指令,请具体描述要求。
追问
信息指令。
追答
服务器端:
#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。

你可以自己修改指令内容和服务器端的响应方式。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式