Pytanie

MrKris7100 · 9 Stycznia 2013

Witajcie. Widziałem na youtube bota do sapera w autoicie i na filmiku było widać jak skrypt 'dodaje'

2 nowe guziki w saperze jak takie coś zrobić? nie chodzi mi o GUI nowe tylko w działającej już aplikacji autoit dodał guziki

Phoenix_PL · 9 Stycznia 2013

Tego w AutoIT raczej nie zrobisz na obcym gui o_O

Ale jak już, to WinAPI.

MrKris7100 · 9 Stycznia 2013

nie wiem jak gość tak zrobił i musze wiedzieć jak!

Phoenix_PL · 9 Stycznia 2013

Poszukałem chwilę w helpie:

_GUICtrlButton_Create

Tak, to jest to. Musisz tylko wyciągnąć uchwyt do okna poprzez

WinGetHandle

Cała bajka, poczytaj o tych funkcjach w helpie

Sakines. · 9 Stycznia 2013

Kiedyś napisałem w autoit bota do sapera masz tutaj source:

$l = wingetpos("Saper")
WinActivate("Saper")
WinActive("Saper")
BlockInput(1)
controlsend("Saper","","","xyzzy" & "+{enter}")
for $z = 110 to 238 step +16
for $i = 20 to 148 step +16
mousemove($l[0]+$i,$l[1]+$z,0)
pixel()
Next
Next
BlockInput(0)
func pixel()
sleep(1)
PixelSearch(0,0,1,1,0xFFFFFF)
if not @error Then
MouseClick("left")
EndIf
EndFunc

Licze na like

jackraymund · 9 Stycznia 2013

robisz gui, button, ustawiasz gui na niewidoczne, i wtedy w pętli, if winactive, pobierasz kordy sapera i rozdzialke, wtedy winmove, a jak if winactive = 0 to minimalizuj

najprostszy sposób wg mnie

MrKris7100 · 10 Stycznia 2013

Dobra dzięki wszystkim macie wszyscy like

No dobra niby działa ale muszę wpisywać tytuł okna nie da sie np nazwy procesu? bo Class: próbowałem i dupa a takto git przykłaowo dodałem button do mozilli::

#include <GuiButton.au3>
Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
_GUICtrlButton_Create($handle,"Google",800,150,100,200)
While 1
   WEnd

No ale tytuł musiałem da sie innaczej??

Phoenix_PL · 10 Stycznia 2013

Hmm...

Sprawdzałem, ale chyba się nie da :/

Poczytaj w helpie o tej funkcji, pogogluj.

MrKris7100 · 10 Stycznia 2013

To jeszcze inna sprawa jak odebrać sygnał od guzika?? GUIGetMsg() nie działa

10 Stycznia 2013

Opt("GUIOnEventMode",1)
GUICtrlSetOnEvent($button,"funkcja")
func funkcja()
MsgBox(0,"pointa", "no i widzisz jakie to ***** proste")
endfunc

wefhy · 10 Stycznia 2013

Oczywiście, że możesz zamiast nazwy okna dawać nazwę procesu - wystarczy WinList i WinGetProcess w pętli for(winlist zwróci listę okien, a wingetprocess sprawdzi po kolei wszystkie okna)

MrKris7100 · 10 Stycznia 2013

@up nie do końca rozumiem możesz wyjaśnić dokładnie

Opt("GUIOnEventMode",1)
GUICtrlSetOnEvent($button,"funkcja")
func funkcja()
MsgBox(0,"pointa", "no i widzisz jakie to ***** proste")
endfunc

Nie działa ...

@edit

Zrobiłem takie coś:

#include <GuiButton.au3>
Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
$google = _GUICtrlButton_Create($handle,"Google",800,150,100,200)
While 1
   Sleep(1000)
$x = _GUICtrlButton_GetState($google)
If $x = True Then
   ToolTip("jolmadafacka",0,0)
   Sleep(2000)
   ToolTip("",0,0)
EndIf
WEnd

