Beiträge von i2c

  • UMTS verbindung unter Windows 7 mit PIN abfrage

    Weil rasdial nunmal überall vorhanden ist und ich mal davon ausgehe, das auch jedes andere Tool (zumindest die meisten) sowieso rasdial zum einwählen verwenden werden ;)

    Das Problem ist ja, das die PIN nichts mit der Verbindung an sich zu tun hat sondern mit dem Modem. Deshalb wird rasdial hier womöglich keinen passenden Parameter kennen. Das Beispiel, sie als String zu übergeben hab ich auch nur beim kurzen Google Besuch gelesen und scheint, zumindest bei diesem User, zu funktionieren.

    Wenn's absolut nicht geht - PIN Prüfung deaktivieren

  • abfrage ob alle INPUT-Felder ausgefüllt sind

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Dim $aInput[4]
    $Form1 = GUICreate("Form1", 336, 167, 192, 139)
    $aInput[0] = GUICtrlCreateInput("", 16, 8, 121, 21)
    $aInput[1] = GUICtrlCreateInput("", 16, 40, 121, 21)
    $aInput[2] = GUICtrlCreateInput("", 16, 72, 121, 21)
    $aInput[3] = GUICtrlCreateInput("", 16, 104, 121, 21)
    $iButton = GUICtrlCreateButton("prüfen", 176, 104, 105, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $iButton
    _checkInputs()
    EndSwitch
    WEnd

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

    func _checkInputs()
    for $i = 0 to UBound($aInput)-1
    if GUICtrlRead($aInput[$i]) = "" then
    MsgBox(0,0, "Bitte alle Felder ausfüllen")
    ExitLoop
    EndIf
    next
    Return
    EndFunc

    [/autoit]

  • _arraysearch: RegExp?

    _ArrayFindAll(), _ArraySearch mit regex pattern

    Spoiler anzeigen
    [autoit]

    Dim $aIPs[5] = ["127.0.0.1", "127.0.0.1", "196.168.201.101", "196.168.201.102", "89.123.34.123"]
    #include<array.au3>

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

    $aResult = __ArrayFindAll($aIPs, "\A127.")
    _ArrayDisplay($aResult)

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

    Func __ArrayFindAll(Const ByRef $avArray, $vValue, $iStart = 0, $iEnd = 0, $iSubItem = 0)
    $iStart = __ArraySearch($avArray, $vValue, $iStart, $iEnd, $iSubItem)
    If @error Then Return SetError(@error, 0, -1)

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

    Local $iIndex = 0, $avResult[UBound($avArray)]
    Do
    $avResult[$iIndex] = $iStart
    $iIndex += 1
    $iStart = __ArraySearch($avArray, $vValue, $iStart + 1, $iEnd, $iSubItem)
    Until @error

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

    ReDim $avResult[$iIndex]
    Return $avResult
    EndFunc ;==>_ArrayFindAll

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

    Func __ArraySearch(Const ByRef $avArray, $vValue, $iStart = 0, $iEnd = 0, $iSubItem = -1)
    If Not IsArray($avArray) Then Return SetError(1, 0, -1)
    If UBound($avArray, 0) > 2 Or UBound($avArray, 0) < 1 Then Return SetError(2, 0, -1)

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

    Local $iUBound = UBound($avArray) - 1

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

    ; Bounds checking
    If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
    If $iStart < 0 Then $iStart = 0
    If $iStart > $iEnd Then Return SetError(4, 0, -1)

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

    ; Search
    Switch UBound($avArray, 0)
    Case 1 ; 1D array search
    For $i = $iStart To $iEnd Step 1
    If StringRegExp($avArray[$i], $vValue, 0, 1) > 0 Then Return $i
    Next

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

    Case 2 ; 2D array search
    Local $iUBoundSub = UBound($avArray, 2) - 1
    If $iSubItem > $iUBoundSub Then $iSubItem = $iUBoundSub
    If $iSubItem < 0 Then
    ; will search for all Col
    $iSubItem = 0
    Else
    $iUBoundSub = $iSubItem
    EndIf

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

    For $j = $iSubItem To $iUBoundSub
    For $i = $iStart To $iEnd Step 1
    If StringRegExp($avArray[$i][$j], $vValue, 0, 1) > 0 Then Return $i
    Next
    Next
    Case Else
    Return SetError(7, 0, -1)
    EndSwitch

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

    Return SetError(6, 0, -1)
    EndFunc ;==>_ArraySearch

    [/autoit]


    Keine Ahnung ob du das brauchen kannst. Ist auf jeden Fall ungetestet. Hab kein AutoIt zur Hand.

  • Datenträger Exklusiv Sperren aber wie?

    Moin Samson,

    ich weiss jetzt zwar nicht, worum es genau geht aber ich behaupte einfach mal, das du das c: Laufwerk nicht sperren kannst solange das System läuft.

    Aus diesem Grund dürften wohl auch die Datenträgerprüfung, Defragmentierung oder Partitionierungstools nach einem Neustart des Systems verlangen, wenn sie Zugriff auf die Systempartition benötigen.

  • Windows 7 Notizen auslesen

    Ich benutze die Sidebar Gadgets nicht und hab sie deshalb auch nicht installiert aber ich würd mal schauen, wo die Notizen gespeichert werden. Das erscheint mir sinnvoller als irgendein Fenster auszulesen.

    Vlt. in AppData\Local\Microsoft\Windows Sidebar\Gadgets oder gar in der Registry ....

  • Daten speichern in einer versteckten Editbox?

    $GUI_ENABLE

    Dann schieb doch den Inhalt der 4 Inputboxen einfach in 4 Variablen und gut ist. Den Inhalt zerpflückst du dann (muss ja wohl irgendein Muster geben) und trägst sie in deine neu erstellte Listview ein. Fertig! Wenn du sie dann mal wieder brauchst, lies sie halt aus der Listview aus.

    Das Problem hat sich mir immernoch nicht wirklich erschliessen wollen.

  • Zeilen in .txt durcheinander bringen

    Mal was ganz simples.

    [autoit]

    #include <Array.au3>

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

    ;Global $sPath = "c:\irgendwas"
    ;Global $aFile
    ;_FileReadToArray($sPath, $aFile)
    ;_ArrayDelete($aFile, 0)

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

    Dim $aFile[4] = ["hallo", "welt", "foo", "bar"]

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

    _shuffleUpAndDeal($aFile)

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

    Func _shuffleUpAndDeal(ByRef $aArray)
    $j = UBound($aFile) -1 + Random(100,200,1)
    For $i = 0 To $j
    do
    $a = Random(0, UBound($aFile)-1, 1)
    $b = Random(0, UBound($aFile)-1, 1)
    Until $a <> $b
    _ArraySwap($aFile[$a], $aFile[$b])
    Next
    EndFunc

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

    _ArrayDisplay($aFile)

    [/autoit]


    Ich hatte Spass :)

    edit:
    Nein, ernsthaft:

    Spoiler anzeigen
    [autoit]

    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _ArrayRandom
    ; Description ...: Randomize the row order of (part of) a 1D or 2D array.
    ; Syntax.........: _ArrayRandom(ByRef $avArray, $iStart = 0, $iEnd = 0)
    ; Parameters ....: $avArray - Array to randomize
    ; $iStart - [optional] Index of array to start at
    ; $iEnd - [optional] Index of array to stop at
    ; Return values .: Success - 1
    ; Failure - 0, sets @error:
    ; |1 - $avArray is not an array
    ; |2 - $iStart is greater than $iEnd
    ; Author ........: Tom Vernooij
    ; Modified.......:
    ; Remarks .......: Based on Yashied's method
    ; Related .......:
    ; Link ..........:
    ; Example .......: No
    ; ===============================================================================================================================
    Func _ArrayRandom(ByRef $avArray, $iStart=0, $iEnd=0)
    If Not IsArray($avArray) Then Return SetError(1,0,0)

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

    Local $iRow, $iCol, $rRow, $Temp, $numCols = UBound($avArray,2), $Ubound = UBound($avArray) -1

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

    ; Bounds checking
    If $iEnd < 1 Or $iEnd > $UBound Then $iEnd = $UBound
    If $iStart < 0 Then $iStart = 0
    If $iStart > $iEnd Then Return SetError(2, 0, 0)

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

    ; for 2 dimentional arrays:
    If $numCols Then
    For $iRow = $iStart To $iEnd ;for each row...
    $rRow = Random($iStart, $iEnd, 1) ;...select a random row
    For $iCol = 0 To $numCols -1 ;swich the values for each cell in the rows
    $Temp = $avArray[$iRow][$iCol]
    $avArray[$iRow][$iCol] = $avArray[$rRow][$iCol]
    $avArray[$rRow][$iCol] = $Temp
    Next
    Next

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

    ; for 1 dimentional arrays:
    Else
    For $iRow = $iStart To $iEnd ;for each cell...
    $rRow = Random($iStart, $iEnd, 1) ;...select a random cell
    $Temp = $avArray[$iRow] ;switch the values in the cells
    $avArray[$iRow] = $avArray[$rRow]
    $avArray[$rRow] = $Temp
    Next
    EndIf
    Return 1
    EndFunc

    [/autoit]