Beiträge von Schnuffel

**Schnuffel**

oder aber du verwendest ein Icon.
Mit dem Stil $BS_ICON kannst Du einem Button
mit GuiCtrlSetImage eine .ico Grafik zuweisen und der "Button"-Look bleibt erhalten.

**Schnuffel**

Oscar hat doch geantwortet.

Bitte die Antworten durchlesen:
Der Ordner lol im ProgramsDir existiert nicht, darum kann die Datei auch nicht in diesen Ordner kopiert werden zur Laufzeit.

**Schnuffel**

ich denke AutoIt fällt unter die Scriptsprachen...
* Pascal/Delphi
o Pascal/Delphi
o Borland Delphi
o Free Pascal
* C/C++
o C/C++
o KDevelop
o GNU C COMPILER (GCC)
* Java
o Java
o Eclipse
o BlueJ
o Sun Java Development Kit
* Skriptsprachen
o Skriptsprachen
o Python
o Perl (Practical Extraction and Report Language)
o PHP (Hypertext Preprocessor)
* Lisp und Scheme

**Schnuffel**

wie gut, dass das Script nur 3 Zeilen hat ...

**Schnuffel**

vielleicht für die erste "Schulstunde" schon zu heftig ...

**Schnuffel**

ich hab doch gesagt: den @error direkt nach dem Befehl abfragen...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "Error")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "Error")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "Error")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "Error")
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$run = $icq
$i = 1
GUICreate("Dennis's Toolbox",370,100)
Opt("GUICoordMode",2)

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

$hCombo = GUICtrlCreateCombo ("ICQ", 10,10,100,25,0x0003)
GUICtrlSetData($hCombo,"MSN|Skype|Firefox|Winamp","ICQ")
$Button_1 = GUICtrlCreateButton ("Run", 10, -27, 50,25)
$infobox = GUICtrlCreateInput($run, -160, 10, 350, 20)
$Button_2 = GUICtrlCreateButton ("Durchsuchen", -1, 5,100,25)

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

GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hCombo
If GUICtrlRead($hCombo) = "ICQ" Then
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "Error")
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "Error")
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "Error")
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "Error")
EndIf
GuiCtrlSetData($infobox,$pfad)
Case $msg = $Button_1
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "")
If GUICtrlRead($hCombo) = "ICQ" Then
$run = $icq
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$run = $msn
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$run = $skype
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$run = $firefox
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$run = $winamp
EndIf
Run($run)
Case $msg = $Button_2
If GUICtrlRead($hCombo) = "ICQ" Then
$name = "ICQ"
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$name = "MSN"
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$name = "Skype"
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$name = "FireFox"
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$name = "Winamp"
EndIf
$pfad = FileOpenDialog ( "Pfad zur "&$name&".exe auswählen", "C:\", "ausführbare Dateien (*.exe)" , 3 , $name & ".exe")
if not @error then GUICtrlSetData($infobox,$pfad)
If GUICtrlRead($hCombo) = "ICQ" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "MSN" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Skype" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", $pfad)
EndIf

EndSelect
WEnd

[/autoit]

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "Error")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "Error")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "Error")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "Error")
$pfad = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$run = $icq
$i = 1
GUICreate("Dennis's Toolbox",370,100)
Opt("GUICoordMode",2)

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

$hCombo = GUICtrlCreateCombo ("ICQ", 10,10,100,25,0x0003)
GUICtrlSetData($hCombo,"MSN|Skype|Firefox|Winamp","ICQ")
$Button_1 = GUICtrlCreateButton ("Run", 10, -27, 50,25)
$infobox = GUICtrlCreateInput($run, -160, 10, 350, 20)
$Button_2 = GUICtrlCreateButton ("Durchsuchen", -1, 5,100,25)

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

GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hCombo
GuiCtrlSetData($infobox,"")

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

