Register for your free account! | Forgot your password?

You last visited: Today at 03:09

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[Hilfe]

Discussion on [Hilfe] within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
Killermufin's Avatar
 
elite*gold: 0
Join Date: Apr 2010
Posts: 98
Received Thanks: 16
[Hilfe]

hallo elitepvpers ahbe ein kleines prob.
PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 GUICreate("PickupBot by Zuck"279200211372)
$taste GUICtrlCreateInput("y oder ^"1524810521)
$Start GUICtrlCreateButton("Start (F10)"244010533$WS_GROUP)
$Exit GUICtrlCreateButton("Beenden (F9)"2412010733$WS_GROUP)
$Stop GUICtrlCreateButton("Stop (F11)"248010733$WS_GROUP)
$Group1 GUICtrlCreateGroup("Tasten"1624129153)
GUICtrlCreateGroup("", -99, -9911)
$timeinms GUICtrlCreateInput("100"15212810521)
$Pick GUICtrlCreateLabel("PickUp Taste:"152247217)
$Time GUICtrlCreateLabel("Zeit zwischen den Picks"15210411917)
$Info GUICtrlCreateButton("Info"2001767317$WS_GROUP)
$hi   GUICtrlCreateButton("Info"701767317$WS_GROUP)
GUISetState(@SW_SHOW)
GUICreate("BildTest"507397192124)
;
erstellt ein GUI indem man das Bild sehen soll
$Button1 
GUICtrlCreateButton("Elitepvpers",  507397192124)
;
Erstellt einen Button
GUICtrlSetBkColor
(-10x008080)
;
Farbe des Buttons
GUICtrlSetCursor 
(-10)
;
Finger als Cursor
GUICtrlCreatePic
(@ScriptDir "\yang.jpg"00505393BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;
GUICtrlCreatePic ist der GUIbefehl für ein BildMit @ScriptDir drückst du ausdass das Bild in dem Ordner ist indem auch der Script bzwnachher die .exe ist.
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###


HotKeySet("{F10}""_Start")
HotKeySet("{F11}""_Stop")
HotKeySet("{F9}""_Beenden")
  
Func _Beenden()
Exit
EndFunc ;==>_Beenden

Func _Stop
()
While 
1
Sleep
(60000)
WEnd
EndFunc 
;==>_Stop
Func _Start
()
Sleep(1500)
While 
1
$PickUp 
GUICtrlRead($taste)
Send($PickUp)
$Time GUICtrlRead($timeinms)
Sleep($Time)
WEnd
EndFunc 
;==>_Start

Func 1
$nMsg 
GUIGetMsg()
Switch 
$nMsg
Case $GUI_EVENT_CLOSE
Exit
Case 
$Start
_Start 
()
Case 
$Stop
_Stop 
()
Case 
$Exit
_Beenden 
()
Case 
$Info
_Info 
()
While 
1
$nMsg 
GUIGetMsg()
Switch 
$nMsg
Case $GUI_EVENT_CLOSE
Exit

Case 
$Button1
ShellExecute
("http://www.elitepvpers.com")


EndSwitch
WEnd 
i-wie willes es nicht fungsen....
P.S. bin neu mit programmiere
Killermufin is offline  
Old 06/24/2010, 17:45   #2
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
erklär mir mal warum du hier und hier:
das selbe postest? das ist mit Autoit geschrieben, also kannst du es im Autoit forum lassen...

und dein script sieht so drucheinander aus.. sag mal erst was das sein soll... blick da irgentwie so garnciht durch o.O
omer36 is offline  
Old 06/24/2010, 18:27   #3
 
bladerofdarknes's Avatar
 
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
2 mal switch drinn und nur ein endswitch, außerdem wirkt alles leicht gequetscht, arbeite mit etwas mehr raum mal hier mal da eine leerzeile wäre super
Quote:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PickupBot by Zuck", 279, 200, 211, 372)
$taste = GUICtrlCreateInput("y oder ^", 152, 48, 105, 21)
$Start = GUICtrlCreateButton("Start (F10)", 24, 40, 105, 33, $WS_GROUP)
$Exit = GUICtrlCreateButton("Beenden (F9)", 24, 120, 107, 33, $WS_GROUP)
$Stop = GUICtrlCreateButton("Stop (F11)", 24, 80, 107, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Tasten", 16, 24, 129, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$timeinms = GUICtrlCreateInput("100", 152, 128, 105, 21)
$Pick = GUICtrlCreateLabel("PickUp Taste:", 152, 24, 72, 17)
$Time = GUICtrlCreateLabel("Zeit zwischen den Picks", 152, 104, 119, 17)
$Info = GUICtrlCreateButton("Info", 200, 176, 73, 17, $WS_GROUP)
$hi = GUICtrlCreateButton("Info", 70, 176, 73, 17, $WS_GROUP)
GUISetState(@SW_SHOW)

$Button1 = GUICtrlCreateButton("Elitepvpers", 507, 397, 192, 124)
;Erstellt einen Button
GUICtrlSetBkColor(-1, 0x008080)
;Farbe des Buttons
GUICtrlSetCursor (-1, 0)
;Finger als Cursor
GUICtrlCreatePic(@ScriptDir & "\yang.jpg", 0, 0, 505, 393, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICtrlCreatePic ist der GUIbefehl für ein Bild. Mit @ScriptDir drückst du aus, dass das Bild in dem Ordner ist indem auch der Script bzw. nachher die .exe ist.
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###


HotKeySet("{F10}", "_Start")
HotKeySet("{F11}", "_Stop")
HotKeySet("{F9}", "_Beenden")

Func _Beenden()
Exit
EndFunc ;==>_Beenden

Func _Stop()
While 1
Sleep(60000)
WEnd
EndFunc ;==>_Stop

Func _Start()
Sleep(1500)
While 1
$PickUp = GUICtrlRead($taste)
Send($PickUp)
$Time = GUICtrlRead($timeinms)
Sleep($Time)
WEnd
EndFunc ;==>_Start

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
_Start ()
Case $Stop
_Stop ()
Case $Exit
_Beenden ()
Case $Info
_Info ()


Case $GUI_EVENT_CLOSE
Exit

Case $Button1
ShellExecute("http://www.elitepvpers.com")


EndSwitch
WEnd
und statt shellexecute hättest du auch #include <ie.au3> _iecreate("www.elitepvpers.com") nehmen können sieht i-wie schöner aus :P
bladerofdarknes is offline  
Thanks
1 User
Old 06/24/2010, 19:28   #4
 
Killermufin's Avatar
 
elite*gold: 0
Join Date: Apr 2010
Posts: 98
Received Thanks: 16
mein prob war eig das er das bild net anzeigen wollte ^^ aber thx
Killermufin is offline  
Old 06/24/2010, 21:00   #5
 
Smincke2's Avatar
 
elite*gold: 0
Join Date: Jul 2009
Posts: 184
Received Thanks: 299
Mach einfach das BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS) weg dan gehts
Smincke2 is offline  
Reply


Similar Threads Similar Threads
Hilfe Hilfe Pls Gucken Brauche Hilfe
04/04/2010 - Technical Support - 3 Replies
Ja wegen der Signatur sieht es euch ma an in pics /http://img641.imageshack.us/img641/6070/unbenann t790kjkh.png http://img444.imageshack.us/img444/6981/unbenannt kjhghzuijhbh.png kann mir pls einer HELFEN...
HILFE HILFE HILFE MIT SjSro Startproblem
12/14/2009 - SRO Private Server - 4 Replies
Hi Leute hab ein Problem mit SjSro wenn ich auf starten klicke kommt diese Meldung Sorry.Failed to execute Silkroad. bitte helfen hab anti virus aus geht immer noch nicht wo liegt das problem thx schon mal im voraus BITTE HELFEN BITTE WILL UMBEDINGT ZOCKEN!!



All times are GMT +1. The time now is 03:10.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.