Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 01:35

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

Advertisement



ich geh kapput -.- Pause funzt net

Discussion on ich geh kapput -.- Pause funzt net within the AutoIt forum part of the Coders Den category.

Closed Thread
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2009
Posts: 393
Received Thanks: 46
ich geh kapput -.- Pause funzt net

Hwey ich habe lange nachgelesen und habe nun das Gescripted:
Quote:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pott Bot by repins94", 180, 291, 297, 132)
GUISetCursor (0)
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Scripted by Repins94", 16, 256, 151, 25)
GUICtrlSetFont(-1, 11, 800, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Start", 24, 24, 137, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Pause", 24, 88, 137, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Ende", 24, 152, 137, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $Button1
Call ("Start")

Case $Button2
Call ("TogglePause")

Case $Button3
Call ("Ende")

EndSwitch
wend


HotKeySet ( "{F7}" , "Start" )
HotKeySet ( "{F9}" , "Ende" )
HotKeySet("{F8}", "TogglePause)

Func Start ()
While 1
Sleep (1)
Send ( "{1}")

WEnd
EndFunc


Func Ende ()
Exit
EndFunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Bot Pausiert',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func ShowMessage()
MsgBox(4096,"","This is a message.")
EndFunc

While 1
sleep (1)
WEnd

mit nem leichteren script geht der bott sammt fenstern dann auf aber weder pause noch ende fuzen dann das wäre dann dieses:
Quote:

............................BOxen etc ma weg gelassen ..........

Func Start ()
While 1
Sleep (500)
Send ( "{1}")

WEnd
EndFunc


Func Ende ()
Exit
EndFunc

Func Pause()
Sleep(1)
EndFunc

While 1
sleep (1)
WEnd
repins94 is offline  
Old 09/26/2009, 20:42   #2


 
Ende!'s Avatar
 
elite*gold: 1
Join Date: Feb 2009
Posts: 6,379
Received Thanks: 7,998
Was funktioniert denn daran nicht? Und was sollte eig passieren?

Außerdem ergibt die Funktion TogglePause überhaupt keinen Sinn. Meinst du die vll mit "pause"?
Ende! is offline  
Old 09/26/2009, 21:22   #3
 
elite*gold: 0
Join Date: Jan 2009
Posts: 393
Received Thanks: 46
Quote:
Originally Posted by IceFire32 View Post
Was funktioniert denn daran nicht? Und was sollte eig passieren?

Außerdem ergibt die Funktion TogglePause überhaupt keinen Sinn. Meinst du die vll mit "pause"?
eigentlich sollte wnen ich pause drücke aufgehört werden 1 bzw 2 gedrückt zu werden und bei ende sollte das programm zu gehen
repins94 is offline  
Old 09/28/2009, 20:54   #4
 
VRF's Avatar
 
elite*gold: 185
Join Date: May 2009
Posts: 1,389
Received Thanks: 197
hmm versteh auch ned wirklich was er meint... ist es vieleicht nicht beabsichtigt dass die pausen 1 millisekunde und nicht 1 normale sekunde geht??
VRF is offline  
Old 09/29/2009, 14:52   #5
 
elite*gold: 0
Join Date: May 2009
Posts: 264
Received Thanks: 43
in autoit wird die zeit in miliskunden angegeben d.h wenn du 1 sek pause willst dann must du Sleep(1000) schreiben ^^
flothekilla94 is offline  
Old 09/29/2009, 22:03   #6
 
elite*gold: 0
Join Date: Jan 2009
Posts: 393
Received Thanks: 46
Pls Close/delete
repins94 is offline  
Old 10/01/2009, 21:12   #7
 
elite*gold: 0
Join Date: May 2009
Posts: 264
Received Thanks: 43
ich reports schon für dich
flothekilla94 is offline  
Closed Thread


Similar Threads Similar Threads
gemischti is kapput
04/18/2010 - Metin2 Private Server - 9 Replies
hi ich hab neulich an der datenbank rumgemacht und jez wenn ich auf gemischti klick paxssiert nix bei on_click is schon ne 1 drin
Schmied kapput.
02/12/2010 - Metin2 Private Server - 10 Replies
Abend, durch einen Bug war es auf meinem Server möglich sachen von +7-9 100% zu uppen. Ich wollte die Items auf +6 zurück setzen und es hat auch funktionirt aber seit dem kann man nicht mehr Schmieden da steht dann immer das er es nicht mehr Schmieden kann. Ich habe schon meine Einstellungen bei "item" zurück gemacht aber es geht immer noch nicht. Was soll ich tun?
bäm mod kapput?
08/04/2009 - World of Warcraft - 5 Replies
hi mein bam mod funzt aus unerklärlichen gründen nicht mehr hab schon saved variables gelöscht ausgatuscht klappt einfach nicht meine kumpel haben die gleiche version bei denen klappt es aber kann mir mal wer da bitte helfen ? thx slyla
World of Warkraft CD3 kapput
12/21/2008 - World of Warcraft - 3 Replies
Kann mir einer bitte CD3 bei rapedshare stellen oder so , ich währ sehr dankbar :) mfg Mamon



All times are GMT +2. The time now is 01:35.


Powered by vBulletin®
Copyright ©2000 - 2024, 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 ©2024 elitepvpers All Rights Reserved.