Hallo Oscar,
es funktioniert auch mit der Fritz!Box 7270.
Formatierte Rufnummern z.B. 030 - 1234 55 66 werden nicht erkannt.
Die Rufnummer 03012345566 wird erkannt.
Gruß,
Paule
Hallo Oscar,
es funktioniert auch mit der Fritz!Box 7270.
Formatierte Rufnummern z.B. 030 - 1234 55 66 werden nicht erkannt.
Die Rufnummer 03012345566 wird erkannt.
Gruß,
Paule
Hallo BugFix,
ich vergaß zu erwähnen Dein Script läuft bei mir unter Vista 64.
Danke Paule
Hallo BugFix,
vielleicht hift Dir das.
http://www.computerperformance.co.uk/vista/vista_registry_autorun.htm
Do you find the NoDriveTypeAutoRun value in HKCU** or HKLM?
Answer: Both! If there is a conflict then HKLM wins.
Gruß Paule
@pino
hier mal mein Code Schnipsel um die Anrufe der Fritz in ein Array zu packen.
#AutoIt3Wrapper_Res_Fileversion=81207.0.0.3
[/autoit] [autoit][/autoit] [autoit]#include <array.au3>
#include <SQLite.au3>
#include "_ArrayMultiDisplay.au3"
#include<StaticConstants.au3>
#include<GUIConstantsEx.au3>
#include<ListViewConstants.au3>
#include<StructureConstants.au3>
#include<WindowsConstants.au3>
#include <GUIListView.au3>
Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("GUIOnEventMode", 1)
Dim $hQuery, $aRow, $bRow, $a[1] = [0], $aTmp[1] = [0]
$sEigeneVorwahl = "040"
Global $ACurrentItem[2], $sTitle, $hListView, $sID, $sSpaltenName
If $CmdLine[0] = 0 Then
$obj = ObjCreate ("winhttp.winhttprequest.5.1")
$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)
;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
_ArrayDelete($a, 0) ; => Anzahl der Array Eintäge
;~ _ArrayDisplay($a)
Gruß Paule
Wers gebrauchen kann,
#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
Func __Punkt()
Send(".")
EndFunc
Func __Quit()
HotKeySet("{ESC}")
HotKeySet("{NUMPADDOT}")
Exit
EndFunc
Viel Spaß damit
Paule
Aus meinem Fundus
Gruß Paule
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
start - Einstellungen - Drucker u. Faxgeräte
Datei - Servereigenschaften - Erweiterte Optionen - Informative Benachichtigung für Netzwerkdrucker anzeigen = Haken raus
Paule
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.
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?
#include <array.au3>
#include <SQLite.au3>
#include "_ArrayMultiDisplay.au3"
#include<StaticConstants.au3>
#include<GUIConstantsEx.au3>
#include<ListViewConstants.au3>
#include<StructureConstants.au3>
#include<WindowsConstants.au3>
#include <GUIListView.au3>
Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("GUIOnEventMode", 1)
Dim $hQuery, $aRow, $bRow, $a[1] = [0], $aTmp[1] = [0]
$sEigeneVorwahl = "040"
Global $ACurrentItem[2], $sTitle, $hListView, $sID, $sSpaltenName
If $CmdLine[0] = 0 Then
$obj = ObjCreate ("winhttp.winhttprequest.5.1")
$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)
;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
Hallo,
geht es Dir ums Telefonbuch oder um die Anrufliste?
Für die Anrufliste habe ich was.
PaulePa
BugFix : Gedacht ist das für die Tabellendarstellung mit sqLite. Ich habe gesehen, dass du angefangen hast mit einer GUI für die Administration von sqLite. Hast du das weiter entwickelt?
Paule
BugFix : Danke! Das ging aber schnell. Das ist genau das ich brauche.
Paule
Oder so?
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")
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
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
Wers brauchen kann,
;http://www.google.com/apis/maps/documentation/reference.html
$sKey = " hier den Key holen! -> http://www.google.com/apis/maps/signup.html"
$sQuerry = 'Hörwarthstr 4, München' ; Umlaute müsen nicht URL konforn konvertiert werden
$oHttp = ObjCreate("winHttp.winHttpRequest.5.1";)
$oHttp.open ("GET", "http://maps.google.com/maps/geo?output=csv&key=" & $sKey & "&q=" & $sQuerry)
$oHttp.send ()
$aValue = StringSplit($oHttp.ResponseText, ",";)
Switch $aValue[1]
Case 200
MsgBox(0, "G_GEO_SUCCESS (200)", "Latitude=" & $aValue[3] & @CRLF & "Longitude=" & $aValue[4])
Case 400
MsgBox(0, "G_GEO_BAD_REQUEST (400)", "A directions request could not be successfully parsed.";)
Case 500
MsgBox(0, "G_GEO_SERVER_ERROR (500)", "A geocoding or directions request could not be successfully processed, yet the exact reason for the failure is not known.";)
Case 601
MsgBox(0, "G_GEO_MISSING_QUERY (601)", "The HTTP q parameter was either missing or had no value. For geocoding requests, this means that an empty address was specified as input. For directions requests, this means that no query was specified in the input.";)
Case 602
MsgBox(0, "G_GEO_UNKNOWN_ADDRESS (602)", "No corresponding geographic location could be found for the specified address. This may be due to the fact that the address is relatively new, or it may be incorrect.";)
Case 603
MsgBox(0, "G_GEO_UNAVAILABLE_ADDRESS (603)", "The geocode for the given address or the route for the given directions query cannot be returned due to legal or contractual reasons.";)
Case 604
MsgBox(0, "G_GEO_UNKNOWN_DIRECTIONS (604)", "The GDirections object could not compute directions between the points mentioned in the query. This is usually because there is no route available between the two points, or because we do not have data for routing in that region.";)
Case 610
MsgBox(0, "G_GEO_BAD_KEY (610)", "The given key is either invalid or does not match the domain for which it was given.";)
Case 620
MsgBox(0, "G_GEO_TOO_MANY_QUERIES (620)", "The given key has gone over the requests limit in the 24 hour period.";)
EndSwitch
Alles anzeigen
Gruß
Paule
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