No i prawie działa z tym że jolmadafacka wyświetla się po najechaniu na przycisk a ja chce żeby wyskoczyło po przyciśnięciu

10 Stycznia 2013

@up nie do końca rozumiem możesz wyjaśnić dokładnie

Nie działa ...

@edit

Zrobiłem takie coś:
#include <GuiButton.au3>
Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
$google = _GUICtrlButton_Create($handle,"Google",800,150,100,200)
While 1
Sleep(1000)
$x = _GUICtrlButton_GetState($google)
If $x = True Then
ToolTip("jolmadafacka",0,0)
Sleep(2000)
ToolTip("",0,0)
EndIf
WEnd
No i prawie działa z tym że jolmadafacka wyświetla się po najechaniu na przycisk a ja chce żeby wyskoczyło po przyciśnięciu

Oczywiście że nie działa. dałem ci kawałek kodu - resztę musisz zrobić sam(gui, przycisk, petla nieskonczona aby sie nie wylaczało).

Opt("GUIOnEventMode",1)
GUICtrlSetOnEvent($button,"funkcja")
func funkcja()
MsgBox(0,"pointa", "no i widzisz jakie to ***** proste")
endfunc

Opt("GUIOnEventMode",1)
$gui = GUICreate("gui")
$button = GUICtrlCreateButton("but",5,5)
GUICtrlSetOnEvent($button,"funkcja")
GUISetState(@SW_SHOW,$gui)
func funkcja()
MsgBox(0,"pointa", "no i widzisz jakie to ***** proste")
endfunc
while 1
Sleep(1000)
wend

MrKris7100 · 10 Stycznia 2013

To jest inteligencie robienie guzika na działającym programie naucz się czytać ... w tym przypadku mozilli

@PS Może tak będzie komuś łatwiej:

I chcę takie guzki jak on dodał do sapera mam już guzik tylko nie mogę odczytać informacji ze go kliknąłem

wefhy · 10 Stycznia 2013

@up nie do końca rozumiem możesz wyjaśnić dokładnie

$process="SciTE.exe"
$window=""
$list=WinList()
For $licz=1 To $list[0][0]
If WinGetProcess($list[$licz][1])=$process Then
$window=$list[$licz][1]
ExitLoop
EndIf
Next
WinSetState($window, "", @SW_MINIMIZE)

MrKris7100 · 10 Stycznia 2013

Dzięki właśnie przeczytałem to samo na autoit.zaa.pl taki sam post też twój :P masz like ale co z buttonem?

RobeM · 10 Stycznia 2013

masz oryginał z filmu i myśl

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#NoTrayIcon

If WinExists('Defuse') Then Exit

; Ur language version of game name

$WindowName = 'Minesweeper'

;minesweeper in ENG

$aq = 0

While 1

If WinExists($WindowName) Then

Else

GUICreate('Defuse', 150, 45)

GUICtrlCreateLabel('Start Saper to begin!', 10, 0, 135, 15)

GUICtrlCreateLabel('Created by: Sean Buckley', 10, 15, 135, 15)

GUICtrlCreateLabel('Email: [email protected]', 10, 30, 135, 15)

GUISetState()

EndIf

Do

$m = GUIGetMsg()

If $m = -3 Then Exit

Until WinExists($WindowName)

GUIDelete()

GUICreate('Defuse', 77, 17, -100, -100, $WS_POPUP, $WS_EX_TOPMOST)

$exit = GUICtrlCreateButton('Exit', -1, -1, 30, 19)

$gob = GUICtrlCreateButton('Defuse', 38, -1, 40, 19)

GUISetState()

WinActivate($WindowName)

While WinExists($WindowName)

$m = GUIGetMsg()

If $m = -3 Or $m = $exit Then Exit

If $m = $gob Then first()

If WinActive($WindowName) Or WinActive('Defuse') Then

$i = WinGetPos($WindowName)

If IsArray($i) Then WinMove('Defuse', '', $i[0] + 80, $i[1] + 30)

Else

