Hallo mittlerweile habe ich mir jede Menge Skriptteile aus dem Forum
zusammen geklaut und was brauchbares daraus gemacht
Ich habe eine Oberfläche erstellt mit der man Skripte auswählen
kann, nur leider schaffe ich es nicht wenn ich einen weiteren
Button drücke das das entsprechend vorher gelaufende Skript
mit seinen Hotkeys etc. beendet wird, ohne das ich die Oberfläche
komplett beende
Vielleicht kann mir ja mal wieder einer helfen, das wäre nett.
Hier das Skript:
#include <GUIConstants.au3>
#include <misc.au3>
#include <Constants.au3>
#Include <GuiList.au3>
GUICreate(" Supertoo",600,450)
GUISetState(@sw_show)
Opt("TrayIconHide", 1)
ProcessSetPriority ("supertool.exe", 4)
$button1=GUICtrlCreateButton("Autologin",10,10,100,35)
$button2=GUICtrlCreateButton("Waffen I",10,60,100,35)
$button3=GUICtrlCreateButton("Waffen II",10,110,100,35)
$button4=GUICtrlCreateButton("Waffen III",10,160,100,35)
$button5=GUICtrlCreateButton("Waffen IV",10,210,100,35)
GUICtrlcreatelabel("Autologin: Server auswählen, Mauszeiger auf Verbinden parken",120,10)
GUICtrlcreatelabel("dann F1 drücken, nach erfolgreichen Login F2 zum Beenden drücken.",120,30)
GUICtrlcreatelabel("Versetzt-Feuern mit 2 Tizonas und 4 Blastern",120,60)
GUICtrlcreatelabel("Versetzt Feuern mit 2 Tizonas,2 Blastern 2 Kanons",120,110)
GUICtrlcreatelabel("Versetzt Feuern mit 2 Tizonas und 4 Kanons",120,160)
GUICtrlcreatelabel("Versetzt Feuern mit 2 Tizonas, Lancer(auf Slot 3) und 3 Blastern",120,210)
GUICtrlcreatelabel("Erstellt von L]",10,400 );den Link möchte ich gerne so haben, das er angeklickt werden kann, aber nur den LINK
GUICtrlCreateEdit("" ,10,300,25,20,0)
$Skript=GUICtrlCreateLabel("",10,420,211,15)
$CLOSE=GUICtrlCreateButton("EXIT",510,400,68,23)
$reg=GUICtrlCreateButton("",1,645,10,10,)
While 1
$msg=GUIGetMsg()
Select
Case $msg = $button1
$text = ""
GUICtrlSetData($Skript, $text & "Starte das Skript")
Sleep(1000)
GUICtrlSetData($Skript, "")
HotKeySet ( "{F1}","Start")
HotKeySet ( "{F2}","Ausgang")
While 1
Sleep(100)
WEnd
func Start()
while 1
mouseClick( "left" )
Sleep("300")
Send("{Enter}")
Wend
EndFunc
Func Ausgang()
Exitloop
EndFunc
Case $msg = $button2
$text = ""
GUICtrlSetData($Skript, $text & "Starte das Skript")
Sleep(1000)
GUICtrlSetData($Skript, "")
HotKeySet ( "<" , "druck2")
HotKeySet ( "4" , "druck2")
While 1
Sleep(100)
WEnd
Func druck2()
Send("1")
Sleep("30")
Send("5")
Sleep("20")
Send("2")
Sleep("50")
Send("3")
Sleep("50")
Send("9")
Sleep("20")
Send("6")
Sleep("30")
Send("1")
Sleep("30")
Send("5")
Sleep("20")
Send("2")
Sleep("50")
Send("3")
Sleep("50")
Send("9")
Sleep("20")
Send("6")
Sleep("30")
EndFunc
Case $msg = $button3
$text = ""
GUICtrlSetData($Skript, $text & "Starte das Skript")
Sleep(1000)
GUICtrlSetData($Skript, "")
HotKeySet ( "<" , "druck3")
HotKeySet ( "4" , "druck3")
While 1
Sleep(100)
WEnd
Func druck3()
Send("1")
Sleep("30")
Send("5")
Sleep("20")
Send("2")
Sleep("50")
Send("3")
Sleep("50")
Send("9")
Sleep("20")
Send("6")
Sleep("30")
Send("1")
Sleep("30")
Send("5")
Sleep("20")
Send("2")
Sleep("50")
Send("3")
Sleep("50")
Send("9")
Sleep("20")
Send("6")
Sleep("30")
EndFunc
Case $msg = $button4
$text = ""
GUICtrlSetData($Skript, $text & "Starte das Skript")
Sleep(1000)
GUICtrlSetData($Skript, "")
HotKeySet ( "<" , "druck4")
HotKeySet ( "4" , "druck4")
While 1
Sleep(100)
WEnd
Func druck4()
Send("1")
Sleep("30")
Send("5")
EndFunc
Case $msg = $button5
$text = ""
GUICtrlSetData($Skript, $text & "Starte das Skript")
Sleep(1000)
GUICtrlSetData($Skript, "")
HotKeySet ( "ö" , "druck5")
While 1
Sleep(100)
WEnd
Func druck5()
Send("{ENTER}")
Send("XXXXXXXXXXXXXXXXXXXXXX")
Sleep("5")
Send("{ENTER}")
Send("{ENTER}")
Send("XXXXXXXXXXXXXXXXXXXXXX")
Sleep("5")
Send("{ENTER}")
EndFunc
Case $msg = $CLOSE
Exit
EndSelect
If $msg=$GUI_EVENT_CLOSE Then ExitLoop
WEnd