|
| Autor |
Nachricht |
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Floder
Verfasst am: 25.04.2007, 23:31 |
|
|
... jaja die dummen kiddies die hier ihre floder irgendwo aus nem copy & pasta werk erstellen und zeigen willen das sie cooool sind... *gg*
aber nein ^^ alles selber und mit kompletter auswahl also alles was man so braucht (für ICQ  )
ich lerne VB erst seid 3 bis 4 tagen also immer gerne verbesserungsvorschläge
Vor dem Start
Nach dem start
Link zum programm: http://uploaded.to/?id=pi2uf6 // UPDATE
Source
| Code: | Public Class frm_main
Private Sub floder_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles floder_start.Click
If Not floder_timer2.Enabled Then
floder_timer1.Enabled = True
floder_flodings.Text = 0
floder_text.Enabled = False
floder_intervall.Enabled = False
floder_enter.Enabled = False
floder_strg_enter.Enabled = False
floder_start.Text = "Stope Floding"
Else
floder_timer2.Enabled = False
floder_text.Enabled = True
floder_intervall.Enabled = True
floder_enter.Enabled = True
floder_strg_enter.Enabled = True
floder_start.Text = "Starte Floding"
End If
End Sub
Private Sub floder_timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles floder_timer1.Tick
Dim intval As Integer
intval = floder_intervall.Text
floder_timer2.Interval = intval
floder_timer2.Enabled = True
floder_timer1.Enabled = False
End Sub
Private Sub floder_timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles floder_timer2.Tick
If floder_enter.Checked Then
Call SendKeys.Send(floder_text.Text)
Call SendKeys.Send("{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
Else
Call SendKeys.Send(floder_text.Text)
Call SendKeys.Send("^{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
End If
End Sub
End Class |
Müsst nix schreiben... wollt nur mal was sinnloses machen *gg*
MFG Miah
Zuletzt bearbeitet von Miah_ am 26.04.2007, 22:02, insgesamt einmal bearbeitet |
|
| |
|
 |
Chickenman_
Poster
Anmeldedatum: 24.04.2007
Beiträge: 149
|
Verfasst am: 26.04.2007, 00:30 |
|
|
ey  du hast mich missbraucht habe dich da wohl auf eine idee gebracht |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 26.04.2007, 08:22 |
|
|
Sieht recht gut aus.
Das einzige was mir auffällt ist die nicht ganz korrekte Rechtschreibung. ^^
Das solltest du nochmal kontrollieren.
Ansonsten sieht dein Programm sehr nett aus. :thumbsup:
mfg, ZiG
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 26.04.2007, 09:54 |
|
|
rechtschreibung... sowas nebensächliches... *gg*
hab noch vergessen das random einzubauen, damit dient alle nachreichten gleich sind |
|
| |
|
|
Chickenman_
Poster
Anmeldedatum: 24.04.2007
Beiträge: 149
|
Verfasst am: 26.04.2007, 12:37 |
|
|
ne frage , an dich ich setze auch beim start knopf die optionen aus mit enabled aber wie hast du gemacht das die funktion der enabled weiterhin geht
z.b
ein optionbutton hat die funktion 20 nachrichten zu schicken. Nun ich habe dürch den start button den option button auf fals gesetz so das er beim flooden nicht mehr benutz werden kann. Allerdingst ist es nun ja so das aber die funktion vom option`s button ausgesetzt ist .
Danke für die antwort |
|
| |
|
|
Miah_
Coder
Anmeldedatum: 22.04.2007
Beiträge: 96
|
Verfasst am: 26.04.2007, 21:58 |
|
|
ich habe alles ausgestellt, bis auf den button und so einfach n bissel was gemacht ^^
| Code: | floder_text.Enabled = False
floder_intervall.Enabled = False
floder_enter.Enabled = False
floder_strg_enter.Enabled = False |
floder_start währe der button aber da wird einfach nur der text geändert
| Code: | | floder_start.Text = "Stop" |
nebenbei hab jetzt auch alles so umgebaut, das man nciht immer die gleiche nachricht verschickt
einfach
| Code: | If floder_enter.Checked Then
Call SendKeys.Send(floder_text.Text)
Call SendKeys.Send("{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
Else
Call SendKeys.Send(floder_text.Text)
Call SendKeys.Send("^{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
End If |
in
| Code: | If floder_enter.Checked Then
Call SendKeys.Send(floder_text.Text & " " & Int((100 - 0 + 1) * Rnd()) + 0)
Call SendKeys.Send("{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
Else
Call SendKeys.Send(floder_text.Text & " " & Int((100 - 0 + 1) * Rnd()) + 0)
Call SendKeys.Send("^{ENTER}")
floder_flodings.Text = floder_flodings.Text + 1
End If |
ändern ^^[/code] |
|
| |
|
|
Registrieren
Login
