Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Prosta CAPTCHA

Michius

Rekomendowane odpowiedzi

Michius Uczeń

Michius

Opublikowano
Uczeń

Michius

Opublikowano

Witam,
Mam problem z odszyfrowaniem captchy (naprawde prostej) l2jMZRm.png
Czytałem o funkcji _ImageSearch jak jej użyć w tym przypadku?

W razie problemów GG: 7540011

GameOverMan Specjalista

GameOverMan

Opublikowano
Specjalista

GameOverMan

Opublikowano

Nikt nie wie, bo żadna captcha się nie generuje w tym linku.

 

@Edit Musisz wyciąć sobie każdą cyfrę oddzielnie to na początek.

Czyli zdobądź te cyfry od 0-9.

Potem możesz użyć screen capture na każdą cyfrę i porównać je przez FileRead.

Tylko obrazki muszą być tej samej jakości i wielkości co robione przez program.

obraz24.png


Michius Uczeń

Michius

Opublikowano
Uczeń

Michius

  • Autor
Opublikowano

Okej to wycinam sobie każdą cyfre.

Teraz pytanie jak to zapisać..

Czy jeśli zapisze to tak:

_ImageSearch("1.bmp",1,$x,$y)
A kodem będzie np. 1231

To czy program wtedy sprawdzając kolejno obecność cyfr 1 2 3 4 5 6 7 8 9 nie zapisze mi czasem kodu 1123 zamiast 1231?

W razie problemów GG: 7540011

Michius Uczeń

Michius

Opublikowano
Uczeń

Michius

  • Autor
Opublikowano

Ale jak za pomocą fileread porównać obrazki? :-P

 

Mógłbyś mi proszę napisać jak wygląda porównanie obrazka 1.bmp z częścią obrazka z kodem w funkcji FileRead?

W razie problemów GG: 7540011

GameOverMan Specjalista

GameOverMan

Opublikowano
Specjalista

GameOverMan

Opublikowano 
If FileRead("obrazek1.bmp") == FileRead("obrazek2.bmp") Then
     ...
EndIf

Zapoznaj się ze ScreenCapture.au3.

 

Stare source mojego wspomagacza do literaków na kurniku (działa tylko na rozdzielczości 1440x900 przy zmaksymalizowanym oknie w firefox):

Funkcja "Uluz" nie jest zrobiona. Funkcja "Przepisz" odczytywała dostępne litery po kolei i przepisywała do wyszukiwarki słów możliwych do ułożenia z tych liter.

HotKeySet("{ENTER}", "Szukaj")
HotKeySet("{SPACE}", "Przepisz")
HotKeySet("{F4}", "Uluz")
HotKeySet("{F2}", "Zatwierdz")
HotKeySet("{DELETE}", "Czysc")
HotKeySet("{ESC}", "Wyjscie")

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHTTP.au3>
#include <string.au3>
#include <Array.au3>
#include <ImageSearch.au3>
#include <ScreenCapture.au3>


Func urlencode($str, $plus = True)
	Local $i, $return, $tmp, $exp
	$return = ""
	$exp = "[a-zA-Z0-9-._~]"
	If $plus Then
		$str = StringReplace($str, " ", "+")
		$exp = "[a-zA-Z0-9-._~+]"
	EndIf
	For $i = 1 To StringLen($str)
		$tmp = StringMid($str, $i, 1)
		If StringRegExp($tmp, $exp, 0) = 1 Then
			$return &= $tmp
		Else
			$return &= StringMid(StringRegExpReplace(StringToBinary($tmp, 4), "([0-9A-Fa-f]{2})", "%$1"), 3)
		EndIf
	Next
	Return $return
EndFunc   ;==>urlencode

