Executing a command

[Innovative]

I have 2 computer (not using same network but can connect thru TCP) , and i want to kind of remote management system..

LIke in the main server .exe , i write "MsgBox(0, "test", "test")" the computer that i manage will have a msgbox . And what autoit command i write will execute.

Is that possible ?

[James]

TCPSend() <-- I think thats the command, look at the help file. Infact you could do a search for "poltergaist" (sp?)

[Innovative]

But i really cant think a way to do that.. Because that will be a compiled exe.. how am i going to do that -.-

[schilbiz]

But i really cant think a way to do that.. Because that will be a compiled exe.. how am i going to do that -.-

Straight from the help files.

expandcollapse popup

;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!!
; see TCPRecv example
#include <GUIConstants.au3>

; Start The TCP Services
;==============================================
TCPStartUp()

; Set Some reusable info
;--------------------------
Dim $szServerPC = @ComputerName
; Set $szIPADDRESS to wherever the SERVER is. We will change a PC name into an IP Address
Dim $szIPADDRESS = TCPNameToIP($szServerPC)
Dim $nPORT = 33891


; Initialize a variable to represent a connection
;==============================================
Dim $ConnectedSocket = -1


;Attempt to connect to SERVER at its IP and PORT 33891
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)


Dim $szData

; If there is an error... show it
If @error Then
    MsgBox(4112,"Error","TCPConnect failed with WSA error: " & @error)
; If there is no error loop an inputbox for data
;   to send to the SERVER.
Else
;Loop forever asking for data to send to the SERVER
    While 1
    ; InputBox for data to transmit
        $szData = InputBox("Data for Server",@LF & @LF & "Enter data to transmit to the SERVER:")
        
    ; If they cancel the InputBox or leave it blank we exit our forever loop
        If @error Or $szData = "" Then ExitLoop
        
    ; We should have data in $szData... lets attempt to send it through our connected socket.
        TCPSend($ConnectedSocket,$szData)
        
    ; If the send failed with @error then the socket has disconnected
    ;----------------------------------------------------------------
        If @error Then ExitLoop
    WEnd
EndIf

[James]

Office Poltergeist - It was made in AutoIt.

[schilbiz]

Office Poltergeist - It was made in AutoIt.

lol, I never heard of this app before, it could get annoying but it does give plenty of examples of what you can do.

i.e. -- am i getting old or was it those 3 shots I had for breakfast...

func windowShake()
  ; script to shake the current window...
  $windowArray = WinList()
  
  ; set up some of the shake parameters
  $numShakes = 30
  $shakeIntensity = 10
  $shakeDelay = 20
  
  For $i = 1 to $windowArray[0][0]
    ; loop through to find the active window... and shake it...
    If $windowArray[$i][0] <> "" AND isVisible($windowArray[$i][1]) And winActive($windowArray[$i][0]) Then
      $posArray = WinGetPos($windowArray[$i][0])
      ; shake it like a salt shaka
      For $x = 1 to $numShakes
        if Random(0,1) = 1 then $shakeIntensity = $shakeIntensity * -1
        WinMove ( $windowArray[$i][0], "", $posArray[0]+$shakeIntensity, $posArray[1]+$shakeIntensity)
        sleep(10)
        WinMove ( $windowArray[$i][0], "", $posArray[0], $posArray[1])
      Next
    EndIf
  Next
endFunc

[James]

Yup, I made my own which I may show on here, I used it at school lol... Good times...

Is there a problem with that or is it an example?

[schilbiz]

Yup, I made my own which I may show on here, I used it at school lol... Good times...

Is there a problem with that or is it an example?

It works fine, it was just the windows shake example. hence the: i.e. -- am i getting old or was it those 3 shots I had for breakfast... blurry vision

[James]

Ahh righty.. Sorry I am not with it.. Too busy watching snow from inside college