Beiträge von autoBert

**autoBert**

Tritt der Fehler bei dem Skript [Beispiel] SnapShot's from WebCam ver.: 0.8.1.3 auch auf?
wenn ja bitte melden, wenn nein Fehlerquelle analysieren,

mfg autroBert

**autoBert**

Scha dir dazu am besten die Login-Box von Oscar (Forum Skripte) an,

mfg autoBert

**autoBert**

Hallo Faweyr,

ffmpeg verträgt Imho keine Leerstellen, deshalb mache ich es bei meinem Downloader (Link siehe Signatur) so:

[autoit]

$sFileName = @ScriptDir & "\Downloaded\Chris de Burgh\Chris de Burgh - Where Have All The Flowers Gone"
FileMove($sFileName & ".mp4",@ScriptDir & "\Test.mp4",9)
[ RunWait(@ScriptDir & "\ffmpeg -i " & "Test.mp4 -y " & "Test.mpeg",@ScriptDir,@SW_HIDE)
RunWait(@ScriptDir & "\ffmpeg -i " & "Test.mp4 -y " & "Test.mp3",@ScriptDir,@SW_HIDE)
FileMove(@ScriptDir & "\Test.mpeg",$sFileName & ".mpeg",9)
FileMove(@ScriptDir & "\Test.mp3",$sFileName & ".mp3",9)

[/autoit]

wobei ffmpeg.exe in @Scriptdir liegt, das klappt wunderbar,

mfg autoBert

**autoBert**

Search und Replace ist dir aber bekannt?

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

damit kannst du X-Beliebig viele Zeilen von

[autoit]

$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 67, 115, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 67, 140, 97, 17)

[/autoit]

zu

[autoit]

