Beiträge von Greek

Greek

Zitat von Bio Drink

Es ist kein bot, denn wenn es einer wäre dann würde ich ja keine springen Funktion brauchen
Aber ich kann es trotzdem reinstellen.es ist aber noch lange nicht fertig.
mfg Bio

Du hast das Spiel also selber geschrieben?

Ja dann musst du auch schon mal nen Script reinstellen

Greek

Zitat von Bio Drink

Versteht ihr meine Frage nicht oder was ist der Grund warum mir keiner antwortet ?
Wenn ihr noch was bracuht vom Skript her oder so dann kann ich es euch gerne zur Verfügung stellen
mfg Bio

Joar dann mach mal, hört sich für mich so en bischen an wie en Bot.

Greek

Hm probiers mal so

[autoit]

ShellExecute ( "DivX Player.exe", "", @ProgramFilesDir & "\DivX\DivX Player" )

[/autoit]

ist nen bissel anders als deins.

Greek

[autoit]

If $var=1 Then
Mach1()
ElseIf $var=2
Mach1()
Mach2()
ElseIf $var=3
Mach1()
Mach2()
Mach3()
ElseIf $var=4
Mach2()
Mach4()
EndIf

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

Func Mach1()
bla und blub...
EndFunc

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

.
.
.

[/autoit]

In ne Schleife, ( die Funktionen nicht, die kommen immer ans Ende des Scripts ).

Greek

[autoit]

#include <GUIConstantsEx.au3>

[/autoit]

Greek

HAMMER!!!

thx

Gleich mal Archivieren =D

Greek

Zitat von progandy

Funktioniert das?

Spoiler anzeigen

[autoit]
Func _RectCollision($Rect1X1,$Rect1Y1,$Rect1X2,$Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long[4]"
Local $1 = DllStructCreate($tagRECT)
Local $2 = DllStructCreate($tagRECT)
Local $3 = DllStructCreate($tagRECT)
DllStructSetData($1,1,$Rect1X1)
DllStructSetData($1,2,$Rect1Y1)
DllStructSetData($1,3,$Rect1X2)
DllStructSetData($1,4,$Rect1Y2)
DllStructSetData($2,1,$Rect2X1)
DllStructSetData($2,2,$Rect2Y1)
DllStructSetData($2,3,$Rect2X2)
DllStructSetData($2,4,$Rect2Y2)
Local $r = DllCall("gdi32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
If @error Then Return SetError(1,0,0)
Return $r[0]<>0
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]

Als Parameter: 2 Rechtecke, jeweils: X/Y linker oberer Punkt, X/Y rechter unterer Punkt

Alles anzeigen

Habs jetzt so benutzt :

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

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

Global $StartPosiSpinneX=152
Global $StartPosiSpinneY=102
Global $StartPosiSchlangeX=898
Global $StartPosiSchlangeY=698
Global $SpinnenSpeed=2
Global $SchlangenSpeed=3
Global $SpinnenDicke=40
Global $SchlangenDicke=25

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

$hWnd=GUICreate ( "Mamba", 1100, 850 )
GUISetBkColor ( 0xABCDEF )
$Beenden=GUICtrlCreateButton ( "Beenden", 965, 740, 125, 100 )
GUISetState ()

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

Local $accel[4][2]= [["{UP}"],["{DOWN}"],["{LEFT}"],["{RIGHT}"]]
GUISetAccelerators($accel)

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
$HintergrundFeldFarbe=_GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$SpinneFarbe=_GDIPlus_BrushCreateSolid(0xFF00FF00)
$SchlangeFarbe=_GDIPlus_BrushCreateSolid(0xFFFF0000)

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

$temp=_GDIPlus_BrushCreateSolid(0xFF000000)

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

Sleep ( 20 )

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

$HintergrundFeld=_GDIPlus_GraphicsFillRect ( $hGraphic, 150, 100, 800, 650, $HintergrundFeldFarbe )
$SpielFeld=_GDIPlus_GraphicsDrawRect( $hGraphic, 148, 98, 802, 652 )
$DieSpinne=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
$DieSchlange=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSchlangeX, $StartPosiSchlangeY, $SchlangenDicke, $SchlangenDicke, $SchlangeFarbe )

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

