Beiträge von Schnitzel

**Schnitzel**

oh sry da gibts wohl n problem mit isint.

probiers mal so:

Spoiler anzeigen

[autoit]

#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $play
Dim $time = 20
Dim $exit = 1
$dll = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("^{SPACE}", "starten")
HotKeySet("^{x}", "stoppen")
HotKeySet("^{o}", "timeroption")

[/autoit] [autoit][/autoit] [autoit]

WinWait("Analyst -", "")

[/autoit] [autoit][/autoit] [autoit]

$manuellerclick = False
While $exit
While $play = 1
If Not $manuellerclick Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
EndIf
AdlibRegister("_Countdown", 1000)
While $time > 0 And $play = 1
ToolTip($time)
Sleep(10)
$manuellerclick = False
If _IsPressed("04", $dll) Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
$manuellerclick = True
ExitLoop
EndIf
WEnd
ToolTip($time)
AdlibUnRegister("_Countdown")
$time = 20
WEnd
Sleep(250)

[/autoit] [autoit][/autoit] [autoit]

While $play = 0
ToolTip("")
WEnd

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

DllClose($dll)

[/autoit] [autoit][/autoit] [autoit]

Func _Countdown()
$time -= 1
EndFunc ;==>_Countdown

[/autoit] [autoit][/autoit] [autoit]

Func starten()
$play = 1
EndFunc ;==>starten

[/autoit] [autoit][/autoit] [autoit]

Func stoppen()
$play = 0
EndFunc ;==>stoppen

[/autoit] [autoit][/autoit] [autoit]

Func timeroption()
If $play Then
$newtime = Int(InputBox("Timer-Einstellung", "Bitte gewünschte Sekunden angeben", "", "", 210, 120))
If $newtime And not @error Then
$time = $newtime
EndIf
EndIf
EndFunc ;==>timeroption

[/autoit]

**Schnitzel**

sag doch mal wie man zu diesem fenster kommt.
also was man alles klicken muss, ich glaub so lässt sichs wesentlich schneller finden wie mans machen könnte

**Schnitzel**

oh mann ich idiot, wieso seh ich das nicht
(immer blöd wenn ein rechner kein autoit drauf hat )

Spoiler anzeigen

[autoit]

#include <FileConstants.au3>
#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local Const $sFile = "ASB_Krause_120ASB26.txt"
Local $hFile = FileOpen($sFile, 0)
Local $n = FileSetPos($hFile, 0, $FILE_BEGIN)

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Textdatei: " & $sfile,500, 500)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $hFile = -1 Then
MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateEdit( "" & FileGetpos($hFile) & FileRead($hFile), 0, 0, 500, 500)

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

FileFlush($hFile)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit

EndSelect
WEnd

[/autoit]

so sollts dann zumindest funktionieren

**Schnitzel**

er frägt doch auch $i ab und nicht den rückgabewert von _IsPressed oder nicht?

**Schnitzel**

Zitat von MelS3247

*neeeeeeerv*

nerv doch bitte nicht. und schongarnicht gleich nach ner stunde. geht so auch nicht schneller.

probiers mal so:

Spoiler anzeigen

[autoit]

#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $play
Dim $timealt = 20
Dim $exit = 1
$dll = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("^{SPACE}", "starten")
HotKeySet("^{x}", "stoppen")
HotKeySet("^{o}", "timeroption")

[/autoit] [autoit][/autoit] [autoit]

WinWait("Analyst -", "")

[/autoit] [autoit][/autoit] [autoit]

$manuellerclick = False
While $exit
While $play = 1
If Not $manuellerclick Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
EndIf
$time = $timealt
AdlibRegister("_Countdown", 1000)
While $time > 0 And $play = 1
ToolTip($time)
Sleep(10)
$manuellerclick = False
If _IsPressed("04", $dll) Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
$manuellerclick = True
ExitLoop
EndIf
WEnd
ToolTip($time)
AdlibUnRegister("_Countdown")
$time = 20
WEnd
Sleep(250)

[/autoit] [autoit][/autoit] [autoit]

While $play = 0
ToolTip("")
WEnd

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

