Beiträge von RR04

RR04

Hi Sithlord95,

schöne Idee gefällt mir gut !
Ich habe mal ein paar Anpassungen vorgenommen, schau mal, ob es das ist was Du willst ?

Spoiler anzeigen

[autoit]

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

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

Opt("Guioneventmode", 1)

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

$image = @MyDocumentsDir & "\GDIPlus_Image1.jpg"
;! das Pic und wo man es findet bzw. gespeichert wird !
_ScreenCapture_Capture($image) ; ! ScreenCapture von Pic !

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

$GUI = GUICreate("Form1", 1408, 812, 0, -4)
GUISetOnEvent(-1, "_4")
;!!! ### schau Dir mal Guioneventmode einmal genauer an !
$Pic = GUICtrlCreatePic($image, 0, 40, 1425, 785, _
BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
; ! $image aufrufen !
$Button1 = GUICtrlCreateButton("Anleitung", 8, 0, 145, 33, 0)
$Button2 = GUICtrlCreateButton("Tastenbelegung", 168, 0, 145, 33, 0)
$Button3 = GUICtrlCreateButton("ScreenShot", 328, 0, 145, 33, 0)
$Date = GUICtrlCreateDate("2009/04/12 16:19:10", 1184, 8, 217, 25)
$Button4 = GUICtrlCreateButton("Beenden", 488, 0, 145, 33, 0)
GUICtrlSetOnEvent(-1, "_4")

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

GUISetOnEvent($Button1, "_1")
;!!! GUISetOnEvent vs. GUICtrlSetOnEvent !!! nicht verwechseln
GUISetOnEvent($Button2, "_2")
GUISetOnEvent($Button3, "_3")
GUISetOnEvent(-1, "_4")
GUISetOnEvent($Pic, "_pic")

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

GUISetState(@SW_SHOW)

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

While 1
Sleep(1000) ; ! eingefügt !
WEnd

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

Func _1()
EndFunc ;==>_1

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

Func _2()
EndFunc ;==>_2

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

Func _3()
EndFunc ;==>_3

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

Func _4()
Exit ; ! eingefügt !
EndFunc ;==>_4

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

Func _pic()
EndFunc ;==>_pic

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

; Ende

[/autoit]

Viel Erfolg !

RR04

Ich empfehle weiterhin, von Zeit zu Zeit, das installierte AutoIt auf Aktualität zu prüfen.
Bei meinen Arbeiten nutze ich „Organize Includes“ von Thorsten Meger.

Viel Spaß und Erfolg bei Euren Projekten !

RR04

Hallo,

Glückwunsch zu Deinem Skript, es ist schön strukturiert und gefällt mir gut.

Bei den Includes werden wohl nicht Alle benötigt ?

[autoit]

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

[/autoit]

Anregung:
Dem Nutzer die Wahl überlassen, was und wohin er kopieren möchte.

Weiter so !

RR04

Anpassungen vorgenommen

OESv5.1
Das 7zip aktualisiert.
Pfade wurden angepasst.
Die blaue Farbe der Ctrl abgestimmt (immer das gleiche Blau - Stilwechsel).
Die DLL von 620kb zu 33kb, bei gleicher Funktionalität.
Alles in einer Zip-Datei, kein Setup.

siehe Post #1

Viel Spaß mit OES !

RR04

Danke Alina,

der Nutzwert steht hier im Vordergrund, also Windows schnell ausschalten oder neu starten.

RR04

Hi CrazyER,

Anregung -
Bei File- und DirCopy kannst Du auch gut einen Progress einbauen !

RR04

Hi team2way,

vielleicht hilft Dir dieses weiter ?

Spoiler anzeigen

[autoit]

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

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

GUICreate("My GUI edit", 400, 400, -1, -1)
$myedit = GUICtrlCreateEdit("" & @CRLF, 10, 20, 380, 350, $ES_AUTOVSCROLL+$WS_VSCROLL)

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

GUISetState ()

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

$file = FileOpen("Dateie.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

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

While 1
$msg = GUIGetMsg()

$chars = FileRead($file)
If @error = -1 Then ExitLoop
GUICtrlSetData($myedit, $chars, 1)
MsgBox(0, "", "Gut so ? ")
ExitLoop
Wend

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

FileClose($file)

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

; Ende

[/autoit]

Als Beispiel habe ich eine Text-Datei eingelesen.
Viel Erfolg !

RR04

Hi,

dass gleiche gibt es auch bei Labels, bei denen man sich mit Input weiter helfen kann. Eine andere Lösung ist mir nicht bekannt.

RR04

Hallo und herzlich willkommen Silverhawk,

ich verstehe Dein Problem und möchte Dir eine Alternative anbieten:

Spoiler anzeigen

[autoit]

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

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

GUICreate("My GUI radio", 202, 80)
GUICtrlCreatePic('Bild.jpg', 0, 0, 202, 80, 0)

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

$radio1 = GUICtrlCreateRadio("Radio1", 10, 10, 75, 22, $BS_PUSHLIKE)
$radio2 = GUICtrlCreateRadio("Radio2", 10, 40, 75, 22, $BS_PUSHLIKE)
GUICtrlSetState($radio2, $GUI_CHECKED)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED

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

Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED

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

EndSelect
WEnd

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

; Ende

[/autoit]

Viel Erfolg !

RR04

Hi,

so etwa:

[autoit]

_myadlib() ;i sofortiger einmaliger Start der Funktion beim Programmstart
AdlibEnable("_myadlib", 1000) ;i Funktion alle 1000 ms starten - Aktualisierung

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

;! Beides zusammen in einem Script ist möglich und macht manchmal Sinn

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

While 1
Sleep(100)

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

Wend

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

Func _myadlib()
guictrlsetdata($Editfeld,FileRead("neu.txt"))
EndFunc

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

; Ende

[/autoit]

Viel Erfolg !

RR04

Hi @all,
Schnuffel war schneller !

[autoit]

_myadlib() ;i start der Funktion
AdlibEnable("_myadlib", 1000) ;i Funktion alle 1000 ms starten

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

Func _myadlib()
guictrlsetdata($Editfeld,FileRead("neu.txt"))
EndFunc

[/autoit]

Viel Erfolg !

RR04

Hallo und herzlich willkommen Sweet Lucia,

hier mal eine Funktion und ein Link zu einem Script, wo diese eingesetzt wird !

Spoiler anzeigen

[autoit]

GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST

[/autoit]

Shutdown for Benjamin - SfB
Viel Erfolg !

RR04

Hi Kangtar,
schau mal unter View, ob ich das richtig verstanden habe ?

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>

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

GUICreate("My GUI menu",300,200)

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

Global $defaultstatus = "Ready"
Global $status

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

$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu ("?")
$saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
GUICtrlSetState(-1,$GUI_DISABLE)
$infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
$recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)

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

$separator1 = GUICtrlCreateMenuitem ("",$filemenu,2) ; create a separator line

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

$viewmenu = GUICtrlCreateMenu("View",-1,1) ; is created before "?" menu
$viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
GUICtrlSetState(-1,$GUI_CHECKED)
$okbutton = GUICtrlCreateButton ("OK",50,130,75,22)
GUICtrlSetState(-1,$GUI_FOCUS)
$cancelbutton = GUICtrlCreateButton ("Cancel",180,130,75,22)

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

$statuslabel = GUICtrlCreateLabel ($defaultstatus,0,165,300,16,BitOr($SS_SIMPLE,$SS_SUNKEN))

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

GUISetState ()
While 1
$msg = GUIGetMsg()

If $msg = $fileitem Then
$file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)
EndIf
If $msg = $viewstatusitem Then
If BitAnd(GUICtrlRead($viewstatusitem),$GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($viewstatusitem,$GUI_UNCHECKED)
GUICtrlSetState($statuslabel,$GUI_HIDE)
Else
GUICtrlSetState($viewstatusitem,$GUI_CHECKED)
GUICtrlSetState($statuslabel,$GUI_SHOW)
EndIf
EndIf
If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
If $msg = $infoitem Then Msgbox(0,"Info","Only a test...")
WEnd
GUIDelete()

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

Exit

[/autoit]

Viel Erfolg !

RR04

Hi,

die Minuten und sekunden müssen ja nicht sein ? Schau Dir mal SiS an, dort habe ich mit aktuellem Datum, Tag des Monats, sowie Tag der Woche gearbeitet.

[autoit]

DirCreate("Interfacesicherung_" & @YEAR & "-" & @MON & "-" & @MDAY)
DirCopy(@MyDocumentsDir, "Interfacesicherung_" & @YEAR & "-" & @MON & "-" & @MDAY, 1)

[/autoit]

RR04

Hier noch ein Beispiel mit BitOrx:

[autoit]

#include<GUIConstants.au3>

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

Dim $state1 = $GUI_ENABLE
Dim $state2 = $GUI_ENABLE

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

GUICreate("Checkboxen", 175, 150)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 10, 40)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 10, 70)
GUISetState()

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

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Select
Case $msg = $Checkbox1
$state2 = BitXOR($state2, $GUI_ENABLE, $GUI_DISABLE)
GUICtrlSetState($Checkbox2, $state2)
Case $msg = $Checkbox2
$state1 = BitXOR($state1, $GUI_ENABLE, $GUI_DISABLE)
GUICtrlSetState($Checkbox1, $state1)
EndSelect
Wend
; Ende