GUIRegisterMsg ( 0x000F, "wm_paint" )
AdlibEnable('_Zyklus', 10)

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

While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_GDIPlus_BrushDispose ( $HintergrundFeldFarbe )
_GDIPlus_BrushDispose ( $SpinneFarbe )
_GDIPlus_BrushDispose ( $SchlangeFarbe )
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
Case $Beenden
_GDIPlus_BrushDispose ( $HintergrundFeldFarbe )
_GDIPlus_BrushDispose ( $SpinneFarbe )
_GDIPlus_BrushDispose ( $SchlangeFarbe )
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _Zyklus()
If _IsPressed('26') Then
_hoch()
ElseIf _IsPressed('28') Then
_runter()
ElseIf _IsPressed('25') Then
_links()
ElseIf _IsPressed('27') Then
_rechts()
EndIf
_CollisionMitSchlange()
EndFunc ;==>_Zyklus

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

Func _hoch()
If $StartPosiSpinneY-$SchlangenSpeed<=100 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY+38, $SpinnenDicke, 2, $HintergrundFeldFarbe )
$StartPosiSpinneY-=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _runter()
If $StartPosiSpinneY+50>=756 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, 2, $HintergrundFeldFarbe )
$StartPosiSpinneY+=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _links()
If $StartPosiSpinneX-$SpinnenSpeed<=150 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX+38, $StartPosiSpinneY, 2, $SpinnenDicke, $HintergrundFeldFarbe )
$StartPosiSpinneX-=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _rechts()
If $StartPosiSpinneX>=906 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, 2, $SpinnenDicke, $HintergrundFeldFarbe )
$StartPosiSpinneX+=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func wm_paint()
Sleep ( 10 )
$HintergrundFeld=_GDIPlus_GraphicsFillRect ( $hGraphic, 150, 100, 800, 650, $HintergrundFeldFarbe )
$SpielFeld=_GDIPlus_GraphicsDrawRect( $hGraphic, 148, 98, 802, 652 )
$DieSpinne=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
$DieSchlange=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSchlangeX, $StartPosiSchlangeY, $SchlangenDicke, $SchlangenDicke, $SchlangeFarbe )
EndFunc

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

Func _CollisionMitSchlange()
;~ ToolTip ( "Spinne X "&$StartPosiSpinneX&" Spinne Y "&$StartPosiSpinneY&" Schlange X "&$StartPosiSchlangeX&" Schlange Y "&$StartPosiSchlangeY )
;~ If $StartPosiSpinneY+51=$StartPosiSchlangeY Then
;~ FileOpen ( @ScriptDir&"\temp.txt", 9 )
;~ FileWrite ( @ScriptDir&"\temp.txt", "Collision" )
;~ EndIf
$return=_RectCollision ( $StartPosiSpinneX, $StartPosiSpinneY, $StartPosiSpinneX+40, $StartPosiSpinneY+40, $StartPosiSchlangeX, $StartPosiSchlangeY, $StartPosiSchlangeX+25, $StartPosiSchlangeY+25 )
If $return<>0 Then MsgBox ( 0, "", $return )
EndFunc

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

