Beiträge von Tweaky

  • Autovervollständigung

    Denke ich kann dir helfen.
    Was du mit

    [autoit]

    Global $_Words1[3] = [$bResult]

    [/autoit]


    bezwecken willst weiße ich nicht.

    Ich denke es muß

    [autoit]

    _RegisterPrediction($lParam, $bResult)

    [/autoit]


    statt

    [autoit]

    _RegisterPrediction($lParam, $_Words1)

    [/autoit]


    heißen.

    PS: Wusste gar nicht, dass dies in AutoIt möglich ist. Werde ich mal archivieren, vielleicht kann ich es mal gebrauchen.

  • Funktion/GUI schliessen, Script soll aber weiter laufen

    sollte doch so funktionieren.
    Einfach warten bis der Prozess (ProcessWaitClose) nicht mehr existiert.
    Bei deinem "If WinWait" sehe ich keinen Sinn.

    [autoit]

    #RequireAdmin
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <WinAPI.au3>
    #NoTrayIcon

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

    ShellExecute(@ScriptDir & "\setup.exe")
    _window()
    _dosomething()

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

    Func _window()
    setWinHide("Test", 600, 200, 0, 0)
    setText(20, 10, "Groß geschriebener Text", 0x000000, "MS Reference Sans Serif", 30)

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

    Do
    Sleep(100)
    Until ProcessWaitClose("setup.exe")
    EndFunc ;==>_window

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

    ;myFunction
    Func setText($x, $y, $text, $color = 0x00000D, $fontname = "MS Times New Roman", $textgroesse = 12)
    Local $label = GUICtrlCreateLabel($text, $x, $y, StringLen($text) * $textgroesse, $textgroesse * 2)
    GUICtrlSetFont($label, $textgroesse, 400, -1, $fontname)
    GUICtrlSetColor($label, $color)
    EndFunc ;==>setText

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

    ;Erstellt eine transparente GUI
    Func setWinHide($title, $width, $height, $left, $top)
    Local $hGui = GUICreate($title, $width, $height, $left, $top, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST))
    Local $bkcolor = 0xffffff
    GUISetBkColor($bkcolor)
    DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hGui, "long", $bkcolor, "byte", 255, "long", 0x03)
    GUISetState()
    EndFunc ;==>setWinHide

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

    Func _dosomething()

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

    ;do something

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

    EndFunc ;==>_dosomething

    [/autoit]

  • OrganizeIncludes zeigt nicht alle Includes an

    Ich glaube ihr redet gerade aneinander vorbei.
    Ich verstehe stiffn so:
    Er will in dem 1. Skript OI durchlaufen lassen. Dabei wird die extern.au3 als unnötig angesehen.
    Du solltest diese Datei im includes-Ordner ablegen, dann wird diese auch korrekt erkannt.
    Wenn diese Datei im gleichen Ordner wie das Hauptskript liegt bin ich mir nicht sicher, ob sie erkannt wird.

  • Icon von InputBox ändern bei TrayIcon App

    du musst am Anfang des Skripts noch folgendes einfügen.

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=pfad........
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

    [/autoit]

    Wenn du dann mit Rechtsklick "Compile with Options" die exe erstellst, ist auch das korrekte Icon da.

  • Dateiname beim Kopieren notfalls ändern?

    Bei deiner Lösung funktioniert es allerdings nicht wenn z.B. "test_Kopie_1" und "test_Kopie_3" vorhanden, aber "test_Kopie_2" fehlt.
    Dann heißt die neue Datei "test_Kopie_3", obwohl diese bereits vorhanden ist.
    Teste es einfach mal.

    So würde ichs machen.

    [autoit]

    Func _my_Filemove($quelle, $ziel, $attrib = 0)
    Local $split1, $split2, $string, $filelist, $newfile, $anhang = "_Kopie_", $count = 0
    Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = ""

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

    Local $aPathSplit = _PathSplit($ziel, $sDrive, $sDir, $sFilename, $sExtension)

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

    If Not FileExists($ziel) Then
    FileMove($quelle, $ziel, 9)
    Else
    While FileExists($ziel)
    $count += 1
    $ziel = $sDrive & $sFilename & $anhang & $count & $sExtension
    WEnd
    FileMove($quelle, $ziel, $attrib)
    EndIf
    EndFunc ;==>_my_Filemove

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

  • Dateiname beim Kopieren notfalls ändern?

    so ungetestet.
    Einfach in einer Schleife prüfen, ob die Datei existiert und ggf. hochzählen.

    [autoit]

    $sDateiname_basis = $aFileList[$i] ;ohne Dateiendung
    $sDateiname = $sDateiname_basis & ".dateiendung"
    $iZaehler = 0

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

    While FileExists($sDateiname)
    $iZaehler += 1
    $sDateiname = $sDateiname_basis & "__Kopie_" & $iZaehler & ".dateiendung"
    WEnd

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

    ConsoleWrite($sDateiname & @CRLF)

    [/autoit]

  • Prüfen ob lokaler Benutzer vorhanden ist

    @ misterspeed
    bei deiner Version kommt bei mir ein Fehler (Win 7 pro 64bit SP1)

    Zitat

    "C:\test02.au3" (27) : ==> Variable must be of type "Object".:
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemUsers", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    $colItems = $objWMIService^ ERROR