Case $msg = $Button_1
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "")
If GUICtrlRead($hCombo) = "ICQ" Then
$run = $icq
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$run = $msn
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$run = $skype
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$run = $firefox
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$run = $winamp
EndIf
Run($run)
Case $msg = $Button_2
If GUICtrlRead($hCombo) = "ICQ" Then
$name = "ICQ"
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$name = "MSN"
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$name = "Skype"
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$name = "FireFox"
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$name = "Winamp"
EndIf
$pfad = FileOpenDialog ( "Pfad zur "&$name&".exe auswählen", "C:\", "ausführbare Dateien (*.exe)" , 3 , $name & ".exe")
If GUICtrlRead($hCombo) = "ICQ" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "MSN" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Skype" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
if not @error then IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", $pfad)
EndIf
if not @error then GUICtrlSetData($infobox,$pfad)
EndSelect
WEnd

[/autoit]

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "Error")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "Error")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "Error")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "Error")
$run = $icq
GUICreate("Dennis's Toolbox",370,100)
Opt("GUICoordMode",2)

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

$hCombo = GUICtrlCreateCombo ("ICQ", 10,10,100,25,0x0003)
GUICtrlSetData($hCombo,"MSN|Skype|Firefox|Winamp","ICQ")
$Button_1 = GUICtrlCreateButton ("Run", 10, -27, 50,25)
$infobox = GUICtrlCreateInput($run, -160, 10, 350, 20)
$Button_2 = GUICtrlCreateButton ("Durchsuchen", -1, 5,100,25)

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

GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "")
If GUICtrlRead($hCombo) = "ICQ" Then
$run = $icq
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$run = $msn
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$run = $skype
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$run = $firefox
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$run = $winamp
EndIf
Run($run)
Case $msg = $Button_2
If GUICtrlRead($hCombo) = "ICQ" Then
$name = "ICQ"
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$name = "MSN"
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$name = "Skype"
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$name = "FireFox"
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$name = "Winamp"
EndIf
$pfad = FileOpenDialog ( "Pfad zur "&$name&".exe auswählen", "C:\", "ausführbare Dateien (*.exe)" , 3 , $name & ".exe")
If GUICtrlRead($hCombo) = "ICQ" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "MSN" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Skype" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", $pfad)
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", $pfad)
EndIf
GUICtrlSetData($infobox,$pfad)
EndSelect
WEnd

[/autoit]

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "Error")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "Error")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "Error")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "Error")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "Error")
$run = $icq
GUICreate("Dennis's Toolbox",370,100)
Opt("GUICoordMode",2)

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

$hCombo = GUICtrlCreateCombo ("ICQ", 10,10,100,25,0x0003)
GUICtrlSetData($hCombo,"MSN|Skype|Firefox|Winamp","ICQ")
$Button_1 = GUICtrlCreateButton ("Run", 10, -27, 50,25)
$infobox = GUICtrlCreateInput($run, -160, 10, 350, 20)
$Button_2 = GUICtrlCreateButton ("Durchsuchen", -1, 5,100,25)

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

GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$icq = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "")
$msn = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "")
$skype = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "")
$firefox = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "")
$winamp = IniRead("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "")
If GUICtrlRead($hCombo) = "ICQ" Then
$run = $icq
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$run = $msn
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$run = $skype
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$run = $firefox
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$run = $winamp
EndIf
Run($run)
Case $msg = $Button_2
If GUICtrlRead($hCombo) = "ICQ" Then
$name = "ICQ"
ElseIf GUICtrlRead($hCombo) = "MSN" Then
$name = "MSN"
ElseIf GUICtrlRead($hCombo) = "Skype" Then
$name = "Skype"
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
$name = "FireFox"
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
$name = "Winamp"
EndIf
$pfad = FileOpenDialog ( "Pfad zur "&$name&".exe auswählen", "C:\", "("&$name&".exe)" , 3 , $name & ".exe")
If GUICtrlRead($hCombo) = "ICQ" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "ICQ", "icq-path", "$pfad")
ElseIf GUICtrlRead($hCombo) = "MSN" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "MSN", "msn-path", "$pfad")
ElseIf GUICtrlRead($hCombo) = "Skype" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "SKYPE", "skype-path", "$pfad")
ElseIf GUICtrlRead($hCombo) = "Firefox" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "FIREFOX", "firefox-path", "$pfad")
ElseIf GUICtrlRead($hCombo) = "Winamp" Then
IniWrite("C:\Dokumente und Einstellungen\Dennis\Desktop\dennis.ini", "WINAMP", "winamp-path", "$pfad")
EndIf

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

