Beiträge von clezZ

clezZ

Zitat von Marthog

DllCall("Fish.dll", "int", "FiSH_encrypt_msg", "HWND" $mWnd, "HWND", $aWnd, "str", $theData, "str" $params, "BOLLEAN", $show, "BOOLEAN", $nopause)

Falls es so geht, dann aber so:

[autoit]

DllCall("Fish.dll", "int", "FiSH_encrypt_msg", "hwnd", $mWnd, "hwnd", $aWnd, "str", $theData, "str" $params, "bool", $show, "bool", $nopause)

[/autoit]

clezZ

Ups, hab ich ganz vergessen
//Edit: So, habs jetzt verbessert.

clezZ

Was ist das "gui" in der ersten Zeile???

clezZ

Hi, ich hab ein kleines Programm geschrieben, mit dem man mit einem Würfel würfeln kann.
Bis jetzt ist es zwar noch nicht so nützlich, aber man könnte es in ein Spiel einbauen.

Hier ist das Skript, allerdings braucht man die Bilder noch dazu:

Spoiler anzeigen

[autoit]

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

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

Global $GUIWidth = 700
Global $GUIHeight = 700
Global $WurfeliX
Global $WurfeliY
Global $WurfelStepiX = Random(25, 30)
Global $WurfelStepiY = Random(15, 20)
Global $WurfelWidth = 408
Global $WurfelHeight = 392
Global $WurfelPhase = 1 ;1, 2 oder 3
Global $WurfZeit = 0
Global $Zahl[6]
Global $VZahl[6]
Global $WurfelBewegtSich = False
Global $RandomNumber = Random(1, 6, 1)
Global $MaxWurfZeit = 255

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

_GDIPlus_Startup()

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

$GUI = GUICreate("Würfel", $GUIWidth, $GUIHeight, -1, -1)
GUISetState()

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

Opt("MouseCoordMode", 2)

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

$GDIPlusGUI = _GDIPlus_GraphicsCreateFromHWND($GUI)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $GDIPlusGUI)
$Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)
_GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)

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

GUIRegisterMsg($WM_PAINT, "_WM_PAINT")

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

_GDIPlus_GraphicsDrawImageRect($GDIPlusGUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)

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

#Region ## Bilder reinladen ##

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

$WurfelBewegung1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\data\Würfel1verwischt.png")
$WurfelBewegung2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\data\Würfel2verwischt.png")
$WurfelBewegung3 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\data\Würfel3verwischt.png")
For $i = 1 To 6 Step 1
$Zahl[$i - 1] = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\data\" & $i & ".png")
Next
For $i = 1 To 6 Step 1
$VZahl[$i - 1] = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\data\v" & $i & ".png")
Next

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

#EndRegion ## Bilder reinladen ##

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
_Exit()
Case $GUI_EVENT_RESTORE
_WM_PAINT()
Case $GUI_EVENT_PRIMARYDOWN
If $WurfelBewegtSich = False Then
$WurfelBewegtSich = True
$WurfZeit = 0
$WurfelStepiX = Random(25, 30)
$WurfelStepiY = Random(15, 20)
$RandomNumber = Random(1, 6, 1)
$WurfeliX = MouseGetPos(0) - $WurfelWidth / 2
$WurfeliY = MouseGetPos(1) - $WurfelHeight / 2
AdlibRegister("_Draw", 70)
EndIf
EndSwitch
WEnd

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

Func _Exit()
AdlibUnRegister()
#Region ## Bilder Disposen ##
_GDIPlus_ImageDispose($WurfelBewegung1)
_GDIPlus_ImageDispose($WurfelBewegung2)
_GDIPlus_ImageDispose($WurfelBewegung3)
For $i = 1 To 6 Step 1
_GDIPlus_ImageDispose($Zahl[$i - 1])
Next
For $i = 1 To 6 Step 1
_GDIPlus_ImageDispose($VZahl[$i - 1])
Next
#EndRegion ## Bilder Disposen ##

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

_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($GDIPlusGUI)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit

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