WinMove('Defuse', '', -100, -100)

EndIf

$dimention = WinGetClientSize($WindowName)

If IsArray($dimention) Then

If $dimention[0] = 500 Then

$hibox = 16

$widebox = 30

EndIf

If $dimention[0] = 276 Then

$hibox = 16

$widebox = 16

EndIf

If $dimention[0] = 164 Then

$hibox = 9

$widebox = 9

EndIf

WEnd

GUIDelete()

WEnd

Func first()

$qw = 0

WinActivate($WindowName)

$dimention = WinGetClientSize($WindowName)

If $dimention[1] = 319 Then

If $dimention[0] = 500 Then $qw = 1

If $dimention[0] = 276 Then $qw = 1

EndIf

If $dimention[1] = 207 Then

If $dimention[0] = 164 Then $qw = 1

EndIf

If $qw = 1 Then

second()

Else

MsgBox(0, 'Error', 'Unrecognized window.' & @CRLF & 'Defuse works only with the three standard levels.' & @CRLF & 'This error can also be caused by a title bar width other than 25.')

EndIf

EndFunc ;==>first

Func second()

BlockInput(1)

$dimention = WinGetClientSize($WindowName)

WinActivate($WindowName)

Send('xyzzy')

Send('+{enter}')

$qqpos = WinGetPos($WindowName)

MouseMove($qqpos[0] + 20, $qqpos[1] + 110, 0)

$pos = MouseGetPos()

MouseMove($pos[0] - 16, $pos[1], 0)

$hi = 0

$ii = 0

Do

$wide = 0

$hi = $hi + 1

Do

$wide = $wide + 1

d()

If WinActive($WindowName) Then

Else

$ii = 1

EndIf

Until $wide = $widebox Or $ii

$pos = MouseGetPos()

MouseMove($pos[0] - 16 * $widebox, $pos[1] + 16, 0)

Until $hi = $hibox Or $ii

WinActivate($WindowName)

Send('xyzzy')

Send('+{enter}')

SplashTextOn('', '', 1, 1, 0, 0, 1)

SplashOff()

BlockInput(0)

EndFunc ;==>second

Func d()

$pos = MouseGetPos()

MouseMove($pos[0] + 16, $pos[1], 0)

Sleep(1)

main()

EndFunc ;==>d

Func main()

$color = PixelSearch(0, 0, 1, 1, 0xFFFFFF)

If $color = 1 Then

Else

MouseClick('main')

EndIf

EndFunc ;==>main

Func done()

Exit

EndFunc ;==>done

wefhy · 10 Stycznia 2013

Sądząc po nazwie chyba funkcja _GUICtrlButton_GetState() powinna zwrócić wciśniętość buttona

jackraymund · 10 Stycznia 2013

zamiast zrobić tak jak napisałem to woleliście zrobić trudniejszym sposobem, po co?...

GUICreate('Defuse', 77, 17, -100, -100, $WS_POPUP, $WS_EX_TOPMOST)

przeczytaj moj post wyżej, z kodu, tak gui ma wygladac, a tak petla do przenoszenia gui

If WinActive($WindowName) Or WinActive('Defuse') Then
		$i = WinGetPos($WindowName)
		If IsArray($i) Then WinMove('Defuse', '', $i[0] + 80, $i[1] + 30)
	Else
		WinMove('Defuse', '', -100, -100)
	EndIf

Phoenix_PL · 11 Stycznia 2013

Ale po co się męczyć (i żreć zasoby komputera) jak możesz po prostu zrobić buttona na GUI programu i podpiąć przez OnEventMode ,_,?

jackraymund · 11 Stycznia 2013

o boshe, to wystarczylo helpa otworzyć z funkcją tworzącą buttona i zobaczyć iż gui(nie gui programu, no chyba że wiesz jak się podpiąć, lecz jest problem z kliknięciem, to samo zwraca jak ma się myszke na guziku i to samo jak się klika czasami 512 albo 520) jest potrzebne aby guiregistermsg działało -.-

