|
| Autor |
Nachricht |
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Eine anweisung mehrmals ausführen lassen
Verfasst am: 17.04.2008, 14:03 |
|
|
Hi Community,
Also ich hätte da mal eine frage... Ich gib mal jetzt einen Beispiel..
| Code: | Function i()
ShellExecute Me.hwnd, "Open", "http://www.win32-coder.x2.to", _
vbNullString, vbNullString, 1
End Function |
Function festgelegt..
Der Aufruf z.B. 5 mal:
| Code: | Private Sub Command1_Click()
i
i
i
i
i
End Sub |
Gibt es vielleicht einen Weg um denn aufruf so zu Tätigen ohne das ich zum beispiel 5000 mal i i i etc. schreiben muss?
MfG
 |
|
| |
|
 |
Teto_
Poster
Anmeldedatum: 28.02.2007
Beiträge: 106
|
Verfasst am: 17.04.2008, 14:09 |
|
|
Du richtest eine variable counter(Zähler) ein und machst das dann mit einer While Schleife.Ich weiß aber nciht wie die While schleife in vb 6 aussieht,ist zu lange her,arbeite nur noch mit .net.
| Code: |
Function i()
ShellExecute Me.hwnd, "Open", "http://www.win32-coder.x2.to", _
vbNullString, vbNullString, 1
End Function
Private Sub Command1_Click()
Dim counter as Integer = 10
While (counter != 0)
i
counter -= 1
End While
End Sub
|
Zuletzt bearbeitet von Teto_ am 17.04.2008, 14:14, insgesamt einmal bearbeitet |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.04.2008, 14:13 |
|
|
Funktioniert leider nicht.
|
|
| |
|
|
Teto_
Poster
Anmeldedatum: 28.02.2007
Beiträge: 106
|
Verfasst am: 17.04.2008, 14:15 |
|
|
Nehme mal die While schleife
| Code: |
Function i()
ShellExecute Me.hwnd, "Open", "http://www.win32-coder.x2.to", _
vbNullString, vbNullString, 1
End Function
Private Sub Command1_Click()
Dim counter as Integer = 10
while counter != 0
i
counter -= 1
wend
End Sub
|
|
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.04.2008, 14:17 |
|
|
Check ich irgendwie nicht. 
|
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 17.04.2008, 14:19 |
|
|
Ähm sorry, aber Schleifen gehören ja wohl zum Standardwissen und solltest du eigentlich schon kennen.
Btw. eine Function einfach nur "i" zu nennen ist auch nicht grad sinnvoll.
Beispiel:
| Code: |
Private Sub DeineProzedur()
end Sub
Private Sub Command1_Click()
Dim iCount as long
For iCount = 1 to 5000
Call DeineProzedur
next iCount
End Sub
|
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 17.04.2008, 15:05 |
|
|
[flame]
angeblich superkrasse leet fud accountstealer und -checker "coden" und nochnichmal was schleifen gehört haben?? ich bitte dich.
[/flame]
| Code: | do
x = x+1
i ' deine funktion
'Doevents
loop until x = 5000
|
http://sollniss.1x.to/
 |
|
| |
|
|
Registrieren
Login