EndSelect
WEnd

[/autoit]

**Schnuffel**

quit quo pro

**Schnuffel**

na dann Code-Schnipsel zurück...

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $pic1
GUICtrlSetImage($Pic1, "C:\Dokumente und Einstellungen\Philipp\Eigene Dateien\Programme\Programme\On.bmp")
EndSwitch
WEnd

[/autoit]

**Schnuffel**

mach das einfach so:

Spoiler anzeigen

[autoit]

If StringRegExp(inputbox("IP","Gib eine Ip ein"), '\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b', 0) Then
MsgBox(0, '', "Ist eine IP-Adresse")
Else
MsgBox(0, '', "keine korrekte IP-Adresse!")
EndIf

[/autoit]

**Schnuffel**

vielleicht verstehe ich ja das was falsch,
aber wenn ich ein Control mit einer Variable erstelle,
z.B. $variable1 = GuiCtrlCreate.......
ist der Inhalt der Variable $variable1 doch nichts anderes als die ControlID ?

**Schnuffel**

schreib einfach eine PN wenn Du Unterstützung brauchst.

Ich denke es macht Sinn, wenn Du die notwendigen Aufgaben dann auch gleich aufteilst,
sofern wir das dann auch erledigen können

**Schnuffel**

wenn dabei auch noch eine AutoIt-eigene Twain-Schnittstelle
zum direkten Ansprechen eines Scanners rauskommt, dann wäre ich auch dabei

**Schnuffel**

so bitte schön,

jetzt aber mal Hirn anstrengen und selber ein wenig tüfteln...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <ButtonConstants.au3>

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

