Vbnet Programı İnternet Üzerinden Kapatma

Merhaba Arkadaslar Sizlere Tamamen Kendi Anlatımım Olan Visual Basic 6 da ' "Programı İnternet Üzerinden Kapatmayı = Offline Etmeyi Göstericeğim. Uzatmadan Başlayalım

* Bir Host Alın. Sonra Masa Üstünde Bir Html Dosyası Oluşturup İçine "Kapali" Yazıp Ftpye Yükleyin



- Forma 1 Tane Web Browser Ekleyin ! ( Formda Görünmesin Altlara Saklayınız)

- Form Loadı Açıyoruz (Kod Penceresini)

Kod:

Private Sub Form_Load()
WebBrowser1.Navigate "http://siteismi.com/olusturdugunuzhtmldosyasınınadı.html"
End Sub
Private Sub WebBrowser1_D O C U M E N TComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.D O C U M E N T.body.innerhtml = "kapali" Then
MsgBox "Program Şuan Kapalıdır Lütfen Daha Sonra Tekrar Deneyin",vbInformation,"HackLorD"
Unload Me
End If
End Sub

Yapıştırıyoruz . Kırmızı İle belirttiğim yerler değişkendir
D O C U M E N T " Boşlukları silebilirsiniz"

Şimdi Çalıştırın Program Şuan Kapalıdır Lütfen Daha Sonra Tekrar Deneyin hatası Alıcaksınız Ve program kapanıcak

FTPDEKİ HTML Yİ DÜZENLEYİP İÇİNİ BOŞ BIRAKIRSANIZ PROGRAM AÇILIR İYİ GÜNLER