Beiträge von RR04

RR04

Hi und herzlich willkommen Elbolamier!

Das ist manchmal garnicht so einfach, aber siehe hier ist es aufgeschrieben:
http://wiki.autoit.de/wiki/index.php/Tutorial#Installation

Viel Erfolg !

RR04

Hi,
mit dem ResHacker kannst Du die DLL einsehen.
siehe auch: http://icofx.ro/tutorials/tutorial4.html

Spoiler anzeigen

[autoit]

; Beispiel 1 ---------------------------
Func Example1()
Local $icon, $n1, $n2, $msg

GUICreate("Meine GUI Icons", 250, 250)

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

$icon = GUICtrlCreateIcon("shell32.dll", 10, 20, 20)
$n1 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 20, 40, 32, 32)
$n2 = GUICtrlCreateIcon("shell32.dll", 7, 20, 75, 32, 32) ;#################### Hier die Beispiel-DLL
GUISetState()

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
EndFunc ;==>Example1 aus der Hilfe

[/autoit]

RR04

SetupGUI, die schnellste GUI mit AutoIt für Beginner !

Ein Rechtsklick in einen leeren Ordner>Neu>AutoIt v3 Script und ich erhalte eine neue Datei „Neu AutoIt v3 Script.au3“. Nun diese in SciTE aufrufen und das Wort „setupgui“ eintippen. Im Anschluss sollte sich das Wort rot einfärben und nach drücken der Space-Taste das einfache GUI-Script erscheinen. Bei der Funktionsprobe kommt es zu einer Fehlermeldung, da die letzten vier Case-Funktionen noch nicht belegt sind. Hier schafft man mit dem Semikolon schnell abhilfe.

[autoit]

#include <GUIConstants.au3>

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

#region - GUI Create
GUICreate('')
GUISetState()
#endregion

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
; Case $msg =
; Case $msg =
; Case $msg =
; Case $msg =
EndSelect
WEnd
#endregion

[/autoit]

Viel Spaß mit SetupGUI !

RR04

Hi Progandy,

Glückwünsche auch vom Ritzelrocker04 !

RR04

Ein Beispiel:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=iconPLUS1.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Icon_Add=C:\Test\10.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Test\11.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Test\12.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

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

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

#Region - GUI Create
GUICreate(' iconPLUS - Example by Ritzelrocker04', 400, 400)
$Checkbox = GUICtrlCreateCheckbox("cb", 30, 90, 150, 40, BitOR($BS_ICON, $BS_PUSHLIKE))
GUICtrlSetImage(-1, @ScriptFullPath, -7)
$bnOK = GUICtrlCreateButton("OK", 20, 350, 75, 40, $BS_ICON)
GUICtrlSetImage(-1, @ScriptFullPath, -5)
$bnClose = GUICtrlCreateButton("b", 305, 350, 75, 40, $BS_ICON)
GUICtrlSetImage(-1, @ScriptFullPath, -6)
GUISetState()
#EndRegion - GUI Create

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

#Region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $bnClose
MsgBox(64, " iconPLUS - Example", "Viel Spaß wünscht RR04 !" & @TAB, 3)
Exit
Case $msg = $bnOK
MsgBox(64, " iconPLUS - Example", "OK wurde gedrückt !" & @TAB)
Case $msg = $Checkbox
MsgBox(64, " iconPLUS - Example", "CheckBox wurde gedrückt !" & @TAB)
EndSelect
WEnd
#EndRegion - GUI SelectLoop

[/autoit]

Viel Erfolg !

RR04

Hi,
sieh mal hier so etwas hatten wir vor kurzen:

[ offen ] mehrere Icons in Programm packen

RR04

Hi,

eine Möglichkeit von unserem Greenhorn.

EzBmpButton

RR04

Hi,

ich habe hier noch zwei Lösungen gefunden !

[ offen ] Aus Autoit notepad starten und textdatei öffen / Zeichen ausklammern (z.b. "")

[autoit]

Run("Notepad.exe 'D:\Test\Deine.ini'", "", @SW_MaxlMIZE)

[/autoit]

Edit: Beispiel eingefügt.

RR04

Hi,

mit einem Doppelklick öffnet man diese über Notepad !

RR04

Hi,
schau Dir mal "IniRead" in der Hilfe an.

RR04

Hallo,
hier mal ein Beispiel:

Spoiler anzeigen

[autoit]

#include <String.au3>
$zahl = InputBox(" Rechner", " Hier Ihre Rechnung eingeben !")
MsgBox(64, " Resultat", "Das Ergebnis lautet: " & _
_StringAddThousandsSep(StringReplace(Execute(StringReplace($zahl, ",", ".")), ".", ",")) & @TAB)
Exit

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

#cs
;$ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($zahl, ",", ".")), ".", ","))

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

