Anmelde-Programm mit VB.NET

Nolath schrieb:

Genau, nur halt My.Computer.Keyboard.SendKeys(Chr(13))

Und das ganze würde ich noch mit einem Timer koppeln, so dass erst die Website aufgerufen wird (System.diagnostics.process.start("http://www.url.de")), dann wartet das Proggi durch den Timer 5 Sekunden und dann wird der Code gesendet.

Zum Vergrößern anklicken....

jo jo ises gut also dann will hc mal anfangen

also ich kann den vorheirgen beitrag nichtmehr ändern und ich wollt nochmal fragen, wie man genau sonen timer programmiert......

Füge bei den Elementen ein Timer ein.
Stelle das Intervall auf das 1000-Fache der gewünschten Sekunden.
Aktiviere ihn mit Timer1.enabled = True

Der Timer wird ganz unten, noch unter der Form im Designer angezeigt.
Doppelklicke drauf und füge den Code ein, der ausgeführt wird wenn die Zeit des Timers abgelaufen ist.

Nolath schrieb:

Füge bei den Elementen ein Timer ein.
Stelle das Intervall auf das 1000-Fache der gewünschten Sekunden.
Aktiviere ihn mit Timer1.enabled = True

Der Timer wird ganz unten, noch unter der Form im Designer angezeigt.
Doppelklicke drauf und füge den Code ein, der ausgeführt wird wenn die Zeit des Timers abgelaufen ist.

Zum Vergrößern anklicken....

gehts auch wenn ich einfach nur
timer1.start()
schreibe?
(und in den eigenschaftwen dann enabled = true mache)

Wenn du das machst, dann reicht es eines von beiden zu nehmen.
D.h. entweder Timer1.start() oder Timer1.enabled = True
Für Timer1.start muss der Timer nicht auf enabled = true stehen, da das mit dem Starten automatisch aktiviert wird.

Du musst auch beachten, dass der Timer, wenn er einmal abgelaufen ist immer wieder durchläuft, bis du ihn mit Timer1.stop() oder Timer1.enabled = False stoppst.

(also bei mir 10 mal tb drücken, weil ... ja.... bis ich inne loginleiste komme)
ich weiß nicht geht das so?

Das würde ich ändern:

Public Class Form1

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start("http://powerforen.de/forum/usercp.php")
Timer1.Enabled = True 'rausstreichen: einmal reicht (entweder enabled = true oder timer1.start
Timer1.Start()
End Sub

Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'10 mal tab drücken


dim i as integer

for i = 1 to 11
My.Computer.Keyboard.SendKeys(Chr(9))
next

'meine logindaten:
My.Computer.Keyboard.SendKeys("nikeee13")
My.Computer.Keyboard.SendKeys("Passwort")

My.Computer.Keyboard.SendKeys(Chr(13)) 'enter

Timer1.Stop()

End Sub
End Class

Fertig.

ja
Danke!
es hat schon einmal gefuntzt!
aber jeztz nicht mehr
liegt warscheinlich daran, dass der browser unterschiedlcih zum laden brauch (oder soo...)

nikeee13 schrieb:

ja
Danke!
es hat schon einmal gefuntzt!
aber jeztz nicht mehr
liegt warscheinlich daran, dass der browser unterschiedlcih zum laden brauch (oder soo...)

Zum Vergrößern anklicken....

Erhöhe mal das Intervall des Timers auf 8 sekunden, das sollte auf jeden Fall reichen.
Hast du dich auch immer ausgeloggt?
Und: Startet der Browser im Vodergrund, d.h. ist es direkt möglich nach dem Start des Browsers Text einzutippen? (Besonders bei Firefox darauf achten)

Nolath schrieb:

Erhöhe mal das Intervall des Timers auf 8 sekunden, das sollte auf jeden Fall reichen.
Hast du dich auch immer ausgeloggt?
Und: Startet der Browser im Vodergrund, d.h. ist es direkt möglich nach dem Start des Browsers Text einzutippen? (Besonders bei Firefox darauf achten)

Zum Vergrößern anklicken....

ja er startet im vordergrund
nur:
im usernamer feld tippt er nur "keee13" ein (oder garnix)
ber passwort tippt er auch nichts ein

Da er die Tastenanschläge alle blitzschnell hintereinander sendet kann es vllt. sein, dass Windows nicht alle verarbeiten kann.
Arbeite am besten mit 3 Timern:

Public Class Form1

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start("http://powerforen.de/forum/usercp.php")
Timer1.Start()
End Sub

Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

dim i as integer

for i = 1 to 11
My.Computer.Keyboard.SendKeys(Chr(9))
next
timer1.stop()
timer2.start()
End Sub

Public Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
'meine logindaten:
My.Computer.Keyboard.SendKeys("nikeee13")
My.Computer.Keyboard.SendKeys(Chr(9))
Timer2.Stop()
timer3.start()
End Sub

Public Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
My.Computer.Keyboard.SendKeys("Passwort")
My.Computer.Keyboard.SendKeys(Chr(13)) 'enter
Timer3.stop()

End Class



Dabei dürfte es reichen, wenn timer2 und timer3 je ein Intervall von 1,5 Sekunden haben.

ich glaub jetzt funtztes!
(habs noch nicht getestet ob ich einloggen kann
hab das enterpress auskommentiert)
muss 15 min warten dann kann ichs testen
aber das pw und den username gebts richtig ein!
am lustigsten wäre es ja, wenn man den button wegmacht und stattessen gleich anmeldet und das programm dann ins autostrart packt.
aber

THX!!!
Du bist ein wahrer Programmierer!^^

Du kannst den Code des Buttondrucks auch in den Code-Bereich einfügen, den du erreichst, wenn du doppelt auf die Titelleiste der Form drückst.
Dieser wird ausgeführt, bevor die Form angwzeigt wird.
Wenn du dann als letzte Code-Zeile vom Timer3 ein "End" einfügst, startet das Programm, führt den Code aus und beendet sich, ohne dass die graphische Benutzeroberfläche angezeigt wird.
Wähle noch ein gutes Icon aus und - FERTIG.

jo danke jetzt funtzes fehlerfrei!!!!
hab noch nen notifie - icon (oder wie sowas heißt) dazugemacht.
thx!