✔ Wie kann ein Programm "inaktiv" laufen? HowTo ImageList bei Notifyicon

[Alexander Schuc]

Und du bist dir sicher, dass es funktioniert wenn das Programm aktiv ist?

Zeigst eventuel ein wenig Code?

 

[MCX]

Ich bin mir absolut sicher. Ich starte das Programm und bleibt mit dem Mauszeiger auf der "Oberfläche" und nach ein paar Sekunden steht da dass ich z.B. 0 Nachrichten habe. Starte ich es jedoch und gehe mit dem Mauszeiger weg, erscheint nichts.

Ich durchforste mal den Code,warte.

 

[MCX]

Dim ft_login As New Thread(AddressOf navigate)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        login()
End Sub   
 
Public Sub login()
        ft_login.IsBackground = True
        ft_login.Start()
End Sub

Private Sub logout(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.Navigate("****")
End Sub

Private Sub website(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.Navigate("****")
End Sub

Private Sub navigate()
        Do
            Me.Invoke(New EventHandler(AddressOf website))
            Thread.Sleep(1790000)
            Me.Invoke(New EventHandler(AddressOf logout))
            Thread.Sleep(10000)
        Loop
    End Sub


Private Sub login(ByVal sender As System.Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        With WebBrowser1
            If .Url.ToString = "***" Then
                .Document.GetElementById("name").InnerText = options.user.Text
                .Document.GetElementById("password").InnerText = options.pass.Text
                .Document.GetElementById("password").Focus()
                SendKeys.Send("{ENTER}")
            End If
            If .Url.ToString = "*****" Then
                anzahl = .Document.Body.InnerHtml.Substring(.Document.Body.InnerHtml.IndexOf("Posteingang") + 57, 1)
                If anzahl <> 0 Then
                    posteingang.ForeColor = Color.Red
                    incoming.ForeColor = Color.Red
                    abrufen.Visible = True
                    blink.IsBackground = True
                    blink.Start()
                Else
                    posteingang.ForeColor = Color.Black
                    incoming.ForeColor = Color.Black
                    abrufen.Visible = False
                End If
                incoming.Text = anzahl
                trayicon.Text = "Posteingang : " + anzahl
            End If
        End With
    End Sub

 

[Alexander Schuc]

SendKeys.Send-Methode

Sendet Tastatureingaben an die aktive Anwendung.

Quelle: SendKeys.Send-Methode

Wenn dein Programm nicht aktiv ist, wird diese TextBox kaum den Focus bekommen können, beziehungsweise hat dann etwas anderes den Focus und ist das Ziel deines SendKeys.Send aufrufes.

Wirst das Formular auf eine andere Art und Weise absenden müssen.

 

[MCX]

Stimmt. Daran habe ich so noch garnicht gedacht. Das Problem ist nur, dass ich mich nicht anders einloggen kann. Ich kann den Login-Button irgendwie nicht abrufen.

Hier ist mal der Code für den Login-Teil der Website:

      <table border="0" cellpadding="0" cellspacing="1" width="162" bgcolor="#6a6a6a">
        <tr height="60">
          <td height="60" bgcolor="#f9d87c" valign="top" align="left"> <table><tbody><tr>

		<form action="index.php?open=login" method="post" id="login" name="login" style="display:inline" onSubmit="return check_login();">
		<td colspan="2">
		<br style="line-height:5px">&nbsp;<b>User Login Box</b><br>&nbsp;<font size="1" color="#CC3300">ungesichert ohne SSL</font><br><br>&nbsp;Benutzername:
		</td></tr>
		<tr>
		<td colspan="2">&nbsp;<input size="10" id="name" name="name" style="width:100">
		</td>
		</tr>

		<tr>
		<td colspan="2">&nbsp;Passwort:</td></tr>
		<tr>
		<td colspan="2">&nbsp;<input id="password" type="password" size="10" name="password" style="width:100;">
		<input type="hidden" name="brute_check" value="pw1931734780">				</td>
		</tr>
		<tr>
		<td align="left" colspan="2">

		<br style="line-height:3px">&nbsp;<input type="submit" value="Login" style="width:100"></form><br><br>&nbsp;<a href="index.php?open=home&tunnel=secure"><font size="1">[zum sicheren SSL Login]</font></a><br><br>
		<a class="userlink" href="index.php?open=passwort"><font size="1">&nbsp;Passwort vergessen?</font></a><br>
		<a class="userlink" href="index.php?open=anmelden&activation_resend"><font size="1">&nbsp;Aktivierungsmail?</font></a><br>
		<a class="userlink" href="index.php?open=anmelden"><font size="1">&nbsp;Hier neu anmelden?</font></a><br>
		</td></tr></table> </td>
        </tr>

      </table>

 

[Alexander Schuc]

WebBrowser1.Document.Forms["login"].InvokeMember("submit");

Probier mal das.

 

[MCX]

WebBrowser1.Document.Forms("login").InvokeMember("submit")

wars aber es ging dann. Danke . Hast du das dir selbst gedacht oder irgendwoher? Ich habe vorher schon versucht dieses submit immer auszulösen.

 

[Alexander Schuc]

Achso ja, benutzt ja VB.net. ^^

Kurz in die Doku geschaut hab ich.