Schreibe für euch einfache Programme zum üben

xShizoidx · 01/05/2012, 21:33

Guten Abend,

da ich noch etwas in Autoit üben muss und mir gerade nichts einfällt, was ich schreiben kann, gebe ich euch die Möglichkeit mir zu schreiben, was für ein Programm ich schreiben soll und ich euch anschließend das Script gebe.

Programme, die auf jeden Fall nicht schreiben werde :

- Bots
- Internet Automatisierungen

Erwünscht sind alle anderen Programme, solange sie mir nicht zu schwer sind.
Ich hoffe auf gute Vorschläge.

Mit freundlichen Grüßen,

Netterwurm8

Project_X · 01/05/2012, 22:38

Ein guten Taschenrechner

Also: +,-,*,/,sin,cos,tan usw

lolkop · 01/05/2012, 22:49

eine art spambot, mit einer unbegranzenten anzahl von spam-messages, welche jeweils seperat getimt laufen, start- und stopbar sind. das ganze sollte ohne hotkeys nur über ein gui laufen.

xShizoidx · 01/05/2012, 22:50

Quote:

Originally Posted by Project_X

Ein guten Taschenrechner

Also: +,-,*,/,sin,cos,tan usw

Habe ich schon einmal geschrieben, daher bitte etwas Anderes.
Den Kramms mit Sinus, Cos habe ich von anderen Scripten damals geklaut, da ich selber nicht wusste wie man soetwas berechnet. ;D

Quote:

Originally Posted by Project_X;lolkop

eine art spambot, mit einer unbegranzenten anzahl von spam-messages, welche jeweils seperat getimt laufen, start- und stopbar sind. das ganze sollte ohne hotkeys nur über ein gui laufen.

Wollte eigentlich keine Bots schreiben, aber einen kleinen Spambot zum üben kann ich ja mal machen.
Was meinst du mit seperat getimt?
Also zuerst soll der Spieler seine Texte angeben und er darf angeben, nach wievielen Sekunden jeder Text gesendet wird? Das mit " nur mit Buttons " weiß ich schon wie du es meinst. Da saß ich damals lange dran bis ich endlich auf eine Lösung gekommen bin, nun weiß ich sie nicht mehr, aber ich werde schon wieder eine Lösung finden, auch wenn sie bescheuert ist.

~~FansLave~~ · 01/05/2012, 22:52

Ein Bot wo man F11 drückt und sich z.b Google Öffnet

Wen mann F12 drückt sich Youtube Öffnet

Währe sehr toll <3

xShizoidx · 01/05/2012, 23:03

F12 kann man nicht verwenden. Stattdessen habe ich einfach mal F9 und F10 genommen. Mit F11 beendest du es wieder.

Code:

HotKeySet("{F9}","_Google")
HotKeySet("{F10}","_Youtube")
HotKeySet("{F11}","_Exit")

while 1
	sleep(100)
WEnd

Func _Google()
	ShellExecute("http://www.google.de/")
EndFunc

Func _Youtube()
	ShellExecute("http://www.youtube.com/")
EndFunc

Func _Exit()
Exit
EndFunc

lolkop · 01/05/2012, 23:11

Quote:

Originally Posted by netterwurm8

Wollte eigentlich keine Bots schreiben, aber einen kleinen Spambot zum üben kann ich ja mal machen.
Was meinst du mit seperat getimt?
Also zuerst soll der Spieler seine Texte angeben und er darf angeben, nach wievielen Sekunden jeder Text gesendet wird? Das mit " nur mit Buttons " weiß ich schon wie du es meinst. Da saß ich damals lange dran bis ich endlich auf eine Lösung gekommen bin, nun weiß ich sie nicht mehr, aber ich werde schon wieder eine Lösung finden, auch wenn sie bescheuert ist.

das ganze wäre ja nicht für mich :P

wenn jemand programme zum lernen schreiben möchte, wähle ich bewusst immer dieses beispiel, da hier genau die logik notwendig ist, welche für sämtliche komplexe tools notwendig ist =)

