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_DocumentComplete(ByVal pDisp As Object, URL As Variant)
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 = ";bjlkl"
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")
End Sub
kodlar vb6 için. vb.nete çevirebilecek olan var mı? bu isteği çok önceden yapmıştım fakat çeviren olmamıştı blki bu sefer çeviren çıkar. bu isteğimin üzerinden 1 buçuk ay geçti
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_DocumentComplete(ByVal pDisp As Object, URL As Variant)
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 = ";bjlkl"
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")
End Sub
kodlar vb6 için. vb.nete çevirebilecek olan var mı? bu isteği çok önceden yapmıştım fakat çeviren olmamıştı blki bu sefer çeviren çıkar. bu isteğimin üzerinden 1 buçuk ay geçti