Alexander Schuc
crazy-weasel
Und du bist dir sicher, dass es funktioniert wenn das Programm aktiv ist?
Zeigst eventuel ein wenig Code?
Zeigst eventuel ein wenig Code?
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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
Quelle: SendKeys.Send-MethodeSendKeys.Send-Methode
Sendet Tastatureingaben an die aktive Anwendung.
<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"> <b>User Login Box</b><br> <font size="1" color="#CC3300">ungesichert ohne SSL</font><br><br> Benutzername:
</td></tr>
<tr>
<td colspan="2"> <input size="10" id="name" name="name" style="width:100">
</td>
</tr>
<tr>
<td colspan="2"> Passwort:</td></tr>
<tr>
<td colspan="2"> <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"> <input type="submit" value="Login" style="width:100"></form><br><br> <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"> Passwort vergessen?</font></a><br>
<a class="userlink" href="index.php?open=anmelden&activation_resend"><font size="1"> Aktivierungsmail?</font></a><br>
<a class="userlink" href="index.php?open=anmelden"><font size="1"> Hier neu anmelden?</font></a><br>
</td></tr></table> </td>
</tr>
</table>
WebBrowser1.Document.Forms["login"].InvokeMember("submit");