$hGUI = GUICreate("Test", 500, 500)
$b1 = GUICtrlCreateButton("Start", 10, 10,50,20)
$b2 = GUICtrlCreateButton("Pause", 70, 10,50,20)
$b3 = GUICtrlCreateButton("Ende", 130, 10,50,20)

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $b1
GUICtrlSetbkColor($b1, 0x00FF00)
GUICtrlSetbkColor($b2, Default)
GUICtrlSetbkColor($b3, Default)
GUICtrlSetStyle($b2,$GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($b3,$GUI_SS_DEFAULT_BUTTON)
Case $b2
GUICtrlSetbkColor($b1, Default)
GUICtrlSetbkColor($b2, 0xFFFF00)
GUICtrlSetbkColor($b3, Default)
GUICtrlSetStyle($b1,$GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($b3,$GUI_SS_DEFAULT_BUTTON)

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

Case $b3
GUICtrlSetbkColor($b1, Default)
GUICtrlSetbkColor($b2, Default)
GUICtrlSetbkColor($b3, 0xFF0000)
GUICtrlSetStyle($b1,$GUI_SS_DEFAULT_BUTTON)
GUICtrlSetStyle($b2,$GUI_SS_DEFAULT_BUTTON)
EndSwitch
WEnd

[/autoit]

**Schnuffel**

ein Ansatz:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$hGUI = GUICreate("Test", 500, 500)
$hLabel = GUICtrlCreateLabel("", 10, 10, 50, 50)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 11, 11, 48, 48)

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

$1=GUICtrlCreateButton("Start",70,40)
$2=GUICtrlCreateButton("Pause",110,40)
$3=GUICtrlCreateButton("Ende",170,40)
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $1
GUICtrlSetBkColor($hLabel, 0x00FF00)
Case $2
GUICtrlSetBkColor($hLabel, 0xFF0000)
Case $3
GUICtrlSetBkColor($hLabel, 0x333333)
EndSwitch
WEnd

[/autoit]

**Schnuffel**

reiner Kopierfehler

ersetze Zeile 61 mit

[autoit]

GUICtrlSendMsg($Date3, $DTM_SETFORMAT_, 0, $style)

[/autoit]

und Zeile 74 mit:

[autoit]

GUICtrlSendMsg($Date4, $DTM_SETFORMAT_, 0, $style)

[/autoit]

Edit: ( nochmal erweitert...)
ich hab Dein Script mal etwas übersichtlicher gestaltet:

Spoiler anzeigen

[autoit]

; Danksagung an: OSCAR, Schnuffel , Nuts,

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

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

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

$ini0 = @ScriptDir & "\para.ini"
$ini1 = @ScriptDir & "\test1.ini"
$ini2 = @ScriptDir & "\test2.ini"
$ini3 = @ScriptDir & "\test3.ini"
$ini4 = @ScriptDir & "\test4.ini"

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

If Not FileExists($ini1) Then _FileCreate($ini1)
If Not FileExists($ini1) Then _FileCreate($ini2)
If Not FileExists($ini1) Then _FileCreate($ini3)
If Not FileExists($ini1) Then _FileCreate($ini4)

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

Dim $DTM_SETFORMAT_, $style

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

$Form1 = GUICreate("MINMAX_AGELAD", 360, 485, 193, 325)

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

GUICtrlCreateGroup('MaxAge', 10, 10, 340, 100)
Global $a_cb46[5] = [ GUICtrlCreateCheckbox( "aktivieren", 20, 30, 89, 15), _
GUICtrlCreateRadio( "Radio60", 20, 55, 60, 15), _
GUICtrlCreateRadio( "Radio61", 20, 80, 60, 15), _
GUICtrlCreateInput( "1899", 100, 53, 33, 21), _
GUICtrlCreateDate( "2009/09/21 16:08:49", 100, 77, 90, 21)] ; MAXAGE
GUICtrlSetState($a_cb46[1], $GUI_CHECKED)
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
GUICtrlSendMsg($a_cb46[4],0x1032, 0, "dd.MM.yyyy")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUICtrlCreateGroup('MinAge', 10, 120, 340, 100)
Global $a_cb47[5] = [ GUICtrlCreateCheckbox( "aktivieren", 20, 140, 89, 15), _
GUICtrlCreateRadio( "Radio62", 20, 165, 60, 15), _
GUICtrlCreateRadio( "Radio63", 20, 190, 60, 15), _
GUICtrlCreateInput( "1", 100, 163, 33, 21), _
GUICtrlCreateDate( "2009/2009/09/21 16:08:49", 100, 187, 90, 21)] ; MINAGE
GUICtrlSetState($a_cb47[1], $GUI_CHECKED)
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
GUICtrlSendMsg($a_cb47[4],0x1032, 0, "dd.MM.yyyy")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUICtrlCreateGroup('MaxLad', 10, 230, 340, 100) ;MAXLAD
Global $a_cb48[5] = [ GUICtrlCreateCheckbox( "aktivieren", 20, 250, 89, 15), _
GUICtrlCreateRadio( "Radio64", 20, 275, 60, 15), _
GUICtrlCreateRadio( "Radio65", 20, 300, 60, 15), _
GUICtrlCreateInput( "1899", 100, 273, 33, 21), _
GUICtrlCreateDate( "2009/09/21 16:08:49", 100, 297, 90, 21)] ; MAXLAD
GUICtrlSetState($a_cb48[1], $GUI_CHECKED)
GUICtrlSetState($a_cb48[4], $GUI_DISABLE)
GUICtrlSendMsg($a_cb48[4],0x1032, 0, "dd.MM.yyyy")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUICtrlCreateGroup('MinLad', 10, 340, 340, 100) ;MINLAD
Global $a_cb49[5] = [ GUICtrlCreateCheckbox( "aktivieren", 20, 360, 89, 15), _
GUICtrlCreateRadio( "Radio66", 20, 385, 60, 15), _
GUICtrlCreateRadio( "Radio67", 20, 410, 60, 15), _
GUICtrlCreateInput( "1", 100, 383, 33, 21), _
GUICtrlCreateDate( "2009/09/21 16:08:49", 100, 407, 90, 21)] ; MINLAD
GUICtrlSetState($a_cb49[1], $GUI_CHECKED)
GUICtrlSetState($a_cb49[4], $GUI_DISABLE)
GUICtrlSendMsg($a_cb49[4],0x1032, 0, "dd.MM.yyyy")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Button2 = GUICtrlCreateButton("A U S G A B E", 5, 450, 346, 25, 0, $BS_CENTER)

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

_changeState($a_cb46)
_changeState($a_cb47)
_changeState($a_cb48)
_changeState($a_cb49)

GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button2

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

EndSwitch
WEnd

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

Func _changeState($cID)
Select
Case BitAND(GUICtrlRead($cID[0]), $GUI_CHECKED) = $GUI_CHECKED
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_ENABLE)
Next
Case Else
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_DISABLE)
Next
EndSelect
EndFunc ;==>_changeState

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

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
$nID = BitAND($wParam, 0xFFFF)
Switch $nID
Case $a_cb46[0] ; MAXAGE
If BitAND(GUICtrlRead($a_cb46[0]), $GUI_CHECKED) = $GUI_CHECKED Then
If BitAND(GUICtrlRead($a_cb46[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[3], $GUI_ENABLE)
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
If GUICtrlRead($a_cb46[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb46[3], "")
Else ; kleiner als 1900
IniWriteSection($ini1, "parameter", "MAXAGE=/MAXAGE:" & GUICtrlRead($a_cb46[3]))
IniWrite($ini0, "parameter", "MAXAGE", IniRead($ini1, "parameter", "MAXAGE", ""))
EndIf
Else
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
EndIf
If BitAND(GUICtrlRead($a_cb46[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[4], $GUI_ENABLE)
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
Local $1_day ; ----------------> Anfang : ;Example_date1()
$1_day = StringSplit(GUICtrlRead($a_cb46[4]), ".", 1)
IniWriteSection($ini1, "parameter", "MAXAGE=/MAXAGE:" & $1_day[3] & $1_day[2] & $1_day[1])
IniWrite($ini0, "parameter", "MAXAGE", IniRead($ini1, "parameter", "MAXAGE", ""))
Else
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
EndIf
Else
IniWriteSection($ini1, "parameter", "MAXAGE=/MAXAGE:" & "")
IniWrite($ini0, "parameter", "MAXAGE", "")
EndIf
Case $a_cb47[0] ; MINAGE
If BitAND(GUICtrlRead($a_cb47[0]), $GUI_CHECKED) = $GUI_CHECKED Then
If BitAND(GUICtrlRead($a_cb47[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[3], $GUI_ENABLE)
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
If GUICtrlRead($a_cb47[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb47[3], "")
Else ; kleiner als 1900
IniWriteSection($ini2, "parameter", "MINAGE=/MINAGE:" & GUICtrlRead($a_cb47[3]))
IniWrite($ini0, "parameter", "MINAGE", IniRead($ini2, "parameter", "MINAGE", ""))
EndIf
Else
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
EndIf
If BitAND(GUICtrlRead($a_cb47[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[4], $GUI_ENABLE)
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
Local $2_day ; ----------------> Anfang : ;Example_date1()
$2_day = StringSplit(GUICtrlRead($a_cb47[4]), ".", 1)
IniWriteSection($ini2, "parameter", "MINAGE=/MINAGE:" & $2_day[3] & $2_day[2] & $2_day[1])
IniWrite($ini0, "parameter", "MINAGE", IniRead($ini2, "parameter", "MINAGE", ""))
Else
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
EndIf
Else
IniWriteSection($ini2, "parameter", "MINAGE=/MINAGE:" & "")
IniWrite($ini0, "parameter", "MINAGE", "")
EndIf
Case $a_cb48[0] ; MAXLAD
If BitAND(GUICtrlRead($a_cb48[0]), $GUI_CHECKED) = $GUI_CHECKED Then
If BitAND(GUICtrlRead($a_cb48[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb48[3], $GUI_ENABLE)
GUICtrlSetState($a_cb48[4], $GUI_DISABLE)
If GUICtrlRead($a_cb48[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb48[3], "")
Else ; kleiner als 1900
IniWriteSection($ini3, "parameter", "MAXLAD=/MAXLAD:" & GUICtrlRead($a_cb48[3]))
IniWrite($ini0, "parameter", "MAXLAD", IniRead($ini3, "parameter", "MAXLAD", ""))
EndIf
Else
GUICtrlSetState($a_cb48[3], $GUI_DISABLE)
EndIf
If BitAND(GUICtrlRead($a_cb48[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb48[4], $GUI_ENABLE)
GUICtrlSetState($a_cb48[3], $GUI_DISABLE)
Local $3_day ; ----------------> Anfang : ;Example_date1()
$3_day = StringSplit(GUICtrlRead($a_cb48[4]), ".", 1)
IniWriteSection($ini3, "parameter", "MAXLAD=/MAXLAD:" & $3_day[3] & $3_day[2] & $3_day[1])
IniWrite($ini0, "parameter", "MAXLAD", IniRead($ini3, "parameter", "MAXLAD", ""))
Else
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
EndIf
Else
IniWriteSection($ini3, "parameter", "MAXLAD=/MAXLAD:" & "")
IniWrite($ini0, "parameter", "MAXLAD", "")
EndIf
Case $a_cb49[0] ; MINLAD
If BitAND(GUICtrlRead($a_cb49[0]), $GUI_CHECKED) = $GUI_CHECKED Then
If BitAND(GUICtrlRead($a_cb49[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb49[3], $GUI_ENABLE)
GUICtrlSetState($a_cb49[4], $GUI_DISABLE)
If GUICtrlRead($a_cb49[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb49[3], "")
Else ; kleiner als 1900
IniWriteSection($ini4, "parameter", "MINLAD=/MINLAD:" & GUICtrlRead($a_cb49[3]))
IniWrite($ini0, "parameter", "MINLAD", IniRead($ini4, "parameter", "MINLAD", ""))
EndIf
Else
GUICtrlSetState($a_cb49[3], $GUI_DISABLE)
EndIf
If BitAND(GUICtrlRead($a_cb49[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb49[4], $GUI_ENABLE)
GUICtrlSetState($a_cb49[3], $GUI_DISABLE)
Local $4_day ; ----------------> Anfang : ;Example_date1()
$4_day = StringSplit(GUICtrlRead($a_cb49[4]), ".", 1)
IniWriteSection($ini4, "parameter", "MINLAD=/MINLAD:" & $4_day[3] & $4_day[2] & $4_day[1])
IniWrite($ini0, "parameter", "MINLAD", IniRead($ini4, "parameter", "MINLAD", ""))
Else
GUICtrlSetState($a_cb49[4], $GUI_DISABLE)
EndIf
Else
IniWriteSection($ini4, "parameter", "MINLAD=/MINLAD:" & "")
IniWrite($ini0, "parameter", "MINLAD", "")
EndIf
EndSwitch
_changeState($a_cb46)
_changeState($a_cb47)
_changeState($a_cb48)
_changeState($a_cb49)
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

**Schnuffel**

1. Forumsregeln lesen. Wir unterstützen keine Bot's
2. Bei Fragen zu bestehenden UDF's macht es am meisten Sinn, den Autor zu fragen.

**Schnuffel**

sei mir nicht böse,
aber ich halte es für etwas hochgegriffen als Forum's-Newbie solche Anforderungen zu stellen
►1-2 Jahre Programier Kenntnisse

Wenn Du dich etwas mehr mit der Materie befasst hättest, würdest du wissen, dass du nicht der erste mit dieser Idee bist.
Leider ist so etwas mit AutoIt nur bedingt umsetzbar.

Aber ich freue mich für Dich, wenn Du jemanden findest...

Beiträge von Schnuffel

Kein Effekt mehr bei Buttons

FileInstall

Bundeswettbewerb Informatik

Wie finde ich raus, ob eine Variable eine IP ist?

Ich bastel mir ein GUI

Ich bastel mir ein GUI

Ich bastel mir ein GUI

Probleme bei FileOpenDialog

Probleme bei FileOpenDialog

Merken ob Objekt angeklickt wurde

Merken ob Objekt angeklickt wurde

Wie finde ich raus, ob eine Variable eine IP ist?

Wie komme ich an die ControlID des zuletzt erstellten Controls?

Dokumentenauswertung

Dokumentenauswertung

Autoit| wie mach ich das wenn ich"Start drücke ein kasten der vorher dunkler wa heller aufläuchtet bzw wie lege ich so einen kasten erst an"?

Autoit| wie mach ich das wenn ich"Start drücke ein kasten der vorher dunkler wa heller aufläuchtet bzw wie lege ich so einen kasten erst an"?

Werte übergeben: MAXAGE

Simuliertes Tasten gedrückt halten Funktioniert nicht, wenn ich das Programm mit Alt+tab wechsel

Browser erstellen!