zu deiner frage:
beispiel: der user möchte 3 messages senden

"hallo" alle 3 sekunden
"blubb" alle 5 sekunden
"blah" alle 1.235 sekunden

natürlich soll er aber weiterhin die möglichkeit haben beliebig viele weitere messages hinzu zufügen.

als kleiner tip, das ganze kann grafisch schön mit einem einzigen button und einer liste bzw listview umgesetzt werden, wobei ich dir da keine vorschriften machen möchte =)

xShizoidx · 01/05/2012, 23:18

Quote:

Originally Posted by lolkop

das ganze wäre ja nicht für mich :P

wenn jemand programme zum lernen schreiben möchte, wähle ich bewusst immer dieses beispiel, da hier genau die logik notwendig ist, welche für sämtliche komplexe tools notwendig ist =)

zu deiner frage:
beispiel: der user möchte 3 messages senden
"hallo" alle 3 sekunden

"blubb" alle 5 sekunden

"blah" alle 1.235 sekunden

natürlich soll er aber weiterhin die möglichkeit haben beliebig viele weitere messages hinzu zufügen.

als kleiner tip, das ganze kann grafisch schön mit einem einzigen button und einer liste bzw listview umgesetzt werden, wobei ich dir da keine vorschriften machen möchte =)

Werde ich morgen mal schreiben, wird denke ich mal nicht ganz so schwer sein. Danke für den Tipp mit dem Listview, hatte sie selbe Idee nur mit einer Edit Box, sodass er bei mir die Durchläufe zählt und immer in eine neue Zeile schreibt, aber das mit der Liestview sieht viel besser aus.

~~MoepMeep~~ · 01/06/2012, 01:33

Asynchroner Client und Server ;o

~~FansLave~~ · 01/06/2012, 01:33

Quote:
Originally Posted by netterwurm8
F12 kann man nicht verwenden. Stattdessen habe ich einfach mal F9 und F10 genommen. Mit F11 beendest du es wieder.
Code:
HotKeySet("{F9}","_Google")
HotKeySet("{F10}","_Youtube")
HotKeySet("{F11}","_Exit")

while 1
	sleep(100)
WEnd

Func _Google()
	ShellExecute("http://www.google.de/")
EndFunc

Func _Youtube()
	ShellExecute("http://www.youtube.com/")
EndFunc

Func _Exit()
Exit
EndFunc

Sehr nett von dir

hast ein Thanks!

.iZiM0s. · 01/08/2012, 05:46

Ein "Mousclicker" wäre nice

bin bisher nämlich noch nicht fündig geworden, denn er soll auf Knopfdruck (also auf der Tastatur) Rechtsklicks machen (einfach an der Stelle, wo die Maus sich gerade befindet) und das nur solange man die Taste gedrückt hält.
Mit möglichst kleinen Abständen

xShizoidx · 01/08/2012, 12:22

Quote:

Originally Posted by .iZiM0s.

Ein "Mousclicker" wäre nice

bin bisher nämlich noch nicht fündig geworden, denn er soll auf Knopfdruck (also auf der Tastatur) Rechtsklicks machen (einfach an der Stelle, wo die Maus sich gerade befindet) und das nur solange man die Taste gedrückt hält.
Mit möglichst kleinen Abständen

So?

Code:

HotKeySet("{F2}","_Exit")
#Include <Misc.au3>
$DLLOpen = DllOpen("user32.dll")

while 1
If _IsPressed("70", $DLLOpen) Then
	MouseClick("right")
EndIf
WEnd

Func _Exit()
DllClose($DLLOpen)
EndFunc

@Lolkop : Tut mir leid, ich habe es am Ende nicht ganz geschafft mit dem Timer. Bei einer Nachricht und einer angegeben Zeit einen Timer reinzubauen ist ja kein Problem, aber bei sovielen habe ich es nicht gepackt.

