|
| Autor |
Nachricht |
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
bestimmte anwendung in er taskleiste maximieren
Verfasst am: 27.08.2007, 21:35 |
|
|
Hey^^
Bin neu, und wollte anfangen VB zu lernen.
Ich wollte einen Flooder basteln, der so ablaufen soll:
Man gibt oben die Nachricht ein
dann ins nächste fenster denn namen des fensters, das vollgespammt werden soll
(also bei ICQ sind ja die namen)
und dann nurnoch einen button..
Soweit hab ich alles, aber jetzt kommts zu mein problem:
Wie kann ich es machen, das das ICQ fenster im hintergrund
bzw. in der Taskleiste nach oben kommt (maximiert)?
Danke euch
MfG
Devilworld |
|
| |
|
 |
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
|
Verfasst am: 28.08.2007, 06:12 |
|
|
Mit der Api setforegroundWindow
 |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 28.08.2007, 12:59 |
|
|
aah danke^^
eins noch,
Wenn ich denn Intervall wert selber angeben möchte (per textbox)
wie ist da der richtige code?
Confused
Timer2.Interval = ??? |
|
| |
|
|
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 28.08.2007, 13:10 |
|
|
| [vb:1:9adc17821e]Timer.Interval = txtInterval.Text[/vb:1:9adc17821e] |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 28.08.2007, 13:27 |
|
|
hmm ne, ihrgendwas mach ich falsch.
Hier mal n Code:
[vb:1:cda7a70e58]Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
SendKeys (txt1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer2.Interval = txtInterval.Text
Timer1.Enabled = False
End Sub
[/vb:1:cda7a70e58]
wo ist da denn der fehler= |
|
| |
|
|
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 28.08.2007, 13:31 |
|
|
| was ist denn der fehler?^^ |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 28.08.2007, 13:51 |
|
|
das er nicht nach dem Timer2 geht.
Der sendet 10 sec und fertig. egal ob ich sag
er soll nur 3 oder 8 secunden senden.
Auserdem kann ich nur einmal auf senden
drücken. danach kann man die aktion nicht
nochmal wiederhollen.
Mein erstes Projekt und es bringt mich zum
verzweifeln  |
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 28.08.2007, 14:22 |
|
|
Wenn du die Zeit von Timer1 verändern willst dann musst du auch
[vb:1:d6b91c1e17]Timer1.Interval = txtInterval.Text[/vb:1:d6b91c1e17]
und nicht
[vb:1:d6b91c1e17]Timer2.Interval = txtInterval.Text[/vb:1:d6b91c1e17]
schreiben.
Wenn ich das richtig sehe sind da noch mehr Fehler, du scheinst die beiden Timer verwechselt zu haben. Deshalb rate ich dir nimm eindeutigere Namen, z. Bsp. timerStart und timerFlood.
Die Nachrichten werden von Timer1 gesendet und nicht von Timer2 gesendet.
Hier mal der richtige Quelltext:
[vb:1:d6b91c1e17]Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
SendKeys (txt1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Interval = txtInterval.Text
Timer2.Enabled = False
Timer1.Enabled = True
End Sub[/vb:1:d6b91c1e17]
Sieht so aus als wenn du einen Chat Flooder programmieren willst. Hier noch mal ein paar Ideen was man dem Flooder für Features geben kann:
Der Flooder macht Automatisch Pause wenn er aktiv ist. (Floodet sich nicht selbst).
Stop Button (falls du noch keinen hast).
Während der Flooder Floodet ist er immer im Vordergrund (um besser stoppen zu können).
Man kann angeben wieviele Nachrichten versendet werden sollen.
Hier mal ein von mir geproggtes Beispiel mit allen oben genannten Features und noch mehr:
Download
Den Source Code gebe ich später mal raus, wenn du Hilfe brauchst solche Features umzusetzen dann frag nach ich helf dir dann. Ich denke mal bei manchen Features lernt man recht viel (aktives Fenster ermitteln, Fenster immer im Vordergrund...), sowas braucht man immer mal.
Mein Flooder hat noch ein Feature und zwar Variablen:
%zähler% wird durch die Zahl der gesendeten Nachricht ersetzt
%zzahl% wird durch eine Zufallszahl zwischen 1 und 100 ersetzt (bei jedem Absenden durch eine andere)
%now% wird durch Datum und Uhrzeit ersetzt
%time% wird durch die Zeit ersetzt
Die werden bei jeder Nachricht einzeln ersetzt, sind also immer aktuell bzw. anders. Dadurch ist mein Flooder zwar langsamer, ich finde es aber Praktisch.[/vb] |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 28.08.2007, 14:45 |
|
|
also, ich möchte ja einen Timer machen, denn man selber definieren kann.
(deswegen timer2)
Bei Timer2 soll man die zeit selber bestimmen, bervor der Timer2 denn
Timer1 (also der Timer, der sendet) ausschaltet.
Hier noch ein screen.
[img] http://www.bilder-hochladen.net/files/3tj0-1.jpg [/img] |
|
| |
|
|
ChEeTaH_
Tutorial Leser
Anmeldedatum: 01.07.2007
Beiträge: 67
|
Verfasst am: 28.08.2007, 14:57 |
|
|
du musst das Intervall in ms angeben.
wenn du z.B. die Sekundenanzahl im Txt stehen hast muss es etwa so aussehen:
[vb:1:3b95f41d69]
Timer1.Interval = Text1.Text & "000"
[/vb:1:3b95f41d69]
Natürlich musst du vorher überprüfen ob die eingabe nummerisch ist. |
|
| |
|
|
Devilworld_
Tutorial Leser
Anmeldedatum: 26.08.2007
Beiträge: 24
|
Verfasst am: 28.08.2007, 15:27 |
|
|
ok, da das jetzt nicht so richtig klappt,
wollte ich nochmal auf The-God-of-all zurück kommen,
und es so versuchen...
Danke für eure hilfe^^
Habt mir echt weitergeholfen
MfG
Devilworld |
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 28.08.2007, 15:41 |
|
|
| Devilworld hat Folgendes geschrieben: | also, ich möchte ja einen Timer machen, denn man selber definieren kann.
(deswegen timer2)
Bei Timer2 soll man die zeit selber bestimmen, bervor der Timer2 denn
Timer1 (also der Timer, der sendet) ausschaltet.
Hier noch ein screen.
[img] http://www.bilder-hochladen.net/files/3tj0-1.jpg [/img] |
Das war die Info die mir gefehlt hat.
Ich weis zwar nicht wozu Timer1 der ja anscheinend zum floode da ist erst nach einer bestimmten Zeit deaktiviert werden soll, aber du machst einen entscheidenden Denkfehler. Du stellst die Zeit erst ein wenn der Timer schon abgelaufen ist. Das heisst der Timer läuft die 10 Sekunden Standardeinstellung durch und stellt dann Timer1 aus und stellt dann, wenn schon alles vorbei ist seine Zeit richtig ein.
Wegen den ms: ich finde es keine gute Idee einfach 3 Nullen anzuhängen da dadurch ein String an den Timer gesendet wird. Das ist in VB vielleicht nicht schlimm, aber die meisten Programmiersprachen haben eine Strikte unterscheidung zwischen den Datentypen, und die Datentypen werden nicht so Automatisch umgewandelt wie teilweise in VB. Ich würde erstmal das Dataformat von der Textbox für die Zeitangabe auf Zahl stellen und dann den Text des Textfeldes in eine Zahl umwandeln und dann die Zahl mit 1000 Multiplizieren und dann das Ergebnis in eine Int umwandeln (falls die Zahl von der Textbox nicht schon in den Typ Integer umgewandelt wurde) weil so nur ganze Zahlen an den Timer gesendet werden können (ich weis gerade nicht ob der mit Komma Zahlen klar kommt und welchen Datentyp der Intervall hat).
Beispiel Quelltext:
[vb:1:25736e39cc]Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Interval = int(txtInterval.Text) * 1000
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
SendKeys (txt1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False
Timer2.Enabled = False 'wichtig weil der Timer sonst weiter läuft obwohl er nicht mehr benötigt wird
End Sub[/vb:1:25736e39cc] |
|
| |
|
|
Registrieren
Login
