Multidesk.be » Forums » .Net » Hulp nodig met VB 2010 - Random (verplaatst)

  • Pagina
  • 1 van 1
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door VisualBasic-Leerende op zaterdag 13 augustus 2011 om 16:07:06.
VisualBasic-Leerende heeft nog geen avatar toegevoegd
Multiviteit: 2
Dit forum ziet er heel pro uit maar ik ben in ieder geval nog maar 16 jaar en ben een beetje bezig met Visual Basic 2010 en heb dus weinig kennis ervan.

Ik probeer alles goed uit te leggen en uit eindelijk hoop ik dat jullie me kunnen helpen:P

Ik ben een spammer aan het maken maar niet zomaar één. De spammer heeft 4 tekstboxen waar je tekst in kunt typen die je wilt spammen.

Waneer je de spammer gebruikt typ je dus in 4 tekstboxsen tekst.
Het idee is dat er random steeds word uit gekozen welk bericht als eerst verschijnt.

dus b.v eerst de tekst van tekstbox1 dan die van 3 dan die van 4 dan die van 2.

dus steeds een andere volgorde.

Ik heb nu deze code:

SendKeys.Send(TextBox1.Text)
SendKeys.Send("(Enter)")
SendKeys.Send(TextBox2.Text)
SendKeys.Send("(Enter)")
SendKeys.Send(TextBox3.Text)
SendKeys.Send("(Enter)")
SendKeys.Send(TextBox4.Text)
SendKeys.Send("(Enter)")

nu spamt alle tekstboxen op volgorde, het idee is dus dat het random gebeurt.

ik heb rond gezocht op google en op deze site maar kwam er niet uit aangezien het met moeilijke codes etc. en getallen was.
Ik hoop dat iemand me kan helpen!

Alvast bedankt!!(thumbsup)_O_

Opmerking van de crew

Ik heb je bericht even in de correcte categorie geplaatst.
SMG
^ Reactie #1 geschreven door thekid op maandag 15 augustus 2011 om 01:25:09.
thekid's avatar
Multiviteit: 5273
Moderator
gewoon een beetje je verbeelding gebruiken

je hebt dus 4 textboxen, en je wil ze random samenvoegen

'k heb een klein projectje gemaakt als voorbeeld hoe je het kan oplossen

Heb je dus in dit geval een List(Of String), die je opvult met je texten (in dit geval je 4 textboxen)

en Random nr generator, die naargelang de grootte van de Lijst een index zal kiezen

een StringBuilder die al je texten bevat en opsplits met een EmptyLine

op de buttonklik voeg je deze elementen samen, en kom je met een uitkomst in TextBox5

De Imports System.Text voorziet de StringBuilder die altijd wel handig is om grote stukken tekst samen te voegen. Bij een ToString() om deze klasse worden alle teksten samengevoegd tot 1 tekst :) Daarna doe je ermee wat je wilt ;)

dus gewoon een beetje creatief zijn, dit is natuurlijk maar 1 van de vele mogelijke oplossingen, 't was gewoon het eerste dat in mij opkwam :)

Bijlage: 74e77b36e1a1a10864121ad215831a49.zip

CODE
  1. Imports System.Text
  2.  
  3. Public Class Form1
  4.  
  5.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.  
  7.     End Sub
  8.  
  9.     Function GetSeparatedSpam() As String
  10.  
  11.         Dim lijstSpamText As New List(Of String)
  12.         Dim randomNr As New Random()
  13.         Dim myText As New StringBuilder
  14.  
  15.         lijstSpamText.Add(TextBox1.Text)
  16.         lijstSpamText.Add(TextBox2.Text)
  17.         lijstSpamText.Add(TextBox3.Text)
  18.         lijstSpamText.Add(TextBox4.Text)
  19.  
  20.         Do
  21.             Dim curArray As Integer = randomNr.Next(lijstSpamText.Count)
  22.             myText.AppendLine(lijstSpamText(curArray))
  23.             myText.AppendLine(String.Empty)
  24.             lijstSpamText.RemoveAt(curArray)
  25.         Loop While (lijstSpamText.Count > 0)
  26.  
  27.         Return myText.ToString()
  28.  
  29.     End Function
  30.  
  31.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  32.         TextBox5.Text = GetSeparatedSpam()
  33.     End Sub
  34. End Class
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
  • Pagina
  • 1 van 1

Snel-antwoordformulier
Toon uitgebreid antwoordformulier Bericht nalezen Bericht plaatsen