• Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

AutoIT Remote Mouse Control

Status
Not open for further replies.

rayane888

LvL-23
User
Joined
Dec 5, 2011
Messages
131
Reputation
0
Reaction score
735
Points
93
Credits
0
‎13 Years of Service‎
44%
Code:
>#include 
#include 
#include 


;///////////////////////////
;///
;///   Remote Mouse Control
;///
;///   By: Mr.888
;///
;///  level23hacktools.com
;///
;///////////////////////////



   $Fo = GUICreate("Desktop By Mr.888 Level-23", 498, 354, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$sii = GUICtrlCreatePic("", 0, 0, 497, 297)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM + $GUI_DOCKHCENTER + $GUI_DOCKVCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)


   GUISetState(@SW_SHOW)

    Local $a

   _ScreenCapture_Capture(@scriptdir&"/Desk.jpg")


Local $sff
Local $sse

   While 1
       Switch GUIGetMsg()
           Case $GUI_EVENT_CLOSE
               ExitLoop
		Case $sii

Local $a = GUIGetCursorInfo($Fo)

MouseClick("Left", $a[0]*$sff,  $a[1]*$sse ,"1")

		Case $GUI_EVENT_SECONDARYUP

			Local $a = GUIGetCursorInfo($Fo)

			If $a[4] = $sii Then

MouseClick("Right", $a[0]*$sff,  $a[1]*$sse ,"1")

 EndIf

       EndSwitch
	Local $ssez=WinGetClientSize("Desktop By Mr.888 Level-23")
	$ssez[1]=$ssez[1] -57

	 $sse=@DesktopHeight /$ssez[1]
 $sff=@DesktopWidth /$ssez[0]



	GUICtrlSetImage($sii,@ScriptDir&"/desk.jpg")






   WEnd
a Test about how to control Mouse in Remote Desktop in Autoit

 
Status
Not open for further replies.
Back
Top