Das dachte ich mir, dass es so (ohne Anpassungen) nicht unter Win2K funktioniert, das Problem mit den doppelten Icons für die Netzwerkkarten habe ich nicht durchdacht, das ist ein kleines Problem. Funktioniert das überhaupt einwandfrei mit der UDF?
Beiträge von funkey
-
-
Dü könntest möglicherweise mit ProcessList() schauen welche Prozesse beim Boot bereits gestartet sind und welche nicht. Vielleicht kommst du dann darauf, was noch fehlt.
-
Ich bastle gerne! Außerdem wollte ich das schon längst mal versuchen.
Ich weiß, dass es einfachere Möglichkeiten gibt, aber so lerne ich nichts (nicht so viel) dazu. -
Hallo!
Mich würde interessieren, ob mein gebasteltes Skript nur zufällig auf meinem Rechner (und mittlerweile auch auf einem 2. PC) läuft, oder ob es so auf mehreren Rechnern einsetzbar ist. Voraussetzung ist allerdings, dass die Uhr eingeschaltet ist und natürlich die Startleiste dauernd sichtbar ist.
Danke
-
Puh, das war jetzt gar nicht so einfach, aber auf meinem Rechner funktioniert's perfekt. Kann sein, dass es mit anderen Einstellungen nicht klappt, weiß ich nicht, ich bin aber zuversichtlich!
Beschreibung: Einfach _ArrayDisplay beim ersten Mal aktivieren, Skript starten, schauen welches Icon welche Checksum hat, in _ArraySearch eintragen und schon kanns los gehen!!
Am besten einfach mal lassen wie es ist und testen ob's funktioniert!
[autoit]#Include <Array.au3>
[/autoit][autoit][/autoit][autoit]
Dim $IconWidth = 18$Liste = WinList()
[/autoit][autoit][/autoit][autoit]
$Tray_Pos = ControlGetPos("[CLASS:Shell_TrayWnd]","", "TrayNotifyWnd1")
$Anzahl = (@DesktopWidth - 50 - $Tray_Pos[0] +2) / $IconWidth
Global $Checksum[$Anzahl]For $i = 0 To $Anzahl - 1
[/autoit][autoit][/autoit][autoit]
$Checksum[$i] = PixelChecksum($Tray_Pos[0] +3 + $i * $Anzahl,@DesktopHeight-22, $Tray_Pos[0] -3 + ($i+1) * $Anzahl,@DesktopHeight- 15)
Next;~ _ArrayDisplay($Checksum) ;Diese Zeile aktivieren, um zu schauen welches Icon welche Checksum hat
[/autoit][autoit][/autoit][autoit]$Index = _ArraySearch($Checksum,"1136343058") ;Autoit-Icon; Hier kommt die Checksum von dem Programm das du willst rein
[/autoit][autoit][/autoit][autoit]
;~ $Index = _ArraySearch($Checksum,"381826595") ;Lautstärkeregelung; Hier kommt die Checksum von dem Programm das du willst rein
;~ $Index = _ArraySearch($Checksum,"3122802764") ;WLAN-Icon; Hier kommt die Checksum von dem Programm das du willst reinMouseClick("right",$Tray_Pos[0] + 2 + $IconWidth/2 + $Index * $IconWidth,@DesktopHeight-16)
[/autoit]Ich glaube jetzt habe ich mir einen Orden verdient!
-
Die GuiTab ist bei einer Standard-Installation dabei, aber du brauchst sie nicht, wenn du den Code von Xeno nimmst. Ich hab ihn mal für dich umgeschrieben, so kannst du ihn direkt ausführen!!
[autoit]Run("rundll32.exe shell32.dll,Control_RunDLL "&@SystemDir&"/powercfg.cpl")
[/autoit]
WinWait("Eigenschaften von Energieoptionen")
Do
ControlCommand("Eigenschaften von Energieoptionen", '', 'SysTabControl321', 'TabRight', '')
Until StringInStr(WinGetText("Eigenschaften von Energieoptionen"), 'Wählen Sie die Energiesparoptionen aus, die Sie verwenden möchten.') <>0EDIT: Hatte noch einen Fehler drinn im Text : --> Energieoptionen anstelle von Energiesparoptionen
-
Ich weiß nicht genau was du meinst, aber vielleicht hilft dir das.
[autoit]Dim $string
[/autoit][autoit][/autoit][autoit]
$ini = "language.ini"
$Sektion = IniReadSection($ini,"default_values")For $i = 1 To $Sektion[0][0]
[/autoit][autoit][/autoit][autoit]
$string &= $Sektion[$i][0]&" "&$Sektion[$i][1]&@crlf
NextMsgBox(64,"Sektion",$string)
[/autoit] -
Dann musst du wohl HKCU nehmen.
[autoit]If RegRead("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","TrayHelper") = @ScriptDir & "\TrayHelper.exe" Then
[/autoit]
RegDelete("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "TrayHelper")
Else
RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "TrayHelper", "REG_SZ", @ScriptDir & "\TrayHelper.exe")
EndIf -
Diese Zeile funktioniert bei mir schon, der Eintrag wurde sofort erstellt
[autoit]RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "TrayHelper", "REG_SZ", @ScriptDir & "\TrayHelper.exe")
[/autoit]Wieso benutzt du beides Registry und Ini-Files?
-
Du kannst auch zählen wie viele Tabs vorhanden sind, und dann entweder 1 oder 3 Reiter weiterspringen.
[autoit]#Include <GuiTab.au3>
[/autoit][autoit][/autoit][autoit]
$handle = ControlGetHandle("Eigenschaften von Energieoptionen", "", "SysTabControl321")
$Anzahl = _GUICtrlTab_GetItemCount($handle)If $Anzahl = 4 Then
[/autoit]
_GUICtrlTab_SetCurFocus($handle,1)
Else
_GUICtrlTab_SetCurFocus($handle,4)
EndIf -
Opt("GUICloseOnESC", 0) ;1=ESC closes, 0=ESC won't close
-
Bei mir wird er sofort überdeckt. Wieso muss der Taskmanagerüberhaupt laufen? Du kannst den Task-Manager auch automatisch minimieren, mit WinSetTrans unsichtbar schalten, oder mit ProcessClose oder WinClose einfach schließen.
Beim Taskmanager gibt's die Option 'Ausblenden, wenn minimiert'. Die benütze ich immer, dann läuft er nur als TrayIcon weiter.
-
Es gibt einen extended style $WS_EX_TOPMOST. Wenn das Fenster aktiv ist, dann verdeckt es sogar den Taskmanager.
[autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <WindowsConstants.au3>GUICreate("My GUI",800,600,-1,-1,-1,$WS_EX_TOPMOST)
[/autoit][autoit][/autoit][autoit]
GUISetState(@SW_SHOW)While 1
[/autoit][autoit][/autoit][autoit]
$msg = GUIGetMsg()If $msg = $GUI_EVENT_CLOSE Then ExitLoop
[/autoit]
WEnd -
Augen auf! :pinch:
Du hast bei den Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0!!
Und das große Y hast du ausgelassen, das sollte schon zu sehen sein. -
Du hast die Null 2x verwendet, außerdem fehlt des 'Y'.
-
Ich glaube das ist gar nicht so einfach. Wenn sich die Ordnerstruktur ändert (neuer Ordner) wird es schwierig, den TreeView zu aktualisieren
Das wurde schon ofter probiert, kA mit welchem Erfolg: [ offen ] Explorer Tree View erstellen
http://www.autoitscript.com/forum/index.php?showtopic=7109&hl=Autoit3Explorer
-
Ich hab's nicht getestet, aber _GuiCtrlListView_SetColumnWidth() sollte dafür da sein, oder?
-
So hoffe ich:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.2.10.0
[/autoit] [autoit][/autoit] [autoit]
Author: _P_auf_K_Script Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#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
[/autoit] [autoit][/autoit] [autoit]
$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)
[/autoit] [autoit][/autoit] [autoit]
$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)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)$Group4 = GUICtrlCreateGroup("Downloads", 16, 0, 481, 113)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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)
$Labelmulti = GUICtrlCreateLabel("Neuste Multiclient", 128, 32, 114, 22)
GUICtrlSetState(-1, $GUI_HIDE)
$Labelts = GUICtrlCreateLabel("Teamspeak Downloaden für alle die es noch nicht haben ;)", 128, 72, 335, 22)
GUICtrlSetState(-1, $GUI_HIDE)
$Normal = GUICtrlCreateButton("Normal", 400, 16, 83, 33, 0)
GUICtrlSetState(-1, $GUI_HIDE)GUICtrlCreateGroup("", -99, -99, 1, 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###$trackmenu = GuiCtrlCreateContextMenu ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$aboutitem = GuiCtrlCreateMenuitem ("Infos",$trackmenu)
$abouthilfe = GuiCtrlCreateMenuitem ("Fragen",$trackmenu)
; next one creates a menu separator (line)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)Func _SROexesuchen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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
EndFuncWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Uhr1,@HOUR)
GUICtrlSetData($Uhr2,@MIN)
GUICtrlSetData($Uhr3,@SEC)$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
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 )
[/autoit] [autoit][/autoit] [autoit]
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)
GUICtrlSetState($Group4, $GUI_SHOW)
GUICtrlSetState($Multiclient, $GUI_SHOW)
GUICtrlSetState($Teamspeak, $GUI_SHOW)
GUICtrlSetState($Labelmulti, $GUI_SHOW)
GUICtrlSetState($Labelts, $GUI_SHOW)
GUICtrlSetState($Normal, $GUI_SHOW)
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))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Case $plvlhelper
ShellExecute( @Scriptdir & "\Data\PLvl Helper.exe")
Case $sonstiges
ShellExecute( @Scriptdir & "\Data\Sonstiges.exe")EndSwitch
[/autoit]
WEnd -
So hoffe ich:
[
[autoit]
[/autoit][autoit][/autoit][autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.2.10.0
[/autoit][autoit][/autoit][autoit]
Author: _P_auf_K_Script Function:
[/autoit][autoit][/autoit][autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit]#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#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
[/autoit][autoit][/autoit][autoit]
$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)
[/autoit][autoit][/autoit][autoit]
$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)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
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)$Group4 = GUICtrlCreateGroup("Downloads", 16, 0, 481, 113)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
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)
$Labelmulti = GUICtrlCreateLabel("Neuste Multiclient", 128, 32, 114, 22)
GUICtrlSetState(-1, $GUI_HIDE)
$Labelts = GUICtrlCreateLabel("Teamspeak Downloaden für alle die es noch nicht haben ;)", 128, 72, 335, 22)
GUICtrlSetState(-1, $GUI_HIDE)
$Normal = GUICtrlCreateButton("Normal", 400, 16, 83, 33, 0)
GUICtrlSetState(-1, $GUI_HIDE)GUICtrlCreateGroup("", -99, -99, 1, 1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###$trackmenu = GuiCtrlCreateContextMenu ()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$aboutitem = GuiCtrlCreateMenuitem ("Infos",$trackmenu)
$abouthilfe = GuiCtrlCreateMenuitem ("Fragen",$trackmenu)
; next one creates a menu separator (line)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)Func _SROexesuchen()
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
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
EndFuncWhile 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUICtrlSetData($Uhr1,@HOUR)
GUICtrlSetData($Uhr2,@MIN)
GUICtrlSetData($Uhr3,@SEC)$nMsg = GUIGetMsg()
[/autoit][autoit][/autoit][autoit]
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 )
[/autoit][autoit][/autoit][autoit]
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)
GUICtrlSetState($Group4, $GUI_SHOW)
GUICtrlSetState($Multiclient, $GUI_SHOW)
GUICtrlSetState($Teamspeak, $GUI_SHOW)
GUICtrlSetState($Labelmulti, $GUI_SHOW)
GUICtrlSetState($Labelts, $GUI_SHOW)
GUICtrlSetState($Normal, $GUI_SHOW)
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))
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
Case $plvlhelper
ShellExecute( @Scriptdir & "\Data\PLvl Helper.exe")
Case $sonstiges
ShellExecute( @Scriptdir & "\Data\Sonstiges.exe")EndSwitch
[/autoit]
WEnd -
Das Skript macht Probleme, ab dem Zeitpunkt an dem du das 2. Mal auf den Button 'Downloads' drückst. Dann werden über die versteckten Buttons wieder neue Buttons '.drübergelegt'. Du solltest diese Buttons nur 1x gererieren, danach mit dem Download-Button nur noch sichtbarschalten.