potem wejść do guicreate w poszukiwaniu nadziei, którą jest ostatnia flaga

styl na przezroczyste gui podał robem

a mówiąc help mam na myśli http://www.autoitscr...docs/functions/ i http://www.autoitscr...s/libfunctions/ nie f1, bo tam się długo szuka odpowiedzi

#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")

$gui = GUICreate("", 70, 40, 400, 20,$WS_POPUP, -1, $handle)
$google = _GUICtrlButton_Create($gui,"Google",1,1,70,40)
guisetstate(@sw_show)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
Sleep(100)
WEnd

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
#forceref $hWnd, $Msg
Local $nNotifyCode = BitShift($wParam, 16)
Local $nID = BitAND($wParam, 0x0000FFFF)
Local $hCtrl = $lParam
Local $sText = ""
Switch $hCtrl
Case $google
if $nNotifyCode = $BN_CLICKED then msgbox(0,"","")
Return 0 ; Only workout clicking on the button
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

MrKris7100 · 11 Stycznia 2013

masz oryginał z filmu i myśl

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#NoTrayIcon

If WinExists('Defuse') Then Exit

; Ur language version of game name

$WindowName = 'Minesweeper'

;minesweeper in ENG

$aq = 0

While 1

If WinExists($WindowName) Then

Else

GUICreate('Defuse', 150, 45)

GUICtrlCreateLabel('Start Saper to begin!', 10, 0, 135, 15)

GUICtrlCreateLabel('Created by: Sean Buckley', 10, 15, 135, 15)

GUICtrlCreateLabel('Email: [email protected]', 10, 30, 135, 15)

GUISetState()

EndIf

Do

$m = GUIGetMsg()

If $m = -3 Then Exit

Until WinExists($WindowName)

GUIDelete()

GUICreate('Defuse', 77, 17, -100, -100, $WS_POPUP, $WS_EX_TOPMOST)

$exit = GUICtrlCreateButton('Exit', -1, -1, 30, 19)

$gob = GUICtrlCreateButton('Defuse', 38, -1, 40, 19)

GUISetState()

WinActivate($WindowName)

While WinExists($WindowName)

$m = GUIGetMsg()

If $m = -3 Or $m = $exit Then Exit

If $m = $gob Then first()

If WinActive($WindowName) Or WinActive('Defuse') Then

$i = WinGetPos($WindowName)

If IsArray($i) Then WinMove('Defuse', '', $i[0] + 80, $i[1] + 30)

Else

WinMove('Defuse', '', -100, -100)

EndIf

$dimention = WinGetClientSize($WindowName)

If IsArray($dimention) Then

If $dimention[0] = 500 Then

$hibox = 16

$widebox = 30

EndIf

If $dimention[0] = 276 Then

$hibox = 16

$widebox = 16

EndIf

If $dimention[0] = 164 Then

$hibox = 9

$widebox = 9

EndIf

EndIf

WEnd

GUIDelete()

WEnd

Func first()

$qw = 0

WinActivate($WindowName)

$dimention = WinGetClientSize($WindowName)

If $dimention[1] = 319 Then

If $dimention[0] = 500 Then $qw = 1

If $dimention[0] = 276 Then $qw = 1

EndIf

If $dimention[1] = 207 Then

If $dimention[0] = 164 Then $qw = 1

EndIf

If $qw = 1 Then

second()

Else

MsgBox(0, 'Error', 'Unrecognized window.' & @CRLF & 'Defuse works only with the three standard levels.' & @CRLF & 'This error can also be caused by a title bar width other than 25.')

EndIf

EndFunc ;==>first

Func second()

BlockInput(1)

$dimention = WinGetClientSize($WindowName)

WinActivate($WindowName)

Send('xyzzy')

Send('+{enter}')

$qqpos = WinGetPos($WindowName)

MouseMove($qqpos[0] + 20, $qqpos[1] + 110, 0)

$pos = MouseGetPos()

MouseMove($pos[0] - 16, $pos[1], 0)