; ### Ablauf von Innen nach Aussen ###
; Erstest StringReplace > wandeln der eingegebenen Kommata von $read in Dezimalpunkte
; Execute > ausführen der Berechnung
; Zweites StringReplace > wandeln der Dezimalpunkte der Berechnung von $read ausgeben in Kommata
; _StringAddThousandsSep > Ausgabe mit Tausenderpunkt
; ### $ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($read, ",", ".")), ".", ",")) ###
#ce

[/autoit]

RR04

Hallo Jonathan !

Eine schöne Arbeit, Du hast Dir viel Mühe gegeben.

Bei Kommata kannst Du entweder mit „StringReplace“ jeweils umwandeln (siehe Oscar), oder die Verwendung des Komma von Anfang an verhindern.

Der Einsatz von Includes hängt von den verwendeten Funktionen ab.
Auch ein TRechner ohne Includes ist möglich.
Hierzu schau Dir mal „OrganizeIncludes“ an.

Spoiler anzeigen

[autoit]

; TRechner - Demo by RR04

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

$GUI = GUICreate("TRechner - Demo", 320, 200, -1, -1)
$input = GUICtrlCreateInput("", 10, 10, 300, 20)
$bnPlus = GUICtrlCreateButton("+", 10, 40, 75, 30)
$bnMinus = GUICtrlCreateButton("-", 85, 40, 75, 30)
$bnDiv = GUICtrlCreateButton("/", 160, 40, 75, 30)
$bnMulti = GUICtrlCreateButton("*", 235, 40, 75, 30)
$bn7 = GUICtrlCreateButton("7", 10, 70, 75, 30)
$bn8 = GUICtrlCreateButton("8", 85, 70, 75, 30)
$bn9 = GUICtrlCreateButton("9", 160, 70, 75, 30)
$bnC = GUICtrlCreateButton("C", 235, 70, 75, 60)
$bn4 = GUICtrlCreateButton("4", 10, 100, 75, 30)
$bn5 = GUICtrlCreateButton("5", 85, 100, 75, 30)
$bn6 = GUICtrlCreateButton("6", 160, 100, 75, 30)
$bn1 = GUICtrlCreateButton("1", 10, 130, 75, 30)
$bn2 = GUICtrlCreateButton("2", 85, 130, 75, 30)
$bn3 = GUICtrlCreateButton("3", 160, 130, 75, 30)
$bnResultat = GUICtrlCreateButton("=", 235, 130, 75, 60)
$bn0 = GUICtrlCreateButton("0", 10, 160, 150, 30)
$bnKoma = GUICtrlCreateButton(".", 160, 160, 75, 30)

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case - 3
MsgBox(64, "TRechner - Demo", "Viel Spaß wünscht RR04 !" & @TAB, 3)
Exit
Case $bnC
GUICtrlSetData($input, "")
Case $bn1
GUICtrlSetData($input, GUICtrlRead($input) & "1")
Case $bn2
GUICtrlSetData($input, GUICtrlRead($input) & "2")
Case $bn3
GUICtrlSetData($input, GUICtrlRead($input) & "3")
Case $bn4
GUICtrlSetData($input, GUICtrlRead($input) & "4")
Case $bn5
GUICtrlSetData($input, GUICtrlRead($input) & "5")
Case $bn6
GUICtrlSetData($input, GUICtrlRead($input) & "6")
Case $bn7
GUICtrlSetData($input, GUICtrlRead($input) & "7")
Case $bn8
GUICtrlSetData($input, GUICtrlRead($input) & "8")
Case $bn9
GUICtrlSetData($input, GUICtrlRead($input) & "9")
Case $bnPlus
GUICtrlSetData($input, GUICtrlRead($input) & "+")
Case $bnMinus
GUICtrlSetData($input, GUICtrlRead($input) & "-")
Case $bnDiv
GUICtrlSetData($input, GUICtrlRead($input) & "/")
Case $bnMulti
GUICtrlSetData($input, GUICtrlRead($input) & "*")
Case $bn0
GUICtrlSetData($input, GUICtrlRead($input) & "0")
Case $bnKoma
GUICtrlSetData($input, GUICtrlRead($input) & ".")
Case $bnResultat
If GUICtrlRead($input) = "" Then
MsgBox(64, "Fehler", "Bitte machen Sie erst Ihre Eingaben !" & @TAB)
Else
GUICtrlSetData($input, Execute(GUICtrlRead($input)))
EndIf
EndSwitch
WEnd

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

; Ende

[/autoit]

RR04

Hi,
hier sind einige Sachen zusammengefasst, vielleicht hilft es Dir weiter ?

7zip-Tutorial
und hier
[ offen ] Packen / Entpacken

RR04

Hallo Alina !

Danke für Deine PN.
Ich glaube bei RoboCopy gibt es verschiedene Versionen (Win Server 2003, Vista) ?
Vielleicht habe ich ja eine Alternative für Dich, mit der Du XP und Vista gleichermaßen berücksichtigen kannst ?

