Kann mir bitte jemand soetwas basteln?

Page 2 of 2 1 2
08/08/2011 10:36 arisha#16
Danke omer der klappt gut, nur müsste er mehrere inputboxen haben wie das script von nettewurst(welches echt gut ist, aber leider nicht funktioniert):handsdown:
08/08/2011 11:06 buFFy!#17
kp ob ichs richtig verstanden hab oO
Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

Dim $Label[10] = [9]
Global $step = 1

$dll = DllOpen('user32.dll')
If $dll = -1 Then Exit

$hGUI = GUICreate("spambot", 278, 300, -1, -1)

$File = "spam.ini"

For $i = 8 To 8+8*32 Step 32
	$Label[$step] = GUICtrlCreateInput( IniRead($File, "texts", "text" & $step, "Enter text here for Numpad " & $step), 48, $i, 217, 21 )
	GUICtrlCreateLabel($step, 8, $i-2)
	$step += 1
Next

GUISetState()
$step = 1

While 1
	For $i = 0x60 To 0x69 Step 1
		If _IsPressed( Hex($i), $dll ) Then
			While _IsPressed( Hex($i), $dll )
				Sleep(10)
			WEnd
			Send( "{enter}" )
			Sleep(100)
			Send( GUICtrlRead( $Label[($i-0x60)] ) )
			Sleep(100)
			Send( "{enter}" )
		EndIf
	Next

	If GUIGetMsg() == $GUI_EVENT_CLOSE Then
		For $i = 1 To 9
			IniWrite($File, "texts", "text" & $i, GUICtrlRead( $Label[$i] ))
		Next
		DllClose($dll)
		Exit
	EndIf

	Sleep(10)
WEnd
08/08/2011 14:26 arisha#18
viiiiiilen dank buFFy! :handsdown::handsdown: Es funktioniert wunderbar :D

+1 Dafür ;)

Tut mir leid nochmal zu stören, aber bei vielen klappt dieses Tool nicht O.o So wie es scheint nur bei mir :mad: Müssen die anderen irgendwas beachten, muss ich etwas ändern?Läuft es auf gewissen systemen nicht? Was ist das Problem?


Als Fehler sagen sie immer, das nur die Zahl angezeigt wird :(

Hoffe das Hilft
Danköööö:handsdown::handsdown::handsdown::handsdow n:
08/09/2011 15:48 buFFy!#19
numblock anmachen soll helfen
08/09/2011 16:26 arisha#20
Haben die Ja :p
08/09/2011 16:35 buFFy!#21
dann eben als admin starten.. an was anderem kanns nicht liegen
08/09/2011 16:39 rere1999#22
wie wers damit must nur strg gedrückt halten (ist eigentlich der gleiche kode nur mit strg)

Code
Quote:
HotKeySet("^1", "Senden1")
HotKeySet("^2", "Senden2")
HotKeySet("^3", "Senden3")
HotKeySet("^4", "Senden4")
HotKeySet("^5", "Senden5")
HotKeySet("^6", "Senden6")
HotKeySet("^7", "Senden7")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 625, 398, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 40, 465, 21)
$Text = GUICtrlCreateLabel("Text", 208, 8, 41, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Hotkey = GUICtrlCreateLabel("Hotkey", 536, 8, 54, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$ff = GUICtrlCreateLabel("1", 552, 40, 10, 17)
$f = GUICtrlCreateLabel("2", 552, 80, 16, 17)
$Input2 = GUICtrlCreateInput("", 8, 80, 465, 21)
$Input3 = GUICtrlCreateInput("", 8, 120, 465, 21)
$Label1 = GUICtrlCreateLabel("3", 544, 128, 36, 17)
$Input4 = GUICtrlCreateInput("", 8, 160, 465, 21)
$F1 = GUICtrlCreateLabel("4", 552, 168, 16, 17)
$Input5 = GUICtrlCreateInput("", 8, 200, 465, 21)
$Label2 = GUICtrlCreateLabel("5", 552, 208, 16, 17)
$Label3 = GUICtrlCreateLabel("6", 552, 248, 16, 17)
$Input6 = GUICtrlCreateInput("", 8, 240, 465, 21)
$Label4 = GUICtrlCreateLabel("7", 552, 288, 16, 17)
$Input7 = GUICtrlCreateInput("", 8, 280, 465, 21)
$Label5 = GUICtrlCreateLabel("Nach dem Drücken des jeweiligen Hotkeys wird der angegebene Text gesendet.", 8, 320, 604, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Func Senden1()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input1))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden2()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input2))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden3()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input3))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden4()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input4))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden5()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input5))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden6()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input6))
Sleep(150)
Send("{Enter}")
EndFunc
Func Senden7()
sleep (200)
Send("{Enter}")
Sleep(300)
Send(GUICtrlRead($Input7))
Sleep(150)
Send("{Enter}")
EndFunc
EndSwitch
WEnd
08/09/2011 16:48 buFFy!#23
dein code macht zwar genau das gleiche, aber ist viel sauberer als meiner ! good job !

edit: lolol.. du hast funktionen in ner schleife definiert xD leute gibts .. ^^
Page 2 of 2 1 2