Func _RectCollision($Rect1X1,$Rect1Y1,$Rect1X2,$Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long[4]"
Local $1 = DllStructCreate($tagRECT)
Local $2 = DllStructCreate($tagRECT)
Local $3 = DllStructCreate($tagRECT)
DllStructSetData($1,1,$Rect1X1)
DllStructSetData($1,2,$Rect1Y1)
DllStructSetData($1,3,$Rect1X2)
DllStructSetData($1,4,$Rect1Y2)
DllStructSetData($2,1,$Rect2X1)
DllStructSetData($2,2,$Rect2Y1)
DllStructSetData($2,3,$Rect2X2)
DllStructSetData($2,4,$Rect2Y2)
Local $r = DllCall("gdi32.dll", "int", "IntersectRect", "ptr", DllStructGetPtr($3), "ptr", DllStructGetPtr($1), "ptr", DllStructGetPtr($2))
If @error Then Return SetError(1,0,0)
Return $r[0]<>0
EndFunc

[/autoit]

Aber passiert nix

Greek

Hallo,
Ich versuche gerade das Spiel Mamba zu programmieren.

Ich komm aber gerade bei der Collision nicht weiter, wie muss ich das machen?

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

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

Global $StartPosiSpinneX=152
Global $StartPosiSpinneY=102
Global $StartPosiSchlangeX=898
Global $StartPosiSchlangeY=698
Global $SpinnenSpeed=2
Global $SchlangenSpeed=3
Global $SpinnenDicke=40
Global $SchlangenDicke=25

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

$hWnd=GUICreate ( "Mamba", 1100, 850 )
GUISetBkColor ( 0xABCDEF )
$Beenden=GUICtrlCreateButton ( "Beenden", 965, 740, 125, 100 )
GUISetState ()

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

Local $accel[4][2]= [["{UP}"],["{DOWN}"],["{LEFT}"],["{RIGHT}"]]
GUISetAccelerators($accel)

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
$HintergrundFeldFarbe=_GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$SpinneFarbe=_GDIPlus_BrushCreateSolid(0xFF00FF00)
$SchlangeFarbe=_GDIPlus_BrushCreateSolid(0xFFFF0000)

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

$temp=_GDIPlus_BrushCreateSolid(0xFF000000)

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

Sleep ( 20 )

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

$HintergrundFeld=_GDIPlus_GraphicsFillRect ( $hGraphic, 150, 100, 800, 650, $HintergrundFeldFarbe )
$SpielFeld=_GDIPlus_GraphicsDrawRect( $hGraphic, 148, 98, 802, 652 )
$DieSpinne=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
$DieSchlange=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSchlangeX, $StartPosiSchlangeY, $SchlangenDicke, $SchlangenDicke, $SchlangeFarbe )

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

GUIRegisterMsg ( 0x000F, "wm_paint" )
AdlibEnable('_Zyklus', 10)

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

While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_GDIPlus_BrushDispose ( $HintergrundFeldFarbe )
_GDIPlus_BrushDispose ( $SpinneFarbe )
_GDIPlus_BrushDispose ( $SchlangeFarbe )
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
Case $Beenden
_GDIPlus_BrushDispose ( $HintergrundFeldFarbe )
_GDIPlus_BrushDispose ( $SpinneFarbe )
_GDIPlus_BrushDispose ( $SchlangeFarbe )
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd

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

Func _Zyklus()
If _IsPressed('26') Then
_hoch()
ElseIf _IsPressed('28') Then
_runter()
ElseIf _IsPressed('25') Then
_links()
ElseIf _IsPressed('27') Then
_rechts()
EndIf
_CollisionMitSchlange()
EndFunc ;==>_Zyklus

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

Func _hoch()
If $StartPosiSpinneY-$SchlangenSpeed<=100 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY+38, $SpinnenDicke, 2, $HintergrundFeldFarbe )
$StartPosiSpinneY-=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _runter()
If $StartPosiSpinneY+50>=756 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, 2, $HintergrundFeldFarbe )
$StartPosiSpinneY+=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _links()
If $StartPosiSpinneX-$SpinnenSpeed<=150 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX+38, $StartPosiSpinneY, 2, $SpinnenDicke, $HintergrundFeldFarbe )
$StartPosiSpinneX-=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func _rechts()
If $StartPosiSpinneX>=906 Then
Sleep ( 1 )
Else
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, 2, $SpinnenDicke, $HintergrundFeldFarbe )
$StartPosiSpinneX+=$SpinnenSpeed
_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
EndIf
EndFunc

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

