İndex Çalıcı [ Farklı Bir Yaklaşım ] [ vb.net ] [kod]

Maveraün Nehr

Katılımcı Üye
25 Haz 2021
973
1,850
41.303921, -81.901693
Günaydın arkadaşlar bilinen kadarıyla eskiden index çalıcı kodları hep webbrowser ögesi üzerinden yanlış hatırlamıyorsam documenttext kodu ile yazılıyordu. Bugün sizlerle webrequest yöntemi ile webbrowser ögesi kullanmadan hedefe istek gönderip onu textbox üzerine yansıtarak index çalma kodunu göstereceğim. Umarım yararlı olur.

Gerekenler;
1 Adet Textbox
1 Adet Richtextbox veya textbox ancak textbox'umuzun borderstayle özelliği fixed 3d olsun, scrollbars özelliği vertical olsun

Kodlar;

En üste İmport edilecek değerleri girelim;
Kod:
Imports System.Net
Imports System.IO
Imports System
Imports System.Text

Butonumuza Çal yazalım ve kodu;

Kod:
 Dim requestUrl As String = TextBox2.Text
        Dim request As HttpWebRequest = TryCast(WebRequest.Create(requestUrl), HttpWebRequest)
        Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
        Dim dataStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        Dim result = responseFromServer

        reader.Close()
        response.Close()
        TextBox1.Text = result

Örnek Forum Düzeni;

 
Son düzenleme:

sw1ndler

Katılımcı Üye
29 Şub 2020
592
136
bu kadar fazla komuta hiç ve hiç gerek yoktu bu kod butona basınca textbox1 deki sitenin url sinden kaynak kodunu çekip richtextbox1 e aktarır fazla kod karmaşısını önlemiş olurz
C:
Dim web_client As WebClient = New WebClient()

        Dim sr As New StreamReader(web_client.OpenRead(textbox1.text))



        RichTextBox1.Text = sr.ReadToEnd
 

Maveraün Nehr

Katılımcı Üye
25 Haz 2021
973
1,850
41.303921, -81.901693
bu kadar fazla komuta hiç ve hiç gerek yoktu bu kod butona basınca textbox1 deki sitenin url sinden kaynak kodunu çekip richtextbox1 e aktarır fazla kod karmaşısını önlemiş olurz
C:
Dim web_client As WebClient = New WebClient()

        Dim sr As New StreamReader(web_client.OpenRead(textbox1.text))



        RichTextBox1.Text = sr.ReadToEnd

Böyle konular açıyorum ki eksiklerimi bileyim teşekkürler. Değerli yorumlarınızı okudum gerçekten mantıklı ancak C dilini öğrenmek için biraz fazla kafa yormak gerekiyor çok fazla parantez var vs. ama gel gelelim asıl antivirüsler ise C dilinde yazılıyor. Bazı konularda yardımınıza ihtiyacım olacak eğer ki izin verirseniz...
 

'Rio

Katılımcı Üye
25 Haz 2021
567
150
C:\System32
Günaydın arkadaşlar bilinen kadarıyla eskiden index çalıcı kodları hep webbrowser ögesi üzerinden yanlış hatırlamıyorsam documenttext kodu ile yazılıyordu. Bugün sizlerle webrequest yöntemi ile webbrowser ögesi kullanmadan hedefe istek gönderip onu textbox üzerine yansıtarak index çalma kodunu göstereceğim. Umarım yararlı olur.

Gerekenler;
1 Adet Textbox
1 Adet Richtextbox veya textbox ancak textbox'umuzun borderstayle özelliği fixed 3d olsun, scrollbars özelliği vertical olsun

Kodlar;

En üste İmport edilecek değerleri girelim;
Kod:
Imports System.Net
Imports System.IO
Imports System
Imports System.Text

Butonumuza Çal yazalım ve kodu;

Kod:
 Dim requestUrl As String = TextBox2.Text
        Dim request As HttpWebRequest = TryCast(WebRequest.Create(requestUrl), HttpWebRequest)
        Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
        Dim dataStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        Dim result = responseFromServer

        reader.Close()
        response.Close()
        TextBox1.Text = result

Örnek Forum Düzeni;

Efsane olmuş 👏
 

sw1ndler

Katılımcı Üye
29 Şub 2020
592
136
Böyle konular açıyorum ki eksiklerimi bileyim teşekkürler. Değerli yorumlarınızı okudum gerçekten mantıklı ancak C dilini öğrenmek için biraz fazla kafa yormak gerekiyor çok fazla parantez var vs. ama gel gelelim asıl antivirüsler ise C dilinde yazılıyor. Bazı konularda yardımınıza ihtiyacım olacak eğer ki izin verirseniz...
tabiki istediğinizi pmden sorabilirsiniz bende yardımcı olurum bilmediğim bir şey çıkarsa söyleyemezsem de kusura bakmayın bende Allahın kuluyum :)
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam 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.