DllClose($dll)

[/autoit] [autoit][/autoit] [autoit]

Func _Countdown()
$time -= 1
EndFunc ;==>_Countdown

[/autoit] [autoit][/autoit] [autoit]

Func starten()
$play = 1
EndFunc ;==>starten

[/autoit] [autoit][/autoit] [autoit]

Func stoppen()
$play = 0
EndFunc ;==>stoppen

[/autoit] [autoit][/autoit] [autoit]

Func timeroption()
If $play Then
$newtime = InputBox("Timer-Einstellung", "Bitte gewünschte Sekunden angeben", "", "", 210, 120)
If isint($newtime) And not @error Then
$timealt = $newtime
EndIf
EndIf
EndFunc ;==>timeroption

[/autoit]

**Schnitzel**

oh sry ja du hast die falschen includes.

lösch deine und nimm die:

[autoit]

#include <FileConstants.au3>
#include <GUIConstantsEx.au3>

[/autoit]

**Schnitzel**

lösch zeile 9

**Schnitzel**

na schön wie hast dus denn probiert?

was meistens auch noch ganz gut klappt ist Controlsend mit ner Alt tastenkombi

**Schnitzel**

Zitat von MelS3247

lol...wohl nicht!

wahrscheinlich auch weil niemand das tool kennt das du da automatisierst. könnte schon sein dass es ne möglichkeit gibt, aber dazu brauchen wir mehr details.

ist das tool freeware?

**Schnitzel**

sollte so oder so ähnlich klappen

Spoiler anzeigen

[autoit]

;~ Morgääähn,

[/autoit] [autoit][/autoit] [autoit]

;~ ich brauche mal wieder eure Hilfe...folgendes:
;~ In dem kommenden Script soll eine Inputbox eingebunden werden, die während $play=1 immer mit dem Hotkey Strg+o abgerufen werden soll. Bei Eingabe eines Zahlenwertes und OK, soll $time mit $newtime geupdated
;~ und auch fürs nächste Mal gespeichert werden. Bei CANCEL soll alter Wert stehen bleiben.
;~ Wäre jemand bereit mir unter die Arme zu greifen???

[/autoit] [autoit][/autoit] [autoit]

#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $play
Dim $time = 20
Dim $exit = 1
$dll = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("^{SPACE}", "starten")
HotKeySet("^{x}", "stoppen")
HotKeySet("^{o}", "timeroption")

[/autoit] [autoit][/autoit] [autoit]

WinWait("Analyst -", "")

[/autoit] [autoit][/autoit] [autoit]

$manuellerclick = False
While $exit
While $play = 1
If Not $manuellerclick Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
EndIf
AdlibRegister("_Countdown", 1000)
While $time > 0 And $play = 1
ToolTip($time)
Sleep(10)
$manuellerclick = False
If _IsPressed("04", $dll) Then
WinActivate("Analyst -", "")
ControlSend("Analyst -", "", "AfxOleControl42u2", "^{RIGHT}")
$manuellerclick = True
ExitLoop
EndIf
WEnd
ToolTip($time)
AdlibUnRegister("_Countdown")
$time = 20
WEnd
Sleep(250)

[/autoit] [autoit][/autoit] [autoit]

While $play = 0
ToolTip("")
WEnd

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

DllClose($dll)

[/autoit] [autoit][/autoit] [autoit]

Func _Countdown()
$time -= 1
EndFunc ;==>_Countdown

[/autoit] [autoit][/autoit] [autoit]

Func starten()
$play = 1
EndFunc ;==>starten

[/autoit] [autoit][/autoit] [autoit]

Func stoppen()
$play = 0
EndFunc ;==>stoppen

[/autoit] [autoit][/autoit] [autoit]

Func timeroption()
If $play Then
$newtime = InputBox("Timer-Einstellung", "Bitte gewünschte Sekunden angeben", "", "", 210, 120)
If isint($newtime) And not @error Then
$time = $newtime
EndIf
EndIf
EndFunc ;==>timeroption

[/autoit]

**Schnitzel**

mit Controlclick und den passenden Koordinaten sollte es klappen.
hab auch mal was von Truecrypt automatisiert.

