论坛 › 已解决问题区 › A 服务器 - B 客户机[已解决]

gfuchao 发表于 2012-3-11 05:26:46

A 服务器 - B 客户机[已解决]

本帖最后由 gfuchao 于 2012-3-12 02:34 编辑

环境 局域网
A 服务器
B 客户机

我在客户机上运行某软件或者用AU3写的,点击一下运行按扭(按扭功能：运行a.exe文件)

A 服务器就会就行运行本地文件 a.exe

请问这个有没有例子或相关资料。

ppsfxn 发表于 2012-3-11 09:36:01

psexec，最近刚好有看到，坛子里有

veket_linux 发表于 2012-3-11 14:32:35

利用UDPSend、UDPRecv
(单击环境实验成功，从帮助文件里的例子改过来的，局域网应该也可以.....)
server端代码#include <GUIConstantsEx.au3>

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
client端#include <GUIConstantsEx.au3>
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

menfan1 发表于 2012-3-12 09:03:22

用TCP协议更稳定点哈。。

查看完整版本: A 服务器 - B 客户机[已解决]