|
You last visited: Today at 08:15
Advertisement
[HILFE] GuiCtrlRead funst nit
Discussion on [HILFE] GuiCtrlRead funst nit within the AutoIt forum part of the Coders Den category.
09/19/2009, 10:01
|
#1
|
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
|
[HILFE] GuiCtrlRead funst nit
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
|
#2
|
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
|
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
|
#3
|
elite*gold: 26
Join Date: Jun 2009
Posts: 972
Received Thanks: 228
|
edit:bassbanane warst wohl schneller als ich aber ich lasse meine code auch mal stehen 
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
|
#4
|
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
|
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
|
#5
|
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
|
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
|
#6
|
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
|
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:
Hoffe ich hab's verständlich erklärt ^^
|
|
|
09/19/2009, 10:57
|
#7
|
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
|
Also
AdlibEnable( "Sleep", $Input)
????????
und wo genau einbauen ??????
könntest du das beim code einprägen?
|
|
|
09/19/2009, 11:16
|
#8
|
elite*gold: 116
Join Date: Oct 2007
Posts: 677
Received Thanks: 248
|
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
|
#9
|
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
|
ok danke  funktioniert prima
thx für eure hilfe
closed#
|
|
|
09/19/2009, 17:49
|
#10
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,878
|
Quote:
Originally Posted by Maggot><
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* :
|
|
|
09/19/2009, 18:10
|
#11
|
elite*gold: 0
Join Date: Aug 2009
Posts: 57
Received Thanks: 9
|
ok ich gebe zu das kenne ich nicht werde es mir aber soofrt vornehmen
danke
bin für jede weiterbildung dankbar
|
|
|
 |
Similar Threads
|
[Schnelle Hilfe]Guictrlread???
04/08/2010 - AutoIt - 2 Replies
Hallo
will mal schnell fragen mach grade nen script für mich in SciTe bzw. AutoIt...
also wie macht man das nochmal mit send, guictrlread under input?
also ich meins so ist falsch ich weiß... (glaub ich)
send(Guictrlread=$input1)
was hab ich da falsch gemacht?? hatte das mal im kopf doch dann hab ichs
vergessen thx für help.
|
WIESO FUNST GILDENLAND NICHT ?
02/12/2010 - Metin2 Private Server - 1 Replies
ich brauch ma eure hilfe is das alles richtig so ? weil wen ich gildenland besetzen will steht da Dieses Stueck Land wurde bereits gekauft
quest guild_building begin
state start begin
when 20040.click begin
say("Grundstuecksverwalter:"..
"Ich bin Grundstuecksverwalter und zustaendig fuer"..
"den Verkauf von Landflaechen. Bevor die Monster"..
"das Land in der Mitte des Kontinents besetzten,"..
"hatten wir nicht unter Landknappheit zu leiden"..
"und es ging...
|
GUICtrlRead und WinSetState
12/10/2009 - AutoIt - 6 Replies
Hi, ich hätte da mal eine Frage. Und zwar programmier ich grade ein Programm (Script), das ein beliebiges Programm beendet, minimiert oder maximiert.
Mein Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
|
Problem mit GUICtrlRead
11/26/2009 - AutoIt - 8 Replies
Wollte hier n Script machen welches ne eingegebene IP bzw Hostnamen pingen kann und auch nen anderen Rechner durchsuchen kann (das ist erstma zweitrangig).
Problem ist das das anpingen beim 1. mal funktioniert und beim 2. mal nur 0 gepingt wird.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\hans\desktop\autoit test\lanchecker\w gui\lan checker v01a gui.kxf...
|
All times are GMT +1. The time now is 08:15.
|
|