Turkhackteam.net/org - Turkish Hacking & Security Platform...  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform... >
Programlama
> C# j# vb.net (.NET dilleri)


Vb.Net Siteden Captcha Doğrulama Kodunu Çekme | 20071999 | Vb.NET

C# j# vb.net (.NET dilleri)

Yeni Konu aç Cevapla
 
Seçenekler
Alt 10-01-2018   #1
  • Offline
  • Yarbay
  • Genel Bilgiler
Üyelik tarihi
Jun 2016
Nereden
Kuvvetmira
Mesajlar
Konular


  
Lightbulb Vb.Net Siteden Captcha Doğrulama Kodunu Çekme | 20071999 | Vb.NET



Anlatımı "e-okul" üzerinden yapıcam;

Form Tasarımı:



İlk önce forma 2 tane buton 3 tane textbox ekleyin 1.si captcha çekmek için diğeri ise giriş için. Daha sonra 1.butonun enabled ini false yapın.

Ve şu kodların hepsini formun kod kısmını tamamen silerek yapıştırın.

Kod:
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://e-okul.meb.gov.tr/logineokul.aspx")
    End Sub
  Private Sub WebBrowser1_********Completed(sender As System.Object, e As System.Windows.Forms.WebBrowser********CompletedEventArgs) Handles WebBrowser1.********Completed
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            Button1.Enabled = True
        End If
    End Sub
    Private Sub Captcha()
        Dim Doc As mshtml.IHTML********2 = WebBrowser1.********.Dom********
        Dim ImgRange As mshtml.IHTMLControlRange = CType(Doc.body, mshtml.HTMLBody).createControlRange
        For Each Img As mshtml.IHTMLImgElement In Doc.images
            If Img.getAttribute("src").ToString.Contains("guvenlikkod.aspx?") Then
                ImgRange.add(Img)
                ImgRange.execCommand("Copy", False, Nothing)
                PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
                Exit For
            End If
        Next
    End Sub

    Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Call Captcha()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim dogrulama As HtmlElement = WebBrowser1.********.GetElementById("txtVBSImage")
        Dim tc As HtmlElement = WebBrowser1.********.GetElementById("VBSKullanici")
        Dim numara As HtmlElement = WebBrowser1.********.GetElementById("VBSpassword")
        Dim giris As HtmlElement = WebBrowser1.********.GetElementById("btnTamamvbs")

        dogrulama.SetAttribute("Value", TextBox1.Text)
        tc.SetAttribute("Value", TextBox2.Text)
        numara.SetAttribute("Value", TextBox3.Text)
        giris.InvokeMember("click")
    End Sub
End Class
Programın Son Hali:



Kod Kısmında ki "*" yerler D0kument


Video:

    


__________________

Bak önünde ateş
At kedini ateşe? Atsana.
Atmazsın dimi çünkü sen akıllısın.
Çok "akıllısın".. biz deliyiz.... sense akıllısın.


Konu 20071999 tarafından (10-01-2018 Saat 12:07 ) değiştirilmiştir..
Offline
 
Alıntı ile Cevapla
Alt 13-01-2018   #2
  • Offline
  • Asteğmen
  • Genel Bilgiler
Üyelik tarihi
Jan 2018
Nereden
TürkHackTeam
Mesajlar
Konular
9


  


Sağol Kardeş
    
Offline
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından açılmaktadır.
Bu konular yönetimimiz tarafından takip edilsede gözden kaçabilen telif hakkı olan veya mahkeme kararı çıkmış konular sitemizde bulunabilir. Bu tür konuları bize turkhackteamiletisim [at] gmail.com adresine mail atarak bildirdiğiniz takdirde en kısa sürede konular hakkında gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com


Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Turkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Turkhackteam sorumlu değildir. Sitelerinize Turkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2018

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı



Google Links

wau

Search Engine Friendly URLs by vBSEO 3.6.0 ©2011, Crawlability, Inc.