Beiträge von Micha_he

  • Mikrofonlautstärke ändern?

    Zitat von johnnyboyy

    die " " wenn in selben ordner wie Script und die < > wenn im autoit Include ordner

    Das ist so nicht ganz richtig. Auch mit "<>" findet er die Include-datei im Script-Ordner. Nur die Suchreihenfolge ist eine andere und 'relative' Pfade beziehen sich auf einen anderen Ordner.

    Auzug aus der Hilfe:

    Code
    Using #include <>
Standard library 	Der Pfad des aktuell laufenden Interpreter mit dem Anhang "\Include" wird durchsucht.
User-defined libraries 	Der oben erwähnte Registrywert wird gelesen und jedes Verzeichnis wird in der Reihenfolge durchsucht in der sie erscheinen.
Script directory 	Das Verzeichnis des momentan ausgeführten Skripts.


Using #include "" (Dies ist die Umkehrung von #include <>).
Script directory 	Das Verzeichnis des momentan ausgeführten Skripts.
User-defined libraries 	Der oben erwähnte Registrywert wird gelesen und jedes Verzeichnis wird in der Reihenfolge durchsucht in der sie erscheinen.
Standard Library 	Der Pfad des aktuell laufenden Interpreter mit dem Anhang "\Include" wird durchsucht.

  • Mikrofonlautstärke ändern?

    versuch es mal mit dieser Version der "audio.au3"... Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Nach deiner Mail (Script soll nur 1x gestartet werden) sollte es so aussehen:

    Spoiler anzeigen
    [autoit]

    #include <audio.au3>
    #include <Misc.au3>

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

    _Singleton("Mithören") ; Script darf nur 1x gestartet werden

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

    _SoundSetMicrophoneVolume(100)
    Sleep(120000)
    _SoundSetMicrophoneVolume(0)

    [/autoit]

    --> als ZIP/Exe --> Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Du solltest Deine Probleme aber ruhig hier schreiben, so haben andere Anfänger auch etwas davon.
    Und "es geht bei mir nicht" ist keine Fehlerbeschreibung !

    Gruß
    micha_he

  • zeilen aus txt file löschen

    Was haltet ihr von dieser Lösung ?

    Spoiler anzeigen
    [autoit]


    _ZeileLoeschenTxt("in.txt", 5, "out.txt")

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

    Func _ZeileLoeschenTxt($InName, $zeilennr, $OutName = "")
    $in = FileRead($InName)
    If $OutName = "" Then $OutName = $InName
    FileWrite($OutName, StringLeft($in, StringInStr($in, @CRLF, 1, $zeilennr - 1) + 2) & StringMid($in, StringInStr($in, @CRLF, 1, $zeilennr) + 3))
    EndFunc

    [/autoit]

  • Ftp Upload Problem

    Folgende Funktion gibt es in der "FTP_Ex.au3":

    _FTPGetFileSize()
    [autoit]

    ;===============================================================================
    ;
    ; Function Name: _FTPGetFileSize()
    ; Description: Gets filesize of a file on the FTP server.
    ; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
    ; $s_FileName - The file name.
    ; Requirement(s): DllCall, wininet.dll
    ; Return Value(s): On Success - 1
    ; On Failure - 0
    ; Author(s): J.o.a.c.h.i.m. d.e. K.o.n.i.n.g.
    ;
    ;===============================================================================

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

    Func _FTPGetFileSize($l_FTPSession, $s_FileName)

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

    Local $ai_FTPGetSizeHandle = DllCall($GLOBAL_FTP_WININETHANDLE, 'int', 'FtpOpenFile', 'hwnd', $l_FTPSession, 'str', $s_FileName, 'long', 0x80000000, 'long', 0x04000002, 'long', 0)
    Local $ai_FTPGetFileSize = DllCall($GLOBAL_FTP_WININETHANDLE, 'dword', 'FtpGetFileSize', 'long', $ai_FTPGetSizeHandle[0], 'dword*', 0)
    If @error Or $ai_FTPGetFileSize[0] = 0 Then
    SetError(-1)
    Return 0
    EndIf
    DllCall($GLOBAL_FTP_WININETHANDLE, 'int', 'InternetCloseHandle', 'str', $l_FTPSession)

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

    ;~ Return $ai_FTPGetFileSize[0]
    Return BitOR(BitShift($ai_FTPGetFileSize[2], -32), BitAND($ai_FTPGetFileSize[0], 0xFFFFFFFF))

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

    EndFunc ;==>_FTPGetFileSize

    [/autoit]

    und dann:

    gelesene Byte / gesamt Byte * 100 = Fortschritt in %

  • Autoit-Script in Bart PE

    Ich würde behaupten, das AutoIt schon funktionieren wird. Nur das von der Funktion genutzte Objekt "CDO.Message" wird etwas benötigen, was unter BartPE nicht existiert.

    Wenn Du keinen Anhang verschicken willst, könntest Du "_INetSmtpMail()" der INet.au3 nutzen. Diese arbeitet direkt auf TCP-Ebene.

  • Balken während Kopieren

    Ich glaube das wurde schon x-mal durchgekaut.

    Der DirCopy()-Befehl warte bis der Kopiervorgang beendet ist, bis das Script weiterläuft. Müsste ja also eigentlich DirCopyWait() heißen, oder ?

    Und damit ist deine Schleife Do...Until() völlig wertlos !

  • Leerzeilen in einer *.txt Datei löschen

    Vielleicht denke ich ja auch manchmal zu einfach, aber tut es nicht auch :

    Spoiler anzeigen
    [autoit]

    $file = FileOpen("IN.txt",0)
    $inhalt = FileRead($file)
    FileClose($File)

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

    Do
    $inhalt = StringReplace($inhalt,@CRLF & @CRLF, @CRLF)
    Until @extended = 0

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

    $file = FileOpen("OUT.txt",2)
    $inhalt = FileWrite($file, $inhalt)
    FileClose($File)

    [/autoit]

  • wie kann ich das loslassen einer taste erfassen?

    Ggf. funktioniert es so:

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    hotkeySet("{F8}", "appClose")

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

    $MiddleMouseVar = 0
    $dll = DllOpen("user32.dll")

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

    While 1
    Sleep ( 250 )
    If _IsPressed("12", $dll) Then ;alt key
    If _IsPressed("11", $dll) Then ;ctrl key
    If _IsPressed("26", $dll) Then MouseWheel("up", 1);up key
    if _IsPressed("28", $dll) Then MouseWheel("down", 1);down key
    if _IsPressed("25", $dll) Then ;left key
    $middleMouseVar = mousedown("middle")
    ; XXXXXXXX


    EndIf
    EndIf
    Else
    If $MiddleMouseVar = 1 Then
    ; wenn 'alt' losgelassen wird
    mouseup("middle")
    $MiddleMouseVar = 0
    EndIf
    EndIf
    WEnd

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

    func appClose()
    mouseup("middle")
    exit
    EndFunc

    [/autoit]

    Nur probieren konnte ich es nicht, weil Dein Script allgemein bei mir schon nicht funktionert !

  • Zugriff auf Freigabe unter anderem User

    Meines Wissens nach wird das nicht gehen.

    Windows wird Dich jedenfalls mit einem Fehler wie "Es besteht bereits eine Verbindung unter einen anderen Account" ablehnen. Versuch mal eine zweites "Net Use" unter einem anderem User. Und dies kann auch AutoIt nicht umgehen, da das Problem vom Server kommt.

    Eine Lösung ein AutoIt-Script mit "RunAs()" unter dem betreffenden User starten und darin das "DriveMapAdd" ausführen. Dazu muss der User aber lokal existieren oder Dein Rechner in einer Domäne sein.

  • Schreiben in eine Datei geht nicht

    Unter Umständen liegt es daran, das das FileClose() erst NACH dem _OverwriteLine() kommt.

    Beim Schreiben ist die "gleiche" Datei noch zum Lesen geöffnet. Und das könnte unter Umständen zum Problem führen. Du solltest Dir einfach angewöhnen, die Dateien sofort nach dem Lesen wieder zu schließen.

  • Pingergebnis ausgeben

    So ?

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiIPAddress.au3>
    #include <WindowsConstants.au3>
    #include <Inet.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>

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

    Global $IPAdress1

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Ping", 400, 270, 400, 200)
    $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 10, 40, 377, 35)
    GUICtrlCreateGroup("IP Adresse", 7, 25, 385, 54)
    _GUICtrlIpAddress_Set($IPAddress1, "127.0.0.1")
    $Button1 = GUICtrlCreateButton("Ping Starten", 150, 100, 100, 30, 0)
    GUICtrlSetFont(-1, 12, 200, 0, "MS Sans Serif")
    $Edit = GUICtrlCreateEdit("", 10, 150, 380, 100, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY))
    GUICtrlCreateGroup("", 5, 140, 390, 115)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    case $Button1

    pingen()

    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

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

    Func pingen()
    Local $name, $ms
    $ms = ping(_GUICtrlIpAddress_Get($IPAddress1))
    TCPStartup()
    $name = _TCPIpToName(_GUICtrlIpAddress_Get($IPAddress1), 0)
    TCPShutdown()
    If $name = "" Then $name = _GUICtrlIpAddress_Get($IPAddress1)
    GUICtrlSetData($Edit, GUICtrlRead($Edit) & "In " & $ms & " ms wurde '" & $name & "' erreicht." & @CRLF)
    EndFunc

    [/autoit]