Beiträge von UEZ

  • Revision 2015

    Hier meine Impressionen:

    + schön wieder mit Andy zusammen auf die Party zu fahren :)
    + mehr weibliche Teilnehmer als sonst, die nicht wie die "Lappen" aussahen, wobei ich sagen muss, dass die "Lappen" wie Mathe / Physik Studenten aussehen ;)
    - viele Kleinkinder mit Hörschutz (wtf)
    - die meisten Beiträge waren so schlecht, dass ich mit GDI+ auch hätte teilnehmen können (nur eine Handvoll waren sehr gut)
    - ultra schlechte DJ "Musik" -> kann man echt mit Baustellen Lärm vergleichen
    - weniger Teilnehmer (gefühlt)
    - AutoIt ist nicht besonders bekannt und hat eher ein Botter Image (der Eine am Eingang hat sich gewundert, ob auch jetzt AutoIt Entwickler auf die Party kommen)

    [Blockierte Grafik: http://2015.revision-party.net/media/photowall/photobooth_display/thumbs/big_Capture02245.jpg]

  • Forum Problemsammlung

    Meine 2 Punkte:

    • Nachrichten mit wesentlich mehr als 10.000 Zeichen
    • Anhänge im .7z und .au3 Format erlauben

    Edit1: Ok, Punkt 2 scheint gefixt zu sein.
    Edit2: PN's mit mehr als 10.000 Zeichen geht jetzt. Wo ist jetzt das Limit?

  • Zahlenwert aus .txt durch neuen Zahlenwert ersetzen

    Hier meine Version:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    $sText = FileRead(@ScriptDir & "\C_01.cli")

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

    $aText = StringSplitW($sText, " ")
    For $i = 0 To UBound($aText) - 1
    $aText[$i][4] += 2
    $aText[$i][5] += 2
    Next
    _ArrayDisplay($aText)

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

    ; #FUNCTION# ========================================================================================================================================
    ; Name .................: StringSplitW()
    ; Description ..........: Splits a string into columns instead of rows as it is done by SplitString(), like a csv file to a 2d array ;)
    ; Syntax ...............: StringSplitW($sString[, $sDelimiter = ";"[, $bStripWS = True[, $sQuotationMark = '"'[, $sDummy = "¦"[, $iWidthLen = 256]]]]])
    ; Parameters ...........: $sString - A string value.
    ; $sDelimiter - [optional] A string value. Default is ";".
    ; $bStripWS - [optional] A binary value. Default is True.
    ; $sQuotationMark - [optional] A string value. Default is '"'.
    ; $sDummy - [optional] A string value. Default is "¦".
    ; $iWidthLen - [optional] An integer value. Default is 256.
    ; Return values .......: Success - 2d array
    ; Error 1 - $sStringis not set
    ; Error 2 - $delimter is not set
    ; Error 3 - error splitting string
    ; Error 4 - array width exceeded
    ;
    ; Version .............: v0.97 build 2015-03-03 beta
    ; Author ..............: UEZ
    ; Modified ............:
    ; Remarks .............: RegEx take from http://stackoverflow.com/questions/4476…r-within-quotes
    ; Related .............: StringSplit, StringReplace, StringRegExpReplace, StringLen, StringStripCR
    ; ===================================================================================================================================================
    Func StringSplitW($sString, $sDelimiter = ";", $bStripWS = True, $sQuotationMark = '"', $sDummy = "¦", $iWidthLen = 256)
    If $sString = "" Then Return SetError(1, 0, 0)
    If $sDelimiter = "" Then Return SetError(2, 0, 0)
    Local $aSplit = StringSplit(StringStripCR($sString), @LF)
    If @error Then Return SetError(3, 0, 0)
    Local $chk, $iWidth, $i, $j, $k, $iLen, $iMax = 1, $iMaxWidth, $iSum = 0
    Local $aPos[1], $l = 0
    Local $aVertical[$aSplit[0]][$iWidthLen], $iDelimiterLen = StringLen($sDelimiter) - 1, $sLine
    For $k = 1 To $aSplit[0]
    $iLen = StringLen($aSplit[$k])
    If $iLen > 1 Then
    Switch $bStripWS
    Case True
    $sLine = StringRegExpReplace(StringStripWS($aSplit[$k], 4), '(?m)\' & $sDelimiter & '(?=[^' & $sQuotationMark & ']*' & $sQuotationMark & '(?:[^' & $sQuotationMark & '\r\n]*' & $sQuotationMark & '[^' & $sQuotationMark & ']*' & $sQuotationMark & ')*[^' & $sQuotationMark & '\r\n]*$)', $sDummy)
    Case False
    $sLine = StringRegExpReplace($aSplit[$k], '(?m)\' & $sDelimiter & '(?=[^' & $sQuotationMark & ']*' & $sQuotationMark & '(?:[^' & $sQuotationMark & '\r\n]*' & $sQuotationMark & '[^' & $sQuotationMark & ']*' & $sQuotationMark & ')*[^' & $sQuotationMark & '\r\n]*$)', $sDummy)
    EndSwitch
    $chk = StringReplace($sLine, $sDelimiter, $sDelimiter)
    $iWidth = @extended
    $iSum += $iWidth
    If $iWidth > $iWidthLen Then Return SetError(4, 0, 0)
    If $iWidth >= $iMax Then $iMax = $iWidth + 1
    Switch $iWidth
    Case 0
    $aVertical[$l][0] = $sLine
    Case Else
    Dim $aPos[$iWidth * 2 + 2]
    $j = 1
    $aPos[0] = 1
    For $i = 0 To $iWidth - 1
    $aPos[$j] = StringInStr($sLine, $sDelimiter, 0, $i + 1) - 1
    $aPos[$j + 1] = $aPos[$j] + 2 + $iDelimiterLen
    $j += 2
    Next
    $aPos[UBound($aPos) - 1] = StringLen($sLine)
    $j = 0
    For $i = 0 To UBound($aPos) - 1 Step 2
    $aVertical[$l][$j] = StringMid(StringReplace($sLine, $sDummy, $sDelimiter), $aPos[$i], $aPos[$i + 1] - $aPos[$i] + 1)
    $j += 1
    Next
    EndSwitch
    $l += 1
    EndIf
    Next
    ReDim $aVertical[$l][$iMax]
    Return $aVertical
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • Progressbar beim anklicken verstellen

    Hier ein Ansatz:

    [autoit]

    #Include <GUIConstantsEx.au3>
    #Include <WindowsConstants.au3>

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

    AutoItSetOption("MouseCoordMode", 2)

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Mp3 Player", 333, 437, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Progress1 = GUICtrlCreateProgress(8, 100, 319, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    Global $iProgress = 0, $bMP = False, $iProgressMax = 319

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

    AdlibRegister("Playing")

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

    Do
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Playing")
    GUIDelete()
    Exit
    EndSwitch
    $a = GUIGetCursorInfo ($Form1)
    If $a[4] = $Progress1 And $a[2] Then
    $bMP = True
    $aPos = ControlGetPos($Form1, "", $Progress1)
    $iProgress = Int((-8 + MouseGetPos(0)) / $iProgressMax * 100)
    GUICtrlSetData($Progress1, $iProgress)
    Else
    $bMP = False
    EndIf
    Until False

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

    Func Playing()
    If Not $bMP Then
    GUICtrlSetData($Progress1, $iProgress)
    $iProgress += 0.25
    If $iProgress > 100 Then AdlibUnRegister("Playing")
    EndIf
    EndFunc

    [/autoit]

    Gruß,
    UEZ

  • Zuverlässig eigene IP auslesen?

    Alternativ probiere mal dies aus:

    [autoit]

    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True AND NOT Description LIKE '%Virtual%' AND DNSDomain<>''", "WQL", 0x30)

    [/autoit]

    Hier werden die virtuellen Adapter ausgelassen und DNSDomain darf nicht leer sein.

    IPConnectionMetric scheint nicht akkurat zu sein.

    Edit: habe noch DNSDomain<>'' hinzugefügt.

    Gruß,
    UEZ

  • Zuverlässig eigene IP auslesen?

    Es scheint, als ob bei dir die IPConnectionMetric nicht 25 ist.

    Bei mir sind 4 Adapter gelistet, wobei nur die Aktive auf 25 steht und der Rest auf 20.

    Du kannst ja mal Scriptomatic anschmeißen und sehen, was bei dir gelistet wird.

    Gruß,
    UEZ

  • Zuverlässig eigene IP auslesen?

    Kannst ja dies mal testen:

    [autoit]


    $sHost = @ComputerName
    MsgBox(0, "Test", "IP: " & WMI_GetIPFromActiveNetworkAdapters($sHost))

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

    Func WMI_GetIPFromActiveNetworkAdapters($sHost)
    Local $objWMIService = ObjGet("winmgmts:\\" & $sHost & "\root\cimv2")
    If @error Then Return SetError(1, 0, 0)
    $colItems = $objWMIService.ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True AND IPConnectionMetric=25", "WQL", 0x30)
    If IsObj($colItems) Then
    For $objItem in $colItems
    With $objItem
    If IsArray(.IPAddress) Then Return .IPAddress[0]
    EndWith
    Next
    Else
    Return SetError(2, 0, 0)
    EndIf
    EndFunc

    [/autoit]

    Auf meiner Kiste mit WLAN, LAN, VMware und VirtualBox funktioniert es, wobei die WLAN nur aktiv ist.

    Gruß,
    UEZ