|
| Autor |
Nachricht |
eistee_
Newbie
Anmeldedatum: 13.01.2008
Beiträge: 10
|
Browsergame
Verfasst am: 13.01.2008, 15:41 |
|
|
Also mein Projekt ist es, ein Programm zu schreiben das eine seite mit der Webbrowser funktion öffnet, man eine bestimmte anzahl in ein feld eingeben kann und auf einen senden button zu klicken und das programm dann ein formular mit der anzahl ausfüllt und absendet, das klappt auch schon wunderbar jetzt wär bloß nett das dsa programm automatisch alle x minuten auf den submit button klickt, habe schon lange gesucht aber nichts drüber gefunden, hoffe ihr könnt mir helfen *g*
Grüße |
|
| |
|
 |
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 15:51 |
|
|
vll mit nem timer?
| Zitat: | | habe schon lange gesucht aber nichts drüber gefunden |
nie im leben hast du nichts über nen timer gefunden |
|
| |
|
|
eistee_
Newbie
Anmeldedatum: 13.01.2008
Beiträge: 10
|
Verfasst am: 13.01.2008, 16:05 |
|
|
joar dsa mit dem timer habe ich wohl schon gefunden aber ich will ein feld haben wo man einen wert in sekunden angeben kann und der timer geht dann solange, das problem ist bloß das bei diesem timer maximal 1 minute funktioniert, ich aber gern ein bischen mehr hätte.
Grüße |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 16:11 |
|
|
dann benuzt eine variable minuten, und im timer erhöst du sie immer um 1.
dann fragst du ab ob schon so viele minuten um sind wie du willst,
wenn ja dann setzt du die minuten wieder auf 0 und füllst das dingens aus. |
|
| |
|
|
eistee_
Newbie
Anmeldedatum: 13.01.2008
Beiträge: 10
|
Verfasst am: 13.01.2008, 16:24 |
|
|
Private Sub cmdLogin_Click()
' hier kann auch der Formularname angegeben werden,
' falls vorhanden und bekannt ( .Forms("formularname") )
On Error GoTo ErrHandler
With wb1.Document.Forms(0)
' Eingabefelder ausfüllen
.elements("menge").Value = txt2.Text
' Formular abschicken
.Submit
End With
On Error GoTo 0
Exit Sub
ErrHandler:
MsgBox "Es ist ein Fehler aufgetreten." & vbCrLf & _
"Evtl. existiert das angegebene Formular oder eines der " & _
"angegebenen Eelemente nicht.", vbExclamation
End Sub
Private Sub Text2_Change()
End Sub
so also ich will jetzt das der wert aus Text2_Change ausgelesen wird, und der wert nach klicken auf cmdLogin_Click in sekunden runterläuft und wenns dann halt auf 0 ist das formular ausgefüllt und abgeschickt wird und dsa ganze soll ne schleife sein also sich immer wieder wiederholen. Habe absolut keine ahnung wie ich dsa mit einer variable machen soll, fange gerade erst mit vb an, vllt könntest du mir ja meinen source so umschreiben dsa es klappen sollte.
Grüße |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 17:54 |
|
|
also du ordnest einen neuen timer auf deiner form an, der timer1 heißt.
| Code: |
Option Explicit
Dim startsekunden As Long
Dim verbleibendesekunden As Long
Private Sub form_load()
Timer1.Interval = 1000 ' 1000 milisekunden = 1 sekunde, das heißt jede sekunde wird das timer-event aufgerufen
Timer1.Enabled = False ' der timer ist noch nicht aktiv
End Sub
Private Sub cmdLogin_Click()
startsekunden = Val(Text2.Text) 'val() macht eine zahl aus dem string
verbleibendesekunden = Val(Text2.Text)
Timer1.Enabled = True 'der timer wird aktiviert
'hier der code zum ausfüllen und absenden des formulars
End Sub
Private Sub Timer1_Timer()
'folgender code wird jede sekunde aufgerufen
verbleibendesekunden = verbleibendesekunden - 1
Text2.Text = verbleibendesekunden ' in text2 wird angezeigt wie viel zeit noch übrig ist
'den sekunden wird 1 abgezogen
If verbleibendesekunden = 0 Then 'wenn die zeit um ist dann...
'hier kommt der code hin um das formular auszufüllen und abzuschicken
verbleibendesekunden = startsekunden 'verbleibendesekunden werden wieder auf den anfänglichen wert gesetzt
Text2.Text = verbleibendesekunden
End If
End Sub
|
|
|
| |
|
|
eistee_
Newbie
Anmeldedatum: 13.01.2008
Beiträge: 10
|
Verfasst am: 13.01.2008, 18:29 |
|
|
Habs alleine gelöst trozdem danke
Zuletzt bearbeitet von eistee_ am 13.01.2008, 18:38, insgesamt einmal bearbeitet |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 13.01.2008, 18:35 |
|
|
naja das sollte eigentlich nicht passieren, da wenn du auf cmd login klickst in der variable startsekunden die anzahl an sekunden gespeichert wird die du in text2 eingegeben hast, und im timer bei
| Code: | | verbleibendesekunden = startsekunden |
werden die verbleibenden sekunden(die ja jetzt 0 sind) wieder auf den wert gesetzt den du am anfang in text2 eingegeben hattest.
also bei mir gehts |
|
| |
|
|
Registrieren
Login
