1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Greek

Beiträge von Greek

  • Hilfe Kann Man Eigentlich ein programm aktuallisieren denn man grade schreibt

    • Greek
    • 23. April 2009 um 18:02
    Zitat von Harun27

    was?

    Koda macht dir deine Gui wie bei Delphi.

    Haste Scite runtergeladen und installiert? Wenn ja drück alt+m in deinem Script und Koda wird sich öffnen.

  • Hilfe Kann Man Eigentlich ein programm aktuallisieren denn man grade schreibt

    • Greek
    • 23. April 2009 um 17:59

    Koda?

  • _DrawTransparent

    • Greek
    • 23. April 2009 um 11:37

    So nochmal verbessert, wie findet ihr es?

    Edit: Ist aber noch nicht fertig, mach noch mehr dazu :)

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 22. April 2009 um 23:28

    Ich hab da mal ne UDF jetzt für geschrieben:

    _DrawTransparentEllipse/Rect

    Musst bissel ausprobieren wie du das machst, hab jetzt keine Zeit mehr hab den ganzen Abend dadran gehongen und muss jetzt schlafen ;)

    Noch nen Hinweis:
    GUICtrlSetGraphic gibt es auch noch $GUI_GR_MOVE x,y Move the current position without drawing. Vieleicht damit.

    Gute Nacht^^

  • _DrawTransparent

    • Greek
    • 22. April 2009 um 23:25

    Hiho,

    Anleitung

    Spoiler anzeigen
    [autoit]

    ;===============================================================================
    ;
    ; Function Name:
    ; _DrawTransparentEllipse
    ; Description:: Let you draw a transparent Ellipse
    ; Parameter(s):
    ; $hwnd - Handle of GUI to work on
    ; $x - Postion x of the Ellipse
    ; $y - Postion y of the Ellipse
    ; $w - Width of the Ellipse
    ; $h - Height of the Ellipse, If w=h it will be a circle.
    ; $Transparency - Set Transparancy of GUI ( optional )
    ; Requirement(s): The Styles $WS_EX_COMPOSITED $WS_EX_LAYERED
    ; Return Value(s): Returns a windows handle.
    ; Author(s): Greek, martin
    ; Example : Yes
    ;===============================================================================

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

    ;===============================================================================
    ;
    ; Function Name:
    ; _DrawTransparentRect
    ; Description:: Let you draw a transparent Rect
    ; Parameter(s):
    ; $hwnd - Handle of GUI to work on
    ; $x - Postion x of the Rect
    ; $y - Postion y of the Rect
    ; $w - Width of the Rect
    ; $h - Height of the Rect, If w=h it will be a square.
    ; $Transparency - Set Transparancy of GUI ( optional )
    ; Requirement(s): The Styles $WS_EX_COMPOSITED $WS_EX_LAYERED
    ; Return Value(s): Returns a windows handle.
    ; Author(s): Greek, martin
    ;===============================================================================

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

    ;===============================================================================
    ;
    ; Function Name:
    ; _DrawTransparentLine
    ; Description:: Let you draw a transparent Line
    ; Lines must be drawed first and can't used dynamical!!.
    ; Parameter(s):
    ; $hwnd - Handle of GUI to work on
    ; $x - Postion x of the Line
    ; $y - Postion y of the Line
    ; $length - length of the Line
    ; $course - course of the Line
    ; $pensize - The pensize, default is 2 ( optional )
    ; $Transparency - Set Transparancy of GUI ( optional )
    ; Requirement(s): Layered Windows ( $WS_EX_LAYERED )
    ; Return Value(s): ControlID of the Form
    ; Author(s): Greek, martin
    ;===============================================================================

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

    ;===============================================================================
    ;
    ; Function Name:
    ; _DeletTransparentForm
    ; Description:: Delet the Form
    ; Parameter(s):
    ; $Form - controlID/handle of the Form
    ; Return Value(s): Success: Returns 1.
    ; Failure: Returns 0.
    ; Author(s): Greek, martin
    ;===============================================================================

    [/autoit]

    Include

    Spoiler anzeigen
    [autoit]

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

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

    Global Const $WS_EX_COMPOSITED = 0x2000000

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

    Func _DrawTransparentEllipse($hwnd, $x,$y,$w,$h,$Transparency=255)
    $Child=GUICreate ( "", $w, $h, $x, $y, $WS_CHILD, -1, $hwnd )
    _WinAPI_SetLayeredWindowAttributes($hwnd, 0xABCDEF, $Transparency)
    GUISetBkColor ( 0xABCDEF, $Child )
    _GuiRoundCorners ( $Child, 0, 0, $w, $h)
    GUISetState()
    Return $Child
    EndFunc

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

    Func _DeletTransparentForm ( $Form )
    If IsHWnd($Form) Then
    $a=GUIDelete($Form)
    Return $a
    Else
    $b=GUICtrlDelete($Form)
    Return $b
    EndIf
    EndFunc

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

    Func _DrawTransparentRect($hwnd, $x,$y,$w,$h,$Transparency=255)
    $Child=GUICreate ( "", $w, $h, $x, $y, $WS_CHILD, -1, $hwnd )
    _WinAPI_SetLayeredWindowAttributes($hwnd, 0xABCDEF, $Transparency)
    GUISetBkColor ( 0xABCDEF, $Child )
    GUISetState()
    Return $Child
    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] [autoit][/autoit] [autoit]

    Func _WinAPI_GetLastError()
    Local $aResult

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

    $aResult = DllCall("Kernel32.dll", "int", "GetLastError")
    If @error Then Return SetError(@error, 0, 0)
    Return $aResult[0]
    EndFunc ;==>_WinAPI_GetLastError

    [/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] [autoit][/autoit] [autoit]

    Func _DrawTransparentLine($hwnd, $X,$Y,$length,$course,$pensize=2,$Transparency=255)
    _WinAPI_SetLayeredWindowAttributes($hwnd, 0xABCDEF, $Transparency)
    $g1=GUICtrlCreateGraphic($X,$Y,0,0)
    GUICtrlSetGraphic($g1, $GUI_GR_PENSIZE, $pensize )
    GUICtrlSetGraphic($g1, $GUI_GR_COLOR,0xABCDEF, 0xABCDEF)
    GUICtrlSetGraphic($g1, $GUI_GR_LINE, $length, $course)
    GUICtrlSetGraphic($g1, $GUI_GR_REFRESH)
    GUICtrlSetGraphic($g1, $GUI_GR_LINE, 1, 1)
    Return $g1
    EndFunc

    [/autoit]

    Beispiel

    Spoiler anzeigen
    [autoit]

    #include <DrawTransparent.au3>

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

    Global $Count=300
    Global $Ellipse[$Count], $j=1

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

    $myGui=GUICreate ( "dynamic transparent test", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR ( $WS_EX_TOPMOST, $WS_EX_COMPOSITED, $WS_EX_LAYERED ) )
    GUISetBkColor ( 0x000000 )
    GUISetState ()

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

    $Ellipse[0]=_DrawTransparentEllipse( $myGui, @DesktopWidth/2-200, @DesktopHeight/2-200, 400, 300 )

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

    For $i=1 To $Count-1 Step +1
    $Ellipse[$i]=_DrawTransparentEllipse ( $myGui, @DesktopWidth/2-200-$i, @DesktopHeight/2-200, 400+$j, 300 )
    GUIDelete ( $Ellipse[$i-1] )
    $j+=2
    Next

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

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

    [/autoit]

    Edit: Update 2, Rect und Ellipse jetzt auch dynamisch!

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 22. April 2009 um 19:38

    Lag am Style

    So gehts:

    Spoiler anzeigen
    [autoit]

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

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

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

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

    $my_gui = GUICreate("MyGUI", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP,BitOR( $WS_EX_TOPMOST,$WS_EX_LAYERED))
    GUISetState(@SW_SHOW)
    _WinAPI_SetLayeredWindowAttributes($my_gui, 0xABCDEF, 255)
    $g1 = GUICtrlCreateGraphic(0,0,@DesktopWidth,@DesktopHeight)
    GUICtrlSetBkColor($g1, 0x000000)
    GUICtrlSetGraphic($g1, $GUI_GR_COLOR,0xABCDEF, 0xABCDEF)
    GUICtrlSetGraphic($g1, $GUI_GR_ELLIPSE, @DesktopWidth/16, @DesktopHeight/8, @DesktopWidth/1.15, @DesktopHeight/1.30)
    GUICtrlSetGraphic($g1, $GUI_GR_REFRESH)

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

    While 1
    Sleep (100)
    WEnd

    [/autoit] [autoit][/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] [autoit][/autoit] [autoit]

    Func _Exit()
    Exit
    EndFunc

    [/autoit]
  • ControlSetText bei StatusBar

    • Greek
    • 22. April 2009 um 15:20
    [autoit]

    #Include <GuiStatusBar.au3>
    $handle=ControlGetHandle ( "Torque", "", "[CLASS:msctls_statusbar32; INSTANCE:1]" )
    _GUICtrlStatusBar_SetText ( $handle, "Funktioniert!", 1 ) ; es fängt bei 0 an, dewegen schon 1

    [/autoit]

    so müsste es denk ich klappen

  • ControlSetText bei StatusBar

    • Greek
    • 22. April 2009 um 13:56

    Woher hastn du das VALUE:2 ?

    Also das ist jetzt der 2 Bereich der Statusbar? Verändert sich was wenn du vom 1 Bereich der Statusbar auf den 2 gehst bei >>>> Control <<<< ? Wenn ja schreib es mal auf.

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 22. April 2009 um 10:54

    Hier hab ich noch was von Martin was Funktioniert:

    Spoiler anzeigen
    [autoit]

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

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

    $gui = GUICreate("a",1000,800,100,100,-1,$WS_EX_LAYERED);can be $WS_POPUP

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

    GUISetState()
    _WinAPI_SetLayeredWindowAttributes($gui, 0xABCDEF, 255)
    $g1 = GUICtrlCreateGraphic(0,0,500,500)
    GUICtrlSetBkColor(-1,0xFFFFFF)
    GUICtrlSetGraphic(-1,$GUI_GR_COLOR,0xABCDEF,0xABCDEF)
    GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 50, 50, 200, 330, 270)
    GUICtrlSetGraphic(-1, $GUI_GR_REFRESH)
    sleep(7000)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/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]
  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 21. April 2009 um 19:52

    Bei mir ist die Schwarz O.o

    Und die Funktion _WinAPI_SetLayeredWindowAttributes ignoriert auch irgendwie die Farbe bei mir, wenn ich z.B. so mache

    Spoiler anzeigen
    [autoit]

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

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

    HotKeySet ( "!a", "_ende" )

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

    _GDIPlus_Startup()

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

    $hgui = GUICreate ( "MyGUI", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR ( $WS_EX_LAYERED, $WS_EX_TOPMOST ) )
    GUISetBkColor ( 0xABCDEF )
    _WinAPI_SetLayeredWindowAttributes($hgui, 0xFF000000, 200)
    GUISetState ( @SW_SHOW )

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

    $hwnd=_GDIPlus_GraphicsCreateFromHWND ( $hgui )

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

    $schwarz=_GDIPlus_PenCreate ( 0xFF000000, 500, 2 )

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

    _GDIPlus_GraphicsDrawEllipse ( $hwnd, @DesktopWidth/2, @DesktopHeight/2-100, 50, 50, $schwarz )

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

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

    EndSwitch
    WEnd

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

    _GDIPlus_PenDispose ( $schwarz )
    _GDIPlus_GraphicsDispose ( $hwnd )
    _GDIPlus_Shutdown()

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

    Func _ende()
    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]

    Müsste ja eigentlich nur die Schwarze Farbe transparenter werden, aber das ganze GUI wird transparent.

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 21. April 2009 um 19:37

    Vieleicht wechselst du das mit einer Filled Ellipse Choas Keks? Die wo ich benutzt hab ist ja nur nen Rahmen der sowie so in der Mitte nichts hat.

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 21. April 2009 um 19:10
    Zitat von ChaosKeks

    Weiß nich, wer von uns ne Brille braucht :P Bei mir ist auf der Gui dann noch eine durchsichtige Ellipse... wolltest du das nich so?

    Dabei muss man anmerken, das SetLayeredAttributes nicht funktioniert, wenn die Farbe die man transparent machen will >fast< identisch mit der Bk-Color der Gui ist..

    Also bei mir ist das auch nicht so wie ers haben will O.o

    Ich guck ma ob ichs noch basteln kann...

  • Durchsichtige Ellipse mit GDI+

    • Greek
    • 20. April 2009 um 22:27

    hm, hier mal nen versuch von mir in GDI+

    Spoiler anzeigen
    [autoit]

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

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

    HotKeySet ( "!a", "_ende" )

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

    _GDIPlus_Startup()

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

    $hgui = GUICreate ( "MyGUI", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR ( $WS_EX_LAYERED, $WS_EX_TOPMOST ) )
    GUISetBkColor ( 0xABCDEF )
    _WinAPI_SetLayeredWindowAttributes($hgui, 0xABCDEF, 255)
    GUISetState ( @SW_SHOW )

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

    $hwnd=_GDIPlus_GraphicsCreateFromHWND ( $hgui )

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

    $schwarz=_GDIPlus_PenCreate ( 0xFF000000, 500, 2 )

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

    _GDIPlus_GraphicsDrawEllipse ( $hwnd, @DesktopWidth/2, @DesktopHeight/2-100, 50, 50, $schwarz )

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

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

    EndSwitch
    WEnd

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

    _GDIPlus_PenDispose ( $schwarz )
    _GDIPlus_GraphicsDispose ( $hwnd )
    _GDIPlus_Shutdown()

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

    Func _ende()
    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]

    Vieleicht kannst du was mit anfangen?

  • File name suche in einem verzeichniss

    • Greek
    • 20. April 2009 um 21:44
    Zitat von bandido1

    habs fast geschaft

    [autoit]

    ; Zeigt die Dateinamen aller Dateien im aktuellen Verzeichnis an.

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

    $search = FileFindFirstFile("*.*")

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

    ; Prüfen, ob die Suche erfolgreich war
    If $search = -1 Then
    MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")
    Exit
    EndIf

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

    While 1
    $file = FileFindNextFile($search)

    If @error Then ExitLoop

    FileOpen("Include.txt",2)
    FileWrite("Include.txt",$file)

    WEnd

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

    ; Handle für Suche schliessen
    FileClose($search)

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

    muss die exe in den ordner include tun jetzt schreibt er sogar was richtiges aber nur den namen der ersten datei ;(

    Alles anzeigen

    musste FileOpen("Include.txt",2) auf 1 setzen, aber du brauchst den ganzen Befehl nicht, Filewrite legt automatisch eine ab.

    so z.B. für .au3 dateien

    Spoiler anzeigen
    [autoit]

    ; Shows the filenames of all files in the current directory.
    $search = FileFindFirstFile("*.au3")

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

    ; Check if the search was successful
    If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
    EndIf

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

    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

    FileWrite ( "include.txt", $file&@CRLF )
    WEnd

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

    ; Close the search handle
    FileClose($search)

    [/autoit]
  • File name suche in einem verzeichniss

    • Greek
    • 20. April 2009 um 21:33

    da fehlt nen "
    $search = FileFindFirstFile("E:\Programme\AutoIt3\Include")

  • Speichern unter & Controlclick funktioniert einfach nicht

    • Greek
    • 20. April 2009 um 17:09
    Zitat von rew

    Oscar .. das habe ich auch schon versucht.. bringt alles nichts -.-
    am Text lag es nicht, den der Button "Abbrechen" ging so wunderbar.
    @ Concara .. So wie ich das gemacht habe hätte es doch funktionieren müssen, oder warum nicht?

    Aber mit deinem ging es!, warum auch immer..

    Er hat anstatt die id, das hier genommen:

    Class: Button
    Instance: 2

    Gibt eben viele wege das anzusteuern, also immer ma durchprobieren.

    ID - The internal control ID. The Control ID is the internal numeric identifier that windows gives to each control. It is generally the best method of identifying controls. In addition to the AutoIt Window Info Tool, other applications such as screenreaders for the blind and Microsoft tools/APIs may allow you to get this Control ID
    TEXT - The text on a control, for example "&Next" on a button
    CLASS - The internal control classname such as "Edit" or "Button"
    CLASSNN - The ClassnameNN value as used in previous versions of AutoIt, such as "Edit1"
    REGEXPCLASS - Control classname using a regular expression
    X \ Y \ W \ H - The position and size of a control. <<< wurde ich abraten, da es noch nicht richtig funktioniert.
    INSTANCE - The 1-based instance when all given properties match.

  • Hallo Kann Mir Jemand Mit MAC Adresse Changen helfen

    • Greek
    • 20. April 2009 um 12:23

    Ist das legal?
    Hier steht was darüber http://www.it-academy.cc/article/721/MA…+faelschen.html

  • Pic als Mauszeiger

    • Greek
    • 20. April 2009 um 12:02

    Das ist ja blöd, da weis ich ja garnet wo ich hin muss wenn ich z.B. auf GuiHole drück :(

  • Pic als Mauszeiger

    • Greek
    • 20. April 2009 um 10:00
    Zitat von IsleOfTechno


    Dann den Mauszeiger setzen mit "Custom GUI Cursor" von:
    http://www.autoitscript.com/forum/index.php?showtopic=19370&st=0&p=133769&#entry133769

    Hey, das Link ist ja ma geil, da sind viele nützliche Sachen, aber wenn ich z.B. auf GuiHole drücke komm ich immer wieder zur Startseite, warum?

  • Springen Funktion

    • Greek
    • 13. April 2009 um 00:48

    ich lad meine Sachen immer bei https://autoit.de/www.materialordner.de hoch ( erst archivieren alles ), aber das kann man glaubich auch hier im Forum, weis nicht wie.

    Also was mir aufällt schonmal, ist das du für fast jede Variable Global schreibst, die Variablen sind immer Global wenn nichts davor steht.

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™