Func wm_paint()
Sleep ( 10 )
$HintergrundFeld=_GDIPlus_GraphicsFillRect ( $hGraphic, 150, 100, 800, 650, $HintergrundFeldFarbe )
$SpielFeld=_GDIPlus_GraphicsDrawRect( $hGraphic, 148, 98, 802, 652 )
$DieSpinne=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSpinneX, $StartPosiSpinneY, $SpinnenDicke, $SpinnenDicke, $SpinneFarbe )
$DieSchlange=_GDIPlus_GraphicsFillRect ( $hGraphic, $StartPosiSchlangeX, $StartPosiSchlangeY, $SchlangenDicke, $SchlangenDicke, $SchlangeFarbe )
EndFunc

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

Func _CollisionMitSchlange()
ToolTip ( "Spinne X "&$StartPosiSpinneX&" Spinne Y "&$StartPosiSpinneY&" Schlange X "&$StartPosiSchlangeX&" Schlange Y "&$StartPosiSchlangeY )
If $StartPosiSpinneY+51=$StartPosiSchlangeY Then
FileOpen ( @ScriptDir&"\temp.txt", 9 )
FileWrite ( @ScriptDir&"\temp.txt", "Collision" )
EndIf
EndFunc

[/autoit]

Greek

[autoit]

$handlee=ControlGetHandle ( "dsfsgjaiflslif", "", "" )

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

For $i=1 To 50 Step +1
SetPixel ( $handlee, @DesktopWidth/2+$i, @DesktopHeight/2+$i, 0xFF0000 )
Next

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

Func SetPixel ($handle, $x, $y, $color)
$dc= DllCall ("user32.dll", "int", "GetDC", "hwnd", $handle)
$setpixel= DllCall ("gdi32.dll", "long", "SetPixel", "long", $dc[0], "long", $x, "long", $y, "long", $color)
$realesedc= DllCall ("user32.dll", "int", "ReleaseDC", "hwnd", 0, "int", $dc[0])
EndFunc

[/autoit]

Nen Strich^^

Greek

Hier auch noch nen Beispiel Disco auf dem Desktop =)

und einzelne Pixel kannst du mit der Funktion einfärben:

[autoit]

Func SetPixel ($handle, $x, $y, $color)
$dc= DllCall ("user32.dll", "int", "GetDC", "hwnd", $handle)
$setpixel= DllCall ("gdi32.dll", "long", "SetPixel", "long", $dc[0], "long", $x, "long", $y, "long", $color)
$realesedc= DllCall ("user32.dll", "int", "ReleaseDC", "hwnd", 0, "int", $dc[0])
EndFunc

[/autoit]

Greek

Zitat von BugFix

Also wenn deswegen jemand verärgert ist, dann ist derjenige sicher nicht lange im Forum dabei. Sonst wüßte er, zumindest vom Mitlesen, dass hier sehr zügig reagiert wird.
Ich denke nicht, dass wir da etwas ändern müssen.

Naja hier mal nen Beispiel

[ gelöst ] Hotkey & Remote- und ICA-Sitzungen

Greek

[autoit]

For $i=0 to UBound($UDFs,1)-1 Step 4
$Item2[$i]=GUICtrlCreateListViewItem($UDFs[$i]&"|"&$UDFs[$i+1]&"|"&$UDFs[$i+2]&"|-",$List2)
Next

[/autoit]

So oder wie? ( $item2 ist nun auch ein Array )

Greek

Jo das mit den 4 Stunden war ja auch aus nem anderem Forum als Beipspiel, da sind auch ca 600 user gleichzeitig on.

Find halt nur blöd wenn Leute deswegen verärgert sind, aber es keine Regel dafür gibt.

Greek

Hallo,

Ich finde eine Push/Bump Regel für das Forum ganz nützlich, hab ich am Anfang auch gesucht.

Also z.B. Bump Rule = 4 h, jede 4 Stunden darf man in seinen Thread, Bump schreiben damit er wieder oben ist.

