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 

Share on Facebook Share on Twitter Share on Google Plus

About Life

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.