probleme mit MouseClickPlus

07/25/2010 22:19 bladerofdarknes#1
hallo com, ich suche hilfe bei meinem script (hier ein ausschnitt) die stelle soll einfach ein paar koords anklicken

PHP Code:
#RequireAdmin
#include <MouseClickPlus.au3>

Opt("MouseClickDelay"1)
Opt("MouseCoordMode"0)


MsgBox("info""info""zum beenden F1 drücken!")
HotKeySet("{F1}""ende")
WinWaitActive("METIN2")

While 
1
ToolTip
("it works!""""")
sleep(10)
_MouseClickPlus("METIN2""left"7355721)
sleep(10)
_MouseClickPlus("METIN2""left"6705341)
sleep(10)
_MouseClickPlus("METIN2""left"4013621)
sleep(10)
_MouseClickPlus("METIN2""left"3613491)
WEnd

Func ende
()
    Exit
EndFunc 

hier der inhalte der MouseClickPlus:

PHP Code:
;===============================================================================
  ;
  ; Function 
Name:  _MouseClickPlus()
  ; 
Version added:  0.1
  
Description:    Sends a click to windownot entirely accuratebut works
  
;                 minimized.
  ; 
Parameter(s):   $Window     =  Title of the window to send click to
  
;                 $Button     =  "left" or "right" mouse button
  
;                 $X          =  X coordinate
  
;                 $Y          =  Y coordinate
  
;                 $Clicks     =  Number of clicks to send
  
Remarks:        You MUST be in "MouseCoordMode" 0 to use this without bugs.
  ; 
Author(s):      Insolence <insolence_9@yahoo.com>
  ;
  ;===============================================================================
 
Func _MouseClickPlus($Window$Button "left"$X ""$Y ""$Clicks 1)
    
Local $MK_LBUTTON       =  0x0001
    Local $WM_LBUTTONDOWN   
=  0x0201
    Local $WM_LBUTTONUP     
=  0x0202

    Local $MK_RBUTTON       
=  0x0002
    Local $WM_RBUTTONDOWN   
=  0x0204
    Local $WM_RBUTTONUP     
=  0x0205

    Local $WM_MOUSEMOVE     
=  0x0200

    Local $i                
0

    Select
    
Case $Button "left"
       
$Button     =  $MK_LBUTTON
       $ButtonDown 
=  $WM_LBUTTONDOWN
       $ButtonUp   
=  $WM_LBUTTONUP
    
Case $Button "right"
       
$Button     =  $MK_RBUTTON
       $ButtonDown 
=  $WM_RBUTTONDOWN
       $ButtonUp   
=  $WM_RBUTTONUP
    EndSelect

    
If $X "" OR $Y "" Then
       $MouseCoord 
MouseGetPos()
       
$X $MouseCoord[0]
       
$Y $MouseCoord[1]
    EndIf

    For 
$i 1 to $Clicks
       DllCall
("user32.dll""int""SendMessage"_
          
"hwnd",  WinGetHandle$Window ), _
          
"int",   $WM_MOUSEMOVE_
          
"int",   0_
          
"long",  _MakeLong($X$Y))

       
DllCall("user32.dll""int""SendMessage"_
          
"hwnd",  WinGetHandle$Window ), _
          
"int",   $ButtonDown_
          
"int",   $Button_
          
"long",  _MakeLong($X$Y))

       
DllCall("user32.dll""int""SendMessage"_
          
"hwnd",  WinGetHandle$Window ), _
          
"int",   $ButtonUp_
          
"int",   $Button_
          
"long",  _MakeLong($X$Y))
    
Next
 EndFunc




 Func _MakeLong
($LoWord,$HiWord)
    Return 
BitOR($HiWord 0x10000BitAND($LoWord0xFFFF))
 
EndFunc 
07/26/2010 13:02 HardCore.1337#2
METIN2 ist glaube nicht der Titel der Anwendung.
Der Titel heißt anderes, ich weiß aber nicht genau wie.
07/26/2010 13:06 bladerofdarknes#3
hab wo gelesen das es den gleichen effekt haben soll wie controlclick, also kann es ja bei metin2 nicht gehen oder?
wollte das schon mit meinen dürftigen C# kentnissen machen aber das endet nicht gut ;D
07/26/2010 13:24 HOLYsw#4
:)
Ps= das war nur müll was ich geschrieben hab
07/26/2010 13:27 bladerofdarknes#5
jojo egal, ich habe gerade etwas zeit und hatte mir wegen hardcore.1337 ja schon einmal delphi angeschaut und war eigentlich relativ fasziniert von den möglichkeiten, probiere es gerade damit zu machen :)
07/26/2010 14:59 HardCore.1337#6
[Only registered and activated users can see links. Click Here To Register...]
07/26/2010 15:17 bladerofdarknes#7
ahh danke, viele dank =)
könntest du mich eventuell später für so 20 min supporten? ich habe irgendwie immer das selbe problem mit (lazerus) delphi..
wäre super ;)