VB Hotmail Webbot

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Rinecamo.

    VB Hotmail Webbot

    hallo liebe vb paradise gemeinde,

    habe mal einen webbot programmiert, der sich automtisch in hotmail einloggt und mir die anzahl der ungeleseen emails anzeigt.
    Funktioniert auch alles ganz gut nur liegt die cpu auslastung beim abfragen bei 40 - 50%

    Habe schon gelesen das es an meiner Pause Funktion liegen könnte doch kann ich auf diese nicht so leicht verzichten, weil er ja schließlich die verbindung erstmal aufbauen muss.
    hat jemand vielleicht eine Lösungsansatz oder eine Idee woran es liegt.
    Hier erstmal den Code


    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Sub Pause(ByVal Milliseconds As Integer)
    4. Dim dTimer As Date
    5. dTimer = Now.AddMilliseconds(Milliseconds)
    6. Do While dTimer > Now
    7. Application.DoEvents()
    8. Loop
    9. End Sub
    11. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    12. e.Cancel = True
    13. Me.Hide()
    14. Me.ShowInTaskbar = False
    16. End Sub
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. Me.Hide()
    21. Me.Visible = False
    22. Me.ShowInTaskbar = False
    23. Me.Opacity = 0
    25. Timer1.Interval = 30000 ' zum testen erstmal auf 30 sec
    26. Timer1.Start()
    28. Try
    30. WebBrowser1.Navigate("http://www.hotmail.de")
    31. Application.DoEvents()
    33. Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
    35. Application.DoEvents()
    36. Loop
    38. WebBrowser1.Refresh()
    40. Pause(2500)
    42. WebBrowser1.Document.GetElementById("i0116").InnerText = "email"
    43. WebBrowser1.Document.GetElementById("i0118").InnerText = "passw"
    44. WebBrowser1.Document.GetElementById("SI").InvokeMember("click")
    46. Dim emails
    47. Pause(2500)
    48. emails = WebBrowser1.Document.GetElementById("h_newMsgs").OuterText
    49. MsgBox(emails)
    51. Catch ex As Exception
    53. MsgBox("Es ist ein Fehler aufgetreten, das Programm wird beendet.", vbCritical)
    54. Me.Close()
    55. End Try
    57. End Sub
    59. Private Sub FormAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormAnzeigenToolStripMenuItem.Click
    60. Me.Show()
    61. Me.Opacity = 1
    62. Me.ShowInTaskbar = True
    63. End Sub
    65. Private Sub ProgrammBeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgrammBeendenToolStripMenuItem.Click
    66. NotifyIcon1.Dispose()
    67. End
    68. End Sub
    70. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    71. Try
    73. WebBrowser1.Refresh()
    74. Pause(5000)
    75. Dim emails
    76. emails = WebBrowser1.Document.GetElementById("h_newMsgs").OuterText
    77. MsgBox(emails)
    79. Catch ex As Exception
    81. MsgBox("Es ist ein Fehler aufgetreten, das Programm wird beendet.", vbCritical)
    82. Me.Close()
    83. End Try
    84. End Sub
    85. End Class


    P.S. Habe einen Teil des Codes von Sempervideo.de und ihn in sofern erweitert das es nun automatisiert abläuft.
    Wer möchte kann das Programm ja noch nach seinen Vorstellungen anpassen und selbst nutzen ^^

    Mach den LogIn doch per WebRequest.
    Danke werde das mal ausprobieren somit wäre dann die Anmeldung vielleicht schon mal schneller.

    Jedoch ändert das glaube ich nicht viel an der Auslastung...

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Try
    4. WebBrowser1.Refresh()
    5. Pause(5000)
    6. Dim emails
    7. emails = WebBrowser1.Document.GetElementById("h_newMsgs").OuterText
    8. MsgBox(emails)
    10. Catch ex As Exception
    11. MsgBox("Es ist ein Fehler aufgetreten, das Programm wird beendet.", vbCritical)
    12. Me.Close()
    13. End Try
    14. End Sub


    In diesem Programmabschnitt wird ja nur die Seite Aktualisiert und ein Link ausgelesen und da liegt die CPU Auslastung auch bei 40 - 50% ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sea-louce“ ()

    Ein Webrequest fordert ein URL an soweit ich das gelesen habe.

    Habe versucht mich etwas in Webrequests einzulesen jedoch mit mäßigen Erfolg.
    Anscheinend ist es ein ganz anderes prinzip zu meinem Modell mit dem Webbrowser.

    Mal ein paar Fagen dazu...

    Was ist der Unterschied von Webrequest und meiner Methode?
    Was sind die Vorteile von Webrequest im gegensatz zu meiner Methode?
    Ist es mit Webrequest weiterhin möglich die seite in meinem VB Webbrowser anzeigen zu lassen?
    Könnte ich mit Webrequest meine Pause / Sleep Funktion umgehen?

    1. Der WebRequest läuft sozusagen mehr im Hintergrund ab, also beim WebBrowser sieht man halt das er was lädt.
    2. Es geht schneller.
    3. Ist doch total unnötig, vor allem weil du die Form sowieso beim laden verschwinden lässt.
    4. Ja.

Facebook
Telefonspende