Hallo liebe Leute,
zurzeit habe ich mir ein kleines Projekt in den Kopf gesetzt. Es geht um eine 24/7 Software welche Informationen von einer Website bezieht und sie mit den als letztes bezogenen Daten abgleicht. Bei einer Änderung (es geht dabei hauptsächlich um "Textblöcke") wird eine Nachricht via FB-Messenger an eine oder mehrere Personen ausgeschickt.
Klingt für manche hier wahrscheinlich recht einfach, für mich ist es jedoch gar nicht mal so wenig Denkarbeit. So weit bin ich bisher gekommen, es ging mir allerdings mehr um Denkansätze und Tests der verschiedenen Optionen. Leider bin ich jetzt mit meinem Latein am Ende und habe keine Ahnung wie ich es anstellen könnte, dass:
- Die Textblöcke welche ausgelesen werden in der Zeilenanzahl variieren können ohne das komplette Konzept über den Haufen zu werfen.
- Die Software allgemein stabil und zuverlässig läuft (Error-Handling usw.) da es sich ja um eine 24/7 Applikation handeln soll.
- Die Textblöcke einzeln ("Einsatzkennung?") ausgelesen werden und nicht der gesamte ".innertext"
- Ich keine langen "Sleep(5000) Pausen einbauen muss, damit das Programm nicht abstürzt.
Um euch ein bisschen mehr als einen Haufen Rechtschreib.- und Tippfehler bieten zu können, hab ich mal meine Photoshop Skillz ausgepackt und einige Screenshots der "Problemzonen" gemacht.
Source(Annonymisiert)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <FileConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 812, 728)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 796, 680)
$Button1 = GUICtrlCreateButton("go", 8, 696, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region FriendVar
Global $Empfänger = "Hier kann ein Name stehen"
#EndRegion FriendVar
#Region Usefull Variables
Global $LineBreak = "{SHIFTDOWN}" & "{ENTER}" & "{SHIFTUP}"
Global $path = @ScriptDir & "\cache.txt"
Global $path2 = @ScriptDir & "\cache2.txt"
Global $a = 1
#EndRegion Usefull Variables
MainLoop()
Func MainLoop()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Global $aIE = _IECreate("http://ooe.martinhochreiter.at")
PositionWindowLFK()
Sleep(1000)
current()
Sleep(5000)
$getid = _IEGetObjById($aIE, "current")
Sleep(2000)
GUICtrlSetData($Edit1, $getid.innertext)
$String = StringRegExpReplace($getid.innertext, "Laufende Einsätze", "")
$Text = StringAddCR(StringRegExpReplace(StringStripCR($String), '\n([\n\s]*\n)', Chr(10)))
$FileHandle = FileOpen($path, 2)
FileWrite($FileHandle, $Text)
FileClose($FileHandle)
_IEQuit($aIE)
GUICtrlSetData($Edit1, $Text)
$count = _FileCountLines($path)
FileDelete($path2)
For $y = 3 To $count
$text2 = FileReadLine($path, $y)
FileWriteLine($path2, $text2)
Next
$Text_Formatted = FileRead($path2)
Sleep(1000)
GUICtrlSetData($Edit1, $Text_Formatted)
Sleep(1000)
Global $count2 = _FileCountLines($path2)
Global $count2 = $count2 -1
Global $oIE = _IECreate("https://www.messenger.com/")
PositionWindowFB()
Sleep(500)
SendMessage()
Sleep(5000)
_IEQuit($oIE)
EndSwitch
WEnd
EndFunc ;==>MainLoop
Func PositionWindowLFK()
Local $x = -1680
Local $y = 0
Local $height = 1050
Local $width = 1680
WinMove("http://ooe.martinhochreiter.at/#home - Internet Explorer", "", $x, $y, $width, $height, 1)
EndFunc ;==>PositionWindowLFK
Func PositionWindowFB()
Local $x = -1680
Local $y = 0
Local $height = 1050
Local $width = 1680
WinMove("Messenger - Internet Explorer", "", $x, $y, $width, $height, 1)
EndFunc ;==>PositionWindowFB
Func SendMessage()
Local $oInputs = _IETagNameGetCollection($oIE, "a")
For $oInput In $oInputs
If $oInput.classname == "_30yy _2oc8" Then _IEAction($oInput, "click")
Next
Sleep(500)
Send($Empfänger)
Sleep(100)
Send("{TAB}")
Local $oInputs = _IETagNameGetCollection($oIE, "div")
For $oInput In $oInputs
If $oInput.classname == "_45m_ _2vxa" Then _IEAction($oInput, "click")
Next
For $i = 1 To $count2 / 4
For $o = $a To $a + 3
$ReadLine = FileReadLine($path2, $o)
Sleep(10)
Send($ReadLine & $LineBreak)
ConsoleWrite($ReadLine & @CR)
Sleep(10)
Next
$a = $a + 4
ConsoleWrite("-------------------linebreak(enter)-------------------------------" & @CRLF);mit $linebreak erstetzen
Send(@CR)
Next
EndFunc ;==>SendMessage
Func hour6()
Local $oInputs = _IETagNameGetCollection($aIE, "a")
For $oInput In $oInputs
If $oInput.rel == "hour6" Then _IEAction($oInput, "click")
Next
EndFunc ;==>hour6
Func current()
Local $oInputs = _IETagNameGetCollection($aIE, "a")
For $oInput In $oInputs
If $oInput.rel == "current" Then _IEAction($oInput, "click")
Next
EndFunc ;==>current
Func day()
Local $oInputs = _IETagNameGetCollection($aIE, "a")
For $oInput In $oInputs
If $oInput.rel == "day1" Then _IEAction($oInput, "click")
Next
EndFunc ;==>current
Alles anzeigen
Bei
handelt es sich um den Ablauf um bei einer Messenger - Nachricht einen Zeilenumbruch zu machen, ohne die Nachricht mit "ENTER" zu verschicken.
Ja ich weiß, der Code ist einfach nur schrecklich schlecht Organisiert.
http://up.picr.de/24469638sw.jpg
http://up.picr.de/24469639ca.png
http://up.picr.de/24469640co.png
http://up.picr.de/24469641kh.png
Beim ersten Bild sieht man noch ein Problem: Wenn ich den ".innertext" auslese, schreibt er auch den kleinen farbig eingerahmten Buchstaben für die Einsatzart mit dazu. Leider hab ich keine Ahnung wie ich den da wegbekomme, da er ja ständig variiert...
Mit dem Messenger hab ich eigentlich keine Probleme, der macht mir das Leben eigentlich recht leicht
Würde mich über einige Denkansätze freuen!
____________________________________________________
Edit 7:
Hallo Leute!
Die allererste Version des Notifiers ist jetzt so weit fertig!
Punkte die noch in Arbeit sind:
- Message über Whatsapp versenden (wenn jemand Erfahrung oder Vorschläge hat, BITTE weitersagen!)
Source:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <_StringBetween2.au3>
#include <_StringSplitRegExp.au3>
#include <File.au3>
#include<Array.au3>
#Region GUI CREATION START
$gui = GUICreate("LFK-NotifyMe", 1025, 766, -1, -1)
GUISetBkColor(0xFFFFFF)
#Region Abfrage
$Group1 = GUICtrlCreateGroup(" Art der Abfrage ", 16, 8, 170, 185)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")
$Radio1 = GUICtrlCreateRadio("Laufende Einsätze", 24, 48, 150, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio2 = GUICtrlCreateRadio("Tagesübersicht", 24, 72, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio3 = GUICtrlCreateRadio("Rückblick 6 Stunden", 24, 96, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio4 = GUICtrlCreateRadio("Rückblick 2-Tage", 24, 120, 150, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$ComboBox_1 = GUICtrlCreateCombo("ALLE [OÖ]", 24, 152, 150, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "BRAUNAU|EFERDING|FREISTADT|GMUNDEN|GRIESKIRCHEN|KIRCHDORF|LINZ-LAND|LINZ-STADT|PERG|ROHRBACH|SCHÄRDING|STEYR-LAND|STEYR-STADT|URFAHR|VÖCKLABRUCK|WELS-LAND|WELS-STADT")
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Abfrage
#Region Übersicht
$Group2 = GUICtrlCreateGroup("Einsatzübersicht", 16, 256, 993, 473)
GUICtrlSetFont(-1, 12, 400, 2, "Dunant")
$Edit1 = GUICtrlCreateEdit("", 32, 296, 961, 417, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 12, 400, 0, "Courier")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Übersicht
#Region Aktualisierung
$Group3 = GUICtrlCreateGroup("Aktualisierung", 200, 8, 140, 185)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")
$Radio5 = GUICtrlCreateRadio("15 - Sekunden", 208, 40, 115, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio6 = GUICtrlCreateRadio("30 - Sekunden", 208, 64, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio7 = GUICtrlCreateRadio("1 - Minute", 208, 88, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio8 = GUICtrlCreateRadio("5 - Minuten", 208, 112, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio9 = GUICtrlCreateRadio("15 - Minuten", 208, 136, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio10 = GUICtrlCreateRadio("30 - Minuten", 208, 160, 113, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion Aktualisierung
#Region NotifyMe
$Group4 = GUICtrlCreateGroup("NoitfyMe", 360, 8, 140, 89)
GUICtrlSetFont(-1, 14, 400, 2, "Dunant")
$Radio11 = GUICtrlCreateRadio("WhatsApp", 368, 40, 115, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Radio12 = GUICtrlCreateRadio("Messenger", 368, 64, 115, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion NotifyMe
#Region Console
$EditConsole = GUICtrlCreateEdit("", 520, 16, 489, 233, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 10, 400, 0, "Courier")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
#EndRegion Console
#Region Msc
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$Progress1 = GUICtrlCreateProgress(16, 208, 486, 41)
$Button1 = GUICtrlCreateButton("Start", 360, 112, 139, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
$Button2 = GUICtrlCreateButton("Stop", 360, 160, 139, 33)
GUICtrlSetFont(-1, 12, 400, 0, "Dunant")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion Msc
#EndRegion GUI CREATION START
DirCreate(@ScriptDir&"\Versendet")
_MainLoop();XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX MAIN LOOP XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Func _MainLoop()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir&"\temp.nme")
GUICtrlSetData($Progress1,0)
AdlibUnRegister("_Scan")
AdlibUnRegister("_Time")
Exit
Case $Button1 ; START
_GuiAbfrage()
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetData($Progress1,0)
Case $Button2 ; STOP
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
_GUICtrlEdit_AppendText($EditConsole,"Stopped, returning to main loop"&@CRLF)
FileDelete(@ScriptDir&"\temp.nme")
GUICtrlSetData($Progress1,0)
AdlibUnRegister("_Scan")
AdlibUnRegister("_Time")
_MainLoop()
EndSwitch
WEnd
EndFunc ;==>_MainLoop
Func _Scan()
AdlibUnRegister("_Time")
AdlibUnRegister("_Scan")
GUICtrlSetData($Edit1,"")
_Update()
_Filtern()
EndFunc
Func _GuiAbfrage()
_GUICtrlEdit_SetText($EditConsole,"function _GuiAbfrage started"&@CRLF)
Global $ArrRad[13]
$ArrRad[0] = GUICtrlRead($Radio1)
$ArrRad[1] = GUICtrlRead($Radio2)
$ArrRad[2] = GUICtrlRead($Radio3)
$ArrRad[3] = GUICtrlRead($Radio4)
$ArrRad[4] = GUICtrlRead($ComboBox_1)
$ArrRad[5] = GUICtrlRead($Radio5)
$ArrRad[6] = GUICtrlRead($Radio6)
$ArrRad[7] = GUICtrlRead($Radio7)
$ArrRad[8] = GUICtrlRead($Radio8)
$ArrRad[9] = GUICtrlRead($Radio9)
$ArrRad[10] = GUICtrlRead($Radio10)
$ArrRad[11] = GUICtrlRead($Radio11)
$ArrRad[12] = GUICtrlRead($Radio12)
Select
Case $ArrRad[0] = 1
Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 1)
Case $ArrRad[1] = 1
Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 2)
Case $ArrRad[2] = 1
Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 3)
Case $ArrRad[3] = 1
Local $QueryLink = FileReadLine(@ScriptDir & "\querylink.nme", 4)
EndSelect
Select
Case $ArrRad[5] = 1
Local $Intervall = 15000
Case $ArrRad[6] = 1
Local $Intervall = 30000
Case $ArrRad[7] = 1
Local $Intervall = 60000
Case $ArrRad[8] = 1
Local $Intervall = 300000
Case $ArrRad[9] = 1
Local $Intervall = 900000
Case $ArrRad[10] = 1
Local $Intervall = 1800000
EndSelect
Select
Case $ArrRad[11] = 1
Local $NotifyMe = "WhatsApp"
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - MISSING - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Case $ArrRad[12] = 1
Local $NotifyMe = "Messenger"
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - MISSING - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
EndSelect
Global $QueryLink_Read = $QueryLink
Global $QueryDef_Read = $ArrRad[4]
Global $Intervall_Read = $Intervall
Global $NotifyMe_Read = $NotifyMe
_GUICtrlEdit_AppendText($EditConsole, "querylink: " & $QueryLink_Read & @CRLF & "querydef: " & $QueryDef_Read & @CRLF & "int: " & $Intervall_Read & @CRLF & "nfmy: " & $NotifyMe_Read & @CRLF)
_GUICtrlEdit_AppendText($EditConsole,"function _GuiAbfrage ended"&@CRLF)
_Scan()
EndFunc ;==>_GuiAbfrage
Func _Update()
_GUICtrlEdit_SetText($EditConsole,"function _Update started"&@CRLF)
FileDelete(@ScriptDir&"\temp.nme")
Global $String = Execute("'" & StringRegExpReplace(BinaryToString(InetRead($QueryLink_Read, 1), 1), "(\\u([[:xdigit:]]{4}))", "' & ChrW(0x$2) & '") & "'")
$StrSpl = _StringSplitRegExp($String, '"einsatz"')
For $i = 1 To UBound($StrSpl) - 1
$StrSpl[$i] = StringReplace($StrSpl[$i], '"', "")
$StrSpl[$i] = StringReplace($StrSpl[$i], '}', "")
$StrSpl[$i] = StringReplace($StrSpl[$i], '{', "")
$StrSpl[$i] = StringReplace($StrSpl[$i], ')', "")
$StrSpl[$i] = StringReplace($StrSpl[$i], ';', "")
$StrSpl[$i] = StringRegExpReplace($StrSpl[$i], ":", "", 1)
$StrLen = StringLen($StrSpl[$i])
$LastDigit = StringMid($StrSpl[$i], $StrLen)
$Alpha = StringIsAlpha($LastDigit)
While $Alpha = 0
$StrSpl[$i] = StringTrimRight($StrSpl[$i], 1)
$StrLen = $StrLen - 1
$LastDigit = StringMid($StrSpl[$i], $StrLen)
$Alpha = StringIsAlpha($LastDigit)
WEnd
;~ ;Komma im Datum entfernen
$StrSpl[$i] = StringReplace($StrSpl[$i], ",", ".", 5)
$StrSpl[$i] = StringReplace($StrSpl[$i], ".", ",", 4)
$StrSpl[$i] = StringReplace($StrSpl[$i], ",", ".", 3)
$StrSpl[$i] = StringReplace($StrSpl[$i], ".", ",", 2)
;~ ;Komma im Datum entfernen
$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=")
$StrSpl[$i] = StringReplace($StrSpl[$i], "=", ":", 8)
$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=", 6)
$StrSpl[$i] = StringReplace($StrSpl[$i], "=", ":", 5)
$StrSpl[$i] = StringReplace($StrSpl[$i], ":", "=", 3)
;~ ;Alle , austauschen
$StrSpl[$i] = StringReplace($StrSpl[$i], ",", "|")
;~ ;wgs84= löschen
$StrSpl[$i] = StringReplace($StrSpl[$i], "wgs84=", "")
;~ ;feuerwehr= löschen
$StrSpl[$i] = StringReplace($StrSpl[$i], "feuerwehr=", "")
;~ ;cntfeuerwehren ersetzen
$StrSpl[$i] = StringReplace($StrSpl[$i], "cntfeuerwehren", "anzahl")
;~ ;feuerwehren= löschen
$StrSpl[$i] = StringReplace($StrSpl[$i], "feuerwehren=", "")
;~ ;id= löschen
$StrSpl[$i] = StringReplace($StrSpl[$i], "id=", "")
;~ ;default= löschen
$StrSpl[$i] = StringReplace($StrSpl[$i], "default=", "")
;~ ;text ersetzen
$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "einsatzbezeichnung", 1)
;~ ;text ersetzen
$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "einsatzsubbezeichnung", 1)
;~ ;text ersetzen
$StrSpl[$i] = StringReplace($StrSpl[$i], "text", "bezirkbezeichnung", 1)
;~ ;alles CAPS
$StrSpl[$i] = StringUpper($StrSpl[$i])
_GUICtrlEdit_AppendText($EditConsole,"data: "&$i&"/"&UBound($StrSpl) - 1&" loaded"&@CRLF)
$percent = Round(($i / (UBound($StrSpl) - 1)) * 100,0)
GUICtrlSetData($Progress1,$percent)
Sleep(10)
FileWriteLine(@ScriptDir&"\temp.nme",$StrSpl[$i])
Next
_GUICtrlEdit_AppendText($EditConsole,"______________________"&@CRLF)
_GUICtrlEdit_AppendText($EditConsole,"function _Update ended"&@CRLF)
EndFunc ;==>_Update
Func _Filtern()
_GUICtrlEdit_AppendText($EditConsole,"function _Filtern started"&@CRLF)
$LineCount = _FileCountLines(@ScriptDir&"\temp.nme")
For $a = 1 To $LineCount
$Temp = FileReadLine(@ScriptDir&"\temp.nme",$a)
If StringRegExp($Temp,$QueryDef_Read) = 1 Then
Global $TempSp = StringSplit($Temp,"|",2)
If FileExists(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk") = 0 Then
_GUICtrlEdit_AppendText($EditConsole,"data not found -> must be new"&@CRLF)
;XXXX VERSENDEN
_GUICtrlEdit_AppendText($Edit1,"XXXXXXXXXXXXXXXXXXXXXXXXXXX VERSENDET XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "&@CRLF)
;XXXX VERSENDEN
FileWrite(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk",$Temp)
EndIf
ElseIf $QueryDef_Read = "ALLE [OÖ]" Then
Global $TempSp = StringSplit($Temp,"|",2)
If FileExists(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk") = 0 Then
_GUICtrlEdit_AppendText($EditConsole,"data not found -> must be new"&@CRLF)
;XXXX VERSENDEN
_GUICtrlEdit_AppendText($Edit1,"XXXXXXXXXXXXXXXXXXXXXXXXXXX VERSENDET XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX "&@CRLF)
;XXXX VERSENDEN
FileWrite(@ScriptDir&"\Versendet\"&StringReplace($TempSp[0],"NUM1=","")&".lfk",$Temp)
EndIf
EndIf
$percent = Round(($a / $LineCount) * 100,0)
GUICtrlSetData($Progress1,$percent)
Sleep(10)
_GUICtrlEdit_AppendText($Edit1,"Abfrage für "&$QueryDef_Read&": "&@CRLF)
For $b = 0 To UBound($TempSp) -1
_GUICtrlEdit_AppendText($Edit1,$TempSp[$b]&@CRLF)
Next
_GUICtrlEdit_AppendText($Edit1,""&@CRLF)
Next
_GUICtrlEdit_AppendText($EditConsole,"function _Filtern ended"&@CRLF)
_GUICtrlEdit_SetText($EditConsole,$Intervall_Read/1000&@CRLF)
AdlibRegister("_Time",1000)
AdlibRegister("_Scan",$Intervall_Read)
EndFunc
Func _Time()
$read = GUICtrlRead($EditConsole)
$c = $read - 1
_GUICtrlEdit_SetText($EditConsole,$c&" Sekunden bis zum nächsten Update!"&@CRLF)
EndFunc
Alles anzeigen
Bei meinem letzten Post kann man den Entstehungsprozess ein bisschen mitverfolgen.
Nochmals Vielen Dank an Kanashius!
____________________________________________________
Liebe Grüße,
Stoani