Beiträge von name22

name22

Wie wäre es dann damit (für eine optionale Tastatursteuerung)^^
Mit den verschiedenen Variablen am Anfang kann man ja auch den Schwierigkeitsgrad verändern.

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <Misc.au3>

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

Opt("MouseCoordMode", 2)

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

$iGUIWidth = 400
$iGUIHeight = 400
$GUIColorBG = 0xFFFFFFFF
$iX = 200
$iY = 200
$PosNewX = 200
$PosNewY = 200
$iSpeed = 30
$iSpeedMax = 25

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

$hWnd = GUICreate("Test", $iGUIWidth, $iGUIHeight)
GUISetState()

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
_GDIPlus_GraphicsClear($hGraphic, $GUIColorBG)

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

AdlibRegister("_ReDraw", 20)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibUnRegister()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _ReDraw()
If _IsPressed("25") Then $PosNewX -= $iSpeed
If _IsPressed("27") Then $PosNewX += $iSpeed

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

$iDiffX = $iX - $PosNewX
If $iDiffX < 0 Then $iDiffX *= -1

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

$iSpeedX = $iDiffX / 10
If $iSpeedX > $iSpeedMax Then $iSpeedX = $iSpeedMax

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

If $iX < $PosNewX Then
$iX += $iSpeedX
ElseIf $iX > $PosNewX Then
$iX -= $iSpeedX
EndIf

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

_GDIPlus_GraphicsClear($hBuffer, $GUIColorBG)
_GDIPlus_GraphicsFillRect($hBuffer, $iX - 25, $iY - 25, 50, 50)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
EndFunc ;==>_ReDraw

[/autoit]

name22

So in etwa?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$CDTest = GUICreate("CDTest", 139, 120, 192, 124)
$CD_Drives = GUICtrlCreateListView("CD-Laufwerke", 8, 8, 121, 97)
GUISetState()

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

$aDrives = DriveGetDrive("CDROM")
For $i = 1 To $aDrives[0]
GUICtrlCreateListViewItem(StringUpper($aDrives[$i]), $CD_Drives)
Next

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

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

[/autoit]

name22