[/autoit]

RR04

Hi, so besser ?

[autoit]

If FileExists ("C:\Test.txt") Then ; Testet, ob die Datei vorhanden ist.
MsgBox (64, "Datei gefunden", "Super, die Datei wurde gefunden!") ; Wenn vorhanden, dann diese MsgBox zeigen
Else
_Ex () ; Wenn sie nicht vorhanden ist, kehrt das programm zurück zu - Func _Ex ().
EndIf

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

Func _Ex ()
MsgBox (64, "Datei nicht gefunden ! ", "Hier wird die Funktion _Ex ausgeführt ! ") ; Hier wird das script weiter ausgeführt, wenn die Datei nicht vorhanden ist.
EndFunc ;==> _Ex

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

; Ende

[/autoit]

Bitte auch den Sinn hinterfragen, wenn Dateien fehlen ! Ich kenne nicht das Script !
Viel Erfolg !

RR04

Hi,
hier wird dem Nutzer die fehlende Datei mit Speicherort benannt und Du kannst besseren Support liefern.

[autoit]

Dim $aRes[5] = [@ScriptDir & "\SfBsys\W.ico", @ScriptDir & "\SfBsys\A.ico", _
@ScriptDir & "\SfBsys\N.ico", @ScriptDir & "\SfBsys\S.ico", @ScriptDir & "\SfBsys\Blau4SfB.jpg"]
For $z = 0 To 4 ;i statisch kein Ubound
If Not FileExists($aRes[$z]) Then Exit _
MsgBox(16, 'Error ' & $title, $aRes[$z] & @CRLF & @CRLF & "Datei nicht gefunden ! ")
Next

