Beiträge von UEZ

**UEZ**

Du musst vorher $input auslesen mit GUICtrlRead(), da du sonst nur den Identifier zurück gibst!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 405, 294, 302, 218)
$Input1 = GUICtrlCreateInput("Input1", 72, 64, 217, 21)
$Button1 = GUICtrlCreateButton("Button1", 144, 208, 105, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
run("notepad")
sleep(1000)
send(GUICtrlRead($Input1))
EndSwitch
WEnd

[/autoit]

Gruß,
UEZ

**UEZ**

@Hassan: Beruf Technical Consultant hört sich nach einem Job Code an!

Darf ich fragen, in welcher Firma du arbeitest? Kannst mir auch in der SB "whispern"!

Gruß,
UEZ

**UEZ**

Neben dem Befehl NET stop <Dienstname> kannst du auch den Befehl SC stop <Dienstname> benutzen. SC hat gegenüber NET einige Vorteile - einfach mal anschauen!

Gruß,
UEZ

**UEZ**

Wenn ich mir meinen Code anschaue, dann gefällt er mir nicht!

Werde ihn mal aktualisieren.

Gruß,
UEZ

**UEZ**

Hier meine Version von 2009:

Spoiler anzeigen

[autoit]

;Coded by UEZ 2009
#include <WindowsConstants.au3>

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

#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ini File Test", 237, 143)
$Checkbox1 = GUICtrlCreateCheckbox("Convert X", 8, 8, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Convert Y", 8, 40, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Convert Z", 8, 72, 97, 17)
$Input1 = GUICtrlCreateInput("", 105, 8, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 105, 40, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("", 105, 72, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Load", 8, 104, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Save", 153, 104, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $Button1
Load()

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

Case $Button2
Save()

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

Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf

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

Case $Checkbox2
If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
GUICtrlSetState($Input2, $GUI_ENABLE)
Else
GUICtrlSetState($Input2, $GUI_DISABLE)
EndIf

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

Case $Checkbox3
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
GUICtrlSetState($Input3, $GUI_ENABLE)
Else
GUICtrlSetState($Input3, $GUI_DISABLE)
EndIf
EndSwitch
WEnd

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

Func Save()
Local $ini, $save_file, $hfile, $filename, $dummy_array
Local $filename_suffix = ".ini"
Local $save_path = @ScriptDir
$filename = ""
$filename = FileSaveDialog("Save to Ini Files", $save_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 16)
If $filename <> "" Then
$dummy_array = StringSplit($filename, ".")
If UBound($dummy_array) > 0 Then
$filename = $dummy_array[1] & $filename_suffix
Else
$filename = $filename_suffix
EndIf
If Not @error Then
$ini = "[Input Section]" & @CRLF & _
"Convert X=" & GUICtrlRead($Input1) & @CRLF & _
"Convert Y=" & GUICtrlRead($Input2) & @CRLF & _
"Convert Z=" & GUICtrlRead($Input3) & @CRLF & @CRLF & _
"[Checkbox Section]" & @CRLF & _
"Checkbox1=" & GUICtrlRead($Checkbox1) & @CRLF & _
"Checkbox2=" & GUICtrlRead($Checkbox2) & @CRLF & _
"Checkbox3=" & GUICtrlRead($Checkbox3) & @CRLF
$hfile = FileOpen($filename, 2)
FileWrite($filename, $ini)
FileClose($hfile)
EndIf
EndIf
EndFunc ;==>Save

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

Func Load()
Local $filename, $hfile, $aInput, $aCheckbox, $i
Local $filename_suffix = ".ini"
Local $load_path = @ScriptDir
$filename = FileOpenDialog("Load Ini File", $load_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 1)
If Not @error Then
$aInput = IniReadSection($filename, "Input Section")
$aCheckbox = IniReadSection($filename, "Checkbox Section")
GUICtrlSetData($Input1, $aInput[1][1])
GUICtrlSetData($Input2, $aInput[2][1])
GUICtrlSetData($Input3, $aInput[3][1])
If $aCheckbox[1][1] = 1 Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
If $aCheckbox[2][1] = 1 Then
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
GUICtrlSetState($Input2, $GUI_ENABLE)
Else
GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
GUICtrlSetState($Input2, $GUI_DISABLE)
EndIf
If $aCheckbox[3][1] = 1 Then
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
GUICtrlSetState($Input3, $GUI_ENABLE)
Else
GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
GUICtrlSetState($Input3, $GUI_DISABLE)
EndIf
EndIf
EndFunc

[/autoit]

Keine Checks, ob das Ini File das Richtige ist!

Gruß,
UEZ

**UEZ**

Stimmt, die 3x habe ich wohl ubersehen.

Und so: "(?s)(\w{7,}){3,}"

Gruß,
UEZ

**UEZ**

Ich bin zwar kein RegEx Experte, aber "(?s)(\w{7,})" sollte doch reichen, um die 5 Ergebnisse zu bekommen oder?

Gruß,
UEZ

**UEZ**

Nette Idee Greenhorn - gefällt mir sehr gut. Falls ich mal von MSN benötige, dann wird dein Tools wohl sehr hilfreich sein!

Well done.

Gruß,
UEZ

**UEZ**

Hier mal ein paar Links für dich:

RegExp
RegExpQuickTester
String Regular Expression Tester V2
StringRegExpTester

Ich werde deine Version morgen testen, jetzt ist es mir zu spät...

Gruß,
UEZ

**UEZ**

Mit dieser Methode kann ich auch transparente PNGs mittels GUICtrlCreatePic() darstellen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
Opt("GuiOnEventMode", 1)

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

Local Const $STM_SETIMAGE = 0x0172
Local $hGUI, $Pic, $hImage, $hBmp, $iW, $iH

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

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("Folder Full Tranparent.png")
$iW = _GDIPlus_ImageGetWidth($hImage)
$iH = _GDIPlus_ImageGetHeight($hImage)
$hBitmap = _GDIPlus_BitmapCloneArea($hImage, 0, 0, $iW, $iH, $GDIP_PXF32ARGB)
$hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)

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

_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

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

$hGUI = GUICreate("Display transparent PNG", $iW * 2, $iH * 2)
GUISetBkColor(0xFFFFFF)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")

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

$Pic = GUICtrlCreatePic("", $iW / 2, $iH / 2, $iW, $iH)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSendMsg($Pic, $STM_SETIMAGE, 0, $hBmp)
GUICtrlSetOnEvent($Pic, "_Pic_Clicked")

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

_WinAPI_DeleteObject($hBmp)

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

GUISetState()

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

Do
Until Not Sleep(1000)

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

Func _Pic_Clicked()
MsgBox(0, "Test", "You clicked on the pic!")
EndFunc

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

Func _Quit()
GUIDelete($hGUI)
Exit
EndFunc

[/autoit]

Das Bild dazu: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Gruß,
UEZ

**UEZ**

Hi,

Datei aussuchen: FileOpenDialog()
Zielverzeichnis aussuchen: FileSelectFolder()
verschieben: FileMove()
entpacken: Rar.exe x <Archiv Name> oder 7z.exe x <Archiv Name>
kopieren: FileCopy()

Gruß,
UEZ

**UEZ**

eukalyptus: wieder was feines gezaubert...

GE IXI TIM: ich sehe in Eukalyptus keinen Konkurrenten, sondern einen "Lehrer"! Er ist ja schon lange mit GDI+ dabei und wer in seinen Codes hineinschaut, kann eine Menge über die GDI+ "Kunst" lernen!

"Und Konkurrenz belebt das Geschäft." wie man so schön sagt!

Gruß,
UEZ

**UEZ**

Was klappt nicht?

Ferner wollte ich dir nur eine Richtung zeigen und nicht für dich alles coden, da du selbst ja was lernen sollst!

Gruß,
UEZ

**UEZ**

Ersetze mal Zeile 30: While 1 durch While Sleep(50). Danach sollte sich die CPU Auslastung verringern!

Teste mal ein 3D Benchmark z.B. eines von FutureMark! Hörst du auch dort das Brummen?

Gruß,
UEZ

**UEZ**

Soweit ich weiß, hat der i5 450M 2 Cores + HT (4 logische CPUs), so dass die CPU bei den GDI+ Sachen höchsten 25% Auslastung hat (25% = 100% auf einem Core).

Wo hast du das Gerät her? Internet oder z.B. MM?

Gruß,
UEZ

**UEZ**

Zitat von Andy

Da auch ohne ein AutoIt-Script zu starten massig GDI+-Funktionen vom System verwendet werden und natürlich auch Objekte bestehen, könnte ich mir gut vorstellen, dass bei Verwendung des AutoIt-Scriptes reichlich Prozessorlast erzeugt wird. Das "fiepen" könnte von Spannungswandlern oder sogar dem Lüfter kommen, wenn der Prozessor am Anschlag fährt^^
Gerade bei Notebooks bzw der (nicht) darin integrierten Grafikprozessoren werden ggf bestimmte GDI-Funktionen nicht von der Graka, sondern vom Prozessor übernommen. Was sagt der Taskmanager bezgl. der Prozessorauslastung?
Zeig doch mal ein Beispielscript.

Das Gerät ist ein Monat alt und da sollte es kein Brummen geben. Wenn die CPU auf Anschlg ist, dann läuft höchstens der Lüfter und er sollte nicht brummen!

Vielleicht sind einige elektronische Bauteile kaputt, so dass bei CPU Last es zu dem Brummen kommt. Laut seiner Aussage betrifft das alle GDI+ Skripte!

Vielleicht kann er ja mal ein 3D Benchmark laufen lassen und prüfen, ob es auch dort zum Brummen kommt.

Gruß,
UEZ

**UEZ**

Scheint wohl eher ein Hardware Problem vorzuliegen! Warum sollte GDI+ ein Notebook zum Brummen bringen?

Ich würde das Notebook zur Reparatur bringen...

Gruß,
UEZ

**UEZ**

Hier ein sehr einfaches und erweiterungsbedürftiges Skript:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GuiConstants.au3>
#include <GDIPlus.au3>

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

Local $hImage, $msg
Local $pBilder = FileSelectFolder("Bitte Ordner mit JPG Bildern auswählen", "")
If @error Then Exit
Local $fBilder = _FileListToArray($pBilder, "*.jpg", 1)
If Not IsArray($fBilder) Then Exit

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

Local $hGUI = GUICreate("GDI+ Bilder Betrachter", 900, 600)
Local $hButton1 = GUICtrlCreateButton("Nächstes Bild", 810, 50)
Local $hButton2 = GUICtrlCreateButton("Voriges Bild", 810, 100)
Local $hButton3 = GUICtrlCreateButton("Ende", 810, 150)
GUISetState(@SW_SHOW)

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

Local $W = 800
Local $H = 600

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

_GDIPlus_Startup()
Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Local $hBitmap = _GDIPlus_BitmapCreateFromGraphics($W, $H, $hGraphic)
Local $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

Local $z = 1

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

Lade_Bild($z)

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

While Sleep(50)
$msg = GUIGetMsg()
Select
Case $msg = $hButton1
$z += 1
If $z > $fBilder[0] Then $z = 1
Lade_Bild($z)
Case $msg = $hButton2
$z -= 1
If $z < 1 Then $z = $fBilder[1]
Lade_Bild($z)
Case $msg = $hButton3 Or $msg = $GUI_EVENT_CLOSE
_Exit()
EndSelect
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $W, $H)
WEnd

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

Func Lade_Bild($z)
$hImage = _GDIPlus_ImageLoadFromFile($pBilder & "\" & $fBilder[$z])
$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)

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

$r = Verhaeltnis($iX, $iY)
$e = @extended

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

_GDIPlus_GraphicsClear($hBackbuffer)
_GDIPlus_GraphicsDrawImageRect($hBackbuffer, $hImage, 0, 0, $r, $e)
EndFunc

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

Func Verhaeltnis($breite, $hoehe)
Local $faktor
If $breite > $hoehe Then
$faktor = $W / $breite
Else
$faktor = $H / $hoehe
EndIf
Return SetError(0, $hoehe * $faktor, $breite * $faktor)
EndFunc

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

Func _Exit()
_GDIPlus_ImageDispose($hImage)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete($hGUI)
Exit
EndFunc

[/autoit]

Viel Spaß,
UEZ

**UEZ**

Zitat von *scarface*

Nein, warum ?

MfG

Ps: Weist du wie ich dort weiter komme?

Zitat

...
könntet Ihr mir villeicht helfen,
ich Idee wie ich zu dem herumfahrenden Männchen bilder von links nach rechts, oben nach unten usw. laufen lassen kann, währen man noch mit dem männchen rumfahren kann.
Es wäre cool, wenn die anderen Bilde auf gebufft sind, damit es nicht flackert, könnte mir evtl, jemand helfen?
...

Weil dein Deutsch nach einer maschinellen Übersetzung klingt!

Gruß,
UEZ

**UEZ**

Probiere es mal so:

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GdiPlus.au3>;das include
#include <Misc.au3>

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

OnAutoItExitRegister("_end") ; die Funktion _end am Ende des Scriptes ausführen

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

_GDIPlus_Startup() ;Gdi starten

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

$figur = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\tux.jpg"); Meine Bild reinladen
$background = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\al.png")
$Matrix = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\hd.jpg")

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

$height = _GDIPlus_ImageGetHeight($background); Größe meines Bildes ermitteln (Höhe)
$width = _GDIPlus_ImageGetWidth($background); Größe meines Bildes ermitteln (Breite)
$verhaelnis = $height / $width; Verhältnis ausrechen, damit kleiner

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

$fheight = _GDIPlus_ImageGetHeight($figur); Größe meines Bildes ermitteln (Höhe)
$fwidth = _GDIPlus_ImageGetWidth($figur); Größe meines Bildes ermitteln (Breite)

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

$Gui = GUICreate("Beispiel", $width, $height); GUI erstellen
GUISetState(@SW_SHOW); Anzeigen

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

$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui); Object um drauf zu malen
$hbitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphic) ;erstelle Bitmap von der Grafik
$hbackbuffer = _GDIPlus_ImageGetGraphicsContext($hbitmap) ;erstelle Grafik Kontext von der Bitmap (dient für die Doppeltbufferung der Grafik, damit die Bewegungen flüssiger aussehen

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

_GDIPlus_GraphicsSetSmoothingMode($hbackbuffer, 2) ; da

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

$x = $width / 2 - $fwidth / 2; Poition von Bild auf X-Achse
$y = $height / 2 - $fheight / 2; Poition von Bild auf Y-Achse

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ; Event CLose
Exit

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

EndSwitch

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

If _IsPressed(25) And $x >= 3 Then; Links pfeiltaste änder die koordinaten so, dass bild sich nach links beweg
$x -= 3
EndIf
If _IsPressed(26) And $y >= 3 Then; Oben pfeiltaste änder die koordinaten so, dass bild sich nach oben bewegt!
$y -= 3
EndIf
If _IsPressed(27) And $x <= $width - $fwidth - 3 Then ;$width - $fwidth - 3 Then; Rechts pfeiltaste änder die koordinaten so, dass bild sich nach rechts bewegt!
$x += 3
EndIf
If _IsPressed(28) And $y <= $height - $fheight - 3 Then; Runter pfeiltaste änder die koordinaten so, dass bild sich nach unten bewegt!
$y += 3
EndIf

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

_GDIPlus_GraphicsDrawImageRect($hbackbuffer, $background, 0, 0, $width, $height)
_GDIPlus_GraphicsDrawImageRect($hbackbuffer, $figur, $x, $y, $fwidth, $fheight) ;die Figur wird an der neuen Position gezeichnet
_GDIPlus_GraphicsDrawImageRect($graphic, $hBitmap, 0, 0, $width, $height)

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

;($graphic = Unser Hintergrund also Wodrauf er neuzeichnen soll)
;($figur= Was er neuzeichnen soll also unser Bild!)
;($x= Die veränderte X Koordinate)
;($y= Die veränderte Y Koordinate)
;(20 = Die Größe(Weite!) )
;(20 *$verhaelnis = Die größe(Höhe))
WEnd

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

Func _end();die Exit funktion
_GDIPlus_GraphicsDispose($graphic);Grafik Objekt freigeben
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hbackbuffer)
_GDIPlus_ImageDispose($figur);Bild Objekt freigeben
_GDIPlus_ImageDispose($background);Bild Objekt freigeben
_GDIPlus_ImageDispose($Matrix);Bild Objekt freigeben
_GDIPlus_Shutdown();Ressourcen freigeben
EndFunc ;==>_end

[/autoit]

Gruß,
UEZ

Beiträge von UEZ

send($Variable)

Vergleich von Variablen schlägt fehl

Lokaler Server Stoppen Starten

Checkbox Status in einer *.ini speichern

Checkbox Status in einer *.ini speichern

Regex in Match weitersuchen statt nach Match

Regex in Match weitersuchen statt nach Match

h2au3

[SciTE/Notepad++] Regexp Tester

PNG in GUICtrlCreatePic

.rar verschieben, entpacken & ersetzen

Bild als drehende Spirale

Gui in dem Bilder angezeit werden

Bei GDI+ macht notebook nervige geräusche

Bei GDI+ macht notebook nervige geräusche

Bei GDI+ macht notebook nervige geräusche

Bei GDI+ macht notebook nervige geräusche

Gui in dem Bilder angezeit werden

GDI + Hilfe

GDI + Hilfe