Skocz do zawartości

boleksit

Members
  • Postów

    4
  • Rejestracja

  • Ostatnia wizyta

Osiągnięcia boleksit

  1. Hej! Znalazłem stronę na której można uzyskać informacje jak dostać się do zamkniętej bety nowego dodatku Warlords of Draenor. Co o tym myślicie? Fake? Czy może zadziałać? http://wod.games-mansion.com
  2. Ok, już działa, ale tylko jeśli wyrzucę cały interfejs graficzny...
  3. Witam. Piszę program, który wyszukuje po kolei kilka obrazkow. Problem w tym, że nie działają funkcje _ImageSearch. Czemu tak się dzieje? Oto kod: #include <ImageSearch.au3> #include <GUIConstantsEx.au3> Opt("GUIOnEventMode", 1) Global $wybor, $wyb, $kat GuiCreate("Wybór", 400, 130) GUICtrlCreateLabel ("Wybierz kategorię ", 10, 10) $kat=GUICtrlCreateCombo ("Electronics", 100, 10, 150, 10) GUICtrlSetData(-1, "Brands We Love") GUICtrlCreateLabel ("Wyierz nagrodę ", 10, 33) $btn1 = GUICtrlCreateButton("Potwierdz", 260, 17, 80, 20) GUICtrlSetOnEvent($btn1, "Wybor") func Wybor () GUICtrlDelete($wyb) if GuiCtrlRead($kat)="Electronics" Then $wyb=GUICtrlCreateCombo("iPod Touch 8gb", 100, 33, 150, 10) GUICtrlSetData(-1, "iPod touch 16gb|iPod Touch 32gb", "iPod Touch 8gb") else $wyb=GUICtrlCreateCombo("PayPal $1000", 100, 33, 150, 10) GUICtrlSetData(-1, "item2|item3", "PayPal $1000") endif EndFunc $autofill=GUICtrlCreateLabel ("Podaj pełną sciezke pliku autofill.exe", 10, 59) GUICtrlCreateInput ("", 210, 56, 180) $rchecker=GUICtrlCreateLabel ("Podaj pełną sciezke pliku RChecker.exe", 10, 83) GUICtrlCreateInput ("", 210, 79, 180) $btn = GUICtrlCreateButton("OK", 150, 105, 80, 20) GUICtrlSetOnEvent($btn, "Wyjscie") GUISetOnEvent($GUI_EVENT_CLOSE, "Wyjscie") GUISetState(@SW_SHOW) While GuiGetMsg()<>$GUI_EVENT_CLOSE WEnd Func Wyjscie() msgbox(0, "Wybor","Wybrales: "&GUICtrlRead($wyb)&@CRLF& "Z kategorii: "&GuiCtrlRead($kat)) GuiDelete () EndFunc do $x=1440 $y=900 $result = _ImageSearch("welcome.bmp", 1, $x, $y, 10) If $result = 1 Then MouseClick( "left", 316, 29) ExitLoop EndIf until $result=1 do $x = 1440 $y = 900 $result = _ImageSearch(GuiCtrlRead($kat)&".bmp", 1, $x, $y, 10) If $result = 1 Then MouseClick( "left", $x, $y) EndIf until $result=1 do $x = 1440 $y = 900 $result = _ImageSearch(GuiCtrlRead($wyb)&".bmp", 1, $x, $y, 10) sleep (500) If $result = 1 Then MouseClick( "left", $x, $y) Else For $i=0 To 47 Step +1 send ("{DOWN}") Next EndIf until $result=1 Do $x = 1440 $y = 900 $result = _ImageSearch("redeem.bmp", 1, $x, $y, 10) If $result = 1 Then MouseClick( "left", $x, $y) ExitLoop EndIf until $result=1 do $x = 1440 $y = 900 $result = _ImageSearch("redeem.bmp", 1, $x, $y, 10) If $result = 1 Then Send ("{F6}") ExitLoop EndIf until $result=1
×
×
  • Dodaj nową pozycję...