Beiträge von Greek

Greek

Kannst ja den Title des Fenster ändern mit WinSetTitle... oder SplashTextOn, oder einfach selber ne GUI machen.

oder MiniGUI, weis nicht mehr von wem die war, ist aber sehr schön für kurze Nachrichten:

Spoiler anzeigen

[autoit]

_MiniGUI("Hallo Welt", "Hallo Welt!", 10000, 0x000000, 0xFFFFFF)

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

Func _MiniGUI($Titel, $Text, $Wait, $Color1, $Color2)
$MINI_GUI_Transwert = 255
$MINI_GUI_dif = 0

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

$MINI_GUI = GUICreate("MINI_GUI", 250, 200, @DesktopWidth - 270, @DesktopHeight, 0x80000000, 0x00000080)
GUISetState(@SW_SHOW, $MINI_GUI)
GUISetBkColor($Color1, $MINI_GUI)

$MINI_GUI_Titel = GUICtrlCreateLabel($Titel, 50, 20, 150)
GUICtrlSetFont($MINI_GUI_Titel, 16)
GUICtrlSetColor($MINI_GUI_Titel, $Color2)

$MINI_GUI_Text = GUICtrlCreateLabel($Text, 50, 65)
GUICtrlSetColor($MINI_GUI_Text, $Color2)

$MINI_GUI_Line1 = GUICtrlCreateLabel ("", 0, 0, 250, 1)
GUICtrlSetColor($MINI_GUI_Line1, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line1, $Color2)

$MINI_GUI_Line2 = GUICtrlCreateLabel ("", 0, 0, 1, 200)
GUICtrlSetColor($MINI_GUI_Line2, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line2, $Color2)

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

$MINI_GUI_Line3 = GUICtrlCreateLabel ("", 249, 0, 1, 200)
GUICtrlSetColor($MINI_GUI_Line3, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line3, $Color2)

$MINI_GUI_LineMiddle = GUICtrlCreateLabel ("", 25, 50, 200, 3)
GUICtrlSetColor($MINI_GUI_LineMiddle, $Color2)
GUICtrlSetBkColor($MINI_GUI_LineMiddle, $Color2)

WinMove ( "MINI_GUI", "", @DesktopWidth - 270, @DesktopHeight - 200, 250, 200, 5)

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

$MINI_GUI_begin = TimerInit()

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

Do
$MINI_GUI_dif = TimerDiff($MINI_GUI_begin)
$aMousePos1 = MouseGetPos()
$aWinPos1 = WinGetPos(WinGetTitle($MINI_GUI))
If $MINI_GUI_dif > $Wait/5 And $MINI_GUI_dif < $Wait/4 Then
Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
Until $MINI_GUI_Transwert = 200
EndIf
If $aMousePos1[0] > $aWinPos1[0] AND $aMousePos1[0] < $aWinPos1[0] + 250 AND $aMousePos1[1] > $aWinPos1[1] AND $aMousePos1[1] < $aWinPos1[1] + 200 Then
$MINI_GUI_begin = TimerInit()
If $MINI_GUI_Transwert < 255 Then
Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert + 1
Until $MINI_GUI_Transwert = 255
EndIf
EndIf
Until $MINI_GUI_dif > $Wait

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

Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
Until $MINI_GUI_Transwert = 0
GUIDelete($MINI_GUI)
EndFunc

[/autoit]

Der_Doc:

Zitat

Die if-schleife würde ich rausnehmen.

Mein Lehrer würde dich jetzt tot hauen

Greek

Cooles Spiel, das musst du unbedingt noch erweitern

Würde noch an einen Ausgang setzen, hatte ein paar Anläufe gebraucht bis ich das kapiert hab warum das Fenster ständig direkt wieder zu geht.

und Fehler mit Zählen wär auch cool, könntest das ja so ungefaire machen:

Spoiler anzeigen

[autoit]

