Vb6 İndex Çalar Yapımı I Sitelerin Kodlarını Çekmek !

Merhaba Arkadaşlar,
Bu paylaşımımda sizlerle sitelerin kodlarını çekmeyi ve bu şekilde index Çalar yapmayı öğreticem.Bir de source paylaşımımız olucak.



Hemen başlıyalım. :

Forma 1 webrowser , 2 textbox , 2 buton ekliyelim. (Webrowseri ctrl + T yapıp oradan microsoft Internet Controlü seçip uygula diyerek bulabilirsiniz.)
WebBrowser görünmese iyi olur küçük yapın yada bişeyin altına koyun ;) :)

Kodlara geçelim .:

Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command2_Click()
Text2.Text = WebBrowser1.Document.Body.InnerHTML
End Sub

Şimdi Source : Tıklayın !
Source resimdeki projedir. ! ! !
Emeğe Saygı !