Merhaba bu #ForumTR sitesinde ilk program kodu yazışım.Programın amacı yazılan URL doğrultusunda belirtilen sayfanın kaynak kodunu bilgisayar indirmektir.Bunu daha sonra HTML yada TXT uzantısı şeklinde kayıt edebileceksiniz.Geliştirilmeye acıktır.Şimdi programımızın ara yuzunu oluşturalım.

Kullanılması gereken ara yuz komutları
1-Bir adet Command Botton
2-İki adet TextBox
3-Bir adet Label
4-Menu yapıyoruz Dosya > HTML kaydet > Yazı kaydet > Cık
5-Inet ekliyoruz (Toolbar sağ tıklama ile Components ekliye bilirsiniz)
6-CommonDialog ekliyoruz


Orantılı bir bicimde formumuzu ayarlıyoruz ve name kısmı Inet1 olan ınet dll ekledikten sonra icine name'si Command1 olan bir buton oluşturuyoruz.Daha sonra İki adert textbox yerleştiriyoruz.Bunlardan bir tanesine url yolu yazılacak diğer ise yuklenen html sayfasının text kısmını bize gosterecek.Birinci text boyutunu 5655 widht değerinde yapıyoruz (Properties bolumude en alt kısında bu değeri girebilirsiniz)ve name olarak txtURLbox olarak adlandırıyoruz.İkinci Textbox ise daha buyuk bir oranda ve boyut olarak 7215 widht değerinde yapıyoruz ancak bu aşağıya doğru buyuk olmalıdır.Buna da name olarak txtNote adını veriyoruz.Daha sonra Label1 nesnesini koyuyoruz ve text kısmına Gecerli bir HTML belgesi icin URL girin ve HTML yukle tıklayın. yazısını yazıyoruz.


--------------------------------------------------------
Menu yapımı
--------------------------------------------------------
Dosya ->
- HTML kaydet name = mnuItemHTML
- Yazı kaydet name = mnuItemSave
- Cık name = mnuItemExit





--------------------------------------------------------
Bilgi:Program Kodu Aşağıdaki gibidir.Kopyala yapıştır yontemi ile kullanabilirsiniz
--------------------------------------------------------

'gecerli URL icin bir değişken tanımla
Dim strUrl As String
Private Sub Command1_Click()
On Error GoTo errorhandler
strUrl = txtURLbox.Text
'en az 11 karakter olduğunu denetle ("http://www.")
If Len(strUrl) > 11 Then
' html belgesini metin kutusuna kopyala
txtNote.Text = Inet1.OpenURL(strUrl)
Else
MsgBox "Dokuman Adını ve URL adresini konrtol edin"
End If
Exit Sub
errorhandler:
MsgBox "URL Acılamıyor", , Err.Description
End Sub
Private Sub mnuItemExit_Click()
Unload Form1 'programdan cık
End Sub

Private Sub mnuItemHTML_Click()
'tum dosyanın bir dizede saklandığına dikkat edin
CommonDialog1.DefaultExt = "HTM"
CommonDialog1.Filter = "HTML files (*.HTML;*.HTM)|*.HTML;HTM"
CommonDialog1.ShowSave 'Save iletişimini goruntule
If CommonDialog1.FileName "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, txtNote.Text 'dizeyi dosyaya kaydet
Close #1 'dosyayı kapat
End If
End Sub

Private Sub mnuItemSave_Click()
'tum dosyanın bir dizede saklandığına dikkat edin
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowSave 'Save iletişimini goruntule
If CommonDialog1.FileName "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, txtNote.Text 'dizeyi dosyaya kaydet
Close #1 'dosyayı kapat
End If
End Sub
__________________