#region ### START Koda GUI section ### Form=c:\users\krzysztof\desktop\literat.kxf
$Form1 = GUICreate("Literak 1.0", 635, 269, 798, 248, BitOR($WS_SYSMENU, $WS_POPUP))
GUISetBkColor(0x8FCFEF)
$Input1 = GUICtrlCreateInput("", 16, 210, 97, 21)
$Button1 = GUICtrlCreateButton("Szukaj", 16, 234, 97, 25)
$Button2 = GUICtrlCreateButton("Ułuż", 128, 210, 97, 49)
$Button3 = GUICtrlCreateButton("Wyjście", 240, 210, 97, 49)
$Radio1 = GUICtrlCreateRadio("", 16, 16, 113, 17)
$Radio2 = GUICtrlCreateRadio("", 16, 40, 113, 17)
$Radio3 = GUICtrlCreateRadio("", 16, 64, 113, 17)
$Radio4 = GUICtrlCreateRadio("", 16, 88, 113, 17)
$Radio5 = GUICtrlCreateRadio("", 16, 112, 113, 17)
$Radio6 = GUICtrlCreateRadio("", 16, 136, 113, 17)
$Radio7 = GUICtrlCreateRadio("", 16, 160, 113, 17)
$Radio8 = GUICtrlCreateRadio("", 16, 184, 113, 17)
$Radio9 = GUICtrlCreateRadio("", 136, 16, 113, 17)
$Radio10 = GUICtrlCreateRadio("", 136, 40, 113, 17)
$Radio11 = GUICtrlCreateRadio("", 136, 64, 113, 17)
$Radio12 = GUICtrlCreateRadio("", 136, 88, 113, 17)
$Radio13 = GUICtrlCreateRadio("", 136, 112, 113, 17)
$Radio14 = GUICtrlCreateRadio("", 136, 136, 113, 17)
$Radio15 = GUICtrlCreateRadio("", 136, 160, 113, 17)
$Radio16 = GUICtrlCreateRadio("", 136, 184, 113, 17)
$Radio17 = GUICtrlCreateRadio("", 256, 16, 113, 17)
$Radio18 = GUICtrlCreateRadio("", 256, 40, 113, 17)
$Radio19 = GUICtrlCreateRadio("", 256, 64, 113, 17)
$Radio20 = GUICtrlCreateRadio("", 256, 88, 113, 17)
$Radio21 = GUICtrlCreateRadio("", 256, 112, 113, 17)
$Radio22 = GUICtrlCreateRadio("", 256, 136, 113, 17)
$Radio23 = GUICtrlCreateRadio("", 256, 160, 113, 17)
$Radio24 = GUICtrlCreateRadio("", 256, 184, 113, 17)
$Radio25 = GUICtrlCreateRadio("", 376, 16, 113, 17)
$Radio26 = GUICtrlCreateRadio("", 376, 40, 113, 17)
$Radio27 = GUICtrlCreateRadio("", 376, 64, 113, 17)
$Radio28 = GUICtrlCreateRadio("", 376, 88, 113, 17)
$Radio29 = GUICtrlCreateRadio("", 376, 112, 113, 17)
$Radio30 = GUICtrlCreateRadio("", 376, 136, 113, 17)
$Radio31 = GUICtrlCreateRadio("", 376, 160, 113, 17)
$Radio32 = GUICtrlCreateRadio("", 376, 184, 113, 17)
$Radio33 = GUICtrlCreateRadio("", 496, 16, 113, 17)
$Radio34 = GUICtrlCreateRadio("", 496, 40, 113, 17)
$Radio35 = GUICtrlCreateRadio("", 496, 64, 113, 17)
$Radio36 = GUICtrlCreateRadio("", 496, 88, 113, 17)
$Radio37 = GUICtrlCreateRadio("", 496, 112, 113, 17)
$Radio38 = GUICtrlCreateRadio("", 496, 136, 113, 17)
$Radio39 = GUICtrlCreateRadio("", 496, 160, 113, 17)
$Radio40 = GUICtrlCreateRadio("", 496, 184, 113, 17)
$Label1 = GUICtrlCreateLabel("Literak 1.0 by GameOverMan", 352, 226, 263, 17, $SS_CENTER)
WinSetOnTop("Literak 1.0", "", 1)
GUISetState(@SW_HIDE)
#endregion ### END Koda GUI section ###

$Show = 0
$Hide = 1