Func _Draw()
If $WurfZeit < 250 Then
_GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
If $WurfelPhase = 1 Then
_GDIPlus_GraphicsDrawImageRect($Buffer, $WurfelBewegung1, $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
$WurfelPhase = 2
ElseIf $WurfelPhase = 2 Then
_GDIPlus_GraphicsDrawImageRect($Buffer, $WurfelBewegung2, $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
$WurfelPhase = 3
ElseIf $WurfelPhase = 3 Then
_GDIPlus_GraphicsDrawImageRect($Buffer, $WurfelBewegung3, $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
$WurfelPhase = 1
EndIf

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

_GDIPlus_GraphicsDrawImageRect($GDIPlusGUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)

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

$WurfeliX += $WurfelStepiX
$WurfeliY += $WurfelStepiY
If $WurfeliX <= 0 - 130 Then $WurfelStepiX *= -1
If $WurfeliX >= $GUIWidth - 270 Then $WurfelStepiX *= -1
If $WurfeliY <= 0 - 130 Then $WurfelStepiY *= -1
If $WurfeliY >= $GUIHeight - 270 Then $WurfelStepiY *= -1

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

$WurfZeit += 1

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

EndIf

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

If $WurfZeit = $MaxWurfZeit Then
$WurfZeit += 0
Else
$WurfZeit += 1
EndIf

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

If $WurfZeit = 70 Then
If $WurfelStepiX > 0 Then
$WurfelStepiX -= 10
ElseIf $WurfelStepiX < 0 Then
$WurfelStepiX += 10
EndIf

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

If $WurfelStepiY > 0 Then
$WurfelStepiY -= 10
ElseIf $WurfelStepiY < 0 Then
$WurfelStepiY += 10
EndIf

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

$WurfZeit = 200
EndIf

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

If $WurfZeit = 230 Then
If $WurfelStepiX > 0 Then
$WurfelStepiX = 7
ElseIf $WurfelStepiX < 0 Then
$WurfelStepiX = -7
EndIf

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

If $WurfelStepiY > 0 Then
$WurfelStepiY = 7
ElseIf $WurfelStepiY < 0 Then
$WurfelStepiY = -7
EndIf
EndIf

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

If $WurfZeit = 250 Then
_GDIPlus_GraphicsClear($Buffer, 0xFFFFFFFF)
$WurfelStepiX = 0
$WurfelStepiY = 0
If $RandomNumber = 1 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 2 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 3 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 4 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 5 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 6 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $VZahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
_WM_PAINT()
EndIf

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

If $WurfZeit = $MaxWurfZeit Then
$WurfelStepiX = 0
$WurfelStepiY = 0
If $RandomNumber = 1 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 2 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 3 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 4 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 5 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
If $RandomNumber = 6 Then _GDIPlus_GraphicsDrawImageRect($Buffer, $Zahl[$RandomNumber - 1], $WurfeliX, $WurfeliY, $WurfelWidth, $WurfelHeight)
_WM_PAINT()
$WurfelBewegtSich = False
AdlibUnRegister("_Draw")
EndIf
EndFunc ;==>_Draw

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

Func _WM_PAINT()
_GDIPlus_GraphicsDrawImageRect($GDIPlusGUI, $Bitmap, 0, 0, $GUIWidth, $GUIHeight)
EndFunc ;==>_WM_PAINT

[/autoit]

Im Anhang hab ich noch das Skript mit den Bildern.
Hoffe auf Feedback

clezZ

Danke schön, hat geklappt

clezZ

Kann mir denn keiner helfen???

clezZ

Willkommen im Forum.
Und, was kannst du denn schon alles?

clezZ

Hi, ich hab ein Problem, und zwar hab ich eine dll erstellt in der ein .png Bild ist.
Jetzt möchte ich wissen, wie ich diese Png Datei benutzen kann.

Ich hab mal eine Beispiels Dll angehängt.

clezZ

Wie genau willst du denn diese Skripte integrieren?
Willst du dabei auch was lernen(?), oder sollen wir alles für dich machen??

clezZ

Ich hab meinen eigenen gescheiten Laptop jetzt auch erst mit 13 bekommen.
Und seit Anfang diesen Jahres kenn ich AutoIt.

clezZ

Zitat von Darter

aber er zeichnet mir immer nur ein X auf den wert, den ich bei dem ersten feld eingebe

Das liegt daran, das deine restlichen Werte ÜBER 90 liegen, und das Koordinatensystem eben nur BIS 90 geht.

clezZ

@Keymarster: Kannst dir ja kurz ein Youtube acc machen (hab ich auch, geht ganz schnell)

clezZ

Ups, immer diese winzigen Fehler

clezZ

Wann kommt den welches Bild/Fenster?

clezZ

Kannst dir Notfalls auch diese Befehle anschauen:

[autoit]

ProgressOn()
ProgressSet()
ProgressOff()

[/autoit]

clezZ

Bitteschön, ansehen, verstehen und in dein Skript einbauen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 625, 445, 192, 124)
Global $Progress1 = GUICtrlCreateProgress(104, 88, 345, 81)
Global $Button1 = GUICtrlCreateButton("Prozess", 350, 200, 100, 30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 0 To 100 Step 10
GUICtrlSetData($Progress1, $i)
Sleep(500)
Next

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

GUICtrlSetState($Progress1, $GUI_HIDE)

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

GUICtrlCreateLabel("Fertig", 200, 200, 50, 30)

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

EndSwitch
WEnd

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

clezZ

Wenn du einen Beitrag erstellst, kannst du unten in dem Register "Dateianhänge", Dein Video hinzufügen.

clezZ

Zitat von Forseti

"12325")

??? Was ist das für eine Button ID?
Einfach die Buttons mit dem 'AutoIt Window Info'-Tool prüfen!

clezZ

Lads mal auf Youtube hoch, oder pack es in eine *.zip oder *.7z und lads hier hoch!

clezZ

Das hab ich dir doch vorhin im Skript geschrieben!

Beiträge von clezZ

Hilfe bei Dll-Aufruf

Würfeln in GDI+

tcp

Würfeln in GDI+

Dll Problem

Dll Problem

Haloo

Dll Problem

2.Scripte zu 1.nem

Haaalllooo

Exponentielles Wachstum

Suche jemanden als Lehrer^^ der mir was beibringt

ComboBox, immer letzten Eintrag zeigen

Suche jemanden als Lehrer^^ der mir was beibringt

Statusbar + Prozessbar

Statusbar + Prozessbar

Suche jemanden als Lehrer^^ der mir was beibringt

ATI Catalyst Installationsmanager

Suche jemanden als Lehrer^^ der mir was beibringt

ComboBox, immer letzten Eintrag zeigen