extra optie voor me spammer.. hoe? :(

[djpommes]

ik had het idee om een extra optie in me spammer te doen.. het heet dancing (heb ik niet bedacht) het houd in dat inplaats van dat hij zo spammed:

hoi
hoi
hoi
hoi
hoi
hoi

ik wil dat hij steeds een spatie voor de tekst doet en dan weer weg zoals dit:

hoi 
 hoi
  hoi
   hoi
    hoi
     hoi
     hoi
    hoi
   hoi
 hoi
hoi
 hoi 
  hoi 
   hoi
     hoi
enz. enz.

enz enz.

nu lukt dit me:

hoi 
 hoi
  hoi
   hoi
    hoi
     hoi 
      hoi
       hoi

met de code:

SendKeys Text1.Text & "{ENTER}"
Text1.Text = " " & Text1.Text

hoe kan ik hem weer terug laten lopen en weer heen.?
me hele code is dit:

Private Sub start_Click()
Timer1.Enabled = True
End Sub

Private Sub stop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub



Private Sub Timer1_Timer()
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
SendKeys Text1.Text & "{ENTER}"
Text1.Text = " " & Text1.Text
End Sub

 

[That Guy]

Zoals ik al vaker heb gezegd houden moderators geloof ik niet zo van "spammers"

Voor het effect met text kan ik je mischien wel iets verder helpen:
je kan gebruiken: Left() Right() Mid() en Replace()
Gebruik:

msgbox Left("Hallo", 3) [COLOR="SeaGreen"]'dit geeft dan "Hel"[/COLOR]
msgbox Right("Hallo, 3) [COLOR="SeaGreen"]'dit geeft "llo"[/COLOR]
msgbox Mid("Hallo", 3, 1) [COLOR="seagreen"]'dit geeft "l" omdat je 1 charakter wilt vanaf plek 3[/COLOR]
msgbox Replace("Hallo", "lo", "AA") [COLOR="seagreen"]'dit geeft HalAA omdat "lo" word vervangen door "AA"[/COLOR]

dus iets van:

text1.text = Right(text1.text, len(text1.text)-1) [COLOR="seagreen"]'dit zorgt ervoor dat de 1e character wegvalt, omdat je alle characters vanaf rechts wilt behalve 1[/COLOR]

 

[djpommes]

ikke nie begrijp...
heb een beetje veel gedronken net kijk later nog wel keer naar de code...
morgen ofzo.. ty denk ik

 

[That Guy]

schattig

 

[djpommes]

ik snap het echt niet sorr. :S
kan ik niet gewoon op een bepaalde manier de spatie er af halen steeds. ?

 

[CoD_NL]

dim i as integer, j as integer, k as integer

For i = 0 To 20
  For j = 1 To 1
    For k = 1 To 1
      Text1.Text = Text1.Text & "hallo" & vbCrLf
    Next
    Text1.Text = Text1.Text & " hallo" & vbCrLf
  Next
Next

Iets als bovenstaande zou moeten werken.

 

[djpommes]

waar moet ik dit plaatsen?

 

[CoD_NL]

Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer

For i = 0 To 10               'aantal regels
  For j = 0 To 5              'aantal spaties beginnende van voor
    Call output(j, "hoi")
  Next j
  For k = 5 To 0 Step -1  'aantal spaties beginnende van achteren
    Call output(k, "hoi")
  Next k
Next i
End Sub

Private Function output(aantal_spaties As Integer, bericht As String)
  For i = 0 To aantal_spaties
    Text1.Text = Text1.Text & " "
  Next i

  Text1.Text = Text1.Text & bericht & vbCrLf
End Function

Met bovenstaande hoef je alleen maar een textbox genaamd text1 op je form te plaatsen.
(met bovenstaande is het aantal spaties variabel. Bovenstaand voorbeeld geeft hetgeen jij als voorbeeld gaf)

 hoi
  hoi
   hoi
    hoi
     hoi
      hoi
      hoi
     hoi
    hoi
   hoi
  hoi
 hoi
 hoi
  hoi
   hoi
    hoi
     hoi
      hoi
      hoi
     hoi
    hoi
   hoi
  hoi
 hoi

edit: quote-tag naar code-tag veranderd.