Wollte meine Lösung auch noch posten. Meine ist noch ein wenig übersichtlicher und kürzer
Funktion _ArrayShift (benötigt #include <Array.au3>)

Spoiler anzeigen

[autoit]

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayShift
; Description ...: Verschiebt den Inhalt eines Array um die angegebene Zahl nach links oder rechts
; Syntax.........: _ArrayShift(ByRef $aShift, $iShift)
; Parameters ....: $aShift - Zu bearbeitendes Array
; $iShift - Integerzahl um die verschoben werden soll (Bei $iShift < 0 wird nach links verschoben)
; Return values .: Erfolg - 1
; Fehler - 0, setzt @error:
; |-1 - $aShift ist kein Array
; |-2 - $iShift ist keine Integerzahl
; Author ........: name22
; Includes.......: Array.au3
; ===============================================================================================================================
Func _ArrayShift(ByRef $aShift, $iShift)
If Not IsInt($iShift) Then Return SetError(-2, 0, 0)
If Not IsArray($aShift) Then Return SetError(-1, 0, 0)
$iSize = UBound($aShift)
$iShift *= -1
If $iShift < 0 Then
$iShift *= -1
$iShift = $iSize - $iShift
EndIf
For $iI = 1 To $iShift
For $i = 0 To $iSize - 1
$iNew = $i + 1
If $iNew > $iSize - 1 Then $iNew -= 1
_ArraySwap($aShift[$i], $aShift[$iNew])
Next
Next
Return 1
EndFunc ;==>_ArrayShift

[/autoit]

Anwendungsbeispiel:

Spoiler anzeigen

[autoit]

#include <Array.au3>

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

Dim $aTest[20]

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

For $i = 0 To UBound($aTest) - 1
$aTest[$i] = $i
Next

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

_ArrayDisplay($aTest)
_ArrayShift($aTest, 4)
_ArrayDisplay($aTest)
_ArrayShift($aTest, -8)
_ArrayDisplay($aTest)

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

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayShift
; Description ...: Verschiebt den Inhalt eines Array um die angegebene Zahl nach links oder rechts
; Syntax.........: _ArrayShift(ByRef $aShift, $iShift)
; Parameters ....: $aShift - Zu bearbeitendes Array
; $iShift - Integerzahl um die verschoben werden soll (Bei $iShift < 0 wird nach links verschoben)
; Return values .: Erfolg - 1
; Fehler - 0, setzt @error:
; |-1 - $aShift ist kein Array
; |-2 - $iShift ist keine Integerzahl
; Author ........: name22
; Includes.......: Array.au3
; ===============================================================================================================================
Func _ArrayShift(ByRef $aShift, $iShift)
If Not IsInt($iShift) Then Return SetError(-2, 0, 0)
If Not IsArray($aShift) Then Return SetError(-1, 0, 0)
$iSize = UBound($aShift)
$iShift *= -1
If $iShift < 0 Then
$iShift *= -1
$iShift = $iSize - $iShift
EndIf
For $iI = 1 To $iShift
For $i = 0 To $iSize - 1
$iNew = $i + 1
If $iNew > $iSize - 1 Then $iNew -= 1
_ArraySwap($aShift[$i], $aShift[$iNew])
Next
Next
Return 1
EndFunc ;==>_ArrayShift

[/autoit]

name22

Das das Spiel dadurch einfacher wird ist mir klar, aber ich finde mit der vorherigen "Maussteurerung" ist der Doodle kaum noch steuerbar. Vielleicht bin ich aber auch einfach nur zu schlecht
War ja auch nur ein Vorschlag.

name22

Das mit der Maus Steuerung sieht noch ein bisschen komisch aus...
Wie wärs denn so:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>

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

Opt("MouseCoordMode", 2)

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

$iGUIWidth = 400
$iGUIHeight = 400
$GUIColorBG = 0xFFFFFFFF
$iX = 50
$iY = 50
$iSpeed = 0
$iSpeedMax = 20

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

$hWnd = GUICreate("Test", $iGUIWidth, $iGUIHeight)
GUISetState()

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
_GDIPlus_GraphicsClear($hGraphic, $GUIColorBG)

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

AdlibRegister("_ReDraw", 20)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibUnRegister()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _ReDraw()
$iDiff = $iX - MouseGetPos(0)
If $iDiff < 0 Then $iDiff *= -1

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

$iSpeed = $iDiff / 10
If $iSpeed > $iSpeedMax Then $iSpeed = $iSpeedMax

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

If Not ($iX <= MouseGetPos(0) + 10 And $iX >= MouseGetPos(0) - 10) Then
If $iX < MouseGetPos(0) Then
$iX += $iSpeed
ElseIf $iX > MouseGetPos(0) Then
$iX -= $iSpeed
EndIf
EndIf

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

_GDIPlus_GraphicsClear($hBuffer, $GUIColorBG)
_GDIPlus_GraphicsFillRect($hBuffer, $iX - 25, $iY - 25, 50, 50)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
EndFunc ;==>_ReDraw

[/autoit]

Nur so als Beispiel

name22

Ich habe auch mal sowas geschrieben:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>

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

$Wallpaper = @TempDir & "\Wallpaper.bmp" ;Speicherort für die bmp Datei
$File = FileOpenDialog("Hintergrundbild auswählen", @UserProfileDir & "\Pictures", "Bilder (*.jpg;*.jpeg;*.png;*.gif;*.bmp)")

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

_GDIPlus_Startup()
$hBitmap = _GDIPlus_BitmapCreateFromFile($File) ;Macht aus dem Bild eine Bitmap
_GDIPlus_ImageSaveToFile($hBitmap, $Wallpaper) ;Speichert sie in das vorgegebene Verzeichnis
_GDIPlus_BitmapDispose($hBitmap) ;Bitmap Resource aufräumen
_GDIPlus_Shutdown()

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

If Not @error Then ;Jetzt wird die gespeicherte Bitmap als neues Hintergrundbild gesetzt, somit sind auch Dateitypen außer bmp und jpg möglich
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallPaper", "REG_SZ", 0)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", -1)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper", "REG_SZ", $Wallpaper)
DllCall("user32.dll", "int", "SystemParametersInfo", "int", 20, "int", 0, "str", $Wallpaper, "int", BitOR(1, 2))
EndIf

[/autoit]