ich finde leider auf die schnelle nicht zu dem passenden fenster das du da hast.
wenn du mir sagst was ich klicken muss schau ich mir das mal genauer an

ps: sowas wie windowinfo könntest du in spoiler machen (einfach auf SP klicken) dann wird der thread nicht so ewig lang

**Schnitzel**

ich finds auch nichtmehr

allerdings bin ich gerade drauf gekommen das das wohl genausowenig hilft.
da könntest du dann die ersten 5 buchstaben eingeben, mit dem letztenn buchstaben einfach etwas warten und dann den letzten senden

am besten isses wahrscheinlich du gewöhnst es dir ab, oder du blockierst einen der 6 buchstaben den du fürs spiel nicht brauchst

**Schnitzel**

und sowas is für dich ne sinnvolle anwendung?

aber gut:
es gibt ne möglichkeit nen string als hotkey zu setzen google einfach mal nach "autoit hotkey string" oder sowas

**Schnitzel**

Zitat von oOBecksOo1337

Darum geht es garnicht so wirklich ich will halt AutoIt lernen und sowas ist halt einfach

dann bitte einen "darum gehts nicht" thread aufmachen der nix mit nem bot zu tun hat.
sowas wollen wir hier einfach nicht

einen button belegen sollte nicht das problem sein:

[autoit]

GUICreate("Test")
$button = GUICtrlCreateButton("Testbutton", 10, 10)
GUISetState()

[/autoit][autoit][/autoit][autoit]

while 1
$msg = guigetmsg()
switch $msg
case $button
msgbox(0,"","")
EndSwitch
wend

[/autoit]

**Schnitzel**

so?

Spoiler anzeigen

[autoit]

While 1
$msg = MsgBox(4, "test", "Drück ja nciht auf JA!!")
Switch $msg
Case 6
test()
Case 7
msgbox(0,"","nein wurde gedrückt")
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func test()
msgbox(0,"","Tu irgendwas")
EndFunc

[/autoit]

**Schnitzel**

Zitat von Zero2q

cool danke =)
geht das auch mit farben?

ich kenn das script nicht, aber ich denke mal das es mit farben auch geht.

oder zumindest könnte man es mit farben genauso basteln

**Schnitzel**

Zitat von Raupi

Schnitzel, die Func do() mußt du noch umbenennen. Do ist ein Schlüsselwort.

ups natürlich

Zitat

1. Ich hab das mit dem Button nicht hinbekommen

welcher button?

Zitat

2. Ich hab mit dem tool irgendwie den SciTe Editor versteckt und kriege ihn jetzt nichtmehr sichtbar :pinch:

am besten mit dem taskmanager beenden und neu starten.
der prozess heißt ScITE.exe oder so ähnlich

**Schnitzel**

wie alle immer das while 1 while 2 machen

edit: Code mal entfernt. hatte den titel der gui überlesen

**Schnitzel**

Zitat von M☻x

ich glaub für _ispressed braucht man noch eine DLL schau dir am besten noch mal die hilfe dazu an

nicht unbedingt. sollte so auch gehn

**Schnitzel**

Zitat von oOBecksOo1337

ok danke leute aber wieso kann ich mein programm nicht über das X schliesen?

ok nochmal:
und hilfethreads am besten immer mit deinen gesamten code öffnen

wir können nicht wissen warum wenn wir nicht sehen wie dus probierst

Beiträge von Schnitzel

Inputbox einbinden

Auswahlbutton klicken bei Truecrypt

Gui Fenster schließt sich ganze zeit

_IsPressed

Inputbox einbinden

Gui Fenster schließt sich ganze zeit

Gui Fenster schließt sich ganze zeit

Auswahlbutton klicken bei Truecrypt

Control... funzt nicht

Inputbox einbinden

Auswahlbutton klicken bei Truecrypt

Tastenreihenfolge blockieren

Tastenreihenfolge blockieren

Liste refreshen

aufforderung wiederholen

Zeichnen mit Autoit

Liste refreshen

Liste refreshen

Piepen soll es

Liste refreshen