Hier mal die Source, soweit ich war ( Paar Sachen wurden wieder entfernt, da es sonst nicht laufen würde. Ist etwas schlecht und unstrukturiert geschrieben ..

Code:

#Include <Timers.au3>
#Include <File.au3>
#Include <GuiListView.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("", 626, 450, 192, 124)
GUISetBkColor (0x00FFFF)
$LMain = GUICtrlCreateLabel("Spambot", 232, 8, 125, 47)
GUICtrlSetFont(-1, 28, 400, 0, "Arial Narrow")
GUICtrlSetColor(-2, 0xFFFFFF)
$Spamtexte = GUICtrlCreateLabel("Spamtexte", 8, 80, 81, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-2, 0xFFFFFF)
$ISpam = GUICtrlCreateInput("", 96, 80, 513, 21)
$LTextsend = GUICtrlCreateLabel("Text senden jede", 8, 120, 135, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-2, 0xFFFFFF)
$ISec = GUICtrlCreateInput("", 152, 120, 57, 21)
$LSekunden = GUICtrlCreateLabel("Sekunden", 216, 120, 77, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-2, 0xFFFFFF)
$AddSpam = GUICtrlCreateButton("+", 8, 160, 27, 25)
$ListView = GUICtrlCreateListView("Spamtext                   |Sekunden", 48, 160, 562, 238, BitOR($GUI_SS_DEFAULT_LISTVIEW,$WS_HSCROLL))
$Starten = GUICtrlCreateButton("Starten", 8, 416, 75, 25)
$Beenden = GUICtrlCreateButton("Beenden", 536, 416, 75, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
        Case $AddSpam
If GUICtrlRead($ISec) = "" And GUICtrlRead($ISpam) = "" Then
MsgBox(1,"Einträge fehlen","Sie müssen zuvor erst alle Felder ausfüllen.")
ElseIf GUICtrlRead($ISec) = "" Then
	MsgBox(1,"Eintrag fehlt","Bitte geben sie an, nach wievielen Sekunden der Text jedes Mal gesendet werden soll.")
ElseIf GUICtrlRead($ISpam) = "" Then
	MsgBox(1,"Eintrag fehkt","Bitte geben sie einen beliebigen Text zum Spamen an.")
Else
	_AddItems()
EndIf
        Case $Starten
		$iCount = 0
		$Count = _GUICtrlListView_GetItemCount($ListView)
        $iCount += $Count * 2
		$CountSchleife = 0
		$Timer = TimerInit()
		$i = 1
Do
	; Ab Hier habe ich den anderen Kramms rausgenommen, da ich es total verhauen habe
$aItem = _GUICtrlListView_GetItemTextArray($ListView,$CountSchleife)
$nMsg = GUIGetMsg()
Until $nMsg = $Beenden ; Schleife wird solange wiederholt, bis der Beenden Button gedrückt wurde
	EndSwitch
WEnd

lolkop · 01/08/2012, 12:40

um ein problem mit beliebig vielen ereignissen zu handeln, muss man zwangsweise mit zustandsarrays arbeiten.

am besten du definierst dir arrays für alle listview items, messages, zeiten und timer. das kann durchaus mit einem 4d array erledigt werden. es wäre aber auch möglich das ganze über 4 seperate arrays zu realisieren.

xShizoidx · 01/08/2012, 13:31

Ich versteh nicht ganz wie ich es mit 4 seperaten Arrays umsetzen kann, da es dann ja nicht für unendlich Texte reicht.
Hättest du sonst vielleicht noch eine andere Übung, z.B. ein kleineres Programm aber nicht soetwas wie ein Spambot?

lolkop · 01/08/2012, 13:43

mit "Redim" kannst du ja die größe des arrays immer wieder neu setzen.

Code:

Dim $array[1] ; <- erstellt 1dimensionales array
$array[0] = 'blah' ; <- einziges element mit text besetzen

Redim $array[2] ; <- array vergrößern
$array[1] = 'blubb' ; <- 2tes element mit text besetzen

;$array sieht nun so aus:
;['blah','Blubb']