While 1
	If WinGetState("[CLASS:SunAwtFrame]") == 7 Or WinGetState("[CLASS:SunAwtFrame]") == 15 Or WinGetState("[CLASS:SunAwtFrame]") == 23 Or WinGetState("[CLASS:SunAwtFrame]") == 0 And $Hide == 0 Then
		GUISetState(@SW_HIDE, $Form1)
		$Hide = 1
		$Show = 0
	ElseIf WinGetState("[CLASS:SunAwtFrame]") == 47 And $Show == 0 Then
		GUISetState(@SW_SHOW, $Form1)
		$Show = 1
		$Hide = 0
	ElseIf WinGetState("Literak 1.0") == 7 And WinGetState("[CLASS:SunAwtFrame]") == 39 And $Hide == 0 Then
		GUISetState(@SW_HIDE, $Form1)
		$Hide = 1
		$Show = 0
	EndIf
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button3
			Exit
		Case $Button1
			Szukaj()
	EndSwitch
WEnd

Func Szukaj()
	$Litery = urlencode(GUICtrlRead($Input1))

	$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.2; WOW64; rv:17.0) Gecko/20100101 Firefox/17.0")
	$hConnect = _WinHttpConnect($hSession, "literat-program.pl")

	$HTML = _WinHttpSimpleRequest($hConnect, "POST", "/anagramy/", "http://literat-program.pl/anagramy/", "__LASTFOCUS=&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwULLTE4NzIyMTYwMDkPZBYCAgMPFgIeBmFjdGlvbgUKL2FuYWdyYW15LxYGAgkPDxYCHgdWaXNpYmxlaGRkAgwPDxYCHwFoZGQCEA8WAh8BaGRkyO5sIXfauV4XBfSZgiq5RuBxL6s%3D&__EVENTVALIDATION=%2FwEWAwKL1PqxDAKt6%2F36CwKln%2FPuCr1A0EAj6umhOw%2Fj2S%2FJoIt2PX%2FR&tbLetters=" & $Litery & "&btnSearch=Szukaj+s%C5%82%C3%B3w")
	_WinHttpCloseHandle($hConnect)
	_WinHttpCloseHandle($hSession)
	$ZbiorWyrazow = _StringBetween($HTML, 'id="words"', 'id="reklamaDol"')
	$ZbiorWyrazow1 = StringReplace($ZbiorWyrazow[0], "'options');", "")
	$ZbiorWyrazow2 = StringReplace($ZbiorWyrazow1, '</a><font style="color:gray">', "")
	FileWrite("ZbiorWyrazow.ltr", $ZbiorWyrazow2)
	$ZbiorWyrazow3 = FileRead("ZbiorWyrazow.ltr")
	FileDelete("ZbiorWyrazow.ltr")
	$TablicaWyrazow = StringSplit($ZbiorWyrazow3, ";")

	$Next = 6
	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		FileWrite("Dekodowanie.txt", $Wyraz[0])
		GUICtrlSetData($Radio1, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio1, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio2, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio2, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio3, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio3, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio4, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio4, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio5, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio5, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio6, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio6, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio7, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio7, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio8, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio8, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio9, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio9, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio10, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio10, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio11, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio11, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio12, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio12, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio13, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio13, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio14, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio14, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio15, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio15, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio16, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio16, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio17, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio17, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio18, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio18, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio19, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio19, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio20, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio20, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio21, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio21, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio22, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio22, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio23, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio23, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio24, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio24, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio25, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio25, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio26, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio26, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio27, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio27, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio28, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio28, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio29, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio29, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio30, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio30, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio31, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio31, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio32, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio32, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio33, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio33, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio34, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio34, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio35, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio35, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio36, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio36, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio37, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio37, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio38, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio38, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio39, $Wyraz[0])
		$Next = $Next + 1
	Else
		GUICtrlSetData($Radio39, "")
	EndIf

	If $Next <= $TablicaWyrazow[0] Then
		$Wyraz = _StringBetween($TablicaWyrazow[$Next], '">', '</font>')
		GUICtrlSetData($Radio40, $Wyraz[0])
	Else
		GUICtrlSetData($Radio40, "")
	EndIf
EndFunc   ;==>Szukaj

