Beiträge von Paule

  • TCP Port der Fritz Box abhören?

    @pino
    hier mal mein Code Schnipsel um die Anrufe der Fritz in ein Array zu packen.

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #AutoIt3Wrapper_Res_Fileversion=81207.0.0.3

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

    #include <array.au3>
    #include <SQLite.au3>
    #include "_ArrayMultiDisplay.au3"

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

    #include<StaticConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<ListViewConstants.au3>
    #include<StructureConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListView.au3>

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

    Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
    Opt("GUIOnEventMode", 1)

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

    Dim $hQuery, $aRow, $bRow, $a[1] = [0], $aTmp[1] = [0]
    $sEigeneVorwahl = "040"
    Global $ACurrentItem[2], $sTitle, $hListView, $sID, $sSpaltenName

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

    If $CmdLine[0] = 0 Then
    $obj = ObjCreate ("winhttp.winhttprequest.5.1")

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

    $obj.open ("POST", "http://fritz.box/cgi-bin/webcm", False)
    $obj.SetRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
    $POST = "getpage=../html/de/menus/menu2.html&var%3Alang=$LANG&var%3Amenu=fon&var%3Apagename=foncalls&login%3Acommand%2F" _
    & "password=DeinPasswort"
    ; Telefonbuch http://fritz.box/cgi-bin/webcm?…ar%3Aweckernr=1
    ;$POST = "getpage=../html/de/FRITZ!Box_Anrufliste.csv&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Alang=$LANG&var%3Apagename=foncalls&var%3Aerrorpagename=foncalls&var%3Amenu=fon&var%3Apagemaster=&time%3Asettings%2Ftime=1136559837%2C-60"
    ;$POST &= "DeinPasswort"
    $obj.Send($POST)

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

    ;MsgBox(0,"",$obj.ResponseText)
    $obj.open ("POST", "http://fritz.box/cgi-bin/webcm", False)
    $obj.SetRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
    $POST = "getpage=../html/de/FRITZ!Box_Anrufliste.csv&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Alang=de&var%3Apagename=foncalls&var%3Aerrorpagename=foncalls&var%3Amenu=fon&var%3Apagemaster=&time%3Asettings%2Ftime=1136559837%2C-60"
    $obj.Send($POST)
    ;If FileExists("dummi.txt") Then FileDelete("dummi.txt")
    ;~ XXXXXXXX FileWrite("f:\admin\fritz\auTelefonListe.txt", $obj.ResponseText)
    $aTmp = StringSplit($obj.ResponseText, @LF)
    ;~ _ArrayDisplay($aTmp)
    _ArrayDelete($aTmp, 0) ; => Anzahl der Array Eintäge
    _ArrayDelete($aTmp, 0) ; => sep;
    _ArrayDelete($aTmp, 0) ; => Typ; Datum; Name; Rufnummer; Nebenstelle; Eigene Rufnummer; Dauer
    ;_ArrayDisplay($aTmp)
    For $iI = 1 To UBound($aTmp)-1 ; Seit Firmware-Version 54.04.63-12365 werden zwei @LF pro Datensatz geliefert
    ConsoleWrite (Asc(StringLeft($aTmp[$iI], 1)) & @LF)
    If Not Asc(StringLeft($aTmp[$iI], 1)) = 0 Then _ArrayAdd($a, $aTmp[$iI]) ; $a[0] ; => Anzahl der Array Eintäge
    Next
    Else
    $a[0] = "1;15.09.08 12:43;;04071312345;Anrufbeantworter;040890123456;0:12"
    EndIf

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

    _ArrayDelete($a, 0) ; => Anzahl der Array Eintäge
    ;~ _ArrayDisplay($a)

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

    Gruß Paule

  • Mit zweimal Num-Taste drücken Umschalten zwischen Punkt und Komma auf dem Nummernblock

    Wers gebrauchen kann,

    Spoiler anzeigen
    [autoit]


    #include <Misc.au3>
    ; Mit zweimal Num-Taste drücken Umschalten zwischen Punkt und Komma auf dem Nummernblock
    HotKeySet("{ESC}", "__Quit")
    $sKey = 90 ; Num
    $iI = 1
    $iJ = 0
    $sToggle = False
    ;~ TraySetIcon("Komma.ico")
    TrayTip("Nummernblock", "Komma", 5)
    While 1
    If _IsPressed($sKey) Then
    ;~ ConsoleWrite($sToggle & "..." & $iI & "..." & $iI-$iJ & @LF)
    If $iI-$iJ < 10000 Then ; Zeit zwischen zwei Tastananschläge
    $sToggle = Not $sToggle
    Sleep(100)
    Send("{NUMLOCK on}")
    $iI=1
    $iJ=1
    Send("{NUMLOCK on}")
    If $sToggle Then
    ;~ ConsoleWrite("Punkt" & @LF)
    ;~ TraySetIcon("Punkt.ico")
    TrayTip("Nummernblock", "Punkt", 5)
    HotKeySet("{NUMPADDOT}", "__Punkt")
    Else
    ;~ ConsoleWrite("Komma" & @LF)
    ;~ TraySetIcon("Komma.ico")
    TrayTip("Nummernblock", "Komma", 5)
    HotKeySet("{NUMPADDOT}")
    EndIf
    EndIf
    While _IsPressed($sKey)
    $iJ = $iI
    Sleep(10)
    WEnd
    EndIf
    $iI += 1
    WEnd

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

    Func __Punkt()
    Send(".")
    EndFunc

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

    Func __Quit()
    HotKeySet("{ESC}")
    HotKeySet("{NUMPADDOT}")
    Exit
    EndFunc

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


    Viel Spaß damit
    Paule

  • Dateien in einem Ordner unbennen

    Spoiler anzeigen
    [autoit]


    Aus meinem Fundus
    Gruß Paule

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

    Func __CopyEnum($sFile)
    Local $iI=1, $aTmp
    $aTmp = StringSplit($sFile, ".")
    $sFileName = StringTrimRight($sFile, StringLen($aTmp[$aTmp[0]])+1)
    $sFileExt = "." & $aTmp[$aTmp[0]]
    If FileExists($sFile) Then
    While FileExists($sFileName & "-" & $iI & $sFileExt)
    $iI +=1
    WEnd
    For $iJ=$iI To 1 Step -1
    FileMove($sFileName & "-" & $iJ & $sFileExt, $sFileName & "-" & $iJ+1 & $sFileExt)
    Next
    FileCopy($sFile , $sFileName & "-1" & $sFileExt)
    EndIf
    EndFunc ;==> __CopyEnum

    [/autoit]

  • FritzBox 7270 Adressbuch sichern

    Hallo Tweaky,

    gerade nochmals getestet mit Fritz!BoxAnrufmonitor Version 1.02.00
    Es lassen sich die Telebucheinträge importieren.
    Eine Besonderheit es mir aufgefallen: Erst wenn ich die Anrufliste aktualisiere, kann ich die Telefonbucheinträge importieren.

  • FritzBox 7270 Adressbuch sichern

    Hier mal mein Versuch mit der Firmware-Version 54.04.63-12365
    Das Password muss Du noch anpassen. Das Ergebnis ist dann in der Datei dummi.txt
    Per RegEx kannst Du dann die Felder separieren.
    Eine andere Möglichkeit wäre es mit plink und wget zu arbeiten. Mit plink und cat das Telefonbuch auf den USB Speicher speichern und anschließend mit wget holen, habe ich aber nicht getestet.

    Geht es Dir darum das Telefonbuch zu speichern, das funktioniert ja mit Fritz!BoxMonitor, oder um eine AutoIt Lösung?

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    #include <SQLite.au3>
    #include "_ArrayMultiDisplay.au3"

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

    #include<StaticConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<ListViewConstants.au3>
    #include<StructureConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListView.au3>

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

    Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
    Opt("GUIOnEventMode", 1)

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

    Dim $hQuery, $aRow, $bRow, $a[1] = [0], $aTmp[1] = [0]
    $sEigeneVorwahl = "040"
    Global $ACurrentItem[2], $sTitle, $hListView, $sID, $sSpaltenName

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

    If $CmdLine[0] = 0 Then
    $obj = ObjCreate ("winhttp.winhttprequest.5.1")

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

    $obj.open ("POST", "http://fritz.box/cgi-bin/webcm", False)
    $obj.SetRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
    $POST = "getpage=../html/de/menus/menu2.html&var%3Alang=$LANG&var%3Amenu=fon&var%3Apagename=foncalls&login%3Acommand%2F" _
    & "password=HierDeinPasswort"
    ;http://www.ip-phone-forum.de/showthread.php?t=161255
    ;http://www.ip-phone-forum.de/showpost.php?p…2&postcount=130
    ;http://www.ip-phone-forum.de/showthread.php…376#post1029376
    ; Telefonbuch http://fritz.box/cgi-bin/webcm?…ar%3Aweckernr=1
    ;$POST = "getpage=../html/de/FRITZ!Box_Anrufliste.csv&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Alang=$LANG&var%3Apagename=foncalls&var%3Aerrorpagename=foncalls&var%3Amenu=fon&var%3Apagemaster=&time%3Asettings%2Ftime=1136559837%2C-60"
    ;$POST &= "ibm!2!ibm"
    $obj.Send($POST)

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

    ;MsgBox(0,"",$obj.ResponseText)
    $obj.open ("POST", "http://fritz.box/cgi-bin/webcm", False)
    $obj.SetRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
    ;$POST = "getpage=../html/de/FRITZ!Box_Anrufliste.csv&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Alang=de&var%3Apagename=foncalls&var%3Aerrorpagename=foncalls&var%3Amenu=fon&var%3Apagemaster=&time%3Asettings%2Ftime=1136559837%2C-60"
    $POST = "getpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&errorpage=..%2Fhtml%2Fde%2Fmenus%2Fmenu2.html&var%3Apagename=fonbuch&var%3Aerrorpagename=fonbuch&var%3Amenu=home&var%3Apagemaster=&time%3Asettings%2Ftime=1223128569%2C-120&var%3Aactivtype=pppoe&var%3AtabInetstat=1&var%3Aweckernr=1"
    $obj.Send($POST)
    If FileExists("dummi.txt") Then FileDelete("dummi.txt")
    FileWrite("dummi.txt", $obj.ResponseText)
    Else
    $a[0] = "1;15.09.08 12:43;;0591223344;Anrufbeantworter;0401299;0:12"
    EndIf

    [/autoit]

  • Ist Excel installiert?

    Oder so?

    Spoiler anzeigen
    [autoit]


    If RegRead("HKCR\OWC9.spreadsheet", "") Then $ExcelLV = ObjCreate("OWC9.spreadsheet")
    If RegRead("HKCR\OWC10.spreadsheet", "") Then $ExcelLV = ObjCreate("OWC10.spreadsheet")
    If RegRead("HKCR\OWC11.spreadsheet", "") Then $ExcelLV = ObjCreate("OWC11.spreadsheet")
    If RegRead("HKCR\OWC12.spreadsheet", "") Then $ExcelLV = ObjCreate("OWC12.spreadsheet")

    [/autoit]
    [autoit][/autoit]

  • Konvertiere Zahl in binär Floating Point Format IEEE 754

    Hallo,

    was ich möchte:

    Eine Zahl z.B "64,45" abspeichern als Floating Point als 32 oder 64 Bit.

    Floating Point nach IEEE 754
    sign exponent (exponent bias) significand total
    single 1 8 (127) 23 32 Bit
    double 1 11 (1023) 52 64 Bit

    Gibt es eine Funktion in AutoIt? (Und ich habe sie übersehen)
    Oder hat jemand so was schon geschrieben?

    Gruß Paule

  • Nutzen von SVN (Subversion) in SciTe klappt nicht wie gewollt.

    Folgende Änderungen in der csvWrapper.au3 bewirken, dass mit F12 comited wird

    Zeile 335
    Alt:
    ; Check if source was updated
    _RunSVNPgm('status "' & $SourceFilename & '"',0)
    If Not StringInStr(StringLeft($STDText,3),"M") then
    ConsoleWrite("- No changes to commit in the SVN repository." & @LF)
    Return
    EndIf


    Neu:
    ; Check if source was updated
    FileChangeDir($SVNDir & '\SVNAutoIt3Scripts')
    _RunSVNPgm('status "' & $SourceFilename & '"',0)
    If Not StringInStr(StringLeft($STDText,3),"M") And Not StringInStr(StringLeft($STDText,3),"?") then
    ConsoleWrite("- No changes to commit in the SVN repository." & @LF)
    Return
    EndIf

  • Längen- und Breitengrad mit Google Maps

    Wers brauchen kann,

    Gruß
    Paule

  • ProgressBar für E-Mail upload

    Hallo,

    ich möchte eine ProgressBar sehen, wenn ich eine E-Mail versende. Ich
    benutze die erweiterte E-Mail
    http://www.autoitscript.com/forum/index.php?showtopic=23860&hl=email++attach

    Diese kann auch Anhänge versenden. Die Anhänge können ein 10-20 MByte
    groß werden. Je nachdem was im Netzwerk los ist dauert es unterschiedlich
    lang. Ich weis die Größe der Datei-Anhänge aber was ich nicht weis ist die momentane Upload Geschwindigkeit. Jemand ein Tip?

    Danke
    Paule