[/autoit]

siehe auch dieses Beispiel:
Shutdown for Benjamin - SfB

Viel Erfolg !

RR04

Hi satinez,

Du kannst hier noch Funktionen sparen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('GUIOnEventMode', 1)

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

$Form1 = GUICreate("satinez-GUI", 300, 200, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
$Input1 = GUICtrlCreateInput("", 70, 72, 169, 21)
$Input2 = GUICtrlCreateInput("", 70, 104, 169, 21)
$btn = GUICtrlCreateButton("OK", 110, 140, 100, 30)
GUICtrlSetState($btn, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)

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

While 1
Sleep(100)

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

$Inputeins = GUICtrlRead($Input1)
$Inputzwei = GUICtrlRead($Input2)

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

If $Inputeins = "Username" Or $Inputeins = "" Then
$check_username = 0
Else
$check_username = 1
EndIf

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

If $check_username == 1 And $check_pw == 1 Then
GUICtrlSetState($btn, $GUI_Enable)
Else
GUICtrlSetState($btn, $GUI_DISABLE)
EndIf

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

If $Inputzwei = "Passwort" Or $Inputzwei = "" Then
$check_pw = 0
Else
$check_pw = 1
EndIf
WEnd

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

Func _End()
Exit 0
EndFunc ;==>_End

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

; Ende

[/autoit]

Viel Erfolg !

RR04

Zitat von Oger-Lord

Ich würde gerne Icons aus einer exe datei extrahieren und abspeichern, doch wie soll ich das machen?
Um die Icons anzuzeigen habe ich schon tausend möglichkeiten gefunden, aber wie kann man sie rausladen?

Hatte da an dllcall gedacht, z.B:
DllCall("Shell32", "int", "ExtractIconEx", "str", $sFilename, "int", -1, "ptr", 0, "ptr", 0, "int", 1)

Die JPG-Datei habe ich wohl auch überlesen ?

RR04

Hi,

wie Bugfix schon sagte: "Alle Dateien extrahieren". Jetzt kannst Du Deine Icons in einer eigenen DLL einfügen.
Suche mal nach DLLs/DLLs erstellen, dass wurde schon öfter gefragt.

EDIT: Ich habs gefunden !

[ offen ] Wie erstelle ich eine *.DLL?

Beiträge von RR04

koda gui designer bild einfügen

Savegame Backup Programm

Savegame Backup Programm

Outlook & OExpress Saver...

Shutdown for Benjamin - SfB

Rückgabewert bei DirCopy

Aktualisieren...aber wie?

Hintergrund von Radiobutton unsichtbar machen

Hintergrund von Radiobutton unsichtbar machen

Aktualisieren...aber wie?

Aktualisieren...aber wie?

GUI bewegen

GUICtrlCreateMenuItem wenn man gedrückt hat ist davor ein harken?

Ordner mit aktuellem Datum erstellen

Vordergund mit checkbox

Feststellen, ob bestimmte Dateien vorhanden sind

Feststellen, ob bestimmte Dateien vorhanden sind

Input immer abfragen

Icon aus exe/dll extrahieren

Icon aus exe/dll extrahieren