[HILFE] GuiCtrlRead funst nit

09/19/2009 10:01 Maggot><#1
Hey,

ich habe ein problem

Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\admin\desktop\autoexpspender.kxf
$Auto = GUICreate("mouwMOUW", 633, 447, 193, 125)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("300000", 312, 72, 185, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 312, 136, 177, 21)
GUICtrlSetBkColor(-1, 0x808080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func Read ()
While 1 
	$dudu = GuiCtrlRead ($dudu)
	$input = GuiCtrlRead($input1)
	
	Sleep (100)
	WEnd 
EndFunc


Hotkeyset ("F7","Terminate")
Hotkeyset ("F6","Start")
Hotkeyset ("F5","Normal")

Normal()

Func Normal()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
                Start()
            Case $Button2 
                Shellexecute("www.elitepvpers.com")
        EndSwitch
    WEnd
    Sleep(50)
EndFunc

Func Start()
While 1  
Sleep ($Input)
Sleep (100)
Send ($dudu)
Wend 
EndFunc

Func Terminate()
    Exit 0
EndFunc

Hier ist das script........

Also das Problem ist, dass er einmal den Input nimmt also 100000 und dann nimmt er es nicht mehr sondern benutzt 0
wer kann mir helfen ?


MfG Maggot><

Danke für eure Hilfe
09/19/2009 10:22 bassbanane#2
Also ich hab's mal soweit angebessert, dass es funktioniert hat. Also dein Script war irgendwie sehr komisch aber naja. Viel Spaß damit:
Quote:
#include <GUIConstants.au3>

Hotkeyset ("{F7}","Terminate")
Hotkeyset ("{F6}","Start")


#Region ### START Koda GUI section ###
$Auto = GUICreate("mouwMOUW",300, 300, -1, -1)
GUISetBkColor(0x000080)
$button1=GUICtrlCreateButton( "Start", 10, 10, 100, 30)
$button2=GUICtrlCreateButton( "ePvP", 120, 10, 100, 30)
$Input1 = GUICtrlCreateInput("300000", 10, 72, 170, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 10, 106, 170, 21)
GUICtrlSetBkColor(-1, 0x808080)
$label=guictrlcreatelabel( "F6 to start"&@crlf&"F7 to terminate", 10, 130, 200, 50)
GUICtrlSetFont( -1, 14)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start()
Case $Button2
Shellexecute("www.elitepvpers.com")
EndSwitch
WEnd


Func Start()
$sleep=GUICtrlRead( $input1)
$send= GUICtrlRead( $dudu)

While 1
Sleep ($sleep)
Sleep (100)
Send ($send)
Wend
EndFunc

Func Terminate()
Exit 0
EndFunc
09/19/2009 10:22 SCORNI#3
edit:bassbanane warst wohl schneller als ich aber ich lasse meine code auch mal stehen :D
also wenn man auf start drückt dann sleept er die zeit in der oberen inputbox und sendet das was in der unteren steht.
Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\admin\desktop\autoexpspender.kxf
$Auto = GUICreate("mouwMOUW", 633, 447, 193, 125)
GUISetBkColor(0x000080)
$Input1 = GUICtrlCreateInput("300000", 312, 72, 185, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 312, 136, 177, 21)
GUICtrlSetBkColor(-1, 0x808080)
$Button1=guictrlcreatebutton ("start",0,0,70,20)
$Button2=GUICtrlCreateButton ("e*pvp",0,50,70,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###









Hotkeyset ("F7","Terminate")
Hotkeyset ("F6","Start")
Hotkeyset ("F5","Normal")

Normal()

Func Normal()
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
				
                Start()
            Case $Button2 
                Shellexecute("www.elitepvpers.com")
        EndSwitch
    WEnd
    Sleep(50)
EndFunc

Func Start()
	$dudu = GuiCtrlRead ($dudu)
	$input = GuiCtrlRead($input1)
While 1  
Sleep ($Input)
Sleep (100)
Send ($dudu)
Wend 
EndFunc

Func Terminate()
    Exit 0
EndFunc
09/19/2009 10:28 bassbanane#4
Also ich weiß zwar nicht was du mit deinem Script bewirken willst Maggot>< , aber ich würde veruschen eine andere Lösung als sleep zu benutzen, da dort das ganze Script schläft. Besser wäre z.B. AdLibEnable() ;-)
09/19/2009 10:37 Maggot><#5
ich danke euch beiden (siehe thx )


aso war der Fehler nur das der GuiCtrlRead befehl nicht in die while schleife durfte?

@bassbanane
ja ich bin newbie im scripten aber bin schon am lernen und versuche immer wieder neues zu finden
(alle tuts durchgelesen)


MfG Maggot><



Theard can be closed




@bas das ist ein exp spender für metin

wie funktioniert das kannst du das leicht erklären?

geht auch per pn ;)
09/19/2009 10:48 bassbanane#6
AdLibEnable() is eigentlich sehr einfach:
Du sagst welche Funktion nach wieviel Millisekunden immer wieder aufgerufen wird:
Quote:
AdlibEnable( "DeineFunktionHier", ZeitInMilliSekunden)
Um das ständige Wiederholen dann abzuschalten:
Quote:
adlibDisable()
Hoffe ich hab's verständlich erklärt ^^
09/19/2009 10:57 Maggot><#7
Also