$Checkbox1 = GUICtrlCreateCheckbox($web1, 67, 115, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox($web2, 67, 140, 97, 17)

[/autoit]

wandeln sogar die angehängte Zahl wird berücksichtigt,

mfg autoBert

**autoBert**

Koda (wenn überhaupt) nur für den groben GUI-Entwurf nehmen, danach dirket in Scite den Feinschliff verpassen,

mfg autoBert

**autoBert**

Das spukt die Boardeigene SuFu dazu aus:

und gleich im 1. Thema Treffer auf der 1. Seite: http://www.autoit.de/index.php?page=Attachment&attachmentID=2983&h=31ace3704eeb11dd4060b143097a15f6f890386e

mfg autoBert

**autoBert**

zu 2.: Das liegt daran dass der Index nach jedem Löschvorgang aktualisiert wird:
beim 1. Mal wird Index 0 gelöscht, dadurch rücken alle um 1 hoch
beim 2. Mal wird Index 1 gelöscht (der vorher 2 war
irgendwann gibt es auch die Index-Nr. zum Löschen nicht mehr.

Wenn du von hinten anfängst klappt deine Methode.

Anhand dieses Skriptes kannst du das Verhalten beobachten:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 317, 233, 192, 124)
$List1 = GUICtrlCreateList("", 8, 8, 169, 201)
$deleteall = GUICtrlCreateButton("Alle Löschen richtig", 184, 16, 125, 25, $WS_GROUP)
$deletewrong = GUICtrlCreateButton("Alle Löschen falsch", 184, 40, 125, 25, $WS_GROUP)
$createNew = GUICtrlCreateButton("neu erzege", 184, 70, 125, 25, $WS_GROUP)
$ItemCount = GUICtrlCreateLabel("", 184, 100, 125, 25)
createNew()
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $deleteall
$iCount = _GUICtrlListBox_GetCount($List1)
For $i = $iCount To 0 Step -1
_GUICtrlListBox_DeleteString($List1, $i)
GUICtrlSetData($ItemCount,$i & "/" & _GUICtrlListBox_GetCount($List1))
Sleep(500)
Next
Case $deletewrong
$iCount = _GUICtrlListBox_GetCount($List1)
For $i = 0 To $iCount
_GUICtrlListBox_DeleteString($List1, $i)
GUICtrlSetData($ItemCount,$i & "/" & _GUICtrlListBox_GetCount($List1))
Sleep(500) ;evtl. höher setzen damit es besser sichtbar wird
Next
Case $createNew
createNew()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func createNew()
_GUICtrlListBox_ResetContent($List1)
For $i = 0 To 99
_GUICtrlListBox_AddString($List1, $i & ".Test")
Next
GUICtrlSetData($ItemCount, "Nei: " & _GUICtrlListBox_GetCount($List1))
EndFunc ;==>createNew

[/autoit]

und da dein Problem jetzt ja gelöst, wäre es schön wenn du auch den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

Edit: Raupi war deutlich schneller mit der Erklärung

mfg autoBert

**autoBert**

Hallo blubstar,

es ist möglich dass am 2. Versuch mein INet (Web'n'Walk mit zur Zeit ca. 22. KB/s) schuld ist, war auch kurz danach down. Deine GUI habe ich mit der Maus verschoben (um an der Antwort weiter schreiben zu können) dabei sind einige Elemente an ihrem Platz geblieben um sich nach ca. 5. sec. an den neuen (richtigen) Platz zu bequemen, ich kann den Fehler im Momemt aber nicht reproduzieren,

mfg autoBert

**autoBert**

Hallo blubbstar,

ich habe das Tool gleich beim 1. Versuch zum Absturz gebracht =>

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\Bulbbstar\BandInfo\bandinfo.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>22:28:14 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
+>22:28:15 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\Bulbbstar\BandInfo\bandinfo.au3"    
C:\Programme\AutoIt3\Downloads\Bulbbstar\BandInfo\bandinfo.au3 (90) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If $ComboDefault = '' Then $ComboDefault = $aBandInfo[1][0]
If $ComboDefault = '' Then $ComboDefault = ^ ERROR
->22:28:30 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 18.137

eingeben habe ich Chris de Burgh und bin danach auf Suchen.

Beim 2. Versuch hatte ich zwar keinen Absturz aber diesen etwas ausser Kontrolle geratenen Screen:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Der 3. Versuch mit U2 hat dann geklappt,

mfg autoBert

**autoBert**

Hallo xilent,

mach es so:

[autoit]

if IniRead("config.ini", "Config", "cb1", "Error") = 1 Then GUICtrlSetState($checkbox_1,$GUI_CHECKED)

[/autoit]

und vor allem erst nach dem erstellen der Ckeckbox,

mfg autoBert

**autoBert**

Hallo juloko,

Zitat von Juloko

Wäre es aber nicht besser wenn ich statt _DateAdd _DateDiff verwende? So Rechne ich dann aus wie lange es noch zum Event dauert

die Frage beantwortet sich wohl selbst um die Differnz zu ermitteln eignet sich _DateDiff besser, _DateAdd gibt ja eine absolute Zeitangabe zurück. Wenn du aber in deiner Ini absolute Zeiteingaben führst braucht du nichts mehr berechnen sondern nur noch vergleichen, dazu müssen aber die Datumsformate in diesem Schema yyyy/mm/dd HH:mm:ss vorliegen.

Edit: hier ein kleines Beispiel-Skript um Zeitangaben zu vergleichen (ohne INI)

Spoiler anzeigen

[autoit]

#include <StaticConstants.au3>
#include <date.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('GUIOnEventMode', 1)

[/autoit] [autoit][/autoit] [autoit]

Global $sTitel = 'Beispiel um Zeiten zu vergleichen'

[/autoit] [autoit][/autoit] [autoit]

Local $hMainGui = GUICreate($sTitel, 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $hMainGui gespeichert
;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
;Verknüpft dem Event $Gui_Event_Close mit der Funktion _End

[/autoit] [autoit][/autoit] [autoit]

;Menübar anzeigen
Global $menu_help = GUICtrlCreateMenu("?", -1, 1)
Global $item_help_auto = GUICtrlCreateMenuItem("Autor: (Auto)Bert", $menu_help)
Global $item_help_exit = GUICtrlCreateMenuItem("Beenden", $menu_help)
GUICtrlSetOnEvent(-1, '_End')

[/autoit] [autoit][/autoit] [autoit]

Local $hedtFrom = GUICtrlCreateDate("01/01/2009 18:45:56", 20, 10, 175, 25, $DTS_UPDOWN)
;erzeugt ein From Steuerelement die zurückgegebene ID wird in der Variablen $hedtFrom gespeichert
Local $DTM_SETFORMAT_ = 0x1032
Local $style = "dd/MM/yyyy HH:mm:ss"
GUICtrlSendMsg($hedtFrom, $DTM_SETFORMAT_, 0, $style)
GUICtrlSetFont(-1, 12)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
;verankert das From Steuerelement Links, rechts, oben und fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite
Local $hedtTo = GUICtrlCreateDate("01.01.2009", 20, 40, 175, 25, $DTS_UPDOWN)
;erzeugt ein To Steuerelement die zurückgegebene ID wird in der Variablen $hedtTo gespeichert
GUICtrlSendMsg($hedtTo, $DTM_SETFORMAT_, 0, $style)
GUICtrlSetFont(-1, 12)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
;verankert das To Steuerelement Links, rechts, oben und fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateButton('&prüfen', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
;verankert den Button "Prüfen" rechts und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUICtrlSetOnEvent(-1, '_CheckDate')
;Beim Klicken des Buttons wird die Funktion _CheckTime aufgerufen

[/autoit] [autoit][/autoit] [autoit]

Local $hlblErgebnis = GUICtrlCreateLabel("hier steht danach das Ergebnis", 12, 80, 200,200)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert das Label links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateButton('Be&enden', 220, 115, 150, 25)
GUICtrlSetOnEvent(-1, '_END')
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateGraphic(0, 230, 400, 2, $SS_BLACKRECT)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
Global $hStatus = GUICtrlCreateLabel("", 5, 235, 400, 25)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
;verankert das Label Links, rechts und unten; fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite wird angepasst
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(120)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

[/autoit] [autoit][/autoit] [autoit]

Func _CheckDate()
Local $dtNow = _NowCalc()
ConsoleWrite($dtNow & @CRLF)
LOCAL $sCheckFrom = GUICTRLREAD($HEDTFrom)
LOCAL $sCheckTo = GUICTRLREAD($HEDTTo)
if $sCheckFrom > $sCheckTo Then
$sCheckFrom = $sCheckTo
$sCheckTo = GUICTRLREAD($HEDTFrom)
EndIf
ConsoleWrite($sCheckFrom & @CRLF)
ConsoleWrite($sCheckTo & @CRLF)
LOCAL $dtFrom = _Date2Str($sCheckFrom)
ConsoleWrite($dtFrom & @crlf)
LOCAL $dtTo = _Date2Str($sCheckTo)
ConsoleWrite($dtTo & @crlf)
$sErg = $dtNow & @CRLF
Select
Case $dtNow >= $dtFrom and $dtNow <= $dtTo
$sErg &= "liegt zwischen den"
case $dtNow <= $dtFrom or $dtNow >= $dtTo
$sErg &= "liegt ausserhalb den"
case $dtNow = $dtFrom and $dtNow = $dtTo
$sErg &= "entspricht den"
EndSelect
$sErg &= " beiden Terminen" & @CRLF & $dtFrom & @CRLF & $dtTo
GUICtrlSetData($hlblErgebnis,$sErg)
EndFunc ;==>_CallEaster

[/autoit] [autoit][/autoit] [autoit]

Func _Date2Str($DateTime)
Return StringMid($DateTime,7,4)&"/" & STRINGMID($DateTime,4,2) & "/" & STRINGLEFT($DateTime,2) & " " & StringRight($DateTime,8)
EndFunc

[/autoit]

mfg autoBert

**autoBert**

Hallo Juloko,

ist dein Farmbot jetzt so weit, dass du schön nach Zeitplan giessen musst

schau dir in der Hilfe _

[autoit]

_DateAdd

[/autoit]

an,

mfg autoBert

**autoBert**

@Xilent, hat das Problem in [ offen ] Schrift Farben Problem gelöst,

mfg autoBert

**autoBert**

Hallo Fischi84,

Breite, Höhe kannst du mit _GDIPlus_ImageGetWidth bzw. _GDIPlus_ImageGetHeight ermitteln. Für die Dateigröße in KB

[autoit]

$size = int(FileGetSize("DeinBild.jpg") / 1024)

[/autoit]

.

mfg autoBert

**autoBert**

Hallo Lintua,

herzlich willkommen im Forum und viel Spass mit AutoIt.

Hier kannst du dir die Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

Warum eröffnest du das Thema zweimal? Du solltest auch etwas mehr Geduld haben. Das sicherste Mittel gegen unbefugte Benutzung deines PC's ist immer das Sperren über Windows eigene Mechanismen also STRG-ALT-ENT und danach Computer sperren drücken,

mfg autoBert

**autoBert**

Hallo alexander,

schau dir Install-Script-Generator von BugFix an,

mfg autoBert

**autoBert**

Hallo xilent,

Zitat von Xilent

Hatte das auch schon ausprobiert bevor ich den Script hier rein gestellt hatte doch leider ging das auch nicht

wieso geht doch ganz einfach:

Lösung

[autoit]

;=============================================================================================================================================================================================
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EEEE EEEEEEEEEEEEEE EEE EEEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EEEE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEEEEEEEEEEEEE EE EE EE EE EE EE EE EE =
;= EEE EEEEEEEEEEEEEEEEEE EE EE EE EE EEE EEEEEEEEEEEEEEEEE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EEEEEEE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEE EE EE EE EE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EE EEE EE EEE EE EE EE EE EE EE EE EE EE EE EE =
;= EE EE EEEEEEEEEEEEEEEEEE EEEE EEEE EE EE EE EE EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEEEE EE EEEE =
;=============================================================================================================================================================================================
$read_1 = IniRead("config.ini", "Config", "Spiel1", "Error")
$read_2 = IniRead("config.ini", "Config", "Spiel2", "Error")
$read_3 = IniRead("config.ini", "Config", "Spiel3", "Error")
$read_4 = IniRead("config.ini", "Config", "Spiel4", "Error")
$read_5 = IniRead("config.ini", "Config", "Spiel5", "Error")
$read_6 = IniRead("config.ini", "Config", "Spiel6", "Error")
$read_7 = IniRead("config.ini", "Config", "Pfad1", "Error")
$read_8 = IniRead("config.ini", "Config", "Pfad2", "Error")
$read_9 = IniRead("config.ini", "Config", "Pfad3", "Error")
$read_10 = IniRead("config.ini", "Config", "Pfad4", "Error")
$read_11 = IniRead("config.ini", "Config", "Pfad5", "Error")
$read_12 = IniRead("config.ini", "Config", "Pfad6", "Error")
;===============
$read_13 = IniRead("config.ini", "Config", "Button1", "Error")
$read_14 = IniRead("config.ini", "Config", "Button2", "Error")
$read_15 = IniRead("config.ini", "Config", "Button3", "Error")
$read_16 = IniRead("config.ini", "Config", "Button4", "Error")
$read_17 = IniRead("config.ini", "Config", "Button5", "Error")
$read_18 = IniRead("config.ini", "Config", "Button6", "Error")
$read_19 = IniRead("config.ini", "Config", "Button7", "Error")
$read_20 = IniRead("config.ini", "Config", "Button8", "Error")
;===============
$read_21 = IniRead("config.ini", "Config", "Button9", "Error")
$read_22 = IniRead("config.ini", "Config", "Button10", "Error")
$read_23 = IniRead("config.ini", "Config", "Button11", "Error")
$read_24 = IniRead("config.ini", "Config", "Button12", "Error")
$read_25 = IniRead("config.ini", "Config", "Button13", "Error")
$read_26 = IniRead("config.ini", "Config", "Button14", "Error")
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <INet.au3>
#include <Date.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;----------------------------------
#Region
; GUI
Global $lblCoreCont, $lblUser, $lblPublicIp, $lblOsVersion

[/autoit] [autoit][/autoit] [autoit]

$title = "Red Dragon Tool"
$font = "Times New Roman FETT"
$font2 = "Times New Roman FETT KURSIV"
$PublicIP = _GetIP()
$username = @UserName
$osversion = @OSVersion & " , " & @OSType & " , " & @OSArch & " , " & @OSBuild
GUICreate($title, 300, 380)
GUISetBkColor(0xff0000)
Global $lblCpuPer
;-----------------------
; GROUP WITH RADIO BUTTONS
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
$g_1 = GUICtrlCreateGroup("Spiele", 170, 25, 80, 150)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
$g_2 = GUICtrlCreateGroup("Infos", 50, 175, 200, 135)
GUICtrlSetFont(-1, 8.5, -1, -1, $font)
;---------------------------------------------
$Spiel_1 = GUICtrlCreateRadio($read_1 , 180, 40, 55)
;---------------------------------------------
$spiel_2 = GUICtrlCreateRadio($read_2 , 180, 60, 55)
;---------------------------------------------
$spiel_3 = GUICtrlCreateRadio($read_3 , 180, 80, 55)
;---------------------------------------------
$spiel_4 = GUICtrlCreateRadio($read_4 , 180, 100, 55)
;---------------------------------------------
$spiel_5 = GUICtrlCreateRadio($read_5 , 180, 120, 55)
;---------------------------------------------
$spiel_6 = GUICtrlCreateRadio($read_6 , 180, 140, 55)
;---------------------------------------------
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
#AutoIt3Wrapper_UseX64=n
;-----------------------
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20
;-----------------------
Global $blink = True
$Label1 = GUICtrlCreateLabel("", 55, 195, 100, 12)
$Label2 = GUICtrlCreateLabel("", 55, 210, 100, 12)
;---------------------------------------Datum
_date()

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

AdlibRegister("_date", 500)
;---------------------------------------Uhr
_time()

[/autoit] [autoit][/autoit] [autoit]

;GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

AdlibRegister("_time", 500)
;-------------------------------------
_checkbox()
;.......................................

[/autoit] [autoit][/autoit] [autoit]

;Label
$L_1 = GUICtrlCreateLabel("Red Dragon", 50, 25, 120)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$L_2 = GUICtrlCreateLabel("Tool", 50, 40, 100, 12)
GUICtrlSetFont(-1, 10, -1, -1, $font2)
AdlibRegister("_ShowCpuPer", 2500)

[/autoit] [autoit][/autoit] [autoit]

; (c)
$c = GUICtrlCreateLabel("© Xilent Version: 1.0.0.0", 90, 345, 200, 12)
;-----------------------------------------------------------------------------------------------------------------
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
#EndRegion

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; BUTTON
$button_1 = GUICtrlCreateButton("OK", 50, 315, 100)
$button_2 = GUICtrlCreateButton("Schließen", 150, 315, 100)

[/autoit] [autoit][/autoit] [autoit]

$button_3 = GUICtrlCreateButton($read_13 , 50, 75, 100)
$button_4 = GUICtrlCreateButton($read_14 , 50, 100, 100)
$button_5 = GUICtrlCreateButton($read_15 , 50, 125, 100)
$button_6 = GUICtrlCreateButton($read_16 , 50, 150, 100)
;Menü
$Menu1 = GUICtrlCreateMenu("Ausschalten")
$Menu1_1 = GUICtrlCreateMenuItem("Herrunterfahren", $Menu1)
$Menu1_2 = GUICtrlCreateMenuItem("Ruhezustand", $Menu1)
$Menu1_3 = GUICtrlCreateMenuItem("Neustarten", $Menu1)
;---------
$Menu2 = GUICtrlCreateMenu("Win Style")
$Menu2_1 = GUICtrlCreateMenuItem($read_21, $Menu2)
$Menu2_2 = GUICtrlCreateMenuItem($read_22, $Menu2)
$Menu2_3 = GUICtrlCreateMenuItem($read_23, $Menu2)
;---------
$Menu3 = GUICtrlCreateMenu("H. Farbe")
$Menu3_1 = GUICtrlCreateMenuItem("Rot", $Menu3)
$Menu3_2 = GUICtrlCreateMenuItem("Blau", $Menu3)
$Menu3_3 = GUICtrlCreateMenuItem("Gelb", $Menu3)
$Menu3_4 = GUICtrlCreateMenuItem("Schwarz", $Menu3)
$Menu3_5 = GUICtrlCreateMenuItem("Grün", $Menu3)
$Menu3_6 = GUICtrlCreateMenuItem("Pink", $Menu3)
$Menu3_7 = GUICtrlCreateMenuItem("Violett", $Menu3)
$Menu3_8 = GUICtrlCreateMenuItem("Braun", $Menu3)
$Menu3_9 = GUICtrlCreateMenuItem("Weiß", $Menu3)
$Menu3_r = GUICtrlCreateMenuItem("Random", $Menu3)
;---------
$Menu4 = GUICtrlCreateMenu("S. Farbe")
$Menu4_1 = GUICtrlCreateMenuItem("Rot", $Menu4)
$Menu4_2 = GUICtrlCreateMenuItem("Blau", $Menu4)
$Menu4_3 = GUICtrlCreateMenuItem("Gelb", $Menu4)
$Menu4_4 = GUICtrlCreateMenuItem("Schwarz", $Menu4)
$Menu4_5 = GUICtrlCreateMenuItem("Grün", $Menu4)
$Menu4_6 = GUICtrlCreateMenuItem("Pink", $Menu4)
$Menu4_7 = GUICtrlCreateMenuItem("Violett", $Menu4)
$Menu4_8 = GUICtrlCreateMenuItem("Braun", $Menu4)
$Menu4_9 = GUICtrlCreateMenuItem("Weiß", $Menu4)
;---------
$Menu5 = GUICtrlCreateMenu("E.")
$Menu5_1 = GUICtrlCreateMenuItem("Einstellungen", $Menu5)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; GUI MESSAGE LOOP
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $button_1
If $Spiel_1 And GUICtrlRead($Spiel_1) = $GUI_CHECKED Then
Run($read_7)
ElseIf $spiel_2 And GUICtrlRead($spiel_2) = $GUI_CHECKED Then
Run($read_8)
ElseIf $spiel_3 And GUICtrlRead($spiel_3) = $GUI_CHECKED Then
Run($read_9)
ElseIf $spiel_4 And GUICtrlRead($spiel_4) = $GUI_CHECKED Then
Run($read_10)
ElseIf $spiel_5 And GUICtrlRead($spiel_5) = $GUI_CHECKED Then
Run($read_11)
ElseIf $spiel_6 And GUICtrlRead($spiel_6) = $GUI_CHECKED Then
Run($read_12)
EndIf
Case $msg = $button_2
Exit
Case $msg = $button_3
Run(@ComSpec & " /c " & $read_17, "", @SW_HIDE)
Case $msg = $button_4
Run(@ComSpec & " /c " & $read_18, "", @SW_HIDE)
Case $msg = $button_5
Run(@ComSpec & " /c " & $read_19, "", @SW_HIDE)
Case $msg = $button_6
Run(@ComSpec & " /c " & $read_20, "", @SW_HIDE)
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Menu3_1
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xff0000)
Case $msg = $Menu3_2
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x0000FF)
Case $msg = $Menu3_3
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFF00)
Case $msg = $Menu3_4
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x000000)
Case $msg = $Menu3_5
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x00FF00)
Case $msg = $Menu3_6
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFF00FF)
Case $msg = $Menu3_7
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800080)
Case $msg = $Menu3_8
AdlibUnRegister("_Random_BG")
GUISetBkColor(0x800000)
Case $msg = $Menu3_9
AdlibUnRegister("_Random_BG")
GUISetBkColor(0xFFFFFF)
Case $msg = $Menu3_r
AdlibRegister("_Random_BG", 1000)
_Random_BG()
Case $msg = $Menu2_1
Run(@ComSpec & " /c " & $read_24 , "", @SW_HIDE)
Case $msg = $Menu2_2
Run(@ComSpec & " /c " & $read_25, "", @SW_HIDE)
Case $msg = $Menu2_3
Run(@ComSpec & " /c " & $read_26, "", @SW_HIDE)
Case $msg = $Menu1_1
Run(@ComSpec & " /c " & 'shutdown /p', "", @SW_HIDE)
Case $msg = $Menu1_2
Run(@ComSpec & " /c " & 'shutdown /h', "", @SW_HIDE)
Case $msg = $Menu1_3
Run(@ComSpec & " /c " & 'shutdown /r', "", @SW_HIDE)
Case $msg = $Menu4_1
SetColor(0xFF0000)
Case $msg = $Menu4_2
SetColor(0x0000FF)
Case $msg = $Menu4_3
SetColor(0xFFFF00)
Case $msg = $Menu4_4
SetColor(0x000000)
Case $msg = $Menu4_5
SetColor(0x00FF00)
Case $msg = $Menu4_6
SetColor(0xFF00FF)
Case $msg = $Menu4_7
SetColor(0x800080)
Case $msg = $Menu4_8
SetColor(0x800000)
Case $msg = $Menu4_9
SetColor(0xFFFFFF)
Case $msg = $Menu5_1
$hSubGui = GUICreate("Einstellungen", 375, 620, 100, 100)
GUISetBkColor(0xff0000)
;==========
$ebutton_1 = GUICtrlCreateButton("Schließen",125, 575, 100)
$ebutton_1_2 = GUICtrlCreateButton("Speichen", 25, 575, 100)
$ebutton_2 = GUICtrlCreateButton("...",189, 63,24)
$ebutton_3 = GUICtrlCreateButton("...",189, 93,24)
$ebutton_4= GUICtrlCreateButton("...",189, 123,24)
$ebutton_5 = GUICtrlCreateButton("...",189, 153,24)
$ebutton_6 = GUICtrlCreateButton("...",189, 183,24)
$ebutton_7 = GUICtrlCreateButton("...",189, 213,24)
$ebutton_8 = GUICtrlCreateButton("...",324, 63,24)
$ebutton_9 = GUICtrlCreateButton("...",324, 93,24)
$ebutton_10 = GUICtrlCreateButton("...",324, 123,24)
$ebutton_11 = GUICtrlCreateButton("...",324, 153,24)
$ebutton_12 = GUICtrlCreateButton("...",324, 183,24)
$ebutton_13 = GUICtrlCreateButton("...",324, 213,24)
;=====
$ebuttonB_1 = GUICtrlCreateButton("...",189, 273,24)
$ebuttonB_2 = GUICtrlCreateButton("...",189, 303,24)
$ebuttonB_3 = GUICtrlCreateButton("...",189, 333,24)
$ebuttonB_4 = GUICtrlCreateButton("...",189, 363,24)
$ebuttonB_5 = GUICtrlCreateButton("...",324, 273,24)
$ebuttonB_6 = GUICtrlCreateButton("...",324, 303,24)
$ebuttonB_7 = GUICtrlCreateButton("...",324, 333,24)
$ebuttonB_8 = GUICtrlCreateButton("...",324, 363,24)
;=====
$ebuttonC_1 = GUICtrlCreateButton("...",189, 403,24)
$ebuttonC_2 = GUICtrlCreateButton("...",189, 433,24)
$ebuttonC_3 = GUICtrlCreateButton("...",189, 463,24)
$ebuttonC_4 = GUICtrlCreateButton("...",324, 403,24)
$ebuttonC_5 = GUICtrlCreateButton("...",324, 433,24)
$ebuttonC_6 = GUICtrlCreateButton("...",324, 463,24)
;==========
GUICtrlCreateLabel("Einstellungen", 25, 20, 100, 20)
GUICtrlSetFont(-1, 11, -1, -1, $font2)
$spiel1 = GUICtrlCreateLabel("Spiel 1", 35, 65, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel2 = GUICtrlCreateLabel("Spiel 2", 35, 95, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel3 = GUICtrlCreateLabel("Spiel 3", 35, 125, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel4 = GUICtrlCreateLabel("Spiel 4", 35, 155, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel5 = GUICtrlCreateLabel("Spiel 5", 35, 185, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$spiel6 = GUICtrlCreateLabel("Spiel 6", 35, 215, 50, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
GUISetState(@SW_SHOW)
;==
$ButtonE_1 = GUICtrlCreateLabel("Button 1", 35, 275, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_2 = GUICtrlCreateLabel("Button 2", 35, 305, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_3 = GUICtrlCreateLabel("Button 3", 35, 335, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ButtonE_4 = GUICtrlCreateLabel("Button 4", 35, 365, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;==
$Style_1 = GUICtrlCreateLabel("Style 1", 35, 405, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_2 = GUICtrlCreateLabel("Style 2", 35, 435, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$Style_3 = GUICtrlCreateLabel("Style 3", 35, 465, 75, 20)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$ge_1 = GUICtrlCreateGroup("Spiele", 25, 50, 325, 200)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_2 = GUICtrlCreateGroup("Buttons", 25, 250, 325, 140)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_3 = GUICtrlCreateGroup("Infos", 25, 500, 325, 70)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
$ge_4 = GUICtrlCreateGroup("Win Style", 25, 390, 325, 100)
GUICtrlSetFont(-1, 9, -1, -1, $font2)
;=======================================================
$Input_1 = GUICtrlCreateInput($read_1 ,85, 65, 100, 20)
$Input_2 = GUICtrlCreateInput($read_2 ,85, 95, 100, 20)
$Input_3 = GUICtrlCreateInput($read_3 ,85, 125, 100, 20)
$Input_4 = GUICtrlCreateInput($read_4 ,85, 155, 100, 20)
$Input_5 = GUICtrlCreateInput($read_5 ,85, 185, 100, 20)
$Input_6 = GUICtrlCreateInput($read_6 ,85, 215, 100, 20)
;==================================================
$Input_1_1 = GUICtrlCreateInput($read_7 ,220, 65, 100, 20)
$Input_2_1 = GUICtrlCreateInput($read_8,220, 95, 100, 20)
$Input_3_1 = GUICtrlCreateInput($read_9 ,220, 125, 100, 20)
$Input_4_1 = GUICtrlCreateInput($read_10 ,220, 155, 100, 20)
$Input_5_1 = GUICtrlCreateInput($read_11 ,220, 185, 100, 20)
$Input_6_1 = GUICtrlCreateInput($read_12 ,220, 215, 100, 20)
;==================================================
$InputB_1 = GUICtrlCreateInput($read_13 ,85, 275, 100, 20)
$InputB_2 = GUICtrlCreateInput($read_14 ,85, 305, 100, 20)
$InputB_3 = GUICtrlCreateInput($read_15 ,85, 335, 100, 20)
$InputB_4 = GUICtrlCreateInput($read_16 ,85, 365, 100, 20)
;==================================================
$InputB_1_1 = GUICtrlCreateInput($read_17 ,220, 275, 100, 20)
$InputB_2_1 = GUICtrlCreateInput($read_18 ,220, 305, 100, 20)
$InputB_3_1 = GUICtrlCreateInput($read_19 ,220, 335, 100, 20)
$InputB_4_1 = GUICtrlCreateInput($read_20 ,220, 365, 100, 20)
;=======================================================
$InputC_1 = GUICtrlCreateInput($read_21 ,85, 405, 100, 20)
$InputC_2 = GUICtrlCreateInput($read_22 ,85, 435, 100, 20)
$InputC_3 = GUICtrlCreateInput($read_23 ,85, 465, 100, 20)
$InputC_1_1 = GUICtrlCreateInput($read_24 ,220, 405, 100, 20)
$InputC_2_1 = GUICtrlCreateInput($read_25 ,220, 435, 100, 20)
$InputC_3_1 = GUICtrlCreateInput($read_26 ,220, 465, 100, 20)
;=======================================================
$checkbox_1 = GUICtrlCreateCheckbox("-----", 35, 520, 50, 20)
$checkbox_2 = GUICtrlCreateCheckbox("-----", 105, 520, 50, 20)
$checkbox_3 = GUICtrlCreateCheckbox("Benutzer", 175, 520, 70, 20)
$checkbox_4 = GUICtrlCreateCheckbox("Cpu Kerne", 245, 520, 70, 20)
$checkbox_5 = GUICtrlCreateCheckbox("Cpu Auslastungsanzeige", 35, 540, 140, 20)
$checkbox_6 = GUICtrlCreateCheckbox("Ip Adresse", 175, 540, 70, 20)
$checkbox_7 = GUICtrlCreateCheckbox("Sonstiges", 245, 540, 70, 20)
;=======================================================
;=======================================================
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
If $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","1")
If Not $checkbox_1 = $GUI_CHECKED Then IniWrite("config.ini","Config","cb1","0")

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Select
Case $msg = $ebutton_1
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_1_2
If BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "1")
If Not BitAND(GuiCtrlRead($Checkbox_1), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb1", "0")
If BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "1")
If Not BitAND(GuiCtrlRead($Checkbox_2), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb2", "0")
If BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "1")
If Not BitAND(GuiCtrlRead($Checkbox_3), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb3", "0")
If BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "1")
If Not BitAND(GuiCtrlRead($Checkbox_4), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb4", "0")
If BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "1")
If Not BitAND(GuiCtrlRead($Checkbox_5), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb5", "0")
If BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "1")
If Not BitAND(GuiCtrlRead($Checkbox_6), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb6", "0")
If BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "1")
If Not BitAND(GuiCtrlRead($Checkbox_7), $GUI_CHECKED) Then IniWrite("config.ini", "Config", "cb7", "0")
GUIDelete($hSubGui)
ExitLoop
Case $msg = $ebutton_2
$Box_1 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel1", $Box_1)
Case $msg = $ebutton_3
$Box_2 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel2", $Box_2)
Case $msg = $ebutton_4
$Box_3 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel3", $Box_3)
Case $msg = $ebutton_5
$Box_4 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel4", $Box_4)
Case $msg = $ebutton_6
$Box_5 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel5", $Box_5)
Case $msg = $ebutton_7
$Box_6 = InputBox("Name", "Bitte gebe hier den Spielenamen ein", "Spiel")
IniWrite("config.ini", "Config", "Spiel6", $Box_6)
Case $msg = $ebutton_8
$Box_7 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad1", $Box_7)
Case $msg = $ebutton_9
$Box_8 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad2", $Box_8)
Case $msg = $ebutton_10
$Box_9 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad3", $Box_9)
Case $msg = $ebutton_11
$Box_10 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad4", $Box_10)
Case $msg = $ebutton_12
$Box_11 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad5", $Box_11)
Case $msg = $ebutton_13
$Box_12 = InputBox("Pfad", "Bitte gebe hier den Pfad der .exe ein", "Spiel")
IniWrite("config.ini", "Config", "Pfad6", $Box_12)
Case $msg = $ebuttonB_1
$Box_13 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button1", $Box_13)
Case $msg = $ebuttonB_2
$Box_14 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button2", $Box_14)
Case $msg = $ebuttonB_3
$Box_15 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button3", $Box_15)
Case $msg = $ebuttonB_4
$Box_16 = InputBox("Name", "Bitte gebe hier den Namen des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button4", $Box_16)
Case $msg = $ebuttonB_5
$Box_17 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button5", $Box_17)
Case $msg = $ebuttonB_6
$Box_18 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button6", $Box_18)
Case $msg = $ebuttonB_7
$Box_19 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button7", $Box_19)
Case $msg = $ebuttonB_8
$Box_20 = InputBox("Name", "Bitte gebe hier den Befehl des Buttons ein", "Button")
IniWrite("config.ini", "Config", "Button8", $Box_20)
Case $msg = $ebuttonC_1
$Box_21 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button9", $Box_21)
Case $msg = $ebuttonC_2
$Box_22 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button10", $Box_22)
Case $msg = $ebuttonC_3
$Box_23 = InputBox("Name", "Bitte gebe hier den Namen des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button11", $Box_23)
Case $msg = $ebuttonC_4
$Box_24 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button12", $Box_24)
Case $msg = $ebuttonC_5
$Box_25 = InputBox("Name", "Bitte gebe hier den Pfad des Stylesein", "Style")
IniWrite("config.ini", "Config", "Button13", $Box_25)
Case $msg = $ebuttonC_6
$Box_26 = InputBox("Name", "Bitte gebe hier den Pfad des Styles ein", "Style")
IniWrite("config.ini", "Config", "Button14", $Box_26)
EndSelect
Switch $msg
Case -3
GUIDelete($hSubGui)
ExitLoop
EndSwitch
WEnd
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func SetColor($Color)
GUICtrlSetColor($L_1, $Color)
GUICtrlSetColor($L_2, $Color)
;GUICtrlSetColor($L_3, $Color)
;GUICtrlSetColor($L_4, $Color)
;GUICtrlSetColor($L_5, $Color)
;GUICtrlSetColor($L_6, $Color)
GUICtrlSetColor($Label1, $Color)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetColor($lblCpuPer, $Color)
GUICtrlSetColor($g_1, $Color)
GUICtrlSetColor($g_2, $Color)
GUICtrlSetColor($Spiel_1, $Color)
GUICtrlSetColor($spiel_2, $Color)
GUICtrlSetColor($spiel_3, $Color)
GUICtrlSetColor($spiel_4, $Color)
GUICtrlSetColor($spiel_5, $Color)
GUICtrlSetColor($spiel_6, $Color)
GUICtrlSetColor($c, $Color)
GUICtrlSetColor($lblCoreCont, $Color)
GUICtrlSetColor($lblUser, $Color)
GUICtrlSetColor($lblPublicIp, $Color)
GUICtrlSetColor($lblOsVersion, $Color)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>SetColor

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;----------------------------------------------------------Uhr
Func _time()
If $blink Then
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
Else
GUICtrlSetData($Label1, @HOUR & ':' & @MIN & ':' & @SEC)
$blink = Not $blink
EndIf
EndFunc ;==>_time
;---------------------------------------------------------------Datum
Func _date()
If $blink Then
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
Else
GUICtrlSetData($Label2, @MDAY & '.' & @MON & '.' & @YEAR)
$blink = Not $blink
EndIf
EndFunc ;==>_date
;-------------------------------------------------------------------
Func _GetCoreCount(Const $Computer = "127.0.0.1")
$WMIConnect = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $Computer & '\root\CIMV2')
If Not IsObj($WMIConnect) Then Return SetError(-1, @error, 0)
$ObjList = $WMIConnect.ExecQuery('SELECT Name FROM Win32_PerfRawData_PerfOS_Processor', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If Not IsObj($ObjList) Then Return SetError(-2, @error, 0)
$iReturn = 0
For $ObjItem In $ObjList
If StringInStr($ObjItem.Name, "_Total") = 0 Then $iReturn += 1
Next
Return $iReturn
EndFunc ;==>_GetCoreCount
;---------------------------------
Func _Random_BG()
GUISetBkColor(Random(100, 0xFFFFFF, 1))
EndFunc ;==>_Random_BG
;---------------------------------
Func CpuAuslastung()
;Global $wbemFlagReturnImmediately = 0x10
;Global $wbemFlagForwardOnly = 0x20
Global $wbemFlags = $wbemFlagReturnImmediately + $wbemFlagForwardOnly
Global $strComputer = @ComputerName

[/autoit] [autoit][/autoit] [autoit]

Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Global $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlags)

[/autoit] [autoit][/autoit] [autoit]

$n = 0
$c = 0
$sMsg = ""
For $ObjItem In $colItems
$sMsg &= "cpu%" & $ObjItem.LoadPercentage
$n += 1
Next

[/autoit] [autoit][/autoit] [autoit]

$CpuAuslastung = StringSplit($sMsg, "cpu%", 1)

[/autoit] [autoit][/autoit] [autoit]

For $n = "0" To $CpuAuslastung[0]
$c += $CpuAuslastung[$n]
Next

[/autoit] [autoit][/autoit] [autoit]

Return (Round($c / $CpuAuslastung[0], 0) & "%")
EndFunc ;==>CpuAuslastung
;---
Func _ShowCpuPer()
GUICtrlSetData($lblCpuPer, "CPU Auslastung: " & CpuAuslastung())
EndFunc ;==>_ShowCpuPer
;=======================
Func _checkbox()
;==========================================================================================================
$cbi3 = IniRead("config.ini", "Config", "cb3", "Error")
If $cbi3 = 1 Then $lblUser = GUICtrlCreateLabel($username, 55, 230, 100, 12)
;==========================================================================================================
$cbi4 = IniRead("config.ini", "Config", "cb4", "Error")
If $cbi4 = 1 Then $lblCoreCont = GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12)
;==========================================================================================================
$cbi5 = IniRead("config.ini", "Config", "cb5", "Error")
If $cbi5 = 1 Then $lblCpuPer = GUICtrlCreateLabel("CPU Auslastng: " & CpuAuslastung(), 55, 265, 100, 12)
;==========================================================================================================
$cbi6 = IniRead("config.ini", "Config", "cb6", "Error")
If $cbi6 = 1 Then $lblPublicIp = GUICtrlCreateLabel("IP: " & $PublicIP, 55, 280, 100, 12)
;==========================================================================================================
$cbi7 = IniRead("config.ini", "Config", "cb7", "Error")
If $cbi7 = 1 Then $lblOsVersion = GUICtrlCreateLabel($osversion, 55, 295, 175, 12)
;==========================================================================================================
EndFunc
Func _checkbox2()
;==========================================================================================================
$cbi1 = IniRead("config.ini", "Config", "cb1", "Error")
If $cbi1 = 1 Then GUICtrlCreateLabel($username, 55, 230, 100, 12)
;==========================================================================================================
$cbi2 = IniRead("config.ini", "Config", "cb2", "Error")
If $cbi2 = 1 Then GUICtrlCreateLabel("CPU Kerne: " & _GetCoreCount(), 55, 250, 175, 12) ;<============ war $cbi
;==========================================================================================================
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs
Autor: ... aka Xilent
Script: ... aka Xilent
Version: 1.0.0.0

[/autoit] [autoit][/autoit] [autoit]

[/autoit]

mfg autoBert

**autoBert**

Hier ein Beispiel zum gleichzitigen ein-/ausblenden:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

$gui1 = GUICreate("Programm", 200, 200) ;Gui 1
$bt1 = GUICtrlCreateButton("About", 50, 50) ;Button zur About-box
GUISetState(@SW_SHOW, $gui1) ;GUI anzeigen

[/autoit] [autoit][/autoit] [autoit]

$gui2 = GUICreate("About", 150, 150) ;Gui 2
$bt2 = GUICtrlCreateButton("Schließen", 10, 10) ;Gui 2 schließen button
WinSetTrans($gui2,"",0)
GUISetState(@SW_SHOW, $gui2) ;GUI verstecken

[/autoit] [autoit][/autoit] [autoit]

While 1 ;schleife
$nMsg = GUIGetMsg(1) ;Die 1 ist wichtig
Switch $nMsg[1] ;wertet die Guis aus
Case $gui1 ;Wenn gui1 benutzt wird
Switch $nMsg[0] ;wertet die ControllIds aus
Case $bt1 ;Wenn button 1 in gui 1 gedrückt wird
_SetTrans($gui1, $gui2)
Case $GUI_EVENT_CLOSE ;Falls GUI 1 geschlossen
Exit ;Skript schließen
EndSwitch ;Ende der Switch von dem GUI 1
Case $gui2 ;Falls gui2 benutzt wird
Switch $nMsg[0] ;Wieder switch $nMsg und wieder mit 0
Case $bt2, $GUI_EVENT_CLOSE ;Falls Button 2 (schließen) gedrückt wird oder Gui2 geschlossen wird(X / Alt-F4 / Esc)
_SetTrans($gui2, $gui1)
EndSwitch ;Ende der Switch von dem GUI 2
EndSwitch ;Ende der switch des allem guis. du kannst so weitermachen mit x GUI's
WEnd ;schleifenende

[/autoit] [autoit][/autoit] [autoit]

Func _SetTrans($gui1, $gui2)
; GUISetState(@SW_SHOW, $gui2) ;GUI 1 anzeigen
For $i = 1 To 255
WinSetTrans($gui1, "", 255 - $i)
WinSetTrans($gui2, "", $i)
Next
; GUISetState(@SW_HIDE, $gui1) ;GUI 2 verstecken
EndFunc ;==>_SetTrans

[/autoit]

mfg autoBert

**autoBert**

Hallo xilent,

dass liegt daran dass du den entsprechenden Labels (sind nicht benamt) nicht die Schriftfarbe zuweist,

mfg autoBert

**autoBert**

Hallo rizz3,

es fehlt noch das Include-File: OL_Helper.au3,

mfg autoBert

Beiträge von autoBert

Webcam.au3 fehler bei Windows 7 x32/x64

Caption ändern

MP3 -> Wav konvertieren!

Caption ändern

Caption ändern

MediaPlayerClassic automatisieren zum erstellen von Thumbnails

Probleme beim Löschen einer ListBox

Band Information

Band Information

Checkbox per ini checked

Uhrzeit und Countdown

Uhrzeit und Countdown

Group Box Farb Fehler?

Bild-eigenschaften aus Firefox

Anfänger mit Frage/n

ganze verzeichnisse mit fileinstall

Schrift Farben Problem

Wechsel zwischen mehreren GUIs / Tabs

Schrift Farben Problem

Skript läuft auf einem Rechner ohne Probleme, auf einem anderen aber nicht