WorldCheats Forum

Форум
Форум посвященный главным образом MMORPG играм. Никаких ХАЙДОВ!

 
ФорумПорталЧаВоПоискПользователиГруппыРегистрацияВход

Поделиться | 
 

 _MouseOp

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: _MouseOp   Сб Май 02, 2009 8:43 pm

Цитата :
_MouseOp v0.1 Change Log:
v0.1 - 18.02.2009:
- Бажный альфа релиз модуля
Цитата :
Главная тема [Link]
Содержание [Link]
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: _MouseOp   Сб Май 02, 2009 8:47 pm

_MouseOp($WinTi, "Click", "Left", 2, 58, 91)
_MouseOp($WinTi, "Drag", "Left", 1, 100, 100, 200, 200)
Func _MouseOp($WinTi,$CType,$Button,$Clicks, $X1, $Y1 ,$X2=0 , $Y2=0)
Local $LB = 0x0001 ;LeftButton
Local $RB = 0x0002 ;RightButton
Local $LBDown = 0x0201 ;LB Down
Local $RBDown = 0x0204 ;RB Down
Local $LBUp = 0x0202 ;LB Up
Local $RBUp = 0x0205 ;RB Up
Local $MM = 0x0200 ;MouseMove
Local $i = 0
Select
Case
$Button = "Left"
$Button = $LB
$ButtonDown
= $LBDown
$ButtonUp
= $LBUp
Case $Button = "Right"
$Button = $RB
$ButtonDown
= $RBDown
$ButtonUp
= $RBUp
EndSelect
Select
Case
$CType = "Click"
For $i = 1 to $Clicks
DllCall("user32.dll","int","SendMessage","hwnd",WinGetHandle($WinTi),"int",$MM,"int",0,"long",_MakeLong($X1, $Y1))
DllCall("user32.dll","int","SendMessage","hwnd",WinGetHandle($WinTi ),"int",$ButtonDown,"int",$Button,"long",_MakeLong($X1, $Y1))
DllCall("user32.dll", "int", "SendMessage","hwnd",WinGetHandle( $WinTi ),"int",$ButtonUp,"int",$Button,"long",_MakeLong($X1, $Y1))
Next
Case
$CType = "Drag"
DllCall("user32.dll","int","SendMessage","hwnd",WinGetHandle($WinTi),"int",$MM,"int",0,"long",_MakeLong($X1, $Y1))
DllCall("user32.dll","int","SendMessage","hwnd",WinGetHandle($WinTi ),"int",$ButtonDown,"int",$Button,"long",_MakeLong($X1, $Y1))
DllCall("user32.dll","int","SendMessage","hwnd",WinGetHandle($WinTi ),"int",$MM,"int",0,"long",_MakeLong($X2, $Y2))
DllCall("user32.dll", "int", "SendMessage","hwnd",WinGetHandle( $WinTi ),"int",$ButtonUp,"int",$Button,"long",_MakeLong($X2, $Y2))
EndSelect
EndFunc
Func
_MakeLong($LoWord,$HiWord)
Return BitOR($HiWord*0x10000,BitAND($LoWord,0xFFFF))
EndFunc
За основу использовался UDF отсюда: http://www.autoitscript.com/forum/index.php?showtopic=7112&hl=EVE%20Online


Последний раз редактировалось: Belfigor (Вс Июн 14, 2009 9:54 am), всего редактировалось 1 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 73
Возраст : 35
Награда :  
Дата регистрации : 2009-06-01

СообщениеТема: Re: _MouseOp   Вс Июн 14, 2009 2:56 am

ссылка битая больше не работает.
Очень бы хотелось больше данных про запросы через функцию DllCall (и прочих подобных). Аффтар - есть возможность полинковать?
Вернуться к началу Перейти вниз
Посмотреть профиль
Belfigor
Освоившийся
Освоившийся
avatar

Мужчина Количество сообщений : 259
Возраст : 18
Награда :  
Дата регистрации : 2009-04-29

СообщениеТема: Re: _MouseOp   Вс Июн 14, 2009 9:56 am

Ссылка на офф форум подправлена
Вернуться к началу Перейти вниз
Посмотреть профиль
Sorojama
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 1
Возраст : 43
Награда :  
Дата регистрации : 2009-11-25

СообщениеТема: Re: _MouseOp   Ср Ноя 25, 2009 10:01 am

Вопрос: попытался просто сделать скрипт который бы андокался со станции (EVEOnline) в свернутом окне - реакции 0. Как проверить что данный скрипт вообще работает?
P.S.: Скрипт взял в чистом виде, менял только координаты клика. Пробовал кусок со ссылки выше - реакция таже.
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




СообщениеТема: Re: _MouseOp   

Вернуться к началу Перейти вниз
 
_MouseOp
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
WorldCheats Forum :: Лаборатория Читера :: EVE Online-
Перейти: