turbobaby

No, it is always remains empty and gives nothing back

after i try the code i become now allways warnings in WinHttp.au3. all about variables are already declared/assigned in the Code Func __WinHttpHTML5FormAttribs. What does it mean?

Thanks, but its not working

#include "wd_core.au3" #include "wd_helper.au3" #include <MsgBoxConstants.au3> #include <String.au3> #include <Array.au3> Local $sDesiredCapabilities, $sSession, $sSource, $sEl, $sE2, $oSubmit ; Url Local $sUrl = 'https://www.bibleserver.com/ELB/1.Mose1' ; Initialisierung ChromeDriver _SetupChrome() ; Launch the designated web driver console app _WD_Startup() ; Request new session from web driver $sSession = _WD_CreateSession($sDesiredCapabilities) _WD_Window($sSession, 'MAXIMIZE') ; Navigate to the designated URL _WD_Navigate($sSession,$sUrl) $coockies = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//a[@class='cc-primary-btn']") _WD_ElementActionEx($sSession, $coockies , "CLICK") ; Wait for a browser page load to complete before returning _WD_Loadwait($sSession) $sSource = _WD_GetSource($sSession) ;ClipPut($sSource) $bElements = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//div[@class='print-footer hidden-screen-only']", Default, True) If IsArray($bElements) Then For $mi = 0 To UBound($bElements) - 1 $sText = _WD_ElementAction($sSession, $bElements[$mi], 'property', 'innerText') MsgBox(0,$mi &'/'& UBound($bElements),$sText,1) $aOptions = StringSplit ( $sText, @LF, $STR_NOCOUNT) $bElements[$mi] = $aOptions[0] Next _ArrayDisplay($bElements) Else MsgBox(0,'','nothing found') EndIf ; Session schließen _WD_DeleteSession($sSession) ; ChromeDriver beenden _WD_Shutdown() Func _SetupChrome() $_WD_DEBUG = False ; Webdriver Debug-Fenster _WD_Option('Driver', 'chromedriver.exe') _WD_Option('Port', 9715) _WD_Option('DriverParams', ' --port=9715 --log-path="' & @ScriptDir & '\chrome.log"') $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"goog:chromeOptions": {"w3c": true }}}}' EndFunc I need only the notes in []

dosen't work with my HP Spectre

Hello, when I load a website with hidden text elements and try to retrieve the HTML code, I never get the hidden text. When I do an investigation in Firefox I see the text inside but when I go to the same page with Webdriver and try to fetch the text, the code is not inside. What does this mean and how can I call it anyway? $sSource = _WD_GetSource($sSession) $bElements = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//div[@class='print-footer hidden-screen-only']", Default, True)

hi, can one help me to use my files, becose i dont understand how to use this UDF? my File <XMLBIBLE xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="zef2005.xsd" version="3.0.0.9.1" status="v" type="x-bible" biblename="Translation one"> <INFORMATION> <format></format> <date></date> <creator></creator> <source></source> <language></language> <publisher></publisher> <rights>no rights</rights> </INFORMATION> <BIBLEBOOK bname="1.Book" bnumber="1" bsname="1.Book"> <CHAPTER cnumber="1"> <VERS vnumber="1">This ist first verse</VERS> <VERS vnumber="2">this ist second</VERS> <VERS vnumber="3">And so one.</VERS> <VERS vnumber="4">plaplapla</VERS> </CHAPTER> <CHAPTER cnumber="2"> <VERS vnumber="1">And so on and so on</VERS> <VERS vnumber="2">...</VERS> </CHAPTER> <CHAPTER cnumber="3"> <VERS vnumber="1">and many more</VERS> <VERS vnumber="2">...</VERS> <VERS vnumber="5">and and and</VERS> </CHAPTER> </BIBLEBOOK> <BIBLEBOOK bname="2.Book" bnumber="2" bsname="2.Book"> <CHAPTER cnumber="1"> <VERS vnumber="1">And again verse 1</VERS> <VERS vnumber="2">Verse 2</VERS> <VERS vnumber="3">...</VERS> ... <VERS vnumber="22">...</VERS> </CHAPTER> <CHAPTER cnumber="2"> <VERS vnumber="1">...</VERS> <VERS vnumber="2">...</VERS> ... </CHAPTER> </BIBLEBOOK> <BIBLEBOOK bname="Uneverse" bnumber="3" bsname="Uneverse"> <CHAPTER cnumber="1"> <VERS vnumber="1">and so one and so on</VERS> </CHAPTER> </BIBLEBOOK> ... </XMLBIBLE> How can i use it in Array? I need a bookname then chapternumber and versenuber. can you give me an example how can i use it in a gui, how can i search for a text in verses and Show me in witch books, chapter and verses the results is? Thank you!

the numbers i type is not relevant i want only for research to find out, how many numbers i type in a day in a week and in month. and how i just wrote, i find this code on Internet, but this is only incidental. i want generally to find out how can i use an ini or a txt file in the same code if i try to reprogram the example wave code, than it make a mistake example: i have an in file as follows [name] Name=John LastName=Miller [residence] Place=Berlin PostalCode=01234 Street=Hamingway 4 How can i read the Words, if this ini file is in the same Code included?

es ist eine Fräsmaschine und beim programmieren muss ich jeden Tag da tausende von Zahlen tippen. Aber ich möchte gerne allgemein herausfinden, wie ich eine Datei in den Code integriere und mit einfachem Code die Datei abrufe. Wenn ich so vorgehe, wie z.B. der Code mit der Wave abspielen Datei, dann gelingt es mir nicht die ini oder text Datei auszulesen und die Codes wiederzugeben. Ich habe z.B. einen Code zusammengebastelt, mit dem ich meinen Router reconnecten kann. Das sieht so aus: $VERSION = "3.1.0.1" if _Singleton("Skript",1) = 0 Then Exit #Region AutoIt3Wrapper directives section #RequireAdmin #AutoIt3Wrapper_UseX64=Y #AutoIt3Wrapper_OutFile_Type=exe #AutoIt3Wrapper_OutFile_X64=Fritzbox reconnect x64.exe #AutoIt3Wrapper_Compile_both=Y ;#AutoIt3Wrapper_Icon=FritzDSL.ico #AutoIt3Wrapper_Outfile=Reconnect.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=fritz!box reconnect #AutoIt3Wrapper_Res_Description=Turbobaby's Reconnect #AutoIt3Wrapper_Res_Fileversion=$VERSION #AutoIt3Wrapper_Res_ProductVersion=3.1 #AutoIt3Wrapper_Res_Language=1031 #EndRegion #include <IE.au3> #include <INet.au3> #include <GUIConstants.au3> #include <Constants.au3> #include <WebTCP.au3> #include <Misc.au3> #include <Array.au3> #include <WinAPI.au3> #include <Process.au3> #include <APIConstants.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Global $Paused Global $_ConsoleText Global $_LogFile Global $LogDateiErstellen $timerstart = TimerInit() _Console("Mit ESC kann man den laufenden reconnect jederzeit unterbrechen.") HotKeySet("{ESC}", "Beenden") _Console("Es wird überprüft ob die Datei reconnect.ini vorhanden ist") If Not FileExists (@scriptdir & '\reconnect.ini') then call ("INIFILE") $LogDateiErstellen = IniRead("reconnect.ini","SONSTIGES","LogDateiErstellen",0) If not ($LogDateiErstellen="YES") Then IniWrite("reconnect.ini", "SONSTIGES", "LogDateiErstellen", "NEIN") If FileExists (@scriptdir & '\reconnect.log') Then _Console("--------------------------------------------------------------------------") _Console("Turbobaby's Reconnect " & $VERSION) _Console("reconnect.ini wird eingelesen") $FritzBox = IniRead("reconnect.ini","BOX","RouterIpTelefonie",0) $FritzBox2 = IniRead("reconnect.ini","BOX","RouterIpInternetverbindung",0) $Benutzer = IniRead("reconnect.ini","BOX","Benutzername",0) $Passwort = IniRead("reconnect.ini","BOX","Passwort",0) $Telefonie = IniRead("reconnect.ini","LINKS","Telefonie",0) $NeuVerbinden = IniRead("reconnect.ini","LINKS","NeuVerbinden",0) $UPNPVersuchen = IniRead("reconnect.ini","LINKS","UPNPVersuchen",0) $NeuStartenLink = IniRead("reconnect.ini","LINKS","NeuStartenLink",0) $NeuStarten = IniRead("reconnect.ini","LINKS","NeuStarten",0) $VoipCheck = IniRead("reconnect.ini","HTML","VoipCheck",0) $LogInUserFeld = IniRead("reconnect.ini","HTML","LogInUserFeld",0) $LogInPasswortFeld = IniRead("reconnect.ini","HTML","LogInPasswortFeld",0) $LogInButtonID = IniRead("reconnect.ini","HTML","LogInButtonID",0) $NeuVerbindenButton = IniRead("reconnect.ini","HTML","NeuVerbindenButton",0) $NeuVerbindenID = IniRead("reconnect.ini","HTML","NeuVerbindenID",0) $NeuStartenButton = IniRead("reconnect.ini","HTML","NeuStartenButton",0) $NeuStartenName = IniRead("reconnect.ini","HTML","NeuStartenName",0) $ToolTipsAnzeigen = IniRead("reconnect.ini","SONSTIGES","ToolTipsAnzeigen",0) $Ton = IniRead("reconnect.ini","SONSTIGES","Ton",0) $VoipChecken = IniRead("reconnect.ini","SONSTIGES","VoipChecken",0) $ShowScreen = IniRead("reconnect.ini","SONSTIGES","ShowScreen",0) $ProgrammZeitlichBeenden = IniRead("reconnect.ini","SONSTIGES","ProgrammZeitlichBeenden",0) $ZEITLIMIT = IniRead("reconnect.ini","SONSTIGES","ZEITLIMIT",0) $ProgrammPausieren = IniRead("reconnect.ini","SONSTIGES","ProgrammPausieren",0) $PausenCountdown = IniRead("reconnect.ini","SONSTIGES","PausenCountdown",0) TraySetIcon("FritzDSL.ico") TraySetToolTip("Turbobaby's Reconnect " & $VERSION) Opt("TrayOnEventMode", 1) Opt("TrayMenuMode", 1) Opt("TrayAutoPause", 0) $INFO = TrayCreateItem("Über Turbobaby's Reconnect") $INIFILEINFO = TrayCreateItem("So sollte die Reconnect.ini Datei aussehen") TrayCreateItem("") $EXIT = TrayCreateItem("Reconnect Abbrechen") TrayItemSetOnEvent($INFO, "Info") TrayItemSetOnEvent($INIFILEINFO, "INIFILEINFO") TrayItemSetOnEvent(-1, "ExitEvent") _Console("Eine GUI für den Internet Explorer wird erstellt.") $oIE = _IECreateEmbedded() $Form1 = GUICreate("FritzBox Reconnect", 1024, 640, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN)) $IE_1_GUI = GUICtrlCreateObj($oIE, 0, 0, @DesktopWidth, @DesktopHeight, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $ES_AUTOVSCROLL + $WS_VSCROLL) If $ShowScreen='JA' Then GUISetState(@SW_SHOW) If $ShowScreen='JA' Then GUISetState(@SW_MAXIMIZE) If Ping($FritzBox,250)=0 Then Call ("RouterNichtGefunden") If Ping($FritzBox2,250)=0 Then Call ("RouterNichtGefunden") For $i = 10 To 1 Step -1 $IPalt = _GetIP() $IPneu = $IPalt If $IPneu>0 then $i=0 Next _Console("Die aktuelle IP wird abgefragt. Die Alte IP lautet: " & $IPalt) _Console("Falls der Ton auf AN steht, sollte der jetzt abgespielt werden.") $binWave = Wave() $tWave = DllStructCreate('byte[' & BinaryLen($binWave) & ']') $pWave = DllStructGetPtr($tWave) DllStructSetData($tWave, 1, $binWave) If $Ton = "AN" then _WinAPI_PlaySound($pWave, BitOR($SND_ASYNC, $SND_MEMORY, $SND_NOWAIT)) $tWave = 0 _Console("Mit F7 kann man die Info anzeigen lassen.") HotKeySet("{F7}", "INIFILEINFO") If $VoipChecken = 'JA' Then Call ("VORCHECK") If $ProgrammPausieren="JA" Then HotKeySet("{PAUSE}", "Pause") _Console("Mit der Pause Taste kann mann das Programm pausieren.") For $i = $PausenCountdown To 1 Step -1 If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: "& $IPalt &" - Neue IP: ?.?.?.?", "Keine Telefonate! Reconnect startet in " _ & $i & " Sekunden."& @CRLF &"Zum pausieren des reconnects Pause-Taste drücken." , 20, 1) Sleep(1000) Next EndIf If $NeuStarten='JA' then call ("reboot") Else Call ("VERBINDEN") Call ("ABGLEICH") For $i = 10 To 1 Step -1 $IPneu = _GetIP() Sleep(100) If $IPneu>0 then $i=0 Next _Console("Die IP wird nochmals abgefragt: " & $IPneu) If $IPneu = $IPalt Then Call ("VERBINDEN") EndIf If $IPneu = $IPalt Then For $i = 5 To 1 Step -1 $IPneu = _GetIP() Sleep(100) If $IPneu>0 then $i=0 Next _Console("Die IP wird nochmals abgefragt: " & $IPneu) EndIf If $IPneu = $IPalt Then Call ("FEHLER") Call ("ERFOLGREICH") _Console("Neue Ip lautet: " & $IPneu) Func ABGLEICH() For $i = 5 To 1 Step -1 $IPneu = _GetIP() Sleep(100) If $IPneu>0 then $i=0 Next _Console("Die IP wird nochmals abgefragt: " & $IPneu) EndFunc Func VORCHECK() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & " - Neue IP: ?.?.?.?", "Voip-Leitungen werden überprüft " , 20, 1) _Console("Jetzt wird zum ersten mal überprüft ob eine aktive Telefonieleitung besteht.") _Console("Die Seite http://" & $FritzBox & $Telefonie & " wird aufgerufen") _IENavigate($oIE, "http://" & $FritzBox & $Telefonie) $oUser =_IEGetObjByName($oIE,$LogInUserFeld) $oPass =_IEGetObjByName($oIE,$LogInPasswortFeld) $oSubmit = _IEGetObjByID($oIE,$LogInButtonID) _Console("Der Benutzername, falls benötigt, wird eingegeben.") _IEFormElementSetValue ($oUser, $Benutzer) _Console("Das Passwort, falls benötigt, wird eingegeben.") _IEFormElementSetValue ($oPass, $Passwort) _Console("Nun wird auf LOGIN gedrückt.") _IEAction ($oSubmit, "click") _IELoadWait($oIE) _Console("Nun wird die ganze HTML Seite in den Speicher geladen.") $HTML = _IEDocReadHTML ($oIE) _Console('Jetzt wird überprüft ob das Wort "'& $VoipCheck &'" in dem ausgelesenen HTML Code drin vorkommt.') $ueberpruefen = StringInStr($HTML, $VoipCheck) If $ueberpruefen=0 Then _Console("Keine Telefonate auf der " & $FritzBox & " entdeckt ") If $ueberpruefen>0 Then _Console("Vorcheck: Zurzeit wird über die " & $FritzBox & " telefoniert ") If $ueberpruefen>0 Then Call ("VOIPCHECK") EndFunc Func VERBINDEN() _Console("Alte IP war: " & $IPalt) If $UPNPVersuchen="JA" Then Call ("UPNPNEUAUFBAUEN") For $i = 5 To 1 Step -1 $IPneu = _GetIP() Sleep(100) If $IPneu>0 then $i=0 Next _Console("Aktuelle IP überprüfen, sie lautet: " & $IPneu) If $IPneu = $IPalt Then Call ("NEUAUFBAUEN") If $IPneu = $IPalt Then $IPneu = _GetIP() If $IPneu = $IPalt Then _Console("Aktuelle IP überprüfen, sie lautet: " & $IPneu) EndFunc Func NEUAUFBAUEN() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?", "Keine Telefonate! Die Internetverbindung wird über die FritzBox aufgebaut.", 20, 1) _IENavigate($oIE, "http://" & $FritzBox2 & $NeuVerbinden) $oUser =_IEGetObjByName($oIE,$LogInUserFeld) $oPass =_IEGetObjByName($oIE,$LogInPasswortFeld) $oSubmit = _IEGetObjByID($oIE,$LogInButtonID) _IEFormElementSetValue ($oUser, $Benutzer) _IEFormElementSetValue ($oPass, $Passwort) _IEAction ($oSubmit, "click") _IELoadWait($oIE) $HTML = _IEDocReadHTML ($oIE) $vorhanden = StringInStr($HTML,$NeuVerbindenButton) _Console('Das Wort "Neu verbinden" von dem Router "' & $FritzBox2 & '" steht auf der ' & $vorhanden & ' stelle') $Button = _IEGetObjByID ($oIE,$NeuVerbindenID) _IEAction($Button,"click") _IELoadWait($oIE) EndFunc Func UPNPNEUAUFBAUEN() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?", "Keine Telefonate! Die Internetverbindung wird über UPnP neu aufgebaut.", 20, 1) _WebTcp_Startup() $oWebTCP = _WebTcp_Create() $sPacket = '<?xml version="1.0" encoding="utf-8"?>' & @CRLF & _ '<s:Envelope s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">' & @CRLF & _ ' <s:Body>' & @CRLF & _ ' <u:ForceTermination xmlns:u="urn:schemas-upnp-org:service:WANIPConnection:1" />' & @CRLF & _ ' </s:Body>' & @CRLF & _ '</s:Envelope>' $oWebTCP.Navigate("http://" & $FritzBox2 & ":49000/upnp/control/WANIPConn1", $sPacket, "text/xml", 49000, _ False, 'SOAPACTION: urn:schemas-upnp-org:service:WANIPConnection:1#ForceTermination') _Console("Alte IP war: " & $IPalt) For $i = 10 To 1 Step -1 $IPneu = _GetIP() Sleep(100) If $IPneu>0 then $i=0 Next _Console("aktuelle IP wird abgeglichen: " & $IPneu) EndFunc Func ZEITLIMITEXIT() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?","ACHTUNG: Das eingestellte Zeitlimit wurde erreicht. Programm wird beendet.", 20, 1) Sleep(5000) Call ("EXITEVENT") EndFunc Func FEHLER() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?","F E H L E R: Reconnect war nicht erfolgreich. Programm wird beendet.", 20, 1) Sleep(5000) Call ("EXITEVENT") EndFunc Func RouterNichtGefunden() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?","F E H L E R: Der Router wurde nicht gefunden. Programm wird beendet.", 20, 1) Sleep(5000) Call ("EXITEVENT") EndFunc Func ERFOLGREICH() If $NeuStarten='JA' then If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Neue IP: " & $IPneu, _ "Router erfolgreich neu gestartet. Alte Ip war: " & $IPalt, 20, 1) Sleep (5000) Else If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Neue IP: " & $IPneu, _ "Neue IP erfolgreich aufgebaut. Alte Ip war: " & $IPalt, 20, 1) Sleep (5000) EndIf EndFunc Func INFO() TrayTip("Turbobaby's Reconnect", "Version " & $VERSION, 20, 1) Sleep(2000) EndFunc Func INIFILEINFO() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect", "Version " & $VERSION, 20, 1) $Text1 = '# Achtung: diese Datei kann gelöscht werden, wenn versehentlich zu viel experimentiert wurde.' _ &@CRLF&'# Die Musterdatei wird dann automatisch neu erstellt.' _ &@CRLF&'# Bitte passen sie die Einstellungen nach ihren Daten an.' _ &@CRLF&@CRLF $Text2 = '[BOX]' _ &@CRLF&'# Hier sind persönliche Dateien für die FritzBox.' _ &@CRLF&'RouterIpTelefonie=192.168.177.1' _ &@CRLF&'RouterIpInternetverbindung=192.168.177.100' _ &@CRLF&'Benutzername=Max Mustermann' _ &@CRLF&'Passwort=Test01' _ &@CRLF&@CRLF $Text3 = '[LINKS]' _ &@CRLF&'# Hier stehen die Links, wo auf der FritzBox zugegriffen wird.' _ &@CRLF&'Telefonie=/login.lua?page=/home/home.lua' _ &@CRLF&'NeuVerbinden=/login.lua?page=/internet/inetstat_monitor.lua' _ &@CRLF&'UPNPVersuchen=JA' _ &@CRLF&'NeuStartenLink=/login.lua?page=/system/reboot.lua' _ &@CRLF&'NeuStarten=JA' _ &@CRLF&@CRLF $Text4 = '[HTML]' _ &@CRLF&'# Hier stehen die Wörter, wonach gesucht wird, bzw. wie die einzelnen Buttons und LogIn Felder heissen.' _ &@CRLF&'VoipCheck=call_direction_' _ &@CRLF&'LogInUserFeld=uiUser' _ &@CRLF&'LogInPasswortFeld=uiPass' _ &@CRLF&'LogInButtonID=uiSubmitLogin' _ &@CRLF&'NeuVerbindenButton=Neu verbinden' _ &@CRLF&'NeuVerbindenID=uiReconnectBtn' _ &@CRLF&'NeuStartenButton=Neu starten' _ &@CRLF&'NeuStartenName=reboot' _ &@CRLF&@CRLF $Text5 = '[SONSTIGES]' _ &@CRLF&'# Die Logdatei kann nur einmal erzeugt werden, danach wird der Wert automatisch auf NEIN gesetzt.' _ &@CRLF&'# Die Datei dient rein für eine Fehleranalyse.' _ &@CRLF&'# Diese Einstellung gehört zur BETA Phase, und wird in zukunft noch ausgebaut.' _ &@CRLF&'# Zeitlimit in Sekunden einstellen z.B. 540 für 9 Minuten' _ &@CRLF&'LogDateiErstellen=NEIN' _ &@CRLF&'ToolTipsAnzeigen=AN' _ &@CRLF&'Ton=AN' _ &@CRLF&'VoipChecken=JA' _ &@CRLF&'ShowScreen=NEIN' _ &@CRLF&'ProgrammZeitlichBeenden=JA' _ &@CRLF&'ZEITLIMIT=540' _ &@CRLF&'ProgrammPausieren=JA' _ &@CRLF&'PausenCountdown=10' _ &@CRLF&@CRLF MsgBox (4096, "So sollte die Reconnect.ini Datei aussehen", $Text1 & $Text2 & $Text3 & $Text4 & $Text5 ,20) Sleep(2000) EndFunc Func INIFILE() _Console("Die Datei reconnect.ini wurde nicht gefunden, Programm wird beendet.") TrayTip("Turbobaby's Reconnect " & $VERSION, _ "A C H T U N G: reconnect.ini Datei nicht gefunden. Musterdatei wird erstellt und das Programm beendet.", 20, 1) $Text1 = '# Achtung: diese Datei kann gelöscht werden, wenn versehentlich zu viel experimentiert wurde.' _ &@CRLF&'# Die Musterdatei wird dann automatisch neu erstellt.' _ &@CRLF&'# Bitte passen sie die Einstellungen nach ihren Daten an.' _ &@CRLF&@CRLF $Text2 = '[BOX]' _ &@CRLF&'# Hier sind persönliche Dateien für die FritzBox.' _ &@CRLF&'RouterIpTelefonie=192.168.177.1' _ &@CRLF&'RouterIpInternetverbindung=192.168.177.100' _ &@CRLF&'Benutzername=Max Mustermann' _ &@CRLF&'Passwort=Test01' _ &@CRLF&@CRLF $Text3 = '[LINKS]' _ &@CRLF&'# Hier stehen die Links, wo auf der FritzBox zugegriffen wird.' _ &@CRLF&'Telefonie=/login.lua?page=/home/home.lua' _ &@CRLF&'NeuVerbinden=/login.lua?page=/internet/inetstat_monitor.lua' _ &@CRLF&'UPNPVersuchen=JA' _ &@CRLF&'NeuStartenLink=/login.lua?page=/system/reboot.lua' _ &@CRLF&'NeuStarten=JA' _ &@CRLF&@CRLF $Text4 = '[HTML]' _ &@CRLF&'# Hier stehen die Wörter, wonach gesucht wird, bzw. wie die einzelnen Buttons und LogIn Felder heissen.' _ &@CRLF&'VoipCheck=call_direction_' _ &@CRLF&'LogInUserFeld=uiUser' _ &@CRLF&'LogInPasswortFeld=uiPass' _ &@CRLF&'LogInButtonID=uiSubmitLogin' _ &@CRLF&'NeuVerbindenButton=Neu verbinden' _ &@CRLF&'NeuVerbindenID=uiReconnectBtn' _ &@CRLF&'NeuStartenButton=Neu starten' _ &@CRLF&'NeuStartenName=reboot' _ &@CRLF&@CRLF $Text5 = '[SONSTIGES]' _ &@CRLF&'# Die Logdatei kann nur einmal erzeugt werden, danach wird der Wert automatisch auf NEIN gesetzt.' _ &@CRLF&'# Die Datei dient rein für eine Fehleranalyse.' _ &@CRLF&'# Diese Einstellung gehört zur BETA Phase, und wird in zukunft noch ausgebaut.' _ &@CRLF&'# Zeitlimit in Sekunden einstellen z.B. 540 für 9 Minuten' _ &@CRLF&'LogDateiErstellen=NEIN' _ &@CRLF&'ToolTipsAnzeigen=AN' _ &@CRLF&'Ton=AN' _ &@CRLF&'VoipChecken=JA' _ &@CRLF&'ShowScreen=NEIN' _ &@CRLF&'ProgrammZeitlichBeenden=JA' _ &@CRLF&'ZEITLIMIT=540' _ &@CRLF&'ProgrammPausieren=JA' _ &@CRLF&'PausenCountdown=10' _ &@CRLF&@CRLF FileWrite(@scriptdir & '\reconnect.ini', $Text1 & $Text2 & $Text3 & $Text4 & $Text5) Sleep (10000) Exit EndFunc Func VOIPCHECK() do If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?", "Achtung, zur Zeit werden noch Telefonate über die FritzBox geführt." , 20, 1) _IENavigate($oIE, "http://" & $FritzBox & $Telefonie) $oUser =_IEGetObjByName($oIE,$LogInUserFeld) $oPass =_IEGetObjByName($oIE,$LogInPasswortFeld) $oSubmit = _IEGetObjByID($oIE,$LogInButtonID) _IEFormElementSetValue ($oUser, $Benutzer) _IEFormElementSetValue ($oPass, $Passwort) _IEAction ($oSubmit, "click") _IELoadWait($oIE) $HTML = _IEDocReadHTML ($oIE) $ueberpruefen = StringInStr($HTML, $VoipCheck) _Console("Ausgabewert von der " & $FritzBox & ": " & $ueberpruefen) If $ProgrammZeitlichBeenden="JA" And TimerDiff($timerstart) > $ZEITLIMIT*1000 Then Call("ZEITLIMITEXIT") If $ueberpruefen > 0 Then Sleep (10000) until $ueberpruefen=0 EndFunc Func _WinAPI_PlaySound($sSound, $iFlags = 0x00020010, $hInstance = 0) Local $TypeOfSound = 'ptr' If $sSound Then If IsString($sSound) Then $TypeOfSound = 'wstr' Else $sSound = 0 $iFlags = 0 EndIf Local $Ret = DllCall('winmm.dll', 'int', 'PlaySoundW', $TypeOfSound, $sSound, 'ptr', $hInstance, 'dword', $iFlags) If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0) Return 1 EndFunc ;==>_WinAPI_PlaySound Func Wave() Local $Wave $Wave &= 'UklGRmhPAABXQVZFYmV4dFoCAABwb3B1cCBibG9ja2VyIDQxMGkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUHJvIFRvb2xzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABrUlk0ZVNhNmlQOUMAAAAAAAAAAAAAAAAAAAAAAAAAADIwMDQtMDQtMzAxNDoyNzoxMuksyjIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGZtdCAQAAAAAQACAESsAAAQsQIABAAQAG1pbmYQAAAAgI745vkuxAEAAAAAAAAAAGVsbW9SAQAAQwfTCdIJJgsmCxoNGg3nD+cPIBIgEgcSBxKwDrAOHAgbCC7/Lv+c9Zz1a+1r7RzoHeiI5ojm9+j46DLvM+/69/r3rgCtAMcGxwbjCeQJxQvEC0YORg5vEW8RjRONE/8S/xJOD04PoAifCMf/x/+c9pv2Je8l73/qf+rH6MfoCOoH6pzunO4w9jD2hv6F/tYE1gRpCGgIwQrBCrMNsw1UEVQR0hPTE30TfBMwEC8QiAqIChEDEQPU+tT6NfM280HtQe1r6WvpAOgA6NXp1emq76nvNfg1+HcAdwChBqIGLgsuC04PTg8UExMTKhUrFUQURBSiEKIQLQssCzYENgRG/Eb8pvSm9KTupO7d6t3qculz6QTrBOuO8I3wK/kr+Z8BnwFOB04HVgpWCmEMYgyZDpkOoRCiEB8RHxGDD4MPHwwfDMcGxwY4/zf/oPaf9lzvXO9kYXRh4EoAAAAAAAAAAAAA9v8HABMABwAOABYAHgAYAD8APgAzACgARQBSAGkAVgBxAGYAgwCOAJwAlQDAAJ0AxgDTAOoA3gD8APkAHAEOASoBIAFOAS4BSwFnAYUBZAGPAX4BoQGUAb4BqAHFAcoB6QHFAQIC7wEIAvsBJgIZAi0CFwJDAiwCRAI2AlECPQJOAkMCZQJEAl4CVAJsAlACeQJjAnECXgJ1AmMCXgI/Al8CVwIvAh8CPQILAtwB+wHsAbkBdQFwAUMBQgH6AOwAyADFAI8AfgBjAGcAGQAbABsACQC8/9v/uP+g/2j/hP9e/0v/K/9F/+f+5v6s/rv+gP6L/i/+P/75/Q7+wP3H/XT9kv0p/UP96fwP/bX8vfxf/In8PPxm/Cj8NPz3+yn8G/wn/BL8SfxR/HL8g/yN/M38Bv1G/UP9mv27/fX9/f0+/kz+mv6o/s7+3/4p/yH/SP9e/57/kv+6/9H/JQARADMAPQB9AHsA+gDqADMBNQG1AZwBIAL+AYMCqQJEA/ACiAN+AyAE8QOuBJYEOgX7BLAFjwUbBtYFgQZOBtYGmQYRB9wGTwcAB30HOgexB4EH2gd7B9IHnQfoB5wH8getB/sHsgczCPAHbQgxCNUIeggUCc0I' $Wave &= 'bAkWCccJeQkwCsgJZgoZCp8KPgrTCn4K8QqACuMKkwp9CiAKEgqxCU8JAwnGCH4I6QeOB+QGwgb+BbYF0QSvBMUDlwPNAr4CEgIJAncBRAHJAOwAKQAKAFr/bv+I/of+iv27/Yn8kvx7+7n7f/qd+kv5h/kn+IH44/YS92P10/XW8zz05PFZ8vvvjPDr7Yzuuutn7HPpMOpA5yPoWuVF5mrjVuTM4dLibOCX4WrfheC23rrf8N0z35rdzd593ZbeUt2K3kLdd95R3XPegd2l3qXd7d7u3fve690V3w3eUt/+3f/e8N043+7d/97S3QHf6N0Y3zzeTN+D3rvf+N4C4Hnfq+CD4HzhkOG34l3jSuRj5UDmt+eY6FLqF+sg7bjt4e9m8GPy5/LZ9DH1YPez97n5/PkH/B38Mf43/uP/BwDQAaIBPgM9AxQF0QSwBnsGmwhWCH0KLAqiDCgMsQ46DvsQXRBGE7ASEhZIFasY5hedG5EaNR5FHdIgsh9NIw4iRiURJDIn0CWoKFIn/Cl9KNYqhCmqKxsqSCzFKrEsQitSLbMruy0xLJAuDy2cL98tfjDdLgAySTAuM4wxozS1MvU1OTQhNyo1HzhTNtw45TbwOBA3nTinNoE3qTXKNe4zcTO8Mf0wSi88LrIsqCspKukohCcqJskkViMgIqcgkh8xHjkdCRzkGocZ6Ri7F8QW5BRPFIYS3xG7DyQPMQ3GDLcKVAruB68H6wTGBHMBUwGa/dP9cfl2+V705/R87/LvJer/6vLkweVW33/gJ9pw2yfVjNYA0KvRGMvkzBrH7cihw8HFOcFjwye/TcHvvS/ANL16v9i8Mr+HvLO+PbyNvlq8u76hvNC+T72Iv0G+psBsv23BhsDNwtTB4MMWwyvFB8QZxv/E+cbUxc/HPcYzyMPGwMiyx4bJWck/y1jLIM0GzrTPqdEv08TVN9cz2oHb6d4F4Ifjc+Q76Ajprexw7d3wRfEY9Yr1IflY+TH9Qv2gAKUA0gOvA3AGPgawCGsICgu0CngN+wwaEJIPGxOGEnMWoBXGGfsYcR1mHD8hGiAAJcwj7Sh9J+EscSsPMVcv1DQNM1s4fTagO4U5bT5YPI1AYj4WQuI/PUPUQJVDc0GhQ0FBHkPYQHJCHEDQQa0/VEEkPylB6T5EQQs/50GpP51CYEB2QydB90OvQeJEekJvRTFDu0VKQ9lFfUM7Rd1CFkTWQQtCtj8mPw49wju9ORU4IDYJNE8y8i9WLrIrMSp9JyImTyMsIkEfJx4/G14aphfHFhAUcRN7EO4PKw2xDBkKxAkaB+YGTgQkBH0BbwHe/u/+Ifwx/Pn4SvmU9eD1tPEx8mjtCO6R6FzpXONc5AbeKd+i2PzZQdPD1AnOts/fyLzKNMRIxvq/GsJUvKK+Prmnu8K2Qbm8tEy3N7PLtSay1rRdsRG0E7HBsyWxy7NvsSS0WLLwtGWzAbZgtPy2fLXwt4+2Jrngt0G6zbg8u7a5Lrzmuiy9Grxwvi+9dr+ivtLAh8CvwuPCAMXAxaPHEMn5ygnNw8530Q/TRdas11fbi9xx4I7h1eWx5gjrvOsj8LTwJ/V69e/5KPp5/n3+oAKdApsGTwZwChkK9w2JDa8REBETFVMUjBjDF90b8Bo6HxcekyJ8IV0m/CRGKt8oeC7uLOQyEzEsN101bDtgOQ4/5TwoQvg/40R8QhVHqkSvSEZGqEkfRxRKmkdlStVHKEqsR5lJEEfzSIBGi0gURjRIwEULSJZFBkilRV5IyEWlSFRGKkmURo5JFUcHSndH9EmCR4tJA0eHSBNG/EaSRNlEeUI4Qvw/Kz8FPdc7xTlMOHQ2dDSmMnMwxy7xK3Mqeyc4JjEj3yHDHs4dnRqtGc4WBxYTE2sScw/3DhcMrAvgCIsIvQWSBbsCpAJ7/37/VPx6/Nn4EPkj9Yn1OPGy8dLsfO0i6PLoD+MT5OPd/N5O2KjZ6NJ51LTNWM+ayIPKKsQ2xhbAOcKAvNC+' $Wave &= 'Y7m8u5+2I7mOtBi39bKXtb+xXLQTsdSzLLHDs6exWbSoskK177OHtom1E7gOt365Y7jVurK5GbyOut+8Qbujvdq7I754vMy+Vr2Sv0W+iMCKv7nBJMFLwyTDK8WWxZXHachUysDLgM2Wz0TR2NNL1YHY39l/3aned+J944bnUeh87DPtlPH68T72pPbi+g37Jv8o/ygDFgMGB8IGhgovChYOkw14EdsQphT9E/MXGBceGzgaeR5rHS0iBSEdJtAkRirXKJ8uAy3mMjQxHDc2Nc86zjgZPvw76EC0PiFD4kDWRHNC8UWfQ9BGWEQuR9RElkccRZ9HPkWPRxhFlkc2RahHJ0XFR2VFu0c8RdVHc0X/R5FFFkiSRRtIukXlR2VFXUfxRIhGLkRhRfRCwUOFQdZBiz+CP2M9yjy8Otk54TesNsw0LDN7MYIv2i2MKxwqmydAJoAjSCJ1H2YejhudGrAX4RbzE0YTUxDHD+8Mfwy3CWsJmQZRBnwDawOHAHwAR/1f/dD5AfoO9nH27PFa8nXtFe7F6JbpBOTu5O3eGeAD2j7b9NRx1hjQw9FEywnNtcapyHnCicSJvsrADLtovRC4ebqCtQy4frMbth6yvrRJsfazE7HBs0+x9LPwsZO0r7JWtZOzJraZtBy3gbUWuHC257hnt+i5YrjCukq5t7tSurK8brvCvYu82L7zvSvAk7/Rwb7B0sNCxErGQsctyajKfsyBzinQjdIc1PDWU9iL28jcTOBg4THlIOYw6ubqNO/R7wX0YfSl+Ob4Rf1f/aIBkAGTBWYFVwn8CM0MZgwWEIEPHBN5ElAWjRWXGbYYDh0YHLUglR9eJCQjQijeJh4soyrHLyYuMzN1MWE2hjQzOUw3wDurOeA90zuYP2E95EC8PvhBsz+uQnBAUkMFQdVDkkFcRP5BxUR2QiFFzUJ7RRtD7kWFQy1G2kN2RhFElEYfRIlGMkReRu9D7EWXQydFx0I0ROVBEEPIQLNBej8ZQO89Kj4HPOY75TljOWw3pTbQNL4z+DG0MBEvhy3pKzgq1yioJlQlACPNISUfFR5gG3gaixe6FvwTURN9EOYP4wx8DG0JGQndBaAFIgIaAkf+Sf4w+nD6/PVL9nDx9PGj7ETtvOec6O7i4uP73SDf5dg72ufTbdXuzpDQBMrdy0bFQsf4wB7D4rwlv065urtMtsW47bOPtlmy87SBsTS0FrHBs0ex87POsXe0irIutWyz/bVVtO+2P7XGtwi2jLj6tnO507dIup24CruUufa7nLr6vNy7J75tvby/Sb90wavB0MNpxGfGpMeQyUTLFc0pz8nQK9O81HPX1djf2xPdkeCe4UjlPOYF6rTqgO4r7+3yT/Mv94j3GvtA+wz/B/++ArYCgAZBBhUKugmpDTUNGRF7EG8UyBP8FyYXsRu9Gp4fkx6OI1IihCc0Jk4rzikML3UtoDLoMMU18jPEONU2LjspOU49PDsvPwg96kC3PiNC4j86Q/JAJETTQQJFqELcRYJD5kZ2RJJHMUUwSLhFnEgiRsVIS0YXSaFGW0nfRlVJ0kY/ScFGvEhPRgRIiUXeRntEf0UjQ/BDoEE7Qvs/fkBQPpU+djxmPFY6mDmpN3w2ojQ1M3Qxui8fLiIspSopKMcm+SPJIgEg1R7+GyEbVhh3F7EU+xMoEZsQyA1JDTYK4QmeBmUGrQKTAof+mP5C+nL67fVB9nbx8PHX7IntAejI6Pzi+eP43STf9NhB2qLTKdVdzgzQRskay2bEdcY6wF3CULymvvS4UbsDto+47LN7tn+yHbWGsTS0OLHZsxOxxLNbsfyz67GltMayXLWos0K2ZbT3tmC15bcytrO4Obe3uVO4wbpjucS7gLrdvO+7R77avQzAJ8Bgwt3C6sS2xbnH9sjOyoLMSc5l0ADSqNQf1vzYVdqX3bveKuIx4+7mw+em617sVfDR8MP0J/Uf+Vr5VP1q/VMBTQEyBf4E1AiLCCgMuguIDwcP' $Wave &= '8RJLEqIW2RVeGnwZNR4uHfgh2CD2Jaok3il0KNctRiyuMQUwUDWCM6g4tDajO6Y5YD47PKpAfD5zQiZAB0TDQW1FC0OIRi9EgUcHRSNIxEXHSElGJ0muRotJCEfkSWVHSErAR6NKH0jkSlhIGEuNSAFLcUiVSg9IA0qDR4NJBEfHSEpG1kdvRbNGO0RJRe1CiEM9QW1BNz8wPwA9gjx+Oqo5rzdkNpA0/DI6MVovyS2sKycq5SeKJh4k5iKHIGkfFx0bHIkZphjzFUMVXRKxEaMOKw4ZC7kKbAcrB40DcAN8/4r/gvug+2H3svcl84zzne4879HpjOq25KblY9984OvZPNu41C/Wjc8r0VzKMMx0xW/HCcEmw/y8Rb+Iuea7mbYduYS0FLfxso213bGEtEmx/LMkscyzE7HBsxmxxLNusRy04bGPtIKyGrX7sqW1kLMrtiy0t7bAtFi3n7UcuIu2DbnTt0e6SrmquyO7ir1hvZi/yr//waPCt8SmxZzH8sjQypTMTc5u0BXSf9Tu1X3Y1dm53Ovd8uD34QjlAeYc6eDpEe257QXxdvHB9Cb1Tvia+Kb7yPvy/v3+hgJwAkYGDgYrCtgJNg64DWISuBFuFsQVdRqIGT0eMx0EIt4glyVSJBopuSdvLOkqcC/cLRsyZDCbNMwy3jYPNSE5Ijf4OgM5fzxnOtM9vTsuPwg9m0BuPtNBjD+jQnBAfEMkQeJDmkF1RCJCtURgQsBEb0KRRDNCD0S7QTFD80C2Qm9AQ0IBQHpBPz+dQGo+Oz8XPak9jDu2O7I5VDlfN6U2xjS6MwAyuDARL4It7ysRKqUoaSYhJYYiTyHEHrwd2xr0GUIXbxaoEwkTGhCND3kMDAybCFgI8QTEBDIBLAGM/ZX9pvn1+bn1Ava98UDySu377bDobenA48Dk49753+HZK9vR1EnWAtCp0QrLzMwexh/IiMGfw6m98b9iur+8srclun+1Dbjcs3G2mLIxta+xY7QusdezE7HGs0ex8LNisRW067GQtIqyK7Vcs/21VLTZtiG1vrdvtuO44LdcurK5D7ytuwO+Ar49wE7AecKPwqHEXsVfx2TIS8r8y7bNy89s0aPTKdWl1wPZA9w43Xngg+HU5M/lW+kS6p/tO+7l8W/yBvZO9vf5Nfqm/bP9hgGIAYgFSgVaCRAJUw3aDFMRwBBIFZMUFxk3GL4cyxuRIHEfaCQtIyUoxya5K0UqMC+cLW4ypDBINYoz+DcQNnk6eziEPHU6aT5LPBhA8T2LQU0/7EKpQClE0UFuRRdDd0YSRIBHE0VhSOhF+Eh8RmhJ+UbgSUJH8kmARxpKi0f+SYpH3UlQR6lJKEdOSdlG90h0RnVI+0WdRz5FYkbyQ7BEXkLDQolApEBjPic+FTygO5s5xTjTNus1EDTkMjAxli/+LV4s1yotKckntSVxJGgiOSH6HuodfRuYGhsYRBeSFOQT+BBYEFwN9AyjCUgJ0QWnBfgB3QGh/cH9H/lO+SX0kPT67o3vleld6lXkQuWi3r3f9thY2m7T39QZztvPGsn4yoHEgsZrwJ7CEb1Xv0q6q7z4t2G6Kba8uJy0Jrdks/a1hLIytd2xfLR4sSe0SbH2sy6x2bMTscKzJLHPsyKxzrNtsRa0A7KntKCySrWFsxK2nbQ6txC2ibjht1m6BbptvJG8y75jv6fBz8LTxFTGU8gSyt7LEc7PzyHSqdNF1r3XZdqk22fekN9k4mTjKOYF59rpm+p67SbuDvGI8bn0JvVQ+JP4/vsj/OT/4/8FBOUDXwggCIUMDAzXEFAQDxVQFDAZZhh1HV0cZCFZIFUl+yPDKG8nBCx9KuAuTi2jMfMvLTRjMnc2ojTLON828DrnOLc8tTprPj08xT+xPfFAqD6vQYQ/e0IyQEFD9UC8Q3pBP0TpQZdEO0KyRG9C3ER7QktF7kKaRUlDmUU3Q2FFAkOeRExCnENSQSFC4D9pQD4+aT5JPDI8IjpxOXs3' $Wave &= 'aDahNCczWjGtLxUuMyysKoAoKycSJcYjcSFaIPYd4hxKGnAZ9RY4FrYT+RJEELwPEQ2dDAEKrgnUBpoGSwMuA4r/hf9z+6L7Dvde90vyw/J27QnuKuj+6NHi3+NV3WXesNce2QLSk9OezE7OysfCyYnDjcXKvwPCc7yqvl+55rsgt4S5ObXSt8qzWLbUsom1MbKytGixNLQvscmzE7HPsx6xxrN4sR60DrK6tOSyf7Xxs3m2DrWktya2obhat9W527hCu1y6uLxxvMW+4b4TwWDBgcNbxGTGvMeryWzLKM2dz1TRw9M01dnXP9k03GfdfeCZ4ZXkeOXd6LDp9uye7SLxl/Ek9Y/16vgh+bP8x/xkAHIAKgTsA6gHegdoC+4KGA+xDvoSPhK0FvwVmRqoGToeNR3cIbggfSU3JA8ppSdILMsqYS+4LRIybTDgNAkzXjeLNQw6BjhMPEM6cj5ePDZAAz6lQWc/EEPaQF9E+EFERflCIUa4Q7hGYUR5R/hE3Ud8RW1I8kXVSFlGQ0naRqBJCEfbSWpHE0qURwhKfkeoSTBHVUnKRoxIJUakRzFFlkYmREJF9kK3Q2BBwEGPP30/UT0FPfc6UzpSOIo3pDVrNKsyhzHRL1guySwQK5wp9SePJrYkfSOdIXggiB59HYwboxqMGLIXcBW6FPkRVRFaDugNgwodCisGAga2AZABi/zE/FX3n/ek8Rvy4+uQ7Bfm+uZH4FXhtdoG3GrVzNZ00CXS7MumzcvHsckJxBvG1cD8wtm9GcBou8G9Sbmwu3+38Lk7tr+4PrXDt2y097bds222FrPAtaeyOLVEsuy0+bGetN+xl7Q8stC0nrJGtTezxLUTtLu2X7Xdt+22Y7kiuZO7bLu/vSG+Y8ARwS/DAMQHxinHHcnaypvMZs4s0ELSs9Mr1qTXGNph2+XdEd+m4bHiSuUw5gvp1On+7K3tGfGc8Uf1ivVX+bL5lv2c/dYBuwEfBvwFkAolCsIOQg7HEi0SqxbeFV8aiRkIHuschyFwIAolyCOOKDAn7CtrKjYvoS0/MoEwGzVdM5U3qDWmObM3qjuyOVo9LjvCPrE8CkDlPTZB4j7GQac/lUI/QDdD90DuQ6FB30R/QpxFOUP9RadDY0YCRFdG30McRs5D50V3Q11FFkNzRBdCRkP9QMFBgz/OP6s9pj2HO8o6yjgNOCI2FjVQM+cxHzBOLsEs6SpzKTMn6SXBI3siaCBnH2MdVhw9GmYZVhdvFg8UchPxEF8Qxw1EDUEK/wnUBoIG9QL8Arz+pP4R+lr67fRK9abvNPAo6tPqX+Rd5dDe7d8i2YPa6NNX1aPOZNAoyuLLtsW/x9nB6MM7vpTAUruHvYm4G7tctsC4X7TqtuKyfrX4saK0VLEGtFax5bMTsc+zKLHKs0yxCLTHsWW0IrLZtKiyMrVTs/y1L7S0tk+15Le+tjO5b7jYuqO6Er1IvW2/DcBUwjjDR8WxxqHIRcoYzEHOBdCZ0gfUstYo2CbbX9xc34DgX+NS5HnnWuh06x7sQe/g7z7zoPMq94P3Dvs0+wD/Df8VA+8C8QbOBgsLkQr0Dn0OtxIMEn4WyBVRGmMZ6B3sHIshYyAKJc0jXSgHJ8YrLCoTL5ctOjJ9MB81TDOqN8g10jnjN8U7rDl8PXU7KT8KPXRAMD6YQWs/okJfQGVDG0EtRM1Bw0SFQlBF50KqRWBDJka0Q0NG6UOJRhREuEZTRKFGO0RtRiREV0bqQ75FWkMQRctC8kOhQa5CbEARQd8+Qj8dPfc85jq6Oqs4ADgxNjY1ODMSMoAwIy90LeQrZCrEKGwnxCVpJIYiVyG0H6UeAR3xGzcabRnoFwgXWRWfFEASrRFeD8IOwwtwC/oHtgfdA6YDU/9s/7H62/rc9TP23PBS8YvrU+yD5knnOuFd4mbcjd2c1wzZHdOZ1MnOcNCWynXM88bQyKrD1cX3wPvClr7kwKW85b6/uh69Brlju2S3+bketoe4' $Wave &= 'tbRKt8KzVrbEsmi1MLLQtJOxOrQ4seqzHbHBsyWx6rOnsT20JLLftCmzuLV/tCC3/bV0uPW3Z7r8uWO8a7ytviG/YMEkwjTEGcUZx1LIPspTyxrNYc4N0KrRRdPn1FHWP9iq2enbJd2y38bghOOC5IfnXeh66zLsje8T8L/zOPT59yj4HfxV/E4AQgAvBA0EEQjEB+sLiwu3DyoPmRP/En0XohYkGzwatR6nHfoh3iAbJc4j9CecJoUqGSn0LHArKC99LQ4xcy+qMtQwDzRJMm41rDPdNvU0OThVNpA5lTf1Ou04BDwCOg89+DoBPuo72D6nPHA/UD0QQOM9dEAxPoFAYj5LQCE+8j/LPSc/+zw5Pjc88DzMOko7VDl+OYk3UTdvNdU0FDOoMuYw7y9FLiQtnyuzKkIpGyi5JrYlcyRtIyciICERICofGx7qHNkbhBq+Gd0X8xbyFEEUwxE5ETEOpQ2rCkoKdQZJBgYC7AFa/YP9hPiq+HTzC/S/7h3vf+lp6pPkc+XD39XgBNtL3KfWDtiW0h3Uxc6B0LjLX824yKLKhcZryGbEhMb1wvrEl8G+w6fAvsLUvwLCZL+TwSG/WcH2vjfB/74twSi/WsETv0jBfb+6wfe/GcK0wO7C6cHhwzfDcMUFxerGJMcjyafJdctNzCPOls8r0eTSZNRK1sTXC9pG26bd0t4c4Szi0eS05YnoaOlf7PXsUPDh8FD0uPQc+Fn4EPwx/Lz/zf+NA1sDNAcSB9QKYwo2DsoNqhEYER0VcxR6GIUXwxsAGyYf/h1aIjcheyUyJGEoCSdeK84pyC1cLDcwmC53MrkwPDRrMuc1JjRbN3Y1pji0NqY5yzeoOpU4DzsSOag7ozn+O/Y5+Tv3Of473jkOPC46FTzhORU8IzohPA066TsUOrs7jjlFO1o53Tq3OF86hjjQOcg34zgINyg4NTYGNyI1njXfM8sz9DEUMnkw4S8uLsctSyx7K/ApuyhvJ2Em9yTxI8oioiF8ILAfix6ZHbEc6BvTGvQZMRlIGFQXFBZ4FRQUThPFESkRQg/WDsAMNAzxCb0J+AagBpMDjgMnAAsAMvxu/GL4lvhn9M70RPDT8FXsA+106CPpbeRx5bHgw+E/3WLe9tlK2zHXiNiI1BHWFtKe097Pd9GzzYPPHcyqzUnKM8wHyeXKoMesydHGwsjdxcvHBMUWxxTEGsZIw1/FusLHxGPChMRfwnPEZcKGxM/C18Qaw0jF/MP5xeLE58YNxgjIoMeAyTLJH8v0yrTMvcyFzpTONNCV0CvSw9I/1NXUUNYj15DYb9nA2vDbQN153o/f+eAM4qbjjeQ/5ivn9eix6b/rdOxa7ubu+/CK8anzEvQ69of29fg++aP7rPtK/nr+KAH9ALkDoQNdBkIGGgmnCHQLGAvSDVAN4Q9xD94RJRGDE9sSLxV5FKcW0hX7FyQXKBlfGGIaYhlKG4IajhyBG1EdUhxbHl0dGB8UHu8f0x5uIGcfMSH/H4AhYyAFIuEgdSI4Ia4ipSH4Ir4h/iLMIeEisiGYIlQh+yHxIFUhEiBLIEIfRh8pHgIeAx24HMwbaxtwGhcaJBm/GPgXhhe2FpUW0RVsFbYUjBTJE2oTxRJyEswRShGoECkQmw/aDlsOsg0sDUoM5gvBClwK8giuCCEH4AYdBfIEzwLKArcAigBJ/nT+8/v9+3P51PkZ9zD3e/QG9TbypfIc8JPw8O2W7jvs1Oxm6jrrBenG6arnbOih5oDnm+Wd5i3l7uWG5IHl7+P75LzjluRJ41bkDuPu48/i5eOU4oDjeOKQ43fiTuOS4rbjCePz43jja+QN5CflC+XN5c3l1OYi59znHegL6XHpDurX6pLrIOzD7J/tRO4X78HvyfAr8TPyxvL28030fPXd9TD3bPfT+CH5h/qv+gb8HPyK/aX9Cf8f/3YAXQASAgwCowN8AwcF6ASYBlsG/gfAB3MJFQnBCmsKMgzMC44NEw2zDjYO' $Wave &= '8Q9zD+0QWhD5EV0R8RJUEqIT6BJOFKwTBhVHFIsV3RT+FS0VLRZ/FX0WyBXJFucV2hYbFgQXPBYoF24WWxd9FnEXpxZXF5IWYBeUFmcXmhZfF5UWmRfOFosXyhZ5F6MWVxeQFh4XWha5FvUVWxaKFY0V4xTuFCoUGRSFE2EToRI2ErwRghHNEGsQ/w+nDwUPrg5EDgIOgg0nDboMiAwQDMoLXQsEC5cKWQoTCrsJUQn3CKcISQj5B2EHMAdtBjYGPQUPBSMEHQTzArUChQGUATkAGgCg/r7+UP1e/Z37vPsg+mj6nfjH+Dn3kPe59R72i/Tf9DTzn/Mm8qfyD/GV8SfwuPBo7/jvwe5e7w3uoe657Ubu/uy97a3sS+0y7Ons4OuE7HfrNuw96+LrAuva6/DqeOuw6p3rzupk68XqkusU68PrTesA7ILrQOwM7LPsd+wZ7eHsnu3H7UjuEe7F7vPuku+n7xXwVvAB8TzxmvEC8ovy9PJU88nzOPS99DT1ufXu9Zz2/PZ999n3oPi++D35l/lZ+oX6M/tj+wn8JfwM/Sr98/3//b7+1v7S/83/jwCTAJUBfAGBAmgCPgMtAygE+gPnBL4ElgVrBTkGAwbqBqoGVwcsBwQInAc/CBcIyghbCAgJ3ghnCfcIiQlFCdQJdAndCYMJAQrBCTIKswkFCsYJNArWCRwKxgk2CtcJKArMCTwK5Qn+Ca8JGgqtCcsJgQmdCUIJaAkTCRwJ1gipCFYIWQgJCOQHlgdTBxIH+gbEBmoGJgblBcEFggVEBfEEzAR0BEYEEwTxA5kDhwMsA/kC0wLKAmUCUAL0AdABqAGoATcBJwHKAMIAZgBlAPP/AQCE/3j/G/8m/6D+pv4T/in+of2+/Sf9Nf2i/M78MPw4/KH78vtD+1n7zPoE+3b6lPoV+lz64PkM+pD50Pl3+bf5Rfl/+UX5hfk0+W/5Oflj+Tn5ifk9+XD5RfmN+Wj5j/lo+cT5nPm5+bj5Avrm+RP6GvpK+lL6ffqN+tX60Prm+g77PftV+4j7lfu3+/P7Cvwq/F78hfyZ/Or8/vwg/Tn9eP2K/cn95v0t/jP+ZP52/sz+0P4P/xr/Xv9V/7L/wf/m/93/QwBQAJMAeQDGANMAFgEDAWcBVAGoAZQB1wHCARICDgJeAj0CiwJ/AsQCnwLxAtkCHgMMAzgDGANqA0IDbwNVA6EDgAObA4QD0QONA60DuwPVA6AD1QOqA+sDwQPTA78D3wO4A9UDsgPDA68D4QOuA7kDpgPLA5kDrgOkA70DhwOhA4kDsQOQA4cDZgOTA3QDegNdA2YDSgNWAzIDSgMmAxwDGAMkA/IC8QLVAs0CxALIApkCfgKKApICYgJaAlkCNAIhAiYCBAL+AQAC5AHIAcwBxQGxAZoBoQGWAXUBYgFQAVcBQwEiAQIBFgECAeIAugDLALUAmQB6/Zf9jv2t/Zb9q/2s/cT9sf28/cP93P3Q/eH94v35/e/9+/3x/Q7+Df4W/gf+J/4l/iz+Lf5E/kD+Qv5A/l3+Zv5h/lX+a/5w/oD+gv6L/oz+iv6G/qv+sf6u/qT+sv62/sr+w/7Q/tr+3f7Z/u/+5/7r/v3+AP///gb/B/8Z/xX/H/8Z/x3/Nf84/yn/Nv85/z7/Qf9E/0b/Uf9c/1r/X/9i/1f/Zv+A/3v/Z/91/4n/c/9u/5j/qv+E/3z/pf+g/5D/pP+j/5z/tf+r/5z/sv/I/67/qf/G/8r/wP/K/8b/wv/Q/9f/xP/I/97/2//f/9//1P/g/+b/2//c/+z/7//g/+T/+P/v/+T/7v/2/+//8v/6/+7/+v8HAPj/AAAHAPX//P8JAAcABwADAAkAAwAJABMAAwABABMAFQALAAkACgAZAAoAAQARABsAEQAVABEABwATAB4ADQATABMACQAaACMAFAARABYAGwAfABkADwATABsAHAAUABwAFAAeAC0AGwAJABwALgAeABMAIQAgABUADQAgACgA' $Wave &= 'HgAPACEAGwAQAB0AKQAdABAAEwAgACAAHgAYABwAGgAKAA8AFwAaACAAHQAcABEACQANACEAIgARABYAEwAPABsAFgAXABQAFQAPABAAFAAVAAcACgAbABcABwAKAB0AEQAPABkABwAOAB8ADgAHAA4ADwAKABMAEQAPAAwACgAOAAcAFwAaAP7//P8ZABQACQATAAkAAwAQAAUABwAUABAAAwAJABQACgAAAAcAFgAQAP7/BwAPAAAACgAOAAsAAQD6/wUABwAFAAMAEQAFAPz/AAABAAoAFQD2//r/FAAHAPb/DgAHAAEACwABAAAABwD8//r/DwAFAPL//P8NABUA/v/o//7/DgABAAAACwD+/wAACQD+/wcABQDx//z/DgAFAAEAAQAAAAEA+v8DABEA9v/q/wUA/v/2/wEABQABAPT/9f8HAAEA+P/8//j/9f8AAPz//v/+//X/8/8DAAEA9f/6/wEABQD2//H/AQAHAPX/+v8DAAUA+v/q/wcADAD4/+7/AQABAAAA9f/y/wAACgABAO7/+v/+//z/BQD2//z/AwAAAPX/AQADAPb//P8HAPr//P8AAPD/+P8PAP7/9P/6/wEAAAD+//j/AQD6//r/AAD1//7/AAD+/wAA9v8BAAAA+v8DAPr/7P8AAAkABQDx//D//P8BAAoAAwD4//z/+v/6/wMA/v8AAPb//P8AAAMA+v/4//7/+P8BAAcA8v/6/woAAQDu//j/BwD+//r/AQADAPr/+P/+/wAAAADy//j/CgAAAPX//v/6//X/+v8AAAMA/P/0//z/BQD4//D/AAADAPr/BQD8//b/AAD8/wEAAAABAAAA+P/8/wkAAAD2//r/BwABAAEABwAVABEAGwAdADIAJAArADkAVABFAEsAUgBbAFYAewBxAHgAewCaAJAAjwCbALwAnwC+AMIA1gDLAOgA3ADtAOwA/ADvAAIB+QARAQ0BGgEKASYBHQEqASsBPgErAT4BMQEzAS4BLwEeARoBHQETAf8A9ADoAOYA7gDaAMcAwADJAK4AlwCPAJkAnACGAHEAeQBvAGkAVABSAEcAQQAXABsA8//4//P/3/+u/8H/nP+W/4T/kP9x/2//gv+I/3z/g/+e/5T/rP/C/7j/uv/K/8H/3//l/+H/6/8XABQAMwAwAEsAPwBhAG0AjgB3AKgArwDcAMQACAESAUsBLgGPAX4BzAHAAfQB3QEEAvkBHgIGAjICIQJIAjACbgJXApcCdQKjApAC0wLIAiYD6QIeAxoDbANCA20DUwOMA2MDcQNcA4EDVgNIAzIDZgNHA20DVQMkA/4CzwK2AmMCSQICAvIBtQGiAXcBcgEaAf8A3ADiAHYAZwAbACkAlP+N/xf/F/90/o/+t/3E/f38F/0t/FD8MPtd+2f6iPpz+bH5pPjw+PL3I/hq97T31vYr92r2v/Ye9mP22fU79nn12fVe9bz1FPVu9a/0EPVd9L308vNr9LXzDvSR8wP0nvMD9KzzIvQg9IX0ifTp9B31lvUF9kL2p/YB9z73ivfb9xz4efi++C/5ZvmT+cb5/PlA+pX6ufoU+0z77PsO/OH8A/3h/fH9Ev8m/2EAWABrAWYBdwJcAioDEQPvA8sDrwSOBHAFMwUZBt0F0gajBooHTQc9CPAHCAmyCLMJZgmRCjUKQgvkCu8LiAueDDAM+AyLDOsMcwyoDDoMXgzxC9sLcgtiCwUL6wqTCqoKQwpiChsKAwqaCasJZAlYCf4IzwiNCEwI9AeLB2YHpgZfBmIFOwXpA8MDLQIhAp4AnQAJ/xD/Gf08/VD7a/vE+f75afir+JT32ffd9jD3SvaT9r/1GvZ19cb1LPWZ9Zj05/QM9ID0WfPL89TyQPMQ8pbybvHf8RHxn/EV8YXxPPHQ8QnycfLs8mXzEvSL9C71ffVM9qb2lPfV97z4/vje+RH6iPq7+gz7MfvD+977T/yH/Fz9Wv1F/nT+xP+l/00BVwFUAygD' $Wave &= 'OgURBfYGuAZzCDEIxAlmCfIKmgoPDJ4LIQ24DB0Oig3eDmwOBBBmDyYRlxCMEu0R+xNIE6IV5BQeF1MWexioF3gZlxjjGQQZ1hnpGDIZVRhYGIgXLhddFvgVQRXpFCUU1hMxE+8SUhIQEmQR+hByENoPPw9TDuYN2AxRDPEKnwoCCbIIgQZEBqEDiQNUAFIAxfzS/AD5SvlA9Y31uvFH8v3uge9q7CHtS+r66mzoPunD5pznbeVn5p/keOW348Xk7eLg4/XhAuML4Q7iMOBP4ZXftOAa3zfgKN9J4FPfZuDh3wfhCOEe4qvimePF5MTlYucu6PXpvuqg7EDtBO+a7yPxmPHq8mvz0fQo9eX2Pvcz+WX5n/vP+0r+Qf4RARsBPgQSBIEHPgfFCnEKow0gDUIQvg98Et0RRxSgExAWShWjF9sWCxkrGIIalxncG+wabx1zHDgfIx4hIQogaCMoIoklTSRoJwAmYCgWJ8goWCdMKPYmTifyJfUlrSRiJB8jjiJsIdsguB88HyoenB2XHOwb+xo1Gk4ZShiCFzsWdhUBFFoTZxHQEJsOFg4qC9wKZAcRB+8C4gI1/jf+RvmJ+Yb03/QL8KHwK+zN7NHoouk55hTn7ePr5EPiNuPJ4Ojh2N/n4PbeGOAY3j3fP9113kjcf91Q24ncgNrN28nZEttI2ZbaWtmr2vHZNtsm23TcDN0m3k3fX+Dl4QbjxeSk5Z/ng+h26iTr0ux57ePuh+/28GnxAvN580j1sPXg9yX4yvr7+jj+P/7sAd0BmAVgBTYJ5AiYDC8M0g9FD9sSLRJuFcAUkxfKFl4ZehiwGtUZFBwaG4odkBwiHwQeGCEFIEsjCyKJJUsknCc8Jlwp9iePKhspPCvLKQYrjilPKt0o8yiRJ0YnBCaVJTUkoCN4IsAhoiDJH6keeR1/HFMbZxoZGTYYDBdPFvAUOhSGEuMRbQ/wDpoLLwssB+wG/gH4Abv8yvwl93/3svEo8onsQO3B54zoeONw5M/f6uDQ3AbekdrM29rYNdpZ17nYGdaC19HUQdaO0xfVg9IR1GXR8dI30OHRDs+v0BfO1M+4zWfPN87gz3PPINFy0RHT8dNu1e7WV9gM2ljbP91z3j7gWOEr4yTk2uW65mboRunu6pTrPu3q7Q/wn/Ag84TzrPYQ94v6svqW/p/+kAJ7An4GPAY+CvAJ4A1jDekQWhCAE9gSdxW+FBYXTxaHGKEXHxpHGQUcCxtrHmcdBSHiH7kjhCJWJgslZygFJ9wpeCi4Kk4pDCuCKXoqDymwKVMocCgGJ+8mqiU+JeojIiP/IQch6R/HHrQdshy8G6waxBmrGNMXiRbRFT0UjhNQEbQQtg1FDV8JCgmGBGQE+f4E/135kPln897z7+2G7s3onuk95CPlNOBU4Q/dLt6A2s3budgU2mLXs9hm1tXXVdXI1j7Uv9Xn0l3UGNG50lvP+NCOzUjPOswAzrnLec3sy6/NA828zsrOcNBF0eDSdtTn1RDYb9m82/HcUd9r4Jjil+PG5armweiN6fzrmewL76TvWvLR8gP2UPYK+jz6Mf5I/pICdQITB9wGxwtfCz0QoQ8lFIITpxfXFmgaiRnAHMUb6x7hHfYg0h8SI+0hTCX+I6onXiZbKuUoCC15K4Av6y13McUv7DIzMbkz7TEiNHAyJDRQMnozwjF/MskwETFnLxcvgC2nLBsrASqRKFgnESbmJKAjtiKIIUYgMR+THZQccBqHGbcW8RVaEr4RLQ3EDIsHPwc+AS4Bj/rQ+rPzBPTu7Jzt1uat507hUuKA3Lfdkdjq2arVG9cl06jUddEE0zfQ4tENz6DQtc1+z2TMGc6jym3M6MjUypHHV8muxrvIp8aPyGDHS8nSyLTKKMv1zCnO2M+r0UDT1tU51xraZtuU3rDfxuLH4+bmv+e06m7rbO4K7zHyoPLp9Uz2BPow+if+Qv7DAp4CcQcyBz8M2gsmEZEQ1hUOFQUaMBnMHckc' $Wave &= 'GiH3H+QjqiJYJv8ktChWJyorsynJLTksdjDTLk0zgjG0NeMz5jcHNq85tjcgOyY5Tjw1OgU9/Dp8PV47bj1eO7I8pjpgO1g5mTmoN443pzVBNXEz5DIkMWYw2y77LWksbSvuKbEoSid5JTUk8iHOIMsdwhwpGVIYhhPdElsN6QzSBo8GHgAiAIf5vfkn85fzFe227bfnlOhE4zXky9/o4CfdUt4D20LcDNlr2iPXf9gR1YbW1dJh1IXQHtJDzvDPPcwPztXKrMwByt/Lzcmgy1nKL8yhy2jNus1lz03Q/dFL08vUeNbg16PZ+Noh3UneduCN4e/j0+T/5u3nZuoE66HtUu488bDx6fRP9c74/vjT/P78IQEWAVMFEwVTCQoJEQ2ZDJwQDRC2EwcThxa+FQUZNhifG6YaJh4nHdUgqR9EIyEi0SWFJPEnmibIKVkohysDKigtryuYLv0swi8dLpgw/i7qMD0vtDALL9QvMy5aLsYshSz/KnsqCCkzKOAm2CWOJF8jNSKpIIof2x3mHL4ayBkiF1kW5RI/EgYOjA1nCBwIPAIlAqb7z/vT9Db1zu1r7gTn3Ofl4PThbNus3PrWXNg+07fUR9Dm0enNpM8CzL/NCMrbywLI8skHxgLIIcQjxnnCkMQawUzDhsCqwmnAl8I/wVrDh8KhxJbEmsYlxxPJTsoVzMXNfs900Q/TL9Wl1hDZX9oK3T3e8+D74ejk3+UH6cHpOe3c7Wnx8/G99RT24vkU+lT+bP71AtUCigdDBwUMogtEELUP9RNFE2cXpRaaGq0Z4h3VHPsg4B8IJNQi4SaEJZQpLCj4K24qGi6ILAcwcC7+MUcwKjRnMj02YjSaN7c1ljioNgc5HDf3OAU3OzhcNgE3ITVKNYkzKDNtMQ8xXy/pLlEtxCw8K3EqCSnQJ2EmCiXZI58hcCChHacc1RjyF2oTxhI/DcoMsgZ2BgUAAQD5+D75P/Kp8uzrouzA5pPnKeI+42fefd8J20rcTtis2a7VItdI08DU19Bw0jnO+8/Dy4PNp8mMyxnI9cnWxtLIRMYtyETGP8gTxwzJcMhTykzKGMx6zD/OJ8/b0PTRhNMR1ZTWMdiE2WfbsNzQ3uXfTOJV46LlfuYl6eTptOxk7Y7wA/Gf9Af1EvlX+ef97P1eAlkCrAZqBrEKVgp1DvEN3xE6ESEVbRR7GKgXexuKGlIeSh0vIQogtCOLIhkmwiRMKPYmqiouKQEtfysdL4AtuDAgL1kynjBRM5MxpTP2MZ8zzTGrMgExRTGkL4wv3y2sLSQsjSsLKkYp3icGJ7AlxySHI1ciGyFqH24eSRxPG34YqRf/E0gTqA41DuAIiAiLAnECq/vY++v0SfU+7tjuFOji6KDip+Md3kbfTtqY2zHXkNia1A3WItK008TPc9FizR7POMv7zOrI2Mr9xuPIkMWVx5vElMYTxCnGQMRDxh/FIMeOxoHIpsiCyvvKy8xwzSjPQNDY0TvTw9SP1vPX69k02yndW9544IDh2OPj5FjnIejk6qLr0e5c7yXzm/OY9+P3MvxZ/J4AmwDJBJ8EvwhrCJIMJQxPEMgP8xNIE1IXfRZYGoEZbx1jHP4f5h53IlEh7CSqIyUn2iWWKSMoKyytKpguAS2qMAAvizLbMPwzNDLdNAgzSjVeMwQ1STMyNHgyCjNSMZ8x8C8vMIUuvS4wLR4tkCuTKx4q/CmJKDUo3iYAJrQkGyPwIbcfpB5+G5Uavhb1FSQRkRD/CqUKigRdBFD+Wf6J+Mj4QfO/87juL++C6lrrCOfl597jyeTh4OvhBt4232TbnNy12A/aRdaw1wHUhdUN0qHTY9D70R3PwtCdzkfQmM5H0BXPytDsz37RDNGw0v/ShdSG1fHWJtiM2fHaKNze3Qnf0eDe4fHj6OQI59znReob67ftUO6q8Sfy/PVF9in6cPpq/nL+twKfAhEH4waCCxILkA8JD6wTBxNnF6AWBhsPGkUeRh16IU8g' $Wave &= 'YSQwI8cmcyUnKcMnnyskKioulyyGMOQuujLxMNE0AzOONrk0BDj+NdA46DbyOBI3fzibNqo3xDVSNoU0tTTbMp0y/DCIMNguRS64LB4slSqUKTMo+yanJSEk5yLNIKUf2BzrG0AYXxfrEkkS8QyCDE8GEQYk/yb/V/il+NDxSfIA7LHskeZy55LhluIu3U3eb9nA2hfWetcT05jULtDM0XbNNc9nyynNY8lBy3LHXMlYxmLIrcWVx1bFX8d6xYLHScYzyEPHJMncyLTK58qyzKjNVc+c0EDSrtMv1dzWQthY2pvbxt0B32LhYeIk5Q/mJenY6Qrtu+1H8cXxkPXr9cb5/Pnx/Qf+CwL4ATkGEQZJCtkJQw7cDUISlBHjFTEVVBlqGHccgRtAHzgenyFyIMYjoCIqJtMkhigwJ/8qhCk2La8rTy+rLVcxsi/1Mjsx9jM2Mrw05zK7NPcyOjRyMngzuDFtMrcwPTGIL4gv8y3ZLT0sOCy/KuwqdykNKaon/SaoJYckRyNHISkgVh1cHMMY4RcdE3YSMw26DEAHBAdnAVEBhfuy+7/1FvY58Mfwd+se7PLm0ufx4vDjBN8i4Crbadya1wvZetTj1WDR+tKmzlXQYswlzmfKQcwmyfjK98fqyQjH78iGxn/InMabyDfHD8mCyG3KFMryyxTMx80pzuDPi9At0hnTsNTG1TXXttgB2tHbCN1M32TgBeMG5Lfmmudt6iXrSu7o7knyxPJc9p72TfqK+mr+bv5VAkkCJQbrBbsJZAkfDasMPhC1DwMTXhLIFQ4VahilFwsbHRqzHaccZiBMHwEjyiF9JTMkWCcVJi0pxSdTKusoHyuhKV0r5ykRK5wpjyohKaopPCiQKDEnMifvJQAmnySGJGMjQSP0IcwhvSDqH7wefx2UHIwanhkuF2MW9xJQEicOrw3BCGsIOwMiA4j9nf0o+HH4DvN5817u9+4R6s7qPeYl58jizeOR35jgSNyV3ZnZ2toI13XY3NRM1u/SedQq0b3SzM930a7OTNAnzt7P/c2sz1PO/s/yzqrQZ9D20TrS0NNe1N3Vjtbt19fYSNp827DcPt5j3xjhHOLt49jkPOce6KbqYOsm7rbuxvFN8nL1w/Ut+Xb5/PwP/cYAugDMBK0EhwgqCGAMCAzmD1APQBOdEkgWghUDGS0YexuEGoEdghzPH8weOyIAIbMkbiMuJ+UltilEKAYskypaLsUsETBuLncxyS9hMq8wwTL9MM8yHjGLMswwxTEZMJMw8C6SL/Ytzy4wLQ8uhixfLcorcSz2Kl4r5SnLKVsoiCdCJoskSiPQILQfYRxdG3MXsxZWEqsREQ2lDIoHSwdYAkMCav2C/fr4Lfmt9B/1fPD08InsRe3c6JPpaeVc5i3iMOMw3z7gQdyL3bnZ/NpD16LYJ9We1inTrdSb0S7Tp9BM0mPQ99F50B7SKtHB0kLS0NOB0wnVL9Wf1u7WUdif2PDZmtrZ29rcD94830vgluGz4kfkKOUM5+fnLur06mHt/+3C8EzxVPSt9BX4Yvjp+wD8ev+N/+MCwQILBuIFAAmdCIILJwvUDVAN8A9xDzYSlBGaFNoTHhdTFmQZkxjeG+Ya8B3nHAog9h71IcsgWyMvImskMCMQJcYjLiXxI9UklSMsJPAiKyP5IRki+CBwITkgdiBxH7UfmB69Hr8dqR2dHF8cfBvMGt8ZkBi5F6YV4RQoEogRCA6ODa0JVQkTBeoEjgCEAC38UPz790P4DPR39Grw5vDI7IPtnulM6s/mtedb5D/lEeIP4wPgJeEh3jvfS9yB3bXa+9tM2Y/aBtht2VnXudgB11nYDteB2LHXB9mF2PPZrdn22hnbWtzQ3Ave1d7z3/TgBuIv4zHkveWM5hLo7OjA6m3rWe3y7dXvcfCS8v7yQPWn9U/4jfiP+7T7zP7T/hwCFQKOBVQFxgiGCOkLdQukDisODhF8EF8TrBJ1FbYUmRfGFp4ZzhigG6wa' $Wave &= 'ox2qHNUfvB4HItQgDiTgIv4ltiSKJykmISm+JxEqoCihKjQp5CpqKaUqPSlxKv4oGSqiKLApUShJKeonCymdJ5QoMScYKL8mQifwJRImvCRDJPwiAiLhIEAfMx4VHCobkBi8F5YU6ROfEPwPigwbDEoICwgaBPoD8//0/wz8MfxZ+KH40fQs9abxKvK97knv+Ouv7HbpLurt5snnb+Rq5UjiReNQ4F3hhd6s3xfdTd4D3D7dMdtz3A/bRNwY20zcV9uZ3BfcT90X3UneNd5f35/freAL4THipuKT423kbuVv5jjnROgg6W/qMeuT7Cft3O5274/xE/Jl9Mj0MPeB9xH6QfrJ/Ov8cP91/84BwgH/A9gDEQbbBQ8Izgf2CZ4JxwtlC30NAQ0gD5MOyxA+EJQS7RFXFKgT4xUlFTkXYxY0GGkX+RggGEwZbBgrGVUY5xgSGFcYhRe3F94WAhdCFkQWhhWmFd8UFhVkFKEU7RPOEyYT7xJSEnkR6RCrDx8Paw3+DLUKYgrYB4oHswSMBHMBZAEN/iL+mPrH+k73jvf68270+/B48Q3uqO6Y60zsROn/6UTnI+hX5UDmbeNl5LzhweI84FbhyN7u35zdwt6g3Nvd4dsu3Zrb0Nx+27rcnNvS3B3cVd3f3BHe9N0f31Xfa+Dn4PnhnOKT42nkYuWD5k/nUOgi6Svq6ur0657szu117v3ve/BR8sjyvPQo9Wb3qPcB+kH6yfzf/E//ZP/uAcUBDQT4A1EGEQZBCPsHLArQCcgLXwtPDdkM1A5XDp8QAxB1EtsRPRSCEwUWSxXJF/YWbBmNGM4a3RnWG+8auBy+GysdNhyKHXscdR15HH0dhBxWHU0cVx1lHFcdUBxAHTgcIB0XHNQc1hs7HFIbURtyGjsaTRmHGLgXyRb7FYwU7RMmEnsRRg/BDlQM8gs4CdwI/AXIBcECugLA/7f/vfzN/Pb5Ovpm97T3+/RN9Wfy7PIe8Krw8O2D7tTrl+zY6ZPq9+fd6F3mKefa5NTl0OOt5MLi0eMv4i7j5eHr4szhyuIJ4gjjfuJ54wnjA+T04+Tk+OTp5SnmCOeC50vo4+i26WjqG+sM7Lrs/+2d7vvvgPBH8tHyq/T89BX3YveM+cv57vsQ/EP+Uv56AHsAqQKGAqUEdwRPBiEGKgjjB8cJdAl2Cw4LHQ2nDNoOZQ6MEPUPOhKdEd0TJBMvFYcUXRaRFVAXhxb5FywXPBhnF2cYkBceGEUX0hcPF7kX2xZkF6wWTRd2FlAXghYwF2gW/hY+FqcWzxXQFSIV9BQ2FMITGBM0EqAReBDVD2EOAg40DL0LswluCVkHCwfFBKYEPwIvAu//7P+c/b79pfu3+5D53vnK9/j3C/Zf9kf0wPTa8jXzMfHQ8eHvWvB77hPvhe0c7o7sQO0S7Kzsbus47Brrwev06qzrGOvW64/rM+wx7OPsHO3G7SDuq+4279LvXfDc8Ffx2vF+8vrys/Mb9Cz1jPWj9u/2RfiG+Pb5NPq3+9H7t/3J/ZD/lv9/AV8BMgMmA/MExgR2BjEG1gehBxQJywhLCusJaAsBC4wMHQzCDT0N5g51Di4Qmw9ZEcUQjhLmEaUT/RKSFPYTcBWpFPIVORU9FnwVSRZ8FVgWpBU2FmwVJBZeFQUWPxUHFjcVyhUtFcgV+BSOFc4U/xRaFKIU5xPNEx8T9RJJErkRMBF4ENsPoQ4gDr0MUwxmChcKPQjcB7AFjwVKAysD3gDPAHr+gf4w/F78FfpA+uX3JvjF9TP24vM+9PLxb/IP8KHwRO7f7rLsS+0J68rru+l06nDoRule5y7og+Zh5+Hlw+ZP5S3mKOUV5gblA+ZF5Srmr+WT5hzm8eal5ofncudc6FToB+lB6RjqYuoR65jrV+wS7bTtlu4x7zvw0/AA8nry5PNA9Ln1EfaK99z3T/l/+fb6LvuQ/KP8A/4Y/oX/jf/iANMAOgIsAnoDbwP3BLsESwYIBqgHdQf0CKkI' $Wave &= 'QgrrCXIL/wpcDAYMFw2gDJENCw24DVAN/Q10DfsNfg0fDqgNKg6wDSgOuA1pDuINaQ7sDXIO/Q1dDtUNPw7ADfYNhA2ODQsN3wx2DO0LeAvbCpAKqwlLCTgI/Qe0BmoG+QTXBDoDJAO1AZYBHgAdAKT+vf5G/Vz96vsM/LP66vp/+bH5PfiG+Cz3efcr9n72PvWW9Yb07fSc8xD0/PJo81zyz/La8VfyrPEo8rLxH/LD8VHyQ/Kt8rTyIvM587vz0PMp9Jn09PQq9ZD16vVC9r32EPea9+P3mPjN+Kv56/mz+t36/vsa/EL9bf2q/qL+AAD+/0cBUQGHAloCngOOA9MEnQSrBXMFmgZsBm0HHQckCOEHDgm8CNQJiQnHCl8KkAs9C4YMCgxqDfAMDw6lDboOKw4oD60OXQ/YDpEPEw+0DywPsA8qD7YPKg+VDwwPmQ8VD3cP7Q6JDwIPXA/aDjgPwA4ZD40O1Q5bDnQO6g3wDYcNMA21DD8M0QsWC8cK1AlvCUwIDQjMBokGKgX9BIcDegMMAu0BcwB0APD+AP+B/YL97vsp/KX6wPo3+Xr5+/c7+LL2/PZo9df1VfSx9DTznPM98rjyR/HD8YjwEvHo72/wfO8I8CTvue/17pTv7e547wLvlu8m77XvWO/878jvPvAT8K/wivD68AbxovGu8R/yV/LM8ifzl/MR9Hr0FPVo9Q72fPYx93L3Pfh6+Ef5hPlf+pL6XPuL+178bvwq/Vb9Hf4i/tP+4/62/7X/lQCQAG0BZwFpAk4CVAM9AzwEDQT5BNMEhgVpBR0G1AVTBi0GxAZ2Bt0GsQYGB8EGIwfeBiwHAQdXBw0HYgcqB3QHNAeNB08HqAddB6oHbQejB2AHiAdFB18HFwcMB9QGsAZtBhMG6wVoBTkFnwR0BM8DrAPzAtsCFgIGAk0BPAF2AHQAmf+c/9n+3/4N/hz+Vv1x/av8t/z6+zb8dfuN+9n6BftP+n36tPn6+VH5hPnW+BL5jvjL+E74ovhJ+IT4SviG+Fr4o/h++MX4vPju+P74OflL+YT5ivnB+e75Hfow+m/6sfrV+jH7Y/u1+9j7Qvxj/O/8CP2W/Z/9QP5j/gn/CP+8/7r/XwBcAB8BFgGtAaYBPAIeArMCnQIiAwkDqQOHAyMEAQSoBH8ELQULBbwFegVRBhgG1AacBk8HBge1B3MHFgjJB08IFwh/CCgImQhWCLEIawi4CF4IzgiICLgIcQjcCIYIxgh4CMQIgQjPCHMIzgiRCNgIdgi/CH4IpghXCGUIHAgKCMYHiwdPBxEHyAZaBjIGvQWZBfUEuwQzBB0EZgNOA7kCkALXAdgBIQENAVUAXAC0/63/9f4G/17+Y/6n/br9A/0w/WX8b/zI+/P7Pvts+7f65fo9+m/67/kZ+pX52flh+Yn5N/mC+RL5TPkt+WX5L/lo+UH5e/lT+Zf5f/m9+c356/nN+SL6OfpU+mT6n/rX+vT6GPtS+5n7sPsQ/Cv8bvyc/P38Fv2P/Zz9/f0a/oD+iP7l/vf+U/9T/5z/q/8ZAAMATwBhAMoAsAAhASsBmAF3AfIB+AFwAj0CsQKfAgAD2wJLAzcDYgM+A5EDdAOnA44DrgOHA7cDkwO1A5wDsAOLA6UDjgO3A4QDlwOJA6kDhAOhA3gDqQOJA4wDcQORA3EDWgM3Az4DKwMFA9sCrQKnAnECUgIOAgQCzAGyAVABUwERAQQBkwCKAEMAQwDj/+f/if+N/0P/Rf/u/vf+oP6p/mz+gP4T/iD+4/3o/Yr9pv1U/Xn9LP0w/fP8Fv3P/On8qfzM/Jf8t/yV/Lj8m/yp/Iz8xPyy/ML8oPzS/Mv82/zm/Aj96/wN/SL9NP03/T79ZP2a/ZX9kv3F/ez97/3//Tf+Rv5u/nX+oP60/uv+9f4h/yr/Z/9m/4T/hP+6/8b/7v/n/xkAFABJAEcAdQB2AJ4AkwDGALsA7gDqACgBEgFFAUgBbQFkAZEBdwGNAYoB' $Wave &= 'wQGvAcUBqwHKAb4B0gG3AdIBxwHVAb4BxwG9AdoBvQHDAb0BxQG1AcUBuwHFAZ4BrQG3AaoBjQGYAYsBdwF3AWcBRgExATwBHgEDAeAA4AClAKUAcwBxAEEAPQD4//j/wv/G/57/rf9a/1z/N/8y/wD/Gv/M/tP+rP6s/nD+lf5w/l/+N/5W/gv+IP77/Q3+7/3//df98f3H/cn9u/3c/cv93P3D/dX90P3e/d398/3f/fj9B/4L/un9B/4f/iz+L/43/jX+Vv5u/mL+Zv6R/pb+n/68/sX+3v7Y/un+Dv8n/x3/XP9X/1j/cf+K/43/sP+r/7b/z//m/9//AQD2/wMAFAAzAC4AQQArAEkAXwB1AGkAkwCGAJwAmwC8ALQAtACjAM4A0gDOAM0A5gDVANsA3AD2AOAA2ADiAP0A5gDkAOIA+ADvAO4A5ADwAOwA9ADlAPQA9QDsAOIA3gDeAOoA0gDWANcA2wDNAMYAzwDMALoAxAC7AKcAqACoAJsAlwCbAHMAaQCDAIQAbQBxAHsAZgBRAFwAcQBcAFQAbQBPADIAVABYAD8APgBCAD0APQBFADMAHwAgADkAQwAoABkAHwAvAC4AIAAiACEAGwAtACsAMAAoACcALQAlADAAMAAWACMAOwA7AC0AIwAmADUALQA1ADUAIwArAFEAOQApAEcARwAiAD8AVABFADkATwBMADMANwBjAFgAOQA+AFEATgBFAD0ASwBDAEIATgBFAD4ASwBHAD0AMwBFAEUAJQAwAEsAPwAjAC0AQQA3ACkAIgAcAB8AHgAoADkAIgD+/xgALwATAP7/DQAjAA8A/P8LAAUA/v8TAAsA7//8//z//v/x//7/AwDi/97/+P/s/+f/4f/f/+z/6f/I/9v/0P/U/9r/z//S/+L/yv/A/8r/1v9yZWduXAAAAAEAAAAAAAAAAAAAKry4EsA6Ip9cAAAAAAAAAAC4EgAAAAAAAAAAAAAAAAAA6SzKMgAAAADpLMoyAAAAABJwb3B1cCBibG9ja2VyIDQxMGkAAAAAAAAu+Ob5LsQBb3Z3ZgQAAAAAAAAAdW1pZBgAAAAAAAAAAAAAKry4EsA6Ip9cAAAAAAAAAAA=' Return Binary(_Base64Decode($Wave)) EndFunc Func _Base64Decode($input_string) Local $struct = DllStructCreate("int") Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", "str", $input_string, "int", 0, "int", 1, "ptr", 0, "ptr", DllStructGetPtr($struct, 1), "ptr", 0, "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, "") Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]") $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", "str", $input_string, "int", 0, "int", 1, "ptr", DllStructGetPtr($a), "ptr", DllStructGetPtr($struct, 1), "ptr", 0, "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, "") Return DllStructGetData($a, 1) EndFunc ;==>_Base64Decode Func reboot() If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?", "Keine Telefonate! Der Router wird neu gestartet.", 20, 1) _IENavigate($oIE, "http://" & $FritzBox2 & $NeuStartenLink) $oUser =_IEGetObjByName($oIE,$LogInUserFeld) $oPass =_IEGetObjByName($oIE,$LogInPasswortFeld) $oSubmit = _IEGetObjByID($oIE,$LogInButtonID) _IEFormElementSetValue ($oUser, $Benutzer) _IEFormElementSetValue ($oPass, $Passwort) _IEAction ($oSubmit, "click") _IELoadWait($oIE) $HTML = _IEDocReadHTML ($oIE) $vorhanden = StringInStr($HTML,$NeuStartenButton) _Console('Das Wort "Neu starten" von dem Router ' & $FritzBox2 & ' steht auf der Stelle: ' & $vorhanden) $Button = _IEGetObjByName ($oIE,$NeuStartenName) _IEAction($Button,"click") _IELoadWait($oIE) sleep(24000) call("verbunden") EndFunc Func verbunden() $verbunden=0 For $i=5 To 1 Step -1 If $verbunden=0 Then _IENavigate($oIE, "http://" & $FritzBox2 & $NeuVerbinden) $oUser =_IEGetObjByName($oIE,$LogInUserFeld) $oPass =_IEGetObjByName($oIE,$LogInPasswortFeld) $oSubmit = _IEGetObjByID($oIE,$LogInButtonID) _IEFormElementSetValue ($oUser, $Benutzer) _IEFormElementSetValue ($oPass, $Passwort) _IEAction ($oSubmit, "click") _IELoadWait($oIE) $HTML = _IEDocReadHTML ($oIE) $verbunden = StringInStr($HTML,'verbunden seit') _Console('Das Wort "Neu starten" von dem Router ' & $FritzBox2 & ' steht auf der Stelle: ' & $verbunden) _IELoadWait($oIE) sleep(24000) Else EndIf If $verbunden>0 then $i=0 Next EndFunc Func _Console($_ConsoleText) ConsoleWrite($_ConsoleText &@CRLF) If $LogDateiErstellen='JA' or $LogDateiErstellen='YES' Then $_LogFile=FileOpen(@scriptdir&"\reconnect.log", 1) FileWrite(@scriptdir&"\reconnect.log",@CRLF&@MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC&" "&$_ConsoleText) FileClose($_LogFile) EndIf EndFunc Func Pause() If $ProgrammPausieren='JA' Then $Paused = NOT $Paused IF $Paused = True Then _Console("Programm wurde mit Pause-Taste pausiert") IF $Paused = False Then _Console("Programm wurde mit der Pause-Taste wieder aktiviert") While $Paused sleep(1000) If $ToolTipsAnzeigen="AN" Then TrayTip("Turbobaby's Reconnect. Alte IP: " & $IPalt & _ " - Neue IP: ?.?.?.?", "Das Programm wurde mit der Pause-Taste pausiert!"& @CRLF &"Pause-Taste wieder drücken zum fortfahren.", 20, 1) If $ProgrammZeitlichBeenden="JA" And TimerDiff($timerstart) > $ZEITLIMIT*1000 Then Call("ZEITLIMITEXIT") WEnd EndIf EndFunc Func Beenden() _Console("Programm wurde mit ESC beendet") Exit 0 EndFunc Func EXITEVENT() Exit EndFunc meine ini Datei sieht dann so aus: # Achtung: diese Datei kann gelöscht werden, wenn versehentlich zu viel experimentiert wurde. # Die Musterdatei wird dann automatisch neu erstellt. # Bitte passen sie die Einstellungen nach ihren Daten an. [BOX] # Hier sind persönliche Dateien für die FritzBox. RouterIpTelefonie=192.168.177.1 RouterIpInternetverbindung=192.168.177.100 Benutzername=Max Mustermann Passwort=Test01 [LINKS] # Hier stehen die Links, wo auf der FritzBox zugegriffen wird. Telefonie=/login.lua?page=/home/home.lua NeuVerbinden=/login.lua?page=/internet/inetstat_monitor.lua UPNPVersuchen=JA NeuStartenLink=/login.lua?page=/system/reboot.lua NeuStarten=JA [HTML] # Hier stehen die Wörter, wonach gesucht wird, bzw. wie die einzelnen Buttons und LogIn Felder heissen. VoipCheck=call_direction_ LogInUserFeld=uiUser LogInPasswortFeld=uiPass LogInButtonID=uiSubmitLogin NeuVerbindenButton=Neu verbinden NeuVerbindenID=uiReconnectBtn NeuStartenButton=Neu starten NeuStartenName=reboot [SONSTIGES] # Die Logdatei kann nur einmal erzeugt werden, danach wird der Wert automatisch auf NEIN gesetzt. # Die Datei dient rein für eine Fehleranalyse. # Diese Einstellung gehört zur BETA Phase, und wird in zukunft noch ausgebaut. # Zeitlimit in Sekunden einstellen z.B. 540 für 9 Minuten LogDateiErstellen=NEIN ToolTipsAnzeigen=AN Ton=AN VoipChecken=JA ShowScreen=NEIN ProgrammZeitlichBeenden=JA ZEITLIMIT=540 ProgrammPausieren=JA PausenCountdown=10 Jetzt würde ich gerne, wenn da keine ini Datei vorhanden ist, eine Standard Datei benutzen mit standartwerten Aber wie kann ich in diesem Fall die Datei Binär auslesen und den Befehlen zuordnen? Ist so was überhaupt mit diesem hier angebotenem Code möglich? Es soll jetzt nur ein Beispiel sein, denn ich möchte den Ablauf versuchen zu verstehen

