Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Sitenin Kaynak Kodunu Alalım
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

dosyadan combolara item ekleme

Yazar: dozezgi
bayi.txt adında bayi isimlerinin olduğu bir dosya oluşturarak bu isimleri combo pencerelerine aktarabilirsiniz.Bu şekilde bayi isimlerini toplu halde görebilirsiniz.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11336
Yayın Tar:28.04.2009
Yazar : sythn
Hit :1254

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Programın amacı : Verilen URL doğrultusunda sitenin kaynak kodunu PC' ye indirmek.

Araçlar :

Bir adet Command Botton
İki adet TextBox
Bir adet Label
Menü yapıyoruz Dosya > HTML kaydet > Yazı kaydet > Çık
Inet ekliyoruz (Toolbar sağ tıklama ile Components ekliye bilirsiniz)
CommonDialog ekliyoruz

-----------------------------------

Formu iyice ayarlıyoruz.
Şimdi bir INET ekliyoruz.Daha sonra bir buton ve birine URL , Birinede HTML kodu yazılacak olan 2 textbox ekliyoruz.
1.TEXTBOX WİDTH DEĞERİ :5655
1.TEXTBOX NAME : txtURLbox
-
2.TEXTBOX WİDTH:7215
2.TEXTBOX NAME : txtNote
-----
Şimdi bir label ekleyin ve caption : Geçerli bir HTML belgesi için URL girin ve HTML yükle tıklayın

--------

Menü ayarları :
Dosya >
...HTML KAYDET : BU MENÜNÜN NAME DEĞERİ : mnuItemHTML
...Yazı Kaydet : Bu menünün name değeri : mnuItemSave
...Çık : Bunun name değeri : mnuItemExit

-------------------------------------------------------------------------------------------------------------------

Kodları direk yapıştırın :

'geçerli URL için 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 "Döküman Adını ve URL adresini konrtol edin"
End If
Exit Sub
errorhandler:
MsgBox "URL Açılamıyor", , Err.Description
End Sub
Private Sub mnuItemExit_Click()
Unload Form1 'programdan çık
End Sub

Private Sub mnuItemHTML_Click()
'tüm dosyanın bir dizede saklandığına dikkat edin
CommonDialog1.DefaultExt = "HTM"
CommonDialog1.Filter = "HTML files (*.HTML;*.HTM)|*.HTML;HTM"
CommonDialog1.ShowSave 'Save iletişimini görüntüle
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()
'tüm dosyanın bir dizede saklandığına dikkat edin
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowSave 'Save iletişimini görüntüle
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


-SAYGILAR




Yorumlar, eklemeler ve düşünceler
        emeğine sağlık;)

   stripless, 22.10.2009 14:44
   arkdaşım bişi sorcaıktım...şimdi biz internet explorer da bi siteyi açıp sonra görünüm-kaynak dedipğimizde karşımıza gelen pencereden kodları kopyalayıp yapıştırsak aynı şey olmuyormu??

   stripless, 22.10.2009 14:50
   Oluyor ama ordan bi bilgi çekmen gerekebilir bu sadece örnek

   crimer, 09.08.2010 08:42
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin