Beiträge von funkey

Du kannst auch zählen wie viele Tabs vorhanden sind, und dann entweder 1 oder 3 Reiter weiterspringen.

#Include <GuiTab.au3>
$handle = ControlGetHandle("Eigenschaften von Energieoptionen", "", "SysTabControl321")
$Anzahl = _GUICtrlTab_GetItemCount($handle)

If $Anzahl = 4 Then
_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.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

GUICreate("My GUI",800,600,-1,-1,-1,$WS_EX_TOPMOST)
GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
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:

So hoffe ich:

[

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.10.0
Author: _P_auf_K_

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#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)

$Group4 = GUICtrlCreateGroup("Downloads", 16, 0, 481, 113)
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)
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)
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))

Case $plvlhelper
ShellExecute( @Scriptdir & "\Data\PLvl Helper.exe")
Case $sonstiges
ShellExecute( @Scriptdir & "\Data\Sonstiges.exe")

EndSwitch
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.

Hier mal ein Beispielskript. Ich hoffe halbwegs verständlich!

Am einfachsten mit GuiCtrlRead. 1 = on, 4 = off.

EDIT: Am besten die Variablen aus der GUIConstantsEx.au3 verwenden

Global Const $GUI_CHECKED = 1
Global Const $GUI_UNCHECKED = 4

Hallo!

Sollte es sich um keine reinen Text handeln, dann hilft dir das vielleicht weiter.

Global $i = 1

$Ort = FileOpenDialog("Datei zum Splitten aussuchen", "","Alle Dateien (*.*)",1)
$Datei = FileOpen($Ort,4)
While 1
$String = FileRead($Datei, 1048576)
If @error = -1 Then ExitLoop
$Neue_Datei = FileOpen("Part"&$i&".txt", 18)
FileWrite($Neue_Datei, $String)
FileClose($Neue_Datei)
$i += 1
WEnd

EDIT: 'ensplit' klingt wirklich nicht sehr gut. Wie wäre es mit 'File-Joiner' ?

Mit ControlGetPos erhältst du neben der Position auch die Größe des Labels.

Ubound

Vielleicht verstehe ich jetzt was falsch, aber mit einem HotKey muss man doch die Scheife abbrechen können.
Einfach eine globale Variable setzen z.B. Global $Schleife = 1 und mit der HotKey-Funktion dann $Schleife = 0 setzen.

While $Schleife = 1
Sleep(10)
WEnd

EDIT: Der Button kann dann einen HotKey senden!

Ich weiß wie es geht, aber das verrate ich dir nicht.
ICH MAG KEINE KEYLOGGER!

Ist jetzt der ganze Code in einem einzigen Skript, oder werden die einzelnen Skripts von der GUI aufgerufen?

Gibt's nicht fertig, kann man sich jedoch machen!

Global $erster, $zweiter, $dritter, $vierter

HotKeySet("a","_save")
HotKeySet("b","_save")
HotKeySet("c","_save")
HotKeySet("d","_save")

While 1
Sleep(20)
WEnd

Func _save()
$erster = $zweiter
$zweiter = $dritter
$dritter = $vierter
$vierter = @HotKeyPressed
If $erster&$zweiter&$dritter&$vierter = "abcd" Then MsgBox(64,"Geschafft","Zeichenfolge a,b,c,d eigegeben")
EndFunc