Beiträge von Jam00

  • Einfache GUI-Fragen - für Neuling

    So erstellt man ein Fenster ohne die Drei Standartbutton in der Titelleiste:

    Spoiler anzeigen
    [autoit]

    #Region ### START Koda GUI section ### Form=
    $hWnd2 = GUICreate("Einstellungen", 633, 447, 193, 125,0x00C00000);Hier der Style ist dafür verantwortlich
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

  • Einfache GUI-Fragen - für Neuling

    Zu erstens:
    Frage 1
    Ja man kann das X-Icon abfragen! Der Wert für den Button -3!
    Frage 2
    Ja, du musst den Button einfach nicht abfragen ;)

    Um etwas in die Zwichschenablage zu bekommen guck dir mal die Funtion "ClipPut" an

    Zu drittens
    1. Guck dir mal "GUIDelete" an

    4 kapier ich nicht^^

  • Speaker

    Kannst ja noch einen Sprach Down- und Uploader schreiben, damit jeder der eine neue sprache hat die Hochladen kann und die Andern die auch runterladen können^^

  • Wie Buttons zu weisen

    Und was geht da jetzt nicht?
    Ich denke mal du meinst, das wenn du den Ersten anklicks das die Anderen nicht mehr gehen oder?
    Das liegt daran das du die Button dann nicht mehr überprüfst, weil du eine While laufen lässt, dann muss du das entweder anders löschen mit der While oder du nimmst einfach OnEventMode

  • brauche mal eure hilfe

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("test", 1012, 455, -1, -1,0x00010000+0x00020000)
    $Button1 = GUICtrlCreateButton("Button1", 8, 8, 75, 25,0)
    GUICtrlSetResizing ( -1, 802)
    $Button2 = GUICtrlCreateButton("Button2", 88, 8, 75, 25,0)
    GUICtrlSetResizing ( -1, 802)
    $Button3 = GUICtrlCreateButton("Button3", 168, 8, 75, 25, 0)
    GUICtrlSetResizing ( -1, 802)
    $Button4 = GUICtrlCreateButton("Button4", 248, 8, 75, 25, 0)
    GUICtrlSetResizing ( -1, 802)
    $Button5 = GUICtrlCreateButton("Button5", 328, 8, 75, 25, 0)
    GUICtrlSetResizing ( -1, 802)
    $Button6 = GUICtrlCreateButton("Button6", 592, 8, 75, 25, 0)
    GUICtrlSetResizing ( -1, 802)
    $Combo1 = GUICtrlCreateCombo("http://", 424, 8, 161, 25)
    GUICtrlSetResizing ( -1, 802)
    $Combo2 = GUICtrlCreateCombo("Suchoptionen", 696, 8, 97, 25)
    GUICtrlSetResizing ( -1, 802)
    $Input1 = GUICtrlCreateInput("Input1", 800, 8, 121, 21)
    GUICtrlSetResizing ( -1, 802)
    $Button7 = GUICtrlCreateButton("Button7", 928, 8, 75, 25, 0)
    GUICtrlSetResizing ( -1, 802)
    $MenuItem1 = GUICtrlCreateMenu("MenuItem1")
    $MenuItem2 = GUICtrlCreateMenuItem("MenuItem2", $MenuItem1)
    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]

    EndSwitch
    WEnd

    [/autoit]

  • Fehler bei Obfuscator

    Upsa, die Opt habe ich in dem Script vergessen, aber in einem Anderen habe ich die drin und da geht es nicht! Ich kann es leider auch ncoht postet, da es das script für den Wettbewerb April ist

  • Fehler bei Obfuscator

    Ich habe einen fatlen Fehler beim Obfuscator gefunden! Wenn man TrayItemSetOnEvent benutzt geht es nicht mehr, also das Compielierte script!

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Run_Obfuscator=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    TrayItemSetOnEvent ( TrayCreateItem ("Beenden"), "_Beenden" )
    While 1
    Sleep (100)
    WEnd
    Func _Beenden()
    Exit
    EndFunc

    [/autoit]

  • Kreis berechnen

    anno2008
    Perfekt, diesmal hast du richtig geraten^^ ganu was ich meinte 8o

    Ja, ich weiß das ich mehr mach muss, aber dieses form von Matte ist echt noch zu hoch für mich X(

    Vielen dank vor allem an Anno2008 und auch an die Anderen!
    Super THX

  • Kreis berechnen

    Ja genau das möchte ich^^
    Ja ich habe doch gesagt ist scheiße zu erklären^^
    Ja und ich habe gesagt ich Probiere es^^
    Wenn ich es nicht schaffe melde ich mich nochmal, das ist aber schon echt gut

    Also ich habe es bis jetzt so:

    Spoiler anzeigen
    [autoit]

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

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

    $hWnd = GUICreate("Form1", 105, 105, 193, 125, $WS_POPUP)
    GUISetState(@SW_SHOW)

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

    Global $a, $b, $bufferarray[2]

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

    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $Pen1 = _GDIPlus_PenCreate(0xFF0000FF, 5)
    $Pen2 = _GDIPlus_PenCreate(0xFFFF0000, 5)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 0, 360, $Pen1)
    $posOld = 0
    $pos2Old = 0
    While 1
    $pos = MouseGetPos()

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

    If ($pos[0] <> $bufferarray[0]) And ($pos[1] <> $bufferarray[1]) Then
    $a = (125 + 50) - $pos[1]
    $b = (193 + 50) - $pos[0]
    $winkel = (-1) * _Atan($b / $a)
    If $a > 0 Then $winkel += 180
    If $winkel < 0 Then $winkel += 360
    _redraw($winkel)
    $bufferarray[0] = $pos[0]
    $bufferarray[1] = $pos[1]
    EndIf

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case - 3
    Exit
    EndSwitch
    WEnd

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

    Func _redraw($pos)
    If $pos - 90 <= $posOld And $pos > 0 And $pos2Old < 90 Then
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 0, 360, $Pen1)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 90, $pos, $Pen2)
    $posOld = $pos
    If $pos <= 360 And $pos >= 345 Then
    MsgBox (0,"","")
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 0, 360, $Pen1)
    $posOld = 0
    EndIf
    EndIf
    EndFunc ;==>_redraw

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

    Func _Atan($num)
    $radToDeg = 180 / (4 * ATan(1))
    Return ATan($num) * $radToDeg
    EndFunc ;==>_Atan

    [/autoit]

  • Kreis berechnen

    Oki, THX, das ist cool! :thumbup::thumbup:
    Eine frage noch:
    Wie bekomme ich es hin, das wenn man z.b. mehr als 108 gedreht hat, das es dann nur noch in die eine Richtung geht, weil so springt es immer

    Spoiler anzeigen
    [autoit]

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

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

    $hWnd = GUICreate("Form1", 105, 105, 193, 125, $WS_POPUP)
    GUISetState(@SW_SHOW)

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

    Global $a, $b, $bufferarray[2]

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

    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $Pen1 = _GDIPlus_PenCreate(0xFF0000FF, 5)
    $Pen2 = _GDIPlus_PenCreate(0xFFFF0000, 5)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 0, 360, $Pen1)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 90, 90, $Pen2)

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

    While 1
    $pos = MouseGetPos()
    If ($pos[0] <> $bufferarray[0]) And ($pos[1] <> $bufferarray[1]) Then
    $a = (125 + 50) - $pos[1]
    $b = (193 + 50) - $pos[0]
    $winkel = 180 - (90 + _Atan($b / $a))
    If $a > 0 Then $winkel = $winkel + 180
    _redraw($winkel - 45)
    $bufferarray[0] = $pos[0]
    $bufferarray[1] = $pos[1]
    EndIf

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case - 3
    Exit
    EndSwitch
    WEnd

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

    Func _redraw($pos)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100, 0, 360, $Pen1)
    _GDIPlus_GraphicsDrawArc($hGraphic, 2, 2, 100, 100,90 , $pos, $Pen2)
    EndFunc ;==>_redraw

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

    Func _Atan($num)
    $radToDeg = 180 / (4 * ATan(1))
    Return ATan($num) * $radToDeg
    EndFunc ;==>_Atan

    [/autoit]