http://www.winforpro.com/testberichte/m…u-robocopy-gui/

RR04

Hallo Alina !

Dein aktuelles Projekt hat bei mir einen sehr anspruchsvollen, wie auch professionellen Eindruck hinterlassen und ich wünsche Dir viel Erfolg bei der Umsetzung.

Natürlich besteht jedes Projekt aus vier Teilen, die einem erst bei größeren Projekten bewusst werden (1. Idee, 2. Konzept, 3. GUI-Gestaltung, 4. Programmierung).

RR04

Hi,
hier sind einige Sachen zusammengefasst, vielleicht hilft es.

7zip-Tutorial
und hier
[ offen ] Packen / Entpacken

RR04

Hallo Kleiner27 !

Tolle Arbeit, Du hast Dir sehr viel Mühe gegeben.

Dein Tool gefällt mir gut.

Tipps:

Die oberste Reihe Button und das Eingabefeld etwas einrücken, sie stehen bei mir auf Kante.

Auch den Beenden-Button würde ich einrücken.

Schreibweisen prüfen, Korrektur lesen.

Statt „@OSType“
Returns "WIN32_NT" for NT/2000/XP/2003/Vista/2008.

vielleicht dieses „@OSVersion“
Returns one of the following: "WIN_2008", "WIN_VISTA", "WIN_2003", "WIN_XP", "WIN_2000".

Fenstertechnik verbessern („GUISetState(@SW_SHOW)“ vs. „GUISetState(@SW_SHOW, $hGUI)“ siehe Raupi in Post #2)

RR04

Hi Oscar,

meine Erfahrungen mit dem Magazin "Foto-Magazin" sind sehr gut. Den hier abgegebenen Wertschätzungen und Tests kannst Du schon Glauben schenken. Aber unser Bugfix hat schon Recht, die Meinungen und Erfahrungen aus der Praxis anderer normaler User sind genauso wichtig.

Hier mal gleich drei Hinweise:
http://www.dcresource.com/reviews/cameraDetail.php?cam=1344

http://www.dcresource.com/reviews/canon/…t_sx200-review/

http://www.dcresource.com/reviews/canon/…using#icontrast

PS: Viel Spaß und "Mach Dir einfach selbst ein Bild" !

RR04

Hi,
ohne weiteren Code habe ich die folgende Zeile erfolgreich getestet.

[autoit]

DirCopy("C:\Tools", "D:\Tools2", 1)

[/autoit]

Alle Ordner und Unterverzeichnisse wurden übertragen !

RR04

Hi,
vielleicht so:

[autoit]

DirCopy("G:\daten", "U:\daten")

[/autoit]

und schau mal in die Hilfe:

Spoiler anzeigen

DirCopy
--------------------------------------------------------------------------------

Kopiert einen Ordner samt Unterordner und Dateien (funktioniert wie xcopy)

DirCopy ( "source dir", "dest dir" [, flag] )

Parameter:
source dir Pfad zum Quellordner ohne abschließenden Backslash (z.B. "C:\Path1")
dest dir Pfad zum Zielordner ohne abschließenden Backslash (z.B. "C:\Path_Copy")
flag [optional] dieser Parameter gibt an, ob eventuell schon existierende Dateien überschrieben werden sollen oder nicht.
0 = (Standard) kein Überschreiben von existierenden Dateien
1 = Überschreiben existierender Dateien

Rückgabewert:
Erfolg: Gibt 1 zurück.
Fehler: Gibt 0 zurück wenn das Kopieren des Ordners fehlschlug.

Bemerkungen:
Wenn die Ordnerstruktur des Zielordners nicht besteht, wird sie nach Möglichkeit erstellt.

Verwandte Funktionen
DirRemove, FileCopy

Beispiel:
DirCopy(@MyDocumentsDir, "C:\Sicherungen\Eigene Dateien", 1)

Viel Erfolg !

Beiträge von RR04

Bitte Helfen

IconFX Beispiele ( Icon2DLLs )

Code gesucht! (Für könner kein Problem!)

Alles gute ProgAndy

Eigenes Icon für Button aus compilierter exe (mit Wrapper) setzen

Eigenes Icon für Button aus compilierter exe (mit Wrapper) setzen

mehrere Icons in Programm packen

Datei (ini) öffnen

Datei (ini) öffnen

Datei (ini) öffnen

Zahl mit DEUTSCHEN Zeichen (tausendertrennzeichen) umwandeln?

Taschenrechner

Datein aus RAR/ZIP Archiven benutzen

Programmübersicht.

Programmübersicht.

Selbstentpackendes 7z Archiv entpacken

!!!!!Admin-Tool v 1.0 ist fertig nochmals häftig erweitert vbs verarbeitung und bericht speicherung!! Leute ich brauche eure meinung!!!!!

Neue Digitalkamera

Problem mit DirCopy

Problem mit DirCopy