Nur kann man bei meinem dank GDI+ auch andere Bildformate auswählen (auch unter XP)
Diese GDI+ Funktion könntest du doch übernehmen.

name22

Der Doodle steht gerade, wenn $Angle = -135 ist.
Mach es lieber so, sonst kommst du noch durcheinander...

[autoit]

$iX1 = $iGUIWidth / 2 + Cos(($Angle + 0 - 135) * $Pi_Div_180) * $iWidth
$iY1 = $iGUIHeight / 2 + Sin(($Angle + 0 - 135) * $Pi_Div_180) * $iHeight
$iX2 = $iGUIWidth / 2 + Cos(($Angle + 90 - 135) * $Pi_Div_180) * $iWidth
$iY2 = $iGUIHeight / 2 + Sin(($Angle + 90 - 135) * $Pi_Div_180) * $iHeight
$iX3 = $iGUIWidth / 2 + Cos(($Angle + 270 - 135) * $Pi_Div_180) * $iWidth
$iY3 = $iGUIHeight / 2 + Sin(($Angle + 270 - 135) * $Pi_Div_180) * $iHeight

[/autoit]

name22

Zitat

sonst wird da wahrscheinlich keiner durchblicken

Doch ich
(Das Script lädt eine "Doodle.png" aus dem Script Verzeichnis)

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>

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

$iGUIWidth = 400
$iGUIHeight = 400
$GUIColorBG = 0xFFFFFFFF
$Angle = 0
Global Const $Pi_Div_180 = 4 * ATan(1) / 180

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

$hWnd = GUICreate("DoodleRotate", $iGUIWidth, $iGUIHeight)
GUISetState()

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

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

_GDIPlus_GraphicsClear($hGraphic, $GUIColorBG)

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

$hImage_Doodle = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Doodle.png")
$iWidth = _GDIPlus_ImageGetWidth($hImage_Doodle)
$iHeight = _GDIPlus_ImageGetHeight($hImage_Doodle)

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

AdlibRegister("_ReDrawWithAngle", 30)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($hImage_Doodle)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _ReDrawWithAngle()
$Angle += 10

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

$iX1 = $iGUIWidth / 2 + Cos(($Angle + 0) * $Pi_Div_180) * $iWidth
$iY1 = $iGUIHeight / 2 + Sin(($Angle + 0) * $Pi_Div_180) * $iHeight
$iX2 = $iGUIWidth / 2 + Cos(($Angle + 90) * $Pi_Div_180) * $iWidth
$iY2 = $iGUIHeight / 2 + Sin(($Angle + 90) * $Pi_Div_180) * $iHeight
$iX3 = $iGUIWidth / 2 + Cos(($Angle + 270) * $Pi_Div_180) * $iWidth
$iY3 = $iGUIHeight / 2 + Sin(($Angle + 270) * $Pi_Div_180) * $iHeight

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

_GDIPlus_GraphicsClear($hBuffer, $GUIColorBG)
_GDIPlus_DrawImagePoints($hBuffer, $hImage_Doodle, $iX1, $iY1, $iX2, $iY2, $iX3, $iY3)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
EndFunc ;==>_ReDrawWithAngle

[/autoit]

Edit: Hey ich hab ja schon über 200 Posts . Das hab ich erst jetzt realisiert.

name22

Meinst du :

[autoit]

AdlibRegister("Online", 60000)

[/autoit]

? Das würde diese Funktion alle 60000 Millisekunden (1 Minute) aufrufen.

name22

Das muss nicht heißen, dass es nicht mehr unterrichtet wird

name22

Geht leider immer noch nicht...
Gleiches Ergebnis wie vorher.

name22

Ich habe ein kleines Problem mit einem DLLCall, und zwar funktioniert die Funktion _GetKeyboardLayout schon perfekt (Identifier)
Doch die Funktion um ein neues Tastaturlayout zu setzen gibt mir immer 0x0 zurück und nichts verändert sich.

Script:

Spoiler anzeigen

[autoit]

$Layout = _GetKeyboardLayoutName()
MsgBox(64, "Hex Identifier des Tastatur Layouts", "0x" & $Layout)
;$LayoutNew = _LoadKeyboardLayout($Layout)
;MsgBox(64, "Hex Identifier des neuen Tastatur Layouts", "0x" & $LayoutNew)

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

