Hallo Ich mal wieder
Ich hab eine frage.Bei meinem Programm
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.10.0
Author: _P_auf_K_
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\alexander\desktop\sro_to0l_v1.kxf
$Tool = GUICreate("Silkroad Tool by _P_auf_K_", 499, 447, -1, -1)
GUISetFont(12, 400, 2, "Monotype Corsiva")
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Einstellungen", 8, 128, 257, 161)
$speichern = GUICtrlCreateButton("Speichern", 152, 192, 91, 33, 0)
$ordner = GUICtrlCreateButton("Sro.exe Wählen", 152, 152, 91, 33, 0)
$Laden = GUICtrlCreateButton("Laden", 152, 232, 91, 33, 0)
$Reset = GUICtrlCreateButton("Reset", 40, 256, 75, 25, 0)
$id = GUICtrlCreateInput("Deine Id", 24, 168, 105, 26)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$pw = GUICtrlCreateInput("Pw", 24, 224, 105, 26, $ES_PASSWORD )
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alexander\Desktop\Silkroad_Sonstiges\sr-banner2.jpg", 0, 0, 497, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group2 = GUICtrlCreateGroup("Sonstiges", 280, 128, 209, 161)
$Uhr1 = GUICtrlCreateInput("", 296, 160, 25, 26)
$Uhr2 = GUICtrlCreateInput("", 328, 160, 25, 26)
$Uhr3 = GUICtrlCreateInput("", 360, 160, 25, 26)
$Uhrzeit = GUICtrlCreateLabel("Uhrzeit", 392, 168, 50, 22)
$plvlhelper = GUICtrlCreateButton("Plvl Helper", 336, 200, 91, 33, 0)
$sonstiges = GUICtrlCreateButton("Sonstiges", 336, 240, 91, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Allgemein", 8, 296, 481, 137)
$start = GUICtrlCreateButton("Start Script", 24, 320, 99, 41, 0)
$downloads = GUICtrlCreateButton("Downloads", 152, 376, 99, 41, 0)
$Label1 = GUICtrlCreateLabel("Made", 392, 320, 43, 26)
GUICtrlSetFont(-1, 14, 400, 2, "Monotype Corsiva")
$Label2 = GUICtrlCreateLabel("by", 400, 344, 20, 26)
GUICtrlSetFont(-1, 14, 400, 2, "Monotype Corsiva")
$Label3 = GUICtrlCreateLabel("_P_auf_K_", 368, 376, 100, 29)
GUICtrlSetFont(-1, 16, 400, 2, "Monotype Corsiva")
GUICtrlSetColor(-1, 0xFF0000)
$fragen = GUICtrlCreateButton("Fragen ?!", 24, 376, 99, 41, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Normal = GUICtrlCreateButton("Normal", 400, 16, 83, 33, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Multiclient = GUICtrlCreateButton("Multiclient", 24, 24, 83, 33, 0)
GUICtrlSetState(-1, $GUI_HIDE)
$Teamspeak = GUICtrlCreateButton("Teamspeak", 24, 64, 83, 33, 0)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$trackmenu = GuiCtrlCreateContextMenu ()
$aboutitem = GuiCtrlCreateMenuitem ("Infos",$trackmenu)
$abouthilfe = GuiCtrlCreateMenuitem ("Fragen",$trackmenu)
; next one creates a menu separator (line)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)
Func _SROexesuchen()
SetError(0)
$Path = FileSelectFolder("Bitte wähle den Ordner aus , indem sich deine Silkroad.exe befindet", "", 1)
IniWrite( @scriptdir & "\Config.ini" , "Verzeichniswahl", "Sro", $Path & "\Silkroad.exe")
If @error = 1 Then
EndIf
EndFunc
While 1
GUICtrlSetData($Uhr1,@HOUR)
GUICtrlSetData($Uhr2,@MIN)
GUICtrlSetData($Uhr3,@SEC)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aboutitem
MsgBox(270336,"Info's","Das Programm wurde für Silkroad entworfen.")
Case $abouthilfe
ShellExecute( @ScriptDir & "\Hilfe.ini",@SW_MAXIMIZE )
Case $exititem
Exit
Case $fragen
ShellExecute( @ScriptDir & "\Hilfe.ini",@SW_MAXIMIZE )
Case $ordner
_SROexesuchen()
Case $speichern
Global $accread = GUICtrlRead( $id )
Global $pswread = GUICtrlRead( $pw )
Global $iniwriteacc = iniwrite( @scriptdir & "\Config.ini" , "Account" , "Acc:" , $accread )
Global $iniwritepsw = IniWrite( @scriptdir & "\Config.ini" , "Password" , "Pw:" , $pswread )
TrayTip( "" , "Accountdaten erflogreich gespeichert" , 4 )
Case $Laden
$iniaccread = IniRead( @scriptdir & "\Config.ini" , "Account" , "Acc:" , "" )
$inipswread = IniRead( @scriptdir & "\Config.ini" , "Password" , "Pw:" , "" )
GuiCtrlSetData($id, $iniaccread)
GuiCtrlSetData($pw, $inipswread)
GUICtrlSetState($id, $GUI_DISABLE)
GUICtrlSetState($pw, $GUI_DISABLE)
TrayTip( "" , "Accountdaten erflogreich geladen" , 4 )
Case $Reset
GUICtrlSetState($id, $GUI_ENABLE)
GUICtrlSetState($pw, $GUI_ENABLE)
Case $downloads
guictrlsetstate($Pic1,$GUI_HIDE)
$Group4 = GUICtrlCreateGroup("Downloads", 16, 0, 481, 113)
$Multiclient = GUICtrlCreateButton("Multiclient", 24, 24, 83, 33, 0)
$Teamspeak = GUICtrlCreateButton("Teamspeak", 24, 64, 83, 33, 0)
$Labelmulti = GUICtrlCreateLabel("Neuste Multiclient", 128, 32, 114, 22)
$Labelts = GUICtrlCreateLabel("Teamspeak Downloaden für alle die es noch nicht haben ;)", 128, 72, 335, 22)
$Normal = GUICtrlCreateButton("Normal", 400, 16, 83, 33, 0)
Case $Normal
guictrlsetstate($Pic1,$GUI_ENABLE)
guictrlsetstate($Group4,$GUI_HIDE)
guictrlsetstate($Multiclient,$GUI_HIDE)
guictrlsetstate($Teamspeak,$GUI_HIDE)
guictrlsetstate($Labelmulti,$GUI_HIDE)
guictrlsetstate($Labelts,$GUI_HIDE)
guictrlsetstate($Normal,$GUI_HIDE)
guictrlsetstate($Pic1,$GUI_ENABLE)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alexander\Desktop\Silkroad_Sonstiges\sr-banner2.jpg", 0, 0, 497, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $plvlhelper
ShellExecute( @Scriptdir & "\Data\PLvl Helper.exe")
Case $sonstiges
ShellExecute( @Scriptdir & "\Data\Sonstiges.exe")
EndSwitch
WEnd
Weiß ich nicht mehr weiter
-1.Wenn man auf Downloads klickt ist das Pic1 weg und die Buttons "NORMAL" MULTICLIENT" TS" und Labels "LABEL1" & "LABEL2" erscheien.
-2.Mann klickt auf den Button "Normal" die ganzen Sachen verschwinden und Pic1 ist wieder da
Aber:Wenn man auf z.B. "ts" oder "multiclient" drückt geht button "normal" nicht
Dann geht garnix mehr das ganze programm hat macken xD
Warum ?! Bitte und hilfe =) <--
MfG