Beiträge von BugFix

**BugFix**

Das geht so nicht.
GUICtrlSetOnEvent($Button1, "_Click") definiert, das bei Click des Buttons die Funktion "_Click()" aufgerufen wird.
Parameter kannst du nur in der Funktion selber festlegen.

Ist zwar etwas umständlich, aber so gehts:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
$mainwindow = GUICreate("Func mit Param. - Test", 200, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Button1 = GUICtrlCreateButton("1 + 2", 5, 50, 60)
GUICtrlSetOnEvent($Button1, "_Click")
$Button2 = GUICtrlCreateButton("5 + 8", 5, 100, 60)
GUICtrlSetOnEvent($Button2, "_Click2")
GUISetState(@SW_SHOW)

While 1
Sleep(1000)
WEnd

Func _Click()
_msg(1, 2)
EndFunc

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

Func _Click2()
_msg(5,
EndFunc

Func _msg($v1, $v2)
MsgBox(0, "", $v1 + $v2)
EndFunc

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

Func _Exit()
Exit
EndFunc

[/autoit]

**BugFix**

Ausgabe in Liste:

[autoit]

For $x = 1 to $aRecords[0]
GUICtrlSetData($Liste, $aRecords[$i])
Next

[/autoit]

oder über MsgBox:

[autoit]

$txt = ""
For $x = 1 to $aRecords[0]
$txt &= $aRecords[$i] & @LF
Next
MsgBox(0, '', $txt)

[/autoit]

**BugFix**

Hallo, hatte gar nicht soviel Resonanz erwartet
Schön, wenn es euch auch gefällt.
Der Picturepath war natürlich rein willkürlich auf mein System zugeschnitten - aber deshalb habe ich ihn ja als Variable erstellt, mit einem Handgriff von jedem zu ändern
Mir ist noch eine Idee zur Verbesserung eingefallen, werdet ihr dann als Edit im ersten Post finden.

Edit:

Zitat

P.S: Hattest Du keine Probleme das Geld in den PC zu bekommen? Im Photoshop CS kommt doch tatsächlich eine Warnmeldung (Verboten!) wenn man Geldscheine bearbeiten möchte.

Photoshop *grr* *schüttel* - Ich weiß schon, warum ich Gimp benutze.

**BugFix**

Hi,
sicher wird niemand das Proggi brauchen können aber ich zeigs euch trotzdem mal.
Fragestellung war: Wie kann ich einen beliebigen Geldbetrag auf die minimale Anzahl Banknoten und Münzen verteilen.

Ich denke das Ergebnis sieht ganz hübsch aus

Zum Testen braucht ihr die angehängte Datei "Euro.zip", wegen der Bildchen

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Dim $backcolor = 0x4A579B, $fcolor = 0xFFD700
Dim $picpath = "D:\Eigene Bilder\Euro\"
Dim $arVal[15], $arLabel[15], $arCheckBtn[15][2], $arCheck[15]
For $i = 0 To 14
$arCheckBtn[$i][1] = 1
Next
$arVal[0] = 500
$arVal[1] = 200
$arVal[2] = 100
$arVal[3] = 50
$arVal[4] = 20
$arVal[5] = 10
$arVal[6] = 5
$arVal[7] = 2
$arVal[8] = 1
$arVal[9] = 0.5
$arVal[10] = 0.2
$arVal[11] = 0.1
$arVal[12] = 0.05
$arVal[13] = 0.02
$arVal[14] = 0.01

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

$Form1 = GUICreate("Geldbetrag stückeln", 500, 504, -1, -1)
GUISetBkColor($backcolor)
GUICtrlCreatePic($picpath & "500eur.jpg", 25, 32, 100, 51, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "200eur.jpg", 140, 33, 100, 54, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "100eur.jpg", 253, 32, 100, 56, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "50eur.jpg", 370, 31, 100, 55, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "20eur.jpg", 25, 118, 100, 54, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "10eur.jpg", 189, 121, 100, 53, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "5eur.jpg", 371, 121, 100, 53, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "2eur.jpg", 25, 215, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "1eur.jpg", 150, 215, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "50ct.jpg", 275, 215, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "20ct.jpg", 400, 215, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "10ct.jpg", 25, 320, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "5ct.jpg", 150, 320, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "2ct.jpg", 275, 320, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlCreatePic($picpath & "1ct.jpg", 400, 320, 75, 75, BitOR($SS_NOTIFY,$WS_GROUP))
$arLabel[0] = GUICtrlCreateLabel("", 52, 11, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
$arCheckBtn[0][0] = GUICtrlCreateButton("" ,25, 11, 12, 12, $BS_ICON)
$arCheckBtn[1][0] = GUICtrlCreateButton("" ,140, 11, 12, 12, $BS_ICON)
$arCheckBtn[2][0] = GUICtrlCreateButton("" ,253, 11, 12, 12, $BS_ICON)
$arCheckBtn[3][0] = GUICtrlCreateButton("" ,370, 11, 12, 12, $BS_ICON)
$arCheckBtn[4][0] = GUICtrlCreateButton("" ,25, 96, 12, 12, $BS_ICON)
$arCheckBtn[5][0] = GUICtrlCreateButton("" ,189, 96, 12, 12, $BS_ICON)
$arCheckBtn[6][0] = GUICtrlCreateButton("" ,371, 96, 12, 12, $BS_ICON)
$arCheckBtn[7][0] = GUICtrlCreateButton("" ,25, 190, 12, 12, $BS_ICON)
$arCheckBtn[8][0] = GUICtrlCreateButton("" ,150, 190,12,12, $BS_ICON)
$arCheckBtn[9][0] = GUICtrlCreateButton("" ,275, 190,12,12, $BS_ICON)
$arCheckBtn[10][0] = GUICtrlCreateButton("" ,400, 190,12,12, $BS_ICON)
$arCheckBtn[11][0] = GUICtrlCreateButton("" ,25, 297,12,12, $BS_ICON)
$arCheckBtn[12][0] = GUICtrlCreateButton("" ,150, 297,12,12, $BS_ICON)
$arCheckBtn[13][0] = GUICtrlCreateButton("" ,275, 297,12,12, $BS_ICON)
$arCheckBtn[14][0] = GUICtrlCreateButton("" ,400, 297,12,12, $BS_ICON)
For $i = 0 To 14
GUICtrlSetImage($arCheckBtn[$i][0], $picpath & "check12x12.ico")
Next
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[1] = GUICtrlCreateLabel("", 165, 11, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[2] = GUICtrlCreateLabel("", 279, 11, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[3] = GUICtrlCreateLabel("", 400, 11, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[4] = GUICtrlCreateLabel("", 52, 96, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[5] = GUICtrlCreateLabel("", 214, 96, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[6] = GUICtrlCreateLabel("", 400, 96, 45, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[7] = GUICtrlCreateLabel("", 41, 190, 43, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[8] = GUICtrlCreateLabel("", 166, 190, 43, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[9] = GUICtrlCreateLabel("", 288, 190, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[10] = GUICtrlCreateLabel("", 412, 190, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[11] = GUICtrlCreateLabel("", 41, 297, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[12] = GUICtrlCreateLabel("", 166, 297, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[13] = GUICtrlCreateLabel("", 288, 297, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$arLabel[14] = GUICtrlCreateLabel("", 412, 297, 49, 17, $SS_CENTER)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetState(-1, $GUI_CHECKED)
$Group1 = GUICtrlCreateGroup("Betrag", 24, 420, 453, 59)
GUICtrlSetFont(-1, 10, 500)
GUICtrlSetColor(-1, $fcolor)
$Input1 = GUICtrlCreateInput("", 64, 442, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, $backcolor)
GUICtrlSetBkColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetTip(-1, "Währung ganzzahlig oder mit maximal" & @LF & "2 Nachkommastellen eingeben." & @LF & "(Komma, nicht Dezimalpunkt verwenden.)")
$ret = _GUICtrlCreateColorButton("Stückelung", 316, 442, 125, 21, $backcolor, $fcolor)
$Button1 = $ret[0]
$Label16 = GUICtrlCreateLabel("EUR", 210, 445, 40, 17)
GUICtrlSetColor(-1, $fcolor)
GUICtrlSetFont(-1, 10, 500)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
GUICtrlSetState($Input1, $GUI_FOCUS)
ToolTip("Nicht verfügbare Werte können über die" & @LF & "jeweiligen Button abgewählt werden.", @DesktopWidth/2 -250, @DesktopHeight/2 -252)
Sleep(3500)
ToolTip("")

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

Do
$msg = GUIGetMsg()
For $i = 0 To 14
If $msg = $arCheckBtn[$i][0] Then
If $arCheckBtn[$i][1] = 0 Then
GUICtrlSetImage($arCheckBtn[$i][0], $picpath & "check12x12.ico")
$arCheckBtn[$i][1] = 1
ElseIf $arCheckBtn[$i][1] = 1 Then
GUICtrlSetImage($arCheckBtn[$i][0], $picpath & "uncheck12x12.ico")
$arCheckBtn[$i][1] = 0
EndIf
GUICtrlSetState($Input1, $GUI_FOCUS)
EndIf
Next
If $msg = $Button1 Then
GUICtrlSetStyle($Button1, $SS_ETCHEDFRAME)
Sleep(150)
GUICtrlSetStyle($Button1, $SS_NOTIFY + $SS_GRAYRECT)
_Berechnung()
EndIf
Until $msg = $GUI_EVENT_CLOSE

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

Func _Berechnung()
For $i = 0 To 14
GUICtrlSetData($arLabel[$i], "")
Next
$div = StringReplace(GUICtrlRead($Input1), ",", ".")
If _StringIsMoney($div) = 1 Then
If $div > 0 Then
For $i = 0 To 14
If ($div >= $arVal[$i] And $arCheckBtn[$i][1] = 1) Then
$G = Int($div / $arVal[$i])
If $G > 0 Then GUICtrlSetData($arLabel[$i], $G)
$R = Round($div - ($arVal[$i] * $G), 2)
If $R = 0 Then ExitLoop
$div = $R
EndIf
Next
If $R > 0 Then GUICtrlSetData($Input1, "Rest " & $div)
EndIf
Else
MsgBox(16, 'Achtung!', "Eingaben bitte ganzzahlig oder max. 2 Nachkommastellen!")
EndIf
GUICtrlSetState($Input1, $GUI_FOCUS)
EndFunc

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

Func _StringIsMoney($checkString)
Dim $len = StringLen($checkString)
If StringInStr($checkString, ".") Then
$val = StringSplit($checkString, ".")
If $val[0] > 2 Then Return 0
If ($len - StringInStr($checkString, ".")) > 2 Then Return 0
EndIf
For $i = 1 To $len
$tmp = StringMid($checkString, $i, 1)
If Not (StringIsInt($tmp) Or $tmp = ".") Then
Return 0
EndIf
Next
Return 1
EndFunc

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

;=============================================================================
;
; Function Name: _GUICtrlCreateColorButton()
;
; Description: Creates a colored Button
;
; Syntax: _GUICtrlCreateColorButton($text, $left, $top, $width, $height,$bkcolor[,$fontcolor])
;
; Parameter(s); $text = The text of the control
; $left = The left side of the control
; $top = The top of the control
; $width = The width of the control
; $height = The height of the control
; $bkcolor = Backgroundcolor of the control
; $fontcolor = [optional] Fontcolor of the control
;
; Return Value(s): array[1] = used to change colors
; array[0] = notifies GUIGetMsg if user clicks
;
; Author: rakudave <[email='rakudave@gmx.net'][/email]>
;=============================================================================
Func _GUICtrlCreateColorButton($text, $left, $top, $width, $height, $bkcolor, $fontcolor = -1)
Local $colbut[2]
If $fontcolor == -1 Then $fontcolor = 0x000000
$colbut[0] = GUICtrlCreateLabel("", $left, $top, $width, $height, $SS_BLACKRECT)
GUICtrlCreateLabel("", $left, $top, $width - 1, $height - 1, $SS_WHITERECT)
GUICtrlCreateLabel("", $left + 1, $top + 1, $width - 2, $height - 2, $SS_GRAYRECT)
$colbut[1] = GUICtrlCreateLabel($text, $left + 1, $top + 1, $width - 3, $height - 3, $SS_NOTIFY & $SS_CENTER)
GUICtrlSetBkColor(-1, $bkcolor)
GUICtrlSetColor(-1, $fontcolor)
GUICtrlSetFont(-1, 10, 500)
Return $colbut
EndFunc ;==>_GUICtrlCreateColorButton

[/autoit]

EDIT:

- ein Bugfix (Danke snoozer für den Hinweis), Fehler in der Restbetragsberechnung.
Bsp.:
Basisbetrag = 20,54 lieferte 1x 20 EUR; 1x 50 ct; 1x 2 ct; 1x 1ct !! (Inflation )
Bei Ausgabe der Zwischenergebnisse ( $R = Mod($div, $arVal[$i]) ) war $R = 0,5399999 !!
Auch eine Umstellung auf: $R =$div - ($arVal[$i] * $G) führte zum identischen Fehler.
Naja, mit Round() gehts jetzt

- Neu dazugekommen: die einzelnen Geldwerte können bei Bedarf abgewählt werden, um nur in bestimmte Geldwerte zu wechseln.
Dazu bitte nochmal die "Euro.zip" laden, es sind Icons hinzugekommen.

**BugFix**

Erklärung zu @ComSpec findest du hier recht gut. ComSpec ist eine Umgebungsvariable - alles weitere beim Link.

**BugFix**

Versuchs so:

[autoit]

Run($Pfad & "upx.exe -d")

[/autoit][autoit]

Run(@ComSpec & " /c " & 'commandName')

[/autoit]

wird für DOS-Konsolenprogramme verwendet.

**BugFix**

no problem: Editfeld, Style: $ES_MULTILINE

**BugFix**

Hi,
wer öfter mal Zugriff auf bestimmte Systemfenster benötigt und sich bisher mit Tastaturbefehlen beholfen hat: in vielen Fällen geht dies auch per Kommandozeile.
Eigentlich mehr durch Zufall bin ich auf die CPL-Files in Windows gestoßen.
Ich hab dann mal zu allen verfügbaren Files die Aufrufparameter ermittelt und zusammengestellt.

Ich denke mal, der eine oder andere wird Verwendung dafür finden.

Spoiler anzeigen

Aufruf von Systemeinstellungen per Kommandozeile:

Aufruf "Systemeigenschaften"
Registerkarte: "Allgemein" "control.exe sysdm.cpl,,0"
Registerkarte: "Computername" "control.exe sysdm.cpl,,1"
Registerkarte: "Hardware" "control.exe sysdm.cpl,,2"
Registerkarte: "Erweitert" "control.exe sysdm.cpl,,3"
Registerkarte: "Erweitert" <Button Systemleistung-Einstellungen> "Leistungsoptionen" "control.exe sysdm.cpl,,-1"
Registerkarte: "Systemwiederherstellung" "control.exe sysdm.cpl,,4"
Registerkarte: "Automatische Updates" "control.exe sysdm.cpl,,5"
Registerkarte: "Remote" "control.exe sysdm.cpl,,6"

Aufruf "Eigenschaften von Anzeige"
Registerkarte: "Designs" "control.exe desk.cpl,,-1"
Registerkarte: "Desktop" "control.exe desk.cpl,,0"
Registerkarte: "Bildschirmschoner" "control.exe desk.cpl,,1"
Registerkarte: "Darstellung" "control.exe desk.cpl,,2"
Registerkarte: "Einstellungen" "control.exe desk.cpl,,3"

Aufruf "Software"
"Programme ändern oder entfernen" "control.exe appwiz.cpl,,0"
"Neue Programme hinzufügen" "control.exe appwiz.cpl,,1"
"Windowskomponenten hinzufügen oder entfernen" "control.exe appwiz.cpl,,2"
"Programmzugriff und -standards festlegen" "control.exe appwiz.cpl,,3"

CPL-FILE| FENSTER| PARAMETER-INDEX
- - -
ACCESS.CPL "Eingabehilfen" 1-Tastatur, 2-Sound, 3-Anzeige, 4-Maus, 5-Allgemein
INETCPL.CPL "Eigenschaften von Internet" 0-Allgemein, 1-Sicherheit, 2-Datenschutz, 3-Inhalte, 4-Verbindungen, 5-Programme, 6-Erweitert
INTL.CPL "Regions- und Sprachoptionen" 0-Regionale Einstellungen, 1-Sprache, 2-Erweitert
MAIN.CPL "Eigenschaften von Maus" 0-Tasten, 1-Zeiger, 2-Zeigeroptionen, 3-Rad, 4-Hardware, 5-Geräteeinstellungen
MMSYS.CPL "Eigenschaften von Sounds und Audiogeräte" 0-Lautstärke, 1-Sounds, 2-Audio, 3-Stimme, 4-Hardware
TELEPHON.CPL "Telefon- und Modemoptionen" 0-Wählregeln, 1-Modems, 2-Erweitert
TIMEDATE.CPL "Eigenschaften von Datum und Uhrzeit" 0-Datum und Uhrzeit, 1-Zeitzone
WSCUI.CPL "Windows-Sicherheitscenter" o.Parameter Hauptfenster, 0-Warnungseinstellungen

Folgende Fenster werden ohne Parameter aufgerufen, also "control.exe *******.cpl"

FIREWALL.CPL "Windows Firewall" Allgemein (andere Register nicht einzeln ansprechbar)
HDWWIZ.CPL "Hardware-Assistant"
JOY.CPL "Gamecontroller"
NCPA.CPL "Netzwerkverbindungen"
NETSETUP.CPL "Netzwerkinstallationsassistent"
NUSRMGR.CPL "Benutzerkonten"
ODBCCP32.CPL "ODBC-Datenquellen-Administrator"
POWERCFG.CPL "Eigenschaften von Energieoptionen"

EDIT

Hab das ganze jetzt praktikabel in eine GUI eingebettet.
- Textsuche nach Einstellungsoption ('sys' liefert z.B. alle erreichbaren Systemeigenschaften)
- Suche-Button ist DEFPUSHBUTTON
- bei Klick auf gewünschten Parameter wird der Kommandozeilenbefehl angezeigt
- Testbutton zur Vorschau
- Übernahme CmdLine-Befehl in Zwischenablage als String pur oder als "Run(Befehl)"
- alle Button per Tastatur wählbar

Edit: Jetzt angepaßt auf Version 3.2.10.0

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <GuiListBox.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)

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

Dim $arSearch[1] = ['']
Dim $arCPL[58][3] ; FENSTER| CPL-FILE| PARAMETER-INDEX
$arCPL[0][0] = "Systemeigenschaften - Allgemein"
$arCPL[1][0] = "Systemeigenschaften - Computername"
$arCPL[2][0] = "Systemeigenschaften - Hardware"
$arCPL[3][0] = "Systemeigenschaften - Erweitert"
$arCPL[4][0] = "Systemeigenschaften - Erweitert <Button Systemleistung-Einstellungen> Leistungsoptionen"
$arCPL[5][0] = "Systemeigenschaften - Systemwiederherstellung"
$arCPL[6][0] = "Systemeigenschaften - Automatische Updates"
$arCPL[7][0] = "Systemeigenschaften - Remote"
$arCPL[8][0] = "Eigenschaften von Anzeige - Designs"
$arCPL[9][0] = "Eigenschaften von Anzeige - Desktop"
$arCPL[10][0] = "Eigenschaften von Anzeige - Bildschirmschoner"
$arCPL[11][0] = "Eigenschaften von Anzeige - Darstellung"
$arCPL[12][0] = "Eigenschaften von Anzeige - Einstellungen"
$arCPL[13][0] = "Software - Programme ändern oder entfernen"
$arCPL[14][0] = "Software - Neue Programme hinzufügen"
$arCPL[15][0] = "Software - Windowskomponenten hinzufügen oder entfernen"
$arCPL[16][0] = "Software - Programmzugriff und -standards festlegen"
$arCPL[17][0] = "Eingabehilfen - Tastatur"
$arCPL[18][0] = "Eingabehilfen - Sound"
$arCPL[19][0] = "Eingabehilfen - Anzeige"
$arCPL[20][0] = "Eingabehilfen - Maus"
$arCPL[21][0] = "Eingabehilfen - Allgemein"
$arCPL[22][0] = "Eigenschaften von Internet - Allgemein"
$arCPL[23][0] = "Eigenschaften von Internet - Sicherheit"
$arCPL[24][0] = "Eigenschaften von Internet - Datenschutz"
$arCPL[25][0] = "Eigenschaften von Internet - Inhalte"
$arCPL[26][0] = "Eigenschaften von Internet - Verbindungen"
$arCPL[27][0] = "Eigenschaften von Internet - Programme"
$arCPL[28][0] = "Eigenschaften von Internet - Erweitert"
$arCPL[29][0] = "Regions- und Sprachoptionen - Regionale Einstellungen"
$arCPL[30][0] = "Regions- und Sprachoptionen - Sprache"
$arCPL[31][0] = "Regions- und Sprachoptionen - Erweitert"
$arCPL[32][0] = "Eigenschaften von Maus - Tasten"
$arCPL[33][0] = "Eigenschaften von Maus - Zeiger"
$arCPL[34][0] = "Eigenschaften von Maus - Zeigeroptionen"
$arCPL[35][0] = "Eigenschaften von Maus - Rad"
$arCPL[36][0] = "Eigenschaften von Maus - Hardware"
$arCPL[37][0] = "Eigenschaften von Maus - Geräteeinstellungen"
$arCPL[38][0] = "Eigenschaften von Sounds und Audiogeräte - Lautstärke"
$arCPL[39][0] = "Eigenschaften von Sounds und Audiogeräte - Sounds"
$arCPL[40][0] = "Eigenschaften von Sounds und Audiogeräte - Audio"
$arCPL[41][0] = "Eigenschaften von Sounds und Audiogeräte - Stimme"
$arCPL[42][0] = "Eigenschaften von Sounds und Audiogeräte - Hardware"
$arCPL[43][0] = "Telefon- und Modemoptionen - Wählregeln"
$arCPL[44][0] = "Telefon- und Modemoptionen - Modems"
$arCPL[45][0] = "Telefon- und Modemoptionen - Erweitert"
$arCPL[46][0] = "Eigenschaften von Datum und Uhrzeit - Datum und Uhrzeit"
$arCPL[47][0] = "Eigenschaften von Datum und Uhrzeit - Zeitzone"
$arCPL[48][0] = "Windows-Sicherheitscenter - Hauptfenster"
$arCPL[49][0] = "Windows-Sicherheitscenter - Warnungseinstellungen"
$arCPL[50][0] = "Windows Firewall - Allgemein"
$arCPL[51][0] = "Hardware-Assistant"
$arCPL[52][0] = "Gamecontroller"
$arCPL[53][0] = "Netzwerkverbindungen"
$arCPL[54][0] = "Netzwerkinstallationsassistent"
$arCPL[55][0] = "Benutzerkonten"
$arCPL[56][0] = "ODBC-Datenquellen-Administrator"
$arCPL[57][0] = "Eigenschaften von Energieoptionen"

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

$arCPL[0][1] = "SYSDM.CPL"
$arCPL[1][1] = "SYSDM.CPL"
$arCPL[2][1] = "SYSDM.CPL"
$arCPL[3][1] = "SYSDM.CPL"
$arCPL[4][1] = "SYSDM.CPL"
$arCPL[5][1] = "SYSDM.CPL"
$arCPL[6][1] = "SYSDM.CPL"
$arCPL[7][1] = "SYSDM.CPL"
$arCPL[8][1] = "DESK.CPL"
$arCPL[9][1] = "DESK.CPL"
$arCPL[10][1] = "DESK.CPL"
$arCPL[11][1] = "DESK.CPL"
$arCPL[12][1] = "DESK.CPL"
$arCPL[13][1] = "APPWIZ.CPL"
$arCPL[14][1] = "APPWIZ.CPL"
$arCPL[15][1] = "APPWIZ.CPL"
$arCPL[16][1] = "APPWIZ.CPL"
$arCPL[17][1] = "ACCESS.CPL"
$arCPL[18][1] = "ACCESS.CPL"
$arCPL[19][1] = "ACCESS.CPL"
$arCPL[20][1] = "ACCESS.CPL"
$arCPL[21][1] = "ACCESS.CPL"
$arCPL[22][1] = "INETCPL.CPL"
$arCPL[23][1] = "INETCPL.CPL"
$arCPL[24][1] = "INETCPL.CPL"
$arCPL[25][1] = "INETCPL.CPL"
$arCPL[26][1] = "INETCPL.CPL"
$arCPL[27][1] = "INETCPL.CPL"
$arCPL[28][1] = "INETCPL.CPL"
$arCPL[29][1] = "INTL.CPL"
$arCPL[30][1] = "INTL.CPL"
$arCPL[31][1] = "INTL.CPL"
$arCPL[32][1] = "MAIN.CPL"
$arCPL[33][1] = "MAIN.CPL"
$arCPL[34][1] = "MAIN.CPL"
$arCPL[35][1] = "MAIN.CPL"
$arCPL[36][1] = "MAIN.CPL"
$arCPL[37][1] = "MAIN.CPL"
$arCPL[38][1] = "MMSYS.CPL"
$arCPL[39][1] = "MMSYS.CPL"
$arCPL[40][1] = "MMSYS.CPL"
$arCPL[41][1] = "MMSYS.CPL"
$arCPL[42][1] = "MMSYS.CPL"
$arCPL[43][1] = "TELEPHON.CPL"
$arCPL[44][1] = "TELEPHON.CPL"
$arCPL[45][1] = "TELEPHON.CPL"
$arCPL[46][1] = "TIMEDATE.CPL"
$arCPL[47][1] = "TIMEDATE.CPL"
$arCPL[48][1] = "WSCUI.CPL"
$arCPL[49][1] = "WSCUI.CPL"
$arCPL[50][1] = "FIREWALL.CPL"
$arCPL[51][1] = "HDWWIZ.CPL"
$arCPL[52][1] = "JOY.CPL"
$arCPL[53][1] = "NCPA.CPL"
$arCPL[54][1] = "NETSETUP.CPL"
$arCPL[55][1] = "NUSRMGR.CPL"
$arCPL[56][1] = "ODBCCP32.CPL"
$arCPL[57][1] = "POWERCFG.CPL"

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

$arCPL[0][2] = 0
$arCPL[1][2] = 1
$arCPL[2][2] = 2
$arCPL[3][2] = 3
$arCPL[4][2] = -1
$arCPL[5][2] = 4
$arCPL[6][2] = 5
$arCPL[7][2] = 6
$arCPL[8][2] = -1
$arCPL[9][2] = 0
$arCPL[10][2] = 1
$arCPL[11][2] = 2
$arCPL[12][2] = 3
$arCPL[13][2] = 0
$arCPL[14][2] = 1
$arCPL[15][2] = 2
$arCPL[16][2] = 3
$arCPL[17][2] = 1
$arCPL[18][2] = 2
$arCPL[19][2] = 3
$arCPL[20][2] = 4
$arCPL[21][2] = 5
$arCPL[22][2] = 0
$arCPL[23][2] = 1
$arCPL[24][2] = 2
$arCPL[25][2] = 3
$arCPL[26][2] = 4
$arCPL[27][2] = 5
$arCPL[28][2] = 6
$arCPL[29][2] = 0
$arCPL[30][2] = 1
$arCPL[31][2] = 2
$arCPL[32][2] = 0
$arCPL[33][2] = 1
$arCPL[34][2] = 2
$arCPL[35][2] = 3
$arCPL[36][2] = 4
$arCPL[37][2] = 5
$arCPL[38][2] = 0
$arCPL[39][2] = 1
$arCPL[40][2] = 2
$arCPL[41][2] = 3
$arCPL[42][2] = 4
$arCPL[43][2] = 0
$arCPL[44][2] = 1
$arCPL[45][2] = 2
$arCPL[46][2] = 0
$arCPL[47][2] = 1
$arCPL[48][2] = -99
$arCPL[49][2] = 0
$arCPL[50][2] = -99
$arCPL[51][2] = -99
$arCPL[52][2] = -99
$arCPL[53][2] = -99
$arCPL[54][2] = -99
$arCPL[55][2] = -99
$arCPL[56][2] = -99
$arCPL[57][2] = -99

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

$guiCPL = GUICreate("Generiere CPL - CmdLine", 625, 513, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "guiCPLClose")
$Group1 = GUICtrlCreateGroup(" Suche ( OHNE Suchbegriff wird Liste neu geladen )", 8, 8, 609, 49)
$inSearch = GUICtrlCreateInput("", 40, 26, 433, 21)
GUICtrlSetTip(-1, 'Mit Suche OHNE Suchbegriff' & @LF & 'wird die Liste wieder neu geladen.')
$btnSearch = GUICtrlCreateButton("Start", 500, 26, 100, 21, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent(-1, "btnSearchClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateList("", 8, 64, 609, 357)
GUICtrlSetOnEvent(-1, "List1Click")
$Group2 = GUICtrlCreateGroup(" Cmd-Line ", 8, 432, 609, 73)
$inCmdOut = GUICtrlCreateInput("", 40, 448, 433, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetColor(-1, 0x00008B)
$btnShow = GUICtrlCreateButton("&Test", 500, 448, 100, 21, 0)
GUICtrlSetOnEvent(-1, "btnShowClick")
$btnRaw = GUICtrlCreateButton("Kopiere &String pur", 68, 477, 150, 21, 0)
GUICtrlSetOnEvent(-1, "btnRawClick")
$btnRun = GUICtrlCreateButton("Kopiere String als: &Run( )", 295, 477, 150, 21, 0)
GUICtrlSetOnEvent(-1, "btnRunClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

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

Global $hList = GUICtrlGetHandle($List1)
_setList()

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

HotKeySet("!t", "btnShowClick")
HotKeySet("!s", "btnRawClick")
HotKeySet("!r", "btnRunClick")

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

While 1
Sleep(100)
WEnd

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

Func _setList()
For $i = 0 To UBound($arCPL)-1
GUICtrlSetData($List1, $arCPL[$i][0])
Next
EndFunc

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

Func btnRawClick()
Local $file = GUICtrlRead($inCmdOut)
If $file <> '' Then
ClipPut($file)
MsgBox(0, '', $file & @LF & @LF & 'wurde in Zwischenablage kopiert' )
EndIf
EndFunc

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

Func btnRunClick()
Local $file = GUICtrlRead($inCmdOut), $str
If $file <> '' Then
$str = "Run('" & $file & "')"
ClipPut($str)
MsgBox(0, '', $str & @LF & @LF & 'wurde in Zwischenablage kopiert' )
EndIf
EndFunc

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

Func btnSearchClick()
Local $toSearch = GUICtrlRead($inSearch)
ReDim $arSearch[1]
$arSearch[0] = ''
_GUICtrlListBoxClear($hList)
If $toSearch = '' Then
_setList()
Else
For $i = 0 To UBound($arCPL)-1
If StringInStr($arCPL[$i][0], $toSearch) Then
If $arSearch[0] = '' Then
$arSearch[0] = $arCPL[$i][0]
Else
ReDim $arSearch[UBound($arSearch)+1]
$arSearch[UBound($arSearch)-1] = $arCPL[$i][0]
EndIf
EndIf
Next
For $i = 0 To UBound($arSearch)-1
GUICtrlSetData($List1, $arSearch[$i])
Next
EndIf
EndFunc

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

Func btnShowClick()
Local $file = GUICtrlRead($inCmdOut)
If $file <> '' Then Run($file)
EndFunc

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

Func guiCPLClose()
Exit
EndFunc

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

Func List1Click()
$currPosIndex = _GUICtrlListBox_GetCaretIndex($hList)
For $i = 0 To UBound($arCPL)-1
If $arCPL[$i][0] = _GUICtrlListBox_GetText($hList, $currPosIndex) Then ExitLoop
Next
GUICtrlSetData($inCmdOut, _Generate($arCPL[$i][1], $arCPL[$i][2]))
EndFunc

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

Func _Generate($CPL, $PARAM)
Local $cmd = "control.exe "
If $PARAM <> -99 Then
$cmd &= $CPL & ",," & $PARAM
Else
$cmd &= $CPL
EndIf
Return $cmd
EndFunc

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

Func _GUICtrlListBoxClear($Handle)
Do
Local $rest = _GUICtrlListBox_DeleteString($hList, 0)
Until $rest = 0
EndFunc

[/autoit]

**BugFix**

[autoit]

#NoTrayIcon

[/autoit]

am Scriptanfang

**BugFix**

Naja, ich hab natürlich aufmerksam verfolgt, was sich da entwickelt hat und nun unter dem Namen Vista unsere Kohle kassieren will.
Ich konnte kein Feature entdecken, dass mich auch nur ansatzweise ernsthaft zu der Frage drängt: besorgen oder nicht.
Dafür gibt es im Gegenteil eher Ansatzpunkte das Ganze mit etwas gesunder Skepsis zu betrachten. Die Implementierung von Routinen, die überprüfen ob Fremdsoftware den Redmondern "genehm" ist (obwohl dies ja mehr im Hardwarebereich stattfindet) halte ich für den Beginn des Untergangs Freier Software.
Man wird eh genug überwacht und kontrolliert - ich brauch nicht noch 'nen PC der über die Nutzung von Software entscheidet. Demnächst sagt mir mein Compi noch, mit welcher Frau ich ausgehen darf... :schild4:

Soweit die Meinung eines Dinosauriers.

**BugFix**

Für eine automatisierte Änderung der Arbeitsgruppe läßt sich die "NetDom.exe" ( per Batch: call netdom.exe member /joinworkgroup ARBEITSGRUPPE ) verwenden. Da man die aber nicht standardmäßig an Bord hat, hier eine Lösung über die Systemeinstellungen mittels "Send" und "Controlclick". Einen direkteren Weg konnte ich nicht finden.
Also falls es mal jemand braucht.

Spoiler anzeigen

[autoit]

; Arbeitsgruppennamen ändern
$NeueArbeitsgruppe = "MSHEIMNETZ" ; festlegen oder per Inputbox während des Ausführens ändern
;~ $NeueArbeitsgruppe = StringUpper(InputBox("Arbeitsgruppe", "Bitte neue Arbeitsgruppe eintragen: ", "MSHEIMNETZ"))
Send("{LWINDOWN}{PAUSE}{LWINUP}")
WinWaitActive("Systemeigenschaften")
Send("{RIGHT}")
Send("!n")
WinWaitActive("Computernamen ändern")
ControlFocus("Computernamen ändern", "", "Edit4")
Send("{SHIFTDOWN}{END}{SHIFTUP}")
If ControlGetText("Computernamen ändern", "", "Edit4") = $NeueArbeitsgruppe Then
MsgBox(0, '', "Arbeitsgruppe ist bereits: " & $NeueArbeitsgruppe & ".")
ControlClick("Computernamen ändern", "", "Button7")
ControlClick("Systemeigenschaften", "", "Button4")
Exit
EndIf
Send($NeueArbeitsgruppe)
ControlClick("Computernamen ändern", "", "Button6")
While 1
If StringInStr(WinGetText("Computernamen ändern"), "Willkommen in der Arbeitsgruppe " & $NeueArbeitsgruppe) Then
ExitLoop
Else
Sleep(100)
EndIf
WEnd
Send("{ENTER}")
While 1
If StringInStr(WinGetText("Computernamen ändern"), "Die Änderungen werden erst wirksam, wenn Sie den Computer neu starten.") Then
ExitLoop
Else
Sleep(100)
EndIf
WEnd
Send("{ENTER}")
ControlClick("Systemeigenschaften", "", "Button3") ; Systemeigenschaften schließen
ControlClick("Geänderte Systemeinstellungen", "", "Button1") ; Ja (Neustart) = "Button1", Nein ist "Button2"

[/autoit]

**BugFix**

[autoit]

$Pos = _ArraySearch($arTemp, $tmp1, 0, 0, 0, True)

[/autoit]

"True" ? wofür steht das Argument, hab ich in der Hilfe nicht gefunden, dort sind nur: String, Searchstring + 3 Arg. aufgeführt.

**BugFix**

Check mal ab, ob $arTemp überhaupt Inhalt hat. Mach vor der Schleife _ArrayDisplay( ).

**BugFix**

Erneut etwas raten:
Gesamten Inhalt von $anzahl Dateien in eine Zieldatei schreiben?

**BugFix**

Sry, aber du hast noch immer nicht geschrieben WAS als Ergebnis herauskommen soll??

**BugFix**

Du hast vergessen, die Variable fürs Ergebnis als Array zu deklarieren:

[autoit]

Dim $arErgebnis[1]

[/autoit]

Schreib es so, dann klappt es.

**BugFix**

Laß dir mal vor _FileWriteFromArray() das Array anzeigen:
_ArrayDisplay($array, "Titel")

Mit meinen Testdateien funzt das.

**BugFix**

[autoit]

_FileWriteFromArray($pathMain, $match,1,1)

[/autoit]

(nur Eintrag 1) oder

[autoit]

_FileWriteFromArray($pathMain, $match,1,0)

[/autoit]

(gesamtes Array) ist in diesem Fall identisch, da nur ein Treffer.

Aber - in jedem Schleifendurchlauf mit Treffer bewirkt dieser Befehl, dass "$pathMain" NEU geschrieben wird. Die alte Datei wird also überschrieben.
Ich mach dir gleich mal 'ne Variante, die das löst. Kommt im Edit.

EDIT:

Spoiler anzeigen

[autoit]

For $i = 1 To $string[0] ; Dateiliste abarbeiten
_FileReadToArray($pfad & $string[$i], $frta)
If @error <> 0 Then
MsgBox(4096, "Error", " Fehler beim Einlesen der Datei: " & $pfad & $string[$i] & @LF & "Fehler: " & @error)
Else
$match = _StringBetween($frta[2],"/", ";") ; Wert in Zeile 2 auslesen
If Not @error Then
If StringInStr($frta[2], "K;380") Then ; Eintrag ist vorhanden
MsgBox(4096, "", "vorhanden bei datei: "& $string[$i] & " " & $match[0])
;_Rechnung()
_ArrayAdd($arErgebnis, $match[0])
Sleep(1500)
;~ ExitLoop ; dann wird Bearbeitung abgebrochen !!!
ElseIf StringInStr($frta[2], "K;130") Then ; Eintrag ist vorhanden
MsgBox(4096, "", "vorhanden bei datei: "& $string[$i] & " " & $match[0])
;_EVN()
Sleep(1500)
;~ ExitLoop ; dann wird Bearbeitung abgebrochen !!!
EndIf
Else
MsgBox(4096, "", "In Datei: "& $string[$i] & " ist Nummer nicht enthalten.")
EndIf
EndIf
Next
_FileWriteFromArray($pathMain, $arErgebnis,1)
Exit

[/autoit]

**BugFix**

So, hab deine Files mal nachgebaut und dann getestet.
Jetzt funzt es:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <date.au3>
#include <array.au3>
#include <string.au3>
Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info

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

Dim $pfad = "C:\GLI_Prod\12 2006\"
Dim $string = _FileListToArray($pfad, "*.INH") ; liest alle *.INH-Files in Array $string
Dim $match, $frta

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

If Not IsArray($string) Then
MsgBox(16, "", "Keine Inhouse Datei(en) gefunden.. EXIT!")
Exit
EndIf

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

For $i = 1 To $string[0] ; Dateiliste abarbeiten
_FileReadToArray($pfad & $string[$i], $frta)
If @error <> 0 Then
MsgBox(4096, "Error", " Fehler beim Einlesen der Datei: " & $pfad & $string[$i] & @LF & "Fehler: " & @error)
Else
$match = _StringBetween($frta[2],"/", ";") ; Wert in Zeile 2 auslesen
If StringInStr($frta[2], "K;380") Then ; Eintrag ist vorhanden
MsgBox(4096, "", "vorhanden bei datei: "& $string[$i] & " " & $match[0])
;_Rechnung()
Sleep(1500)
;~ ExitLoop ; dann wird Bearbeitung abgebrochen !!!
ElseIf StringInStr($frta[2], "K;130") Then ; Eintrag ist vorhanden
;MsgBox(4096, "", "vorhanden bei datei: "&$frta[$i])
;_EVN()
Sleep(1500)
;~ ExitLoop ; dann wird Bearbeitung abgebrochen !!!
EndIf
EndIf
Next

[/autoit]

**BugFix**

Zitat

mit _filewritefromarry schreibe ich dann in eine datei?

Ja, jeder Eintrag des Arrays wird in eine einzelne Zeile geschrieben.

Ich hab mal einige Änderungen vorgenommen und entsprechend kommentiert.

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <date.au3>
#include<array.au3>
Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
;~ $frta = _FileListToArray("C:\GLI_Prod\12 2006\", "*.INH") überflüssig -> neue Deklaration in Zeile 7
Global $string = _FileListToArray("C:\GLI_Prod\12 2006\", "*.INH") ; liest alle *.INH-Files in Array $string
;~ Global $frta = _StringBetween($string,"/", ";") ; selektiert aus DATEINAMEN !! -> da kann er nix finden
Dim $match, $frta

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

If Not IsArray($string) Then
MsgBox(16, "", "Keine Inhouse Datei(en) gefunden.. EXIT!")
Exit
EndIf
For $i = 1 To $string[0] ; Dateiliste abarbeiten
If IsArray(_FileReadToArray("C:\GLI_Prod\12 2006\" & $string[$i], $frta)) Then ; einzelne Datei in Array lesen ($ftra)
$match = _StringBetween($frta[2],"/", ";") ; Wert in Zeile 2 auslesen
If StringInStr($frta[2], "K;380") Then ; Eintrag ist vorhanden
MsgBox(4096, "", "vorhanden bei datei: "& $string[$i] & "" & $match[0])
;_Rechnung()
Sleep(1500)
ExitLoop ; dann wird Bearbeitung abgebrochen !!!
ElseIf StringInStr($frta[2], "K;130") Then ; Eintrag ist vorhanden
;MsgBox(4096, "", "vorhanden bei datei: "&$frta[$i])
;_EVN()
Sleep(1500)
ExitLoop ; dann wird Bearbeitung abgebrochen !!!
EndIf
Else
MsgBox(4096, "Error", " Fehler beim Einlesen der Datei: " &"C:\GLI_Prod\12 2006\" & $string[$i] & @LF & "Fehler: " & @error)
;~ Exit ; falsch -> dann wird Programm beendet, nächste Datei soll aber bearbeitet werden!
EndIf
Next

[/autoit]

Beiträge von BugFix

GUISetOnEvent & Func mit Parametern

Array in Liste ausgeben ?

Geldbetrag stückeln

Geldbetrag stückeln

Konsoleprogramme einbinden

Konsoleprogramme einbinden

alternative zum editfeld ?

Systemeinstellungen per Cmd-Line

Systray Programme beenden.

Morgen wird die Welt ein Stück **********^^

Ändern Arbeitsgruppe

Array Problem...

Array Problem...

txt Dateien in einder kopieren

txt Dateien in einder kopieren

Zeile 2 mit StringMid

Zeile 2 mit StringMid

Zeile 2 mit StringMid

Zeile 2 mit StringMid

Zeile 2 mit StringMid