Func _GetKeyboardLayoutName()
$Buffer_Struct = DllStructCreate("char[9];")
$pBuffer_Struct = DllStructGetPtr($Buffer_Struct)
$aReturn_Error = DllCall("User32", "bool", "GetKeyboardLayoutName", "ptr", $pBuffer_Struct)
$aReturn_Name = DllStructGetData($Buffer_Struct, 1)
Return SetError($aReturn_Error[0], 0, $aReturn_Name)
EndFunc

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

Func _LoadKeyboardLayout($HKL)
$Buffer_Struct = DllStructCreate("char[9];")
DllStructSetData($Buffer_Struct, 1, $HKL)
$pBuffer_Struct = DllStructGetPtr($Buffer_Struct)
$Return = DllCall("User32", "char", "LoadKeyboardLayout", "ptr", $pBuffer_Struct, "uint", "KLF_ACTIVATE")
Return SetError($Return, 0, $Return)
EndFunc

[/autoit]

name22

Mit Möglichkeiten meinte ich nicht deren Anzahl sondern die möglichen Lösungen
So wie beim Script im 1.Post.

name22

Ja aber wenn ich ein externes Programm starte wie Firefox o.Ä. funktioniert das nicht mehr.
Also müssen die Fenster aus dem selben Prozess stammen?

name22

Ich habe mich gefragt mit welchem AutoIt Befehl dieser DLLCall vergleichbar ist:

Spoiler anzeigen

[autoit]

DllCall("User32", "int", "ShowCursor", "bool", False)

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

MsgBox(64, "Info", "Der Cursor sollte jetzt innerhalb des Fensters nicht zu sehen sein")

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

DllCall("User32", "int", "ShowCursor", "bool", True)

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

MsgBox(64, "Info", "Der Cursor sollte jetzt wieder innerhalb des Fensters sichtbar sein")

[/autoit]

Vermutlich nicht mit GUISetCursor(16)
Wieso wird der Cursor eigentlich nur in den im Script erstellten Fenstern versteckt?
Woher weiß der DLLCall woher dieser Befehl stammt

name22

Das mit der Vigenère Chiffre Entschlüsselung war auch mehr ein Scherz. Ich glaube sowas ist verdammt schwer umzusetzen, da das Programm nicht einfach mal eben alle Möglichkeiten ausgeben kann. Für gewöhnlich macht man das doch indem man den häufigsten Buchstaben der deutschen Sprache mit dem häufigsten Buchstaben des verschlüsselten Textes vergleicht, oder? Zumindest fängt man so an... Sobald aber der Text zu kurz ist, oder der Schlüssel fast so lang oder gleich lang wie der Text ist kann man eine Entschlüsselung wohl vergessen.

name22

Nett.^^ Wie wäre es mit so einem Script für die Vigenère-Chiffre

name22

Redest du von einer Dateieigenschaft? Wenn ja könnte dir die ExtProp.au3 weiterhelfen.

name22

Oder:

[autoit]

While 1
If Not PixelGetColor(526,355) = 0x181715 Then ExitLoop
Sleep(50)
WEnd

[/autoit]

Ich würde eine Sleep Zeit einbauen.

name22

Vielen Dank für das Beispiel, ich hab nur mal im MSDN Library nach ColorMatrix gesucht.
Ich hab zwar was gefunden, aber keine Ahnung gehabt wie ich das in einen DLLCall einbaue.

Wenn das so weitergeht haben wir hier bald einen Paint Ersatz

Beiträge von name22

Doodle Jump für Pc

CD-Laufwerke in ComboBox anzeigen?

Array nach rechts oder nach links schieben

Doodle Jump für Pc

Doodle Jump für Pc

Wallpaper im laufenden Betrieb ändern (inkl. auswahl des Styles)

Bild drehen und dan auf img zeichnen

Bild drehen und dan auf img zeichnen

Hilfe zu Server Tool gesucht

Exponentielles Wachstum

DllCall will nicht so richtig

DllCall will nicht so richtig

Cäsar Chiffre

Kein wirkliches Problem ^^

Kein wirkliches Problem ^^

Cäsar Chiffre

Cäsar Chiffre

Exifdatum eines Fotos ändern - möglich?

Auf Frabe überprüfen

GDI+ Paint