( Bump = Bring up my Post )

Greek

Jo bei mir ist es das selbe, weis auch nicht warum das so ist, lass es doch einfach mit _GDIPlus_GraphicsDrawImageRect zeichnen?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GDIPlus.au3>

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

HotKeySet ( "{ESC}", "_ende" )

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

_GDIPlus_Startup()

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

Global $hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUISetState()
Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGui)

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

$image=_GDIPlus_ImageLoadFromFile(@scriptdir&"\bild1FALSCH.png")
;~ $image=_GDIPlus_ImageLoadFromFile(@ScriptDir&"\bild2RICHTIG.png")
_GDIPlus_GraphicsDrawImageRect($hGraphic, $image, 0, 0, 1500, 1500 )

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

;~ _GDIPlus_GraphicsDrawImage( $hGraphic,$image, 0, 0 )

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

While 1
$msg=GUIGetMsg()
Switch $msg
Case $Gui_event_close
Exit
EndSwitch
WEnd

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

Func _ende()
_GDIPlus_ImageDispose ( $image )
_GDIPlus_GraphicsDispose ( $hGraphic )
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
; progandy
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

[/autoit]

Greek

Guck doch in die Hilfe ( F1 )
brauchst #include <misc.au3>

Greek

Nimm doch _Ispressed statt nen Hotkey?

Greek

[autoit]

Do
Sleep(20)
Until GUIGetMsg() = -3

[/autoit]

Ist das irgendwie besser, oder warum machen das manche hier so?

Greek

Man, mein Micro geht nicht mehr seitdem ich das ausgeführt habe =(

Edit: Das hat einfach mein Micro ganz leise gestellt, habs jetzt wieder hingegrigt.

Greek

Spoiler anzeigen

[autoit]

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

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

Opt ( "GuiOnEventMode", 1 )

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125, $WS_POPUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_PrimeDown")

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

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

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

EndSwitch
WEnd

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

Func _PrimeDown()
Local $DifX, $DifY, $MouseData = GUIGetCursorInfo(@GUI_WinHandle)
Local $WinPos = WinGetPos(@GUI_WinHandle)
Local $MPos = MouseGetPos()
$DifX = $MPos[0] - $WinPos[0]
$DifY = $MPos[1] - $WinPos[1]
Do
Sleep(15)
$MPos = MouseGetPos()
$MouseData = GUIGetCursorInfo(@GUI_WinHandle)
Until ($WinPos[0] <> ($MPos[0] - $DifX)) Or ($WinPos[1] <> ($MPos[1] - $DifY)) Or (Not $MouseData[2])
;~ GUICtrlSetCursor($background, 9)
While $MouseData[2]
$MPos = MouseGetPos()
$WinPos = WinGetPos(@GUI_WinHandle)
If ($WinPos[0] <> ($MPos[0] - $DifX)) Or ($WinPos[1] <> ($MPos[1] - $DifY)) Then
WinMove(@GUI_WinHandle, '', $MPos[0] - $DifX, $MPos[1] - $DifY)
EndIf
Sleep(15)
$MouseData = GUIGetCursorInfo(@GUI_WinHandle)
WEnd
;~ GUICtrlSetCursor($background, 2)
EndFunc ;==>_PrimeDown

[/autoit]

Beiträge von Greek

Springen Funktion

Springen Funktion

DivX Player läßt sich nicht starten

Schleifen-Problem

Schliesungsproblem

Collision Berechnen

Collision Berechnen

Collision Berechnen

Pixel einfärben, guis und bitmaps???

Pixel einfärben, guis und bitmaps???

Push regel fehlt

Gui-Problem :(

Push regel fehlt

Push regel fehlt

GDI verkleinert Bild. Wieso?

Skript blokiert Entertaste + Traymenü pausiert Programm

Skript blokiert Entertaste + Traymenü pausiert Programm

GUI bewegen

lol

GUI bewegen