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 hazır kodlar » Inet ve Winsock Uygulama
Ü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

sql de tarih bilgileri( aynı zamanda almora ya cevap)

Yazar: theiceman

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 № : 7670
Yayın Tar:15.09.2006
Yazar : togius
Hit :2579

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

'Ay bizim aylarımızın dizisi
'gun ise günlerin alacağı değerler değişkeni
'yer internet sayfalarının bilgisayarda kaydedileceği yeri tutan değişken
Dim ay, gun, yer
Private Sub Command1_Click()
'Programımızın bulunduğu dizine tumaylar diye bir dizin tanımlıyoruz.
'klasörün olup olamama durumlarını kontrol eden kodları yazmadım
'benim programım dediğim gibi ihtiyacı karşılamak içIn kullanılan bir program
MkDir App.Path & "/tumaylar"
Dim i, j
'i ay sayacımız
'j gün sayacımız
'ayları sıralıyoruz.
'başlangıcın 0 olmasının sebebi
'dizinin ay(0) ocağa denk geliyor o yüzden
For i = 0 To 11
'tumaylar klasörü içine her ayın adını taşıyan bir klasör ekliyoruz.
MkDir App.Path & "/tumaylar/" & ay(i)
'her ay içIn 31 saydım
'olmayan günleri boş sayfa olarak eklicek
'sonra onları silerim zaten :)
For j = 1 To 31
'dosyaları indireceğim sitede günler mesela ocak_01 gibi
'listeli olduğundan 10dan küçük değerlerde
'gün adının başına 0 ekledim
If j < 10 Then
gun = "0" & j
Else
gun = j
End If
'olmayan günlerde yani olmayan sayfalarda
'hata vereceği içIn On Error Resume Next dedim
'hata olursa bu hatayı atla dedim.
On Error Resume Next
'inet1.openUrl(Urladresi,veriTipi)
Text1 = Inet1.OpenURL("http://www.bianet.org/tarih_arsiv/" & ay(i) & "_" & gun & ".htm", 0)
'hddKaydet alt programımı çağırıyorum.
Call hddKaydet(Text1.Text, ay(i))
Label1.Caption = ay(i) & "_" & gun & " başarı ile kaydedildi."
Next
Next

'winsock1 In LocalIP özelliği internete bağlandığımız makinenin
'Ip nosunu bize verir.
Label1 = Winsock1.LocalIP & " IP nolu Bilgisayarda " & "İşlem Durumu : Bitti."
MsgBox "Tüm Günler Kayıt Edildi."
End Sub

Sub hddKaydet(gelen, aylar)
'Burada yer değişkenine dosyaları nereye ve ne adla kaydedeceğimizi atıyoruz.
yer = App.Path & "/tumaylar/" & aylar & "/" & aylar & "_" & gun & ".htm"
'Open output metodu ile dosyaları kaydettik.
Open yer For Output As #1
Print #1, gelen
Close #1

End Sub

Private Sub Form_Load()
'aylarımızı dizi olarak ekledik
ay = Array("ocak", "subat", "mart", "nisan", "mayis", "haziran", "temmuz", "agustos", "eylul", "ekim", "kasim", "aralik")
Label1 = Winsock1.LocalIP & " IP nolu Bilgisayarda " & "İşlem Durumu : Başlamadı."
Caption = "Tarihte Bugün Dosyalarını İndiren Program"
'inet aracımızın protokolunu icHTTP veriyoruz HTTP içIn
Inet1.Protocol = icHTTP
'inet aracımızın proxy özelliğine makinenin ipsini atadık.
Inet1.Proxy = Winsock1.LocalIP
'Bu değerimiz IP adresi veya domain ismi alabilir.
End Sub

onaylayan: spider58




Yorumlar, eklemeler ve düşünceler
        Ben de ilgili linki vereyim

http://www.bianet.org/diger/arsiv_tarihte_bugun.htm

   Karamuhlis, 29.10.2006 16:44
© 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