AdlibEnable( "Sleep", $Input)

????????

und wo genau einbauen ??????

könntest du das beim code einprägen?
09/19/2009 11:16 bassbanane#8
So, wie es jetzt geschrieben ist, kannst du auch den Text ändern, der immer gesendet wird, ohne das Programm beendet zu müssen ;-) einfach in dem input den Text ändern und beim nächsten senden sendet er den neuen Text.

hier:
Quote:
#include <GUIConstants.au3>

Hotkeyset ("{F7}","Terminate")
Hotkeyset ("{F6}","Start")


#Region ### START Koda GUI section ###
$Auto = GUICreate("mouwMOUW",300, 300, -1, -1)
GUISetBkColor(0x000080)
$button1=GUICtrlCreateButton( "Start", 10, 10, 100, 30)
$button2=GUICtrlCreateButton( "ePvP", 120, 10, 100, 30)
$Input1 = GUICtrlCreateInput("300000", 10, 72, 170, 21)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$dudu = GUICtrlCreateInput("100000", 10, 106, 170, 21)
GUICtrlSetBkColor(-1, 0x808080)
$label=guictrlcreatelabel( "F6 to start"&@crlf&"F7 to terminate", 10, 130, 200, 50)
GUICtrlSetFont( -1, 14)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Start()
Case $Button2
Shellexecute("www.elitepvpers.com")
EndSwitch
WEnd


Func Start()
$sleep=GUICtrlRead( $input1)
adlibenable( "_send", $sleep)

EndFunc

Func Terminate()
Exit 0
EndFunc

func _send()
Sleep (100)
Send (Guictrlread($dudu))
EndFunc
09/19/2009 12:03 Maggot><#9
ok danke :) funktioniert prima :)

thx für eure hilfe



closed#
09/19/2009 17:49 Shadow992#10
Quote:
Originally Posted by Maggot>< View Post
ich danke euch beiden (siehe thx )


aso war der Fehler nur das der GuiCtrlRead befehl nicht in die while schleife durfte?

@bassbanane
ja ich bin newbie im scripten aber bin schon am lernen und versuche immer wieder neues zu finden
(alle tuts durchgelesen)


MfG Maggot><




Theard can be closed




@bas das ist ein exp spender für metin

wie funktioniert das kannst du das leicht erklären?

geht auch per pn ;)
Alle Tuts ? sicher ?
Es gibt ein Tutorial , das du sicher noch nicht gesehen hast (sonst hättest nicht mit Adlibenable gefragt)*Bisschen Werbung mach* :
[Only registered and activated users can see links. Click Here To Register...]
09/19/2009 18:10 Maggot><#11
ok ich gebe zu das kenne ich nicht werde es mir aber soofrt vornehmen ;)


danke :)


bin für jede weiterbildung dankbar :)