Dim $Edit[21]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\AutoIt3\SciTE\Koda\Forms\Game1.kxf

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

Global $Fehler = 0

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

$Form1 = GUICreate("Berühre keine Schwarzen Kästen!", 378, 227, Default, Default)
GUISetBkColor(0x004E98)
GUISetCursor("3")
$Edit[0] = GUICtrlCreateEdit("", 0, 0, 41, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[1] = GUICtrlCreateEdit("", 0, 112, 41, 113, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[2] = GUICtrlCreateEdit("", 88, 80, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[3] = GUICtrlCreateEdit("", 144, 0, 57, 73, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[4] = GUICtrlCreateEdit("", 40, 144, 57, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[5] = GUICtrlCreateEdit("", 160, 128, 17, 97, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[6] = GUICtrlCreateEdit("", 184, 72, 17, 57, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[7] = GUICtrlCreateEdit("", 176, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[8] = GUICtrlCreateEdit("", 200, 112, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[9] = GUICtrlCreateEdit("", 264, 144, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[10] = GUICtrlCreateEdit("", 304, 64, 49, 81, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[11] = GUICtrlCreateEdit("", 216, 64, 89, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[12] = GUICtrlCreateEdit("", 256, 32, 73, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[13] = GUICtrlCreateEdit("", 200, 0, 25, 49, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[14] = GUICtrlCreateEdit("", 224, 0, 89, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[15] = GUICtrlCreateEdit("", 312, 0, 65, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[16] = GUICtrlCreateEdit("", 184, 168, 33, 33, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[17] = GUICtrlCreateEdit("", 40, 0, 105, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[18] = GUICtrlCreateEdit("", 40, 208, 121, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[19] = GUICtrlCreateEdit("", 360, 16, 17, 209, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
$Edit[20] = GUICtrlCreateEdit("", 176, 208, 185, 17, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_SetzeAusgang()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$Mouse = GUIGetCursorInfo()
For $i = 0 To 20
If $Mouse[4] = $Edit[$i] Then
If $Mouse[4] = $Edit[16] Then
MsgBox(0, "Herzlichen Glückwunsch!", "Du hast mit " & $Fehler & " Fehlern gewonnen! Bekommst 'nen Keks :)")
Exit
Else
$Fehler += 1
MsgBox(0, "Fehler!", "Das war Fehler Nummer: " & $Fehler & ", probieren Sie es erneut")
_SetzeAusgang()
EndIf
EndIf
Next
WEnd

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

Func _SetzeAusgang()
$pos = WinGetPos($Form1)
MouseMove($pos[0], $pos[1] + ($pos[3] / 2), 0)
EndFunc ;==>_SetzeAusgang

[/autoit]

Gruss Greek

Greek

StringFormat ist schöner

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("", 220, 240, -1, -1)

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

$Date = GUICtrlCreateMonthCal("", 10, 10, 200, 200)

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

GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Date
$split = StringSplit(GUICtrlRead(-1, $Date),"/")
MsgBox(0,"",StringFormat("%d.%d.%d",$split[3],$split[2],$split[1]))
EndSwitch
WEnd

[/autoit]

Greek

Geht bei Spielen voll oft nicht

Probiers mal so:

[autoit]

_RunEx("D:\Programme\Pocket Tanks Deluxe\pockettanks.exe")

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

Func _RunEx($pfad)
;Greek
$split = StringSplit($pfad,"\")
ShellExecute($split[UBound($split)-1],"", StringTrimRight($pfad,StringLen($split[UBound($split)-1])+1))
EndFunc

[/autoit]

Greek

[autoit]

Beep(500, 1000)

[/autoit]

Greek

Win XP 32 Bit

Greek

Hi SEuBo,

wenn ich ESC drück bekomm ich einen schwarzen Rahmen und muss Explorer beenden und neu starten.

Und wenn man noch oben über 255 Scrollt flimmert es stark schwarz.

Gruss Greek

Greek

Habs ihm zwar schon in der Shoutbox geschrieben, aber post es nochmal, falls einer mit der Forumssuche das selbe finden will.

[autoit]

_MouseClickEx("left",63,99,2)

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

Func _MouseClickEx($button,$x=-1,$y=-1,$clicks=1)
Local $pos = MouseGetPos()
If $x = -1 Then $x = $pos[0]
If $y = -1 Then $y = $pos[1]
MouseClick($button,$x,$y,$clicks,0)
MouseMove($pos[0],$pos[1],0)
EndFunc

[/autoit]

Greek

Achso ,

Treiber sind bei mir leider alle schon Aktuell, ab dem Alpha Channel 80 läuft es nach 3 Sekunden gehänge aufeinmal flüssig, bei 79 hängt es dauerhaft, sehr komische Sachen, hoffe die fixen das mal.

Greek

Komisch, bei mir hängts das alles extrem stark, hat keiner das Problem??

Glaub das liegt hier dran

[autoit]

$brush = _GDIPlus_BrushCreateSolid(0x10000000); Erstellt ein vollfarbiges Pinselobjekt

[/autoit]

Wenn ich das 10 auf FF stelle läuts wieder flüssig...

Greek

Probiers mal so:

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$GUIFenster = GUICreate("Hello", 1024, 638)
$GUIBild = GUICtrlCreatePic("D:\Spiele\GUILD WARS\Screens\gw053.jpg", 0,0,1024,638)
GUICtrlSetState(-1,$GUI_DISABLE)
$GUIButton = GUICtrlCreateButton("Hier klicken ;)", 250,250)
$Button = GUICtrlCreateButton("gehts?", 350, 200, 50, 20)
GUISetState(@SW_SHOW)

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

While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
exit 0
Case $MSG = $GUIButton
MsgBox(0, "Button", "Geht")
Case $MSG = $Button
MsgBox(0, "Button", "Geht")
EndSelect
WEnd

[/autoit]

Greek

[autoit]

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

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

$MainGUI=GUICreate("",150,270,-1,-1,$WS_POPUP)
GUICtrlCreatePic(@ScriptDir&"\iPhone.png",0,0,150,270)
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState()

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

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

[/autoit]

Edit: Kannst ja das untere wegschneiden und die Ecken noch Runden, sieht es besser aus:

Spoiler anzeigen

[autoit]

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

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

$MainGUI=GUICreate("",150,258,-1,-1,$WS_POPUP)
GUICtrlCreatePic(@ScriptDir&"\iPhone.png",0,0,150,270)
GUICtrlSetState(-1,$GUI_DISABLE)
_GuiRoundCorners($MainGUI,0,0,40,40)
GUISetState()

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

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

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

Func _GuiRoundCorners($hWnd, $x1, $y1, $x3, $y3)
Local $pos, $ret, $ret2
$pos = WinGetPos($hWnd)
$ret = DllCall('gdi32.dll', 'long', 'CreateRoundRectRgn', 'long', $x1, 'long', $y1, 'long', $pos[2], 'long', $pos[3], 'long', $x3, 'long', $y3)
If $ret[0] Then
$ret2 = DllCall('user32.dll', 'long', 'SetWindowRgn', 'hwnd', $hWnd, 'long', $ret[0], 'int', 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc

[/autoit]

Greek

Ich hab irgendwie einen Bug...

Es ist recht langsam, aber wenn ich ein anderes Fenster rumziehe läuft es perfekt

Greek

Mit SmoothingMode siehts noch mal besser aus

Spoiler anzeigen

[autoit]

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

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

Global Const $width = 600
Global Const $height = 600
Global $graphics, $backbuffer, $bitmap, $Pen, $i = 10, $bool = 0
Global $title = "Lines and Quadrates by Simon"
Global $color[4] = [0xFF000FFF,0xFFF00000,0xFFFFF000,0xFFF000FF]

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

Opt("GUIOnEventMode", 1)
$hwnd = GUICreate($title, $width, $height, -1, -1, $WS_POPUP)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUISetState()

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

_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd) ;erstelle GDI+ Objekt von der GUI (Grafik)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics) ;erstelle Bitmap von der Grafik
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap) ;erstelle Grafik Kontext von der Bitmap (dient für die Doppeltbufferung der Grafik, damit die Bewegungen flüssiger aussehen
$pen = _GDIPlus_PenCreate(0, 5) ;erstelle Stift mit der Stärke 4 Pixels
_GDIPlus_GraphicsSetSmoothingMode($backbuffer, 2) ; damit wirds noch besser dargestellt

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

Do
_GDIPlus_GraphicsClear($backbuffer) ;lösche Buffer
_GDIPlus_PenSetColor($Pen, _Color()) ;setze Stiftfarbe ;# weis +++++++++++++++++++++++++
_GDIPlus_GraphicsDrawLine($backbuffer, 10, 10, $i, 10, $Pen) ;ziehe 1. Linie
_GDIPlus_GraphicsDrawLine($backbuffer, 10, 590, 10, 600 - $i, $Pen) ;ziehe 2. Linie
_GDIPlus_GraphicsDrawLine($backbuffer,590,10,590,$i,$Pen);Ziehe 3. Linie
_GDIPlus_GraphicsDrawLine($backbuffer,600 - $i,590,590,590 ,$Pen) ;Ziehe Dritte Linie
;Square
_GdiPlus_PenSEtColor($Pen,_Color())
_GDIPlus_GraphicsDrawLine($backbuffer,$i,10,10,600-$i,$Pen)
_GdiPlus_PenSEtColor($Pen,_Color())
_GDIPlus_GraphicsDrawLine($backbuffer,10,600-$i,600-$i,590,$Pen)
_GdiPlus_PenSEtColor($Pen,_Color())
_GDIPlus_GraphicsDrawLine($backbuffer,590,$i,600 - $i,590,$Pen)
_GdiPlus_PenSEtColor($Pen,_Color())
_GDIPlus_GraphicsDrawLine($backbuffer,$i,10,590,$i,$Pen)
;Square Endet

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

_GDIPlus_PenSetColor($Pen,0xFFFFFFFF)
;_GDIPlus_GraphicsDrawLine($backbuffer,10,,$Pen)
_GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $width, $height) ;das Zeichnen hat im Buffer stattgefunden. Damit das Ganze sichtbar wird, kopiere den Buffer (Bitmap) in den sichtbaren Bereich
If Not $bool And $i < 590 Then
$i += 5
Else
$bool = 1
EndIf
If $bool And $i > 10 Then
$i -= 5
Else
$bool = 0
EndIf
Sleep(40)
Until False

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

Func close()
_GDIPlus_PenDispose($pen)
_GDIPlus_GraphicsDispose($backbuffer)
_GDIPlus_BitmapDispose($bitmap)
_GDIPlus_GraphicsDispose($graphics)
_GDIPlus_Shutdown()
WinClose($hwnd)
Exit
EndFunc

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

Func _Color()
$random = Random(0,4)
return '0xFF' & Hex(Random(1, 255, 1), 2) & Hex(Random(1, 255, 1), 2) & Hex(Random(1, 255, 1), 2)
EndFUnc

[/autoit]

Gruss Greek

Greek

Zitat von SEuBo

lol. Das ist ja echt eine Dreistigkeit hoch 10. Entweder *Threadersteller bekannt* ist ziemlich belämmert oder selbiger denkt, dass wir es sind.

Edit:

Falsch. Wenn du möchtest Zeig ich dir auch gerne wie er das Problem mit einer einzigen Zeile Code in den Griff bekommt. Werd ich aber mit sicherheit nicht tun

Das will ich sehen, schreib mal ne PM, selbst im OnEventMode geht es nicht.

Greek

Zitat von Nathan

Die Buttons funtionieren alle (bis auf den pause button das ist mein erstes problem ich möchte, dass man das skript pausieren kann), aber wenn ich nun auf start drücke startet ja die while schleife und der pause und exit button funkt nicht mehr.

Edit : nvm, seh gerade das es für einen Bot ist, tut mir leid da kann/darf ich nicht helfen

Greek

Also erst mal zur 1, den Rest editier ich vieleicht noch :

1.

Zitat

Setzt einen HotKey, um eine selbsterstellte Funktion aufzurufen.

HotKeySet ("key" [,"function"] )

Parameter

key Die Tastenkombination für den HotKey im gleichen Format wie Send().
function [optional] Der Name der aufzurufenden Funktion. Wird der Parameter nicht angegeben, wird der vorher gesetzte HotKey gelöscht.

Edit:
zur 2:
AdlibEnable z.B. nehmen:

Spoiler anzeigen

[autoit]

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

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

$Fenster = GUICreate("Fenster", 243, 119, 372, 194)
$Button = GUICtrlCreateButton("Button", 64, 56, 75, 25, 0)
GUISetState(@SW_SHOW)

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

AdlibEnable("_farbe",1000) ; 1000 = wird jede sekunde aufgerufen, benötigt keine schleife!

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
MsgBox(0,"","Du hast den Button gedrückt")
EndSwitch
WEnd

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

Func _farbe()
$Farbe=PixelGetColor(75,44)
EndFunc

[/autoit]

Edit 3:
sooo,
und zur 3 :

Spoiler anzeigen

[autoit]

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

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

$Fenster = GUICreate("Fenster", 152, 46, 456, 225)
$Slider = GUICtrlCreateSlider(0, 0, 150, 45)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider
MsgBox(0,"Da fummelt jemand am Slider rum!","Wert wurde geändert auf "& GUICtrlRead($Slider))
EndSwitch
WEnd

[/autoit]

Hoffe konnte dir helfen
Gruss Greek

Greek

Hi,

bei mir Funktioniert dein Spiel nicht, ich grig nur ein Schwarzen Hintergrund

zur Collisions Abfrage benutz ich immer das hier:

Spoiler anzeigen

[autoit]

Func _RectCollision($Rect1X1,$Rect1Y1,$Rect1X2,$Rect1Y2, $Rect2X1, $Rect2Y1, $Rect2X2, $Rect2Y2)
; Prog@ndy
Local Const $tagRECT = "long;long;long;long"
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("User32.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]

Greek

Zitat von DeepRed92

Ich dachte der Code von AspirinJunkie sieht professioneller aus . Aber ich glaub ich benutze lieber Deinen Code. Ist es eigentlich möglich, den Pfad per Registry auszulesen?

Naja wer weis was in

[autoit]

@AppDataDir

[/autoit]

alles drin steckt , deshalb geht es ja überall

Greek

Bei mir Funktionierts auch nicht...

Edit: Meine Methode hat doch überall Funktioniert, warum nimmste die nicht?

Beiträge von Greek

Tastatur und Maus während der Installation sperren ?

Namenloses Spiel

Datumsausgabe

Pfadangabe - Was beachten?

Signalton bei PixelGetColor

Window-Transparency v2

Window-Transparency v2

Doofe kurze Frage

GDI+ Beispiel: Drehende Dreiecke + Drehende Quadrate

GDI+ Beispiel: Drehende Dreiecke + Drehende Quadrate

GUI Botton funktioniert irgendwie nicht?!

Bild als GUI

GDI+ Beispiel: Drehende Dreiecke + Drehende Quadrate

GDI Plus Script Sammlung von Simon

Hilfe bei Gui gesucht!!

Hilfe bei Gui gesucht!!

Einige Fragen...

Gute Collisionsabfrage gesucht???

"Quicklaunch" Pfad auslesen?

"Quicklaunch" Pfad auslesen?