DAS IST KEIN BOT, SONDERN EINE Andere art eines Autostartmenüs. Ich überblicke mehr.
Meine Gui
Funktion: Einrichten von Programmen die immer mal gestartet werden sollen. Doch ich bestimme was und wann.
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#Include <GuiComboBox.au3>
FileInstall ("Pergonsysten.ini", @ScriptDir & "\Pergonsysten.ini")
[/autoit] [autoit][/autoit] [autoit]$size = WinGetClientSize("[active]")
;***************************************************
;***************** Haupt Menu **********************
#Region ### START Koda GUI section ### Haupt Menu
$Form1H = GUICreate("Hauptmenü", 531, 101, Default, Default)
GUISetCursor (2)
GUISetFont(8, 800, 4,"MS Sans Serif")
GUISetBkColor(0x3D95FF)
$Label1H = GUICtrlCreateLabel("Willkommen im Hauptmenu!", 150, 8, 381, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
$ProgrammeH = GUICtrlCreateButton("Programme", 15, 50, 150, 30, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;************** Haupt Menu Ende *******************
;***************************************************
;***************************************************
;***************** Spielermenue ********************
#Region ### START Koda GUI section ### Programmenue
$Programmemenue = GUICreate("Startermenue", 472, 401, Default, Default)
GUISetBkColor(0x3D95FF)
$Programmemenueb2 = GUICtrlCreateButton("Durchsuchen", 288, 48, 80, 21)
$Programmemenueb1 = GUICtrlCreateButton("Starten", 232, 344, 80, 25)
$ProgrammemenueLabel1 = GUICtrlCreateLabel("hier richtig", 17, 16, 435, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$ProgrammemenueInput0 = GUICtrlCreateInput("", 128, 48, 150, 21)
$Label3 = GUICtrlCreateLabel("Hauptprogramm:", 64, 48, 55, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 104, 80, 225, 249)
$Label4 = GUICtrlCreateLabel("1:", 114, 100, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("2:", 114, 124, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("3:", 114, 148, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("4:", 114, 172, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("5:", 114, 196, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("6:", 114, 220, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("7:", 114, 244, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("8:", 114, 268, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("9:", 114, 292, 52, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Dim $Programmemenuec[10]
Dim $LTEXT[10]
For $S=1 to 9 Step 1
$ComboTEXT = IniRead (@ScriptDir & "\Pergonsysten.ini", "LetztePhade", "IDL"& $S, "default" )
$LTEXT[$S] = $ComboTEXT
Next
$Programmemenuec[1] = GUICtrlCreateCombo($LTEXT[1], 170, 100, 150, 25)
$Programmemenuec[2] = GUICtrlCreateCombo($LTEXT[2], 170, 124, 150, 25)
$Programmemenuec[3] = GUICtrlCreateCombo($LTEXT[3], 170, 148, 150, 25)
$Programmemenuec[4] = GUICtrlCreateCombo($LTEXT[4], 170, 172, 150, 25)
$Programmemenuec[5] = GUICtrlCreateCombo($LTEXT[5], 170, 196, 150, 25)
$Programmemenuec[6] = GUICtrlCreateCombo($LTEXT[6], 170, 220, 150, 25)
$Programmemenuec[7] = GUICtrlCreateCombo($LTEXT[7], 170, 244, 150, 25)
$Programmemenuec[8] = GUICtrlCreateCombo($LTEXT[8], 170, 268, 150, 25)
$Programmemenuec[9] = GUICtrlCreateCombo($LTEXT[9], 170, 292, 150, 25)
$maltxt = IniRead (@ScriptDir & "\Pergonsysten.ini", "Clientmal", "IDmal", "0" )
$mal = GUICtrlCreateInput($maltxt, 151, 343, 33, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Hauptprogramm", 103, 343, 43, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("mal:", 199, 343, 33, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ### Programmenuemenue Ende
;************** Spielermenue Ende ******************
;***************************************************
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;#################################################### Programmenuemenue
Case $Programmemenueb2
$reS = FileOpenDialog("Datei öffnen", @DesktopDir, "Alle Dateien (*.*)|Exceutable (*.exe)")
If @error Then
MsgBox(16, "Error" , "Es ist nichts ausgewählt!", 5)
EndIf
GUICtrlSetData($ProgrammemenueInput0, $reS)
Case $Programmemenueb1
$TEXT = GuiCtrlRead($ProgrammemenueInput0)
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Client", "client", $TEXT )
$maltxt = GuiCtrlRead($mal)
IniWrite (@ScriptDir & "\Pergonsysten.ini", "Clientmal", "IDmal", $maltxt )
For $i = 1 to 9 Step 1
$ComboTEXT = GuiCtrlRead($Programmemenuec[$i])
IniWrite (@ScriptDir & "\Pergonsysten.ini", "LetztePhade", "IDL"& $i, $ComboTEXT )
Next
run (@ScriptDir & '\rtm.exe')
$malZ = GuiCtrlRead($mal)
For $i=1 to $malZ Step 1
$TEXT = GuiCtrlRead($ProgrammemenueInput0)
Run($TEXT)
Next
Exit
;####################################################Programmenue Ende
;#################################################### Haupt Menu
Case $ProgrammeH
GUISetState (@SW_HIDE, $Form1H)
GUISetState (@SW_SHOW, $Programmemenue)
$Ctext = IniRead (@ScriptDir & "\Pergonsysten.ini", "Client", "client", "default" )
If ( $Ctext <> "" ) Then
GUICtrlSetData($ProgrammemenueInput0, $Ctext)
EndIf
If FileExists(@ScriptDir & '\Pergonsysten.ini') Then
$lineS = IniReadSection(@ScriptDir & "\Pergonsysten.ini", "Phadangaben")
If @error Then
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
Else
Dim $AllLinesS = ""
For $i = 1 To $lineS[0][0]
$AllLinesS &= $lineS[$i][1] &"|"
Dim $AllLines2S = $AllLinesS
Next
EndIf
Else
MsgBox(4096,"Warnung" , "Pergonsysten.ini does NOT exists")
EndIf
For $i=1 to 9 Step 1
GUICtrlSetData($Programmemenuec[$i], $AllLines2S)
_GUICtrlComboBox_SetDroppedWidth($Programmemenuec[$i], 500)
Next
;#################################################### Haupt Menu Ende
EndSwitch
WEnd
dabei existiertt eine Pergonsysten.ini (Pergon = mein PCname)
Spoiler anzeigen
[LetztePhade]
IDL1 =Z:\.....
IDL2 =
IDL3 =
IDL4 =
IDL5 =
IDL6 =
IDL7 =
IDL8 =
IDL9 =
[Client]
client=Z:\Sitix\client.exe
[Phadangaben]
IDSP0=C:\....
IDSP1=C:\Dokumente und Einstellungen\Karybu\Desktop\.....
IDSP2=C:\Dokumente und Einstellungen\......
IDSP3=Z:\.....
[Clientmal]
IDmal=5
Zu meinem Problem. Der 1. Run befehl (run (@ScriptDir & '\rtm.exe')) Funktioniert einwandfrei.
Die 2. run
$malZ = GuiCtrlRead($mal)
For $i=1 to $malZ Step 1
$TEXT = GuiCtrlRead($ProgrammeInput0)
Run($TEXT)
Next
hat ein paar startprobleme.
Wie komt der Fehler zu stande. Ich gehe meinen Clienten suchen. Klicke start und alles funktioniert wie ich es will.
Beim 2. Start findet das Programm in der ini den Phad und setzt es in die input. Ich brauche nur noch start drücken, DOCH DANN IST ER DA. Der fehler. Der Client kan nicht gestartet werden. Error: "fotal error- font.mul kan nicht gefunden werden. hä? Wo komt die her? Im Phad steht nix von dieser datei. Diese existiert auch komischerweiße ist in dem verzeichnis wo der Client ist.