ok, i understood! sorry for the misunderstanding. but can you show me, how to include and read an ini file in the code anyway? thx for you help

hi sorry no this is not a keylogger! i`m a beginner in programming. On my Workstation i have a mill Software for my milling machine. I Need to save all the Numbers i type. i find this code on Internet and Need to accommdate it But i don`t understand how to include the ini file in my code or is there an other way to do my code?

hello, i convert an ini file, but how can i use it in my code? how can i say, that the ini file at the string $keys are the code at _tasten? sorry for my english <snip>

also, it works now fine i Change some lines and now i can to declare how many Cameras to use in the settings.ini file If FileExists (@scriptdir & '\settings.ini') then $iMaxCam = IniRead("settings.ini","HOW_MANY_CAMERAS","a_lot_of",0) If not $iMaxCam=0 Then IniWrite("settings.ini", "HOW_MANY_CAMERAS", "a_lot_of", "2") EndIf If $iMaxCam=0 then $iMaxCam=2 #region Global Vars Global Const $_sProgramTitle = "IP Camera" Global Const $_sIniFilePath = @ScriptDir & "\settings.ini" Global Const $_iMaxCam = $iMaxCam perhapes you can change this code te be fairer

OK, thank you very much! I download now the beta Version and test it Sorry for my English

hello, i getting this error, what does it mean? E:\A\Programme\Programmieren\SciTE 4 AutoIt v3.3.8.1\Beispiele\IP Camera.au3 (27) : ==> Unable to parse line.: Global Const $_iMaxHorzCam = (($_iMaxCam <= 2) ? $_iMaxCam : Ceiling($_iMaxCam / 2)) Global Const $_iMaxHorzCam = (($_iMaxCam <= 2) ^ ERROR >Exit code: 1 Time: 9.692 what Engagements to be in settings.ini? can you show me an example? thank you