OFFLINE

Nesneler :

* Webbrowser,Form1,Form2,Command1,Textbox(Form2'ye)

Command1 name : "gecmis"


Kod;

Private Sub Form_Load()

Form2.Text1.Text = GetSetting("vendetta thtx", "p", "THT") ' oku !

End Sub

Private Sub gecmis_Click()

Form2.Show ' form2yi aç

End Sub


Private Sub WebBrowser1_DownloadComplete()

Form2.Text1.Text = Form2.Text1.Text & vbNewLine & WebBrowser1.L o c a t i o n URL & "  ||  " & WebBrowser1.L o c a t i o n Name  ' text1'e site adını ve urlsini yazdırıyor
SaveSetting "vendetta thtx", "p", "THT", Form2.Text1.Text    KAYDEDİYOR

End Sub  

Kodlar sorunsuz denenmiştir tamamen kendi üretimimdir .

Kodlardaki boşlukları siliniz site sansürlediği için boşlukla yazdım kod ;
Alıntıdır

OFFLINE

Benim yaptığım bir web tarayıcısı var örnek olarak bakabilirsiniz.

SonSamsunlu Internet Tarayıcısı v.1.0
Bu programda Internet explorer üzerinden çalışan küçük, basit, şık görünümlü bir internet tarayıcısıdır.
Internet Explorer'dan tek farkı sekme açma özelliği yok, eğer programa rağbet olursa ilerde onu da yaparız


http://hotfile.com/dl/67547012/c634187/SonSamsunlu_Internet_Taraycs__v.1.0_Setup.sfx.exe.html