$hi = 0

$ii = 0

Do

$wide = 0

$hi = $hi + 1

Do

$wide = $wide + 1

d()

If WinActive($WindowName) Then

Else

$ii = 1

EndIf

Until $wide = $widebox Or $ii

$pos = MouseGetPos()

MouseMove($pos[0] - 16 * $widebox, $pos[1] + 16, 0)

Until $hi = $hibox Or $ii

WinActivate($WindowName)

Send('xyzzy')

Send('+{enter}')

SplashTextOn('', '', 1, 1, 0, 0, 1)

SplashOff()

BlockInput(0)

EndFunc ;==>second

Func d()

$pos = MouseGetPos()

MouseMove($pos[0] + 16, $pos[1], 0)

Sleep(1)

main()

EndFunc ;==>d

Func main()

$color = PixelSearch(0, 0, 1, 1, 0xFFFFFF)

If $color = 1 Then

Else

MouseClick('main')

EndIf

EndFunc ;==>main

Func done()

Exit

EndFunc ;==>done

Dzięki to chyba kod programu z fimu ja nie mogłem pobrać wyskakiwało 404 not found

jackraymund · 11 Stycznia 2013

kodem z yt, nie przysłonisz buttona innym okienkiem, nie musisz używać minimalizowania, ukrywania, tylko przenoszenie guzika względem rozdzielczości programu

http://scr.hu/0rby/pa4k8

@edit

gdybyś chciał mieć przesuwanie, i guzik w tym miejscu, bez względu na rozmiar okna, to tak

http://scr.hu/0rby/vf4cr

#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
$gui = GUICreate("xdsbot", 70, 40, 1280, 20,$WS_POPUP, -1, $handle)
$google = _GUICtrlButton_Create($gui,"Google",1,1,70,40)
guisetstate(@sw_show)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
sleep(10)
$size = 0
$size = WinGetClientSize("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
if not ($size[0] =0) and not ($size[1] = 0) Then
$size1 = wingetpos("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
winmove("xdsbot","",$size1[0]+$size[0]-70,$size1[1] +25)
EndIf
WEnd

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
   #forceref $hWnd, $Msg
   Local $nNotifyCode = BitShift($wParam, 16)
   Local $nID = BitAND($wParam, 0x0000FFFF)
   Local $hCtrl = $lParam
   Local $sText = ""
   Switch $hCtrl
       Case $google
           if $nNotifyCode = $BN_CLICKED then   msgbox(0,"","")
           Return 0
   EndSwitch
   Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

MrKris7100 · 11 Stycznia 2013

Dobra dajmy se spokój z tworzeniem nowego gui chce moim sposobem czyli:

Local $handle = WinGetHandle("Pytanie - AutoIT - MPCforum - Cheaty, Boty, Bugi, Hacki do gier online - Mozilla Firefox")
$google = _GUICtrlButton_Create($handle,"Google",800,150,100,200)

I chce tylko z tego odczytać kliknięcie

_GUICtrlButton_Create podczepia się pod inne okno i nie musze kombinować

@Edit

Ewentualnie gui które jest całe przezroczyste i są na nim tylko button

@

Dobra mam takie coś:

GUISetBkColor(0xffffff)

Ale czy jest kod na kolor przezroczysty?

jackraymund · 11 Stycznia 2013

ja pierdole, czemu nadal nie czytasz postów, napisałem że gui jest przezroczyste dzięki fladze $ws_popup

$gui = GUICreate("xdsbot", 70, 40, 1280, 20,$WS_POPUP, -1, $handle)

nie chciało ci się nawet ctrl+c,v i uruchomić?

proszę cię zacznij czytać całe wypowiedzi, bo zaczyna się to robić wkurwiającei i niepotrzebnie zastanawiasz się nad problemami które już są rozwiązane

Zaloguj się

👋 Witaj na MPCForum!

Pytanie

Rekomendowane odpowiedzi

Gość

Gość

Gość

Gość

Zarchiwizowany