rnek olarak tanıttığım captchaları tanıyor. Yeni captcha gsterince, renk uyumsuzluğu sorunu oluyor. Siyah beyaz denedim onun bile tonları var galiba Konuyu hortlatmış olucam fakat bu kodu c# a nasıl çevirebiliriz arkadaşlar? zellikle aşağıdaki blüm olsa işimi grür.. Private Declare Function GetCursorPos Lib "user32" As BooleanPrivate Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" As LongPrivate Declare Function DeleteDC Lib "gdi32" As LongPrivate Declare Function GetPixel Lib "gdi32" As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim hexcolor As BooleanDim PosXY As POINTAPIDim fareY As LongDim fareX As LongDim denenenKarakterDim DenenenKarakterBasamagiPrivate Function LongToRGB As String Dim iRed As Long, iGreen As Long, iBlue As Long iRed = lColor Mod 256 iGreen = ((lColor And &HFF00) / 256&) Mod 256& iBlue = (lColor And &HFF0000) / 65536 LongToRGB = Format$(iRed, "000") & ", " & Format$(iGreen, "000") & ", " & Format$(iBlue, "000")End Function rappermcs tarafından 14/Oca/15 17:27 tarihinde düzenlenmiştir Paslanmış bir uygulama geliştirici.. #AnalistŞart

image processing den çok anlamam ancak şyle bir mantık yürütsen, tüm captcheleri renksiz hale çevirsen siyah ve beyaz şeklinde. arkaplan beyaz, yazının kendisi siyah olsun. ve bundan sonra pixel tarama işlemini yapsan? madem renk tonlarında sıkıntı var, iki tona düşürebilirsin Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

rnek olarak tanıttığım captchaları tanıyor. Yeni captcha gsterince, renk uyumsuzluğu sorunu oluyor. Siyah beyaz denedim onun bile tonları var galiba Private Declare Function GetCursorPos Lib "user32" As BooleanPrivate Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" As LongPrivate Declare Function DeleteDC Lib "gdi32" As LongPrivate Declare Function GetPixel Lib "gdi32" As LongPrivate Type POINTAPI x As Long y As LongEnd TypeDim hexcolor As BooleanDim PosXY As POINTAPIDim fareY As LongDim fareX As LongDim denenenKarakterDim DenenenKarakterBasamagiPrivate Function LongToRGB As String Dim iRed As Long, iGreen As Long, iBlue As Long iRed = lColor Mod 256 iGreen = ((lColor And &HFF00) / 256&) Mod 256& iBlue = (lColor And &HFF0000) / 65536 LongToRGB = Format$(iRed, "000") & ", " & Format$(iGreen, "000") & ", " & Format$(iBlue, "000")End FunctionPrivate Function GetPixelColor As String Dim DC As Long DC = CreateDC("DISPLAY", vbNullString, vbNullString, 0&) GetPixelColor = Format$(GetPixel , "00000000") 'long If HexCode = True Then GetPixelColor = LongToHexColor DeleteDC DCEnd FunctionPrivate Function LongToHexColor As StringDim hColor As String hColor = Right$("000000" & Hex , 6) LongToHexColor = Mid$(hColor, 5, 2) & Mid$(hColor, 3, 2) & Mid$(hColor, 1, 2)End FunctionPrivate Function GetMousePosX As Long GetCursorPos PosXY GetMousePosX = PosXY. x End FunctionPrivate Function GetMousePosY As Long GetCursorPos PosXY GetMousePosY = PosXY. yEnd FunctionPrivate Sub Command1_Click Open App. Path & "\list. txt" For Append As #1 For i5 = 0 To List1. ListCount - 1Print #1, List1. List(i5)NextClose #1End SubSub karakteryukle On Error Resume Next' Open App. Path & "\" & DenenenKarakterBasamagi & ". karakter\" & denenenKarakter & ". txt" For Input Access Read Shared As #1wait 100 Open App. Path & "\1. karakter\" & denenenKarakter & ". txt" For Input Access Read Shared As #1 Do Until EOF(1) Line Input #1, strText List1. AddItem strText & " " Loop Close #1 End SubPrivate Sub Command2_Click karakteryukleEnd SubPrivate Sub Command3_Click For i = 0 To 17wait 100fareY = TagYakala(List1. List("0"), "Y:", " ")fareX = TagYakala(List1. List("0"), "X:", " ")fareColor = TagYakala(List1. List("0"), "HColor:", " ")alinanRenk = GetPixelColor If alinanRenk = fareColor ThenList1. RemoveItem "0"If List1. ListCount = 1 ThenMsgBox denenenKarakter'GuvenlikKodu = GuvenlikKodu & denenenKarakter'DenenenKarakterBasamagi = DenenenKarakterBasamagi + 1denenenKarakter = "0"List1. ClearExit ForEnd IfElseList1. RemoveItem "0"List1. CleardenenenKarakter = denenenKarakter + 1'DenenenKarakterBasamagi = DenenenKarakterBasamagi + 1karakteryukleEnd IfNext iEnd SubFunction TagYakala On Error Resume NextOn Local Error Resume Nextarrs = Split arrB = Split(arrs(1), tags)TagYakala = arrB(0)End FunctionPrivate Sub Form_Load Timer1. Enabled = True denenenKarakter = "0" DenenenKarakterBasamagi = "1"End SubPrivate Sub Image1_Click secilenhexcolor = GetPixelColor List1. AddItem "Y:" & GetMousePosY & " X:" & GetMousePosX & " HColor:" & secilenhexcolorEnd SubPrivate Sub Timer1_Timer Picture1. BackColor = GetPixelColor Label1. Caption = GetPixelColor Label2. Caption = GetPixelColor Label3. Caption = LongToRGB(GetPixelColor End Sub modül: Public Declare Function GetTickCount Lib "kernel32" As LongPublic Sub wait Dim dblStart As Double Dim dblEnd As Double Dim dblTickCount As Double dblTickCount = GetTickCount dblStart = GetTickCount dblEnd = GetTickCount + dblMilliseconds Do DoEvents dblTickCount = GetTickCount Loop Until dblTickCount > dblEnd Or dblTickCount < dblStartEnd Subhttps://dl. dropbox.com/u/71260200/captcha_vb6. rar