Func Przepisz()
	$a = 29
	$b = 795
	$c = 78
	$d = 844
	$Przepisz = ""
	For $i = 1 To 7 Step 1
		_ScreenCapture_SetBMPFormat(2)
		$BitMap = _ScreenCapture_Capture("", $a, $b, $c, $d)
		_ScreenCapture_SaveImage(@TempDir & "\LiterakScreen.bmp", $BitMap)
		If FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\A.bmp") Then
			$Przepisz = $Przepisz & "A"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ą.bmp") Then
			$Przepisz = $Przepisz & "Ą"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\B.bmp") Then
			$Przepisz = $Przepisz & "B"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\C.bmp") Then
			$Przepisz = $Przepisz & "C"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ć.bmp") Then
			$Przepisz = $Przepisz & "Ć"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\D.bmp") Then
			$Przepisz = $Przepisz & "D"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\E.bmp") Then
			$Przepisz = $Przepisz & "E"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ę.bmp") Then
			$Przepisz = $Przepisz & "Ę"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\F.bmp") Then
			$Przepisz = $Przepisz & "F"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\G.bmp") Then
			$Przepisz = $Przepisz & "G"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\H.bmp") Then
			$Przepisz = $Przepisz & "H"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\I.bmp") Then
			$Przepisz = $Przepisz & "I"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\J.bmp") Then
			$Przepisz = $Przepisz & "J"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\K.bmp") Then
			$Przepisz = $Przepisz & "K"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\L.bmp") Then
			$Przepisz = $Przepisz & "L"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ł.bmp") Then
			$Przepisz = $Przepisz & "Ł"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\M.bmp") Then
			$Przepisz = $Przepisz & "M"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\N.bmp") Then
			$Przepisz = $Przepisz & "N"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ń.bmp") Then
			$Przepisz = $Przepisz & "Ń"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\O.bmp") Then
			$Przepisz = $Przepisz & "O"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ó.bmp") Then
			$Przepisz = $Przepisz & "Ó"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\P.bmp") Then
			$Przepisz = $Przepisz & "P"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\R.bmp") Then
			$Przepisz = $Przepisz & "R"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\S.bmp") Then
			$Przepisz = $Przepisz & "S"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ś.bmp") Then
			$Przepisz = $Przepisz & "Ś"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\T.bmp") Then
			$Przepisz = $Przepisz & "T"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\U.bmp") Then
			$Przepisz = $Przepisz & "U"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\W.bmp") Then
			$Przepisz = $Przepisz & "W"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Y.bmp") Then
			$Przepisz = $Przepisz & "Y"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Z.bmp") Then
			$Przepisz = $Przepisz & "Z"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ż.bmp") Then
			$Przepisz = $Przepisz & "Ż"
		ElseIf FileRead(@TempDir & "\LiterakScreen.bmp") == FileRead("C:\Users\Krzysztof\Desktop\Litery\Ź.bmp") Then
			$Przepisz = $Przepisz & "Ź"
		EndIf
	$a = $a + 50
	$c = $c + 50
	Next
	GUICtrlSetData($Input1, $Przepisz)
	Szukaj()
EndFunc   ;==>Przepisz

Func Uluz()

EndFunc   ;==>Uluz

Func Zatwierdz()
 ControlSend("[CLASS:SunAwtFrame]", "", "", "{F2}")
EndFunc   ;==>Uluz

Func Czysc()
	GUICtrlSetData($Input1, "")
EndFunc   ;==>Czysc

Func Wyjscie()
	Exit
EndFunc   ;==>Wyjscie

obraz24.png


Michius Uczeń

Michius

Opublikowano
Uczeń

Michius

  • Autor
Opublikowano

Okej rozumiem, a jak znalesc wspolrzedne obrazka z captcha? jest on pod nazwa generuj_kod.php

W razie problemów GG: 7540011

Vertek Pomocnik

Vertek

Opublikowano
Pomocnik

Vertek

Opublikowano

captcha pochodzi ze strony knights.pl

Też głowiłem się nad tym problemem ale nic nie zrobiłem. Miałem pomysł aby porównywać 9 cyfr po kolei od lewej aż do prawej, lecz imagesearch nie da się zrobić szukania obrazka w danych punktach, tylko na całym ekranie więc to odpada.

Jedyny działający bot do Gladiatusa 2015!!!

https://www.facebook.com/Gbot.vertek

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

masz w udf wszystko opisane dokładnie, tylko zaglądnąć do pliku

 

 _ImageSearchArea($findImage,$x1,$y1,$right,$bottom, $tolerance = 0, $HBMP=0)

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...