Hallo, kann man sich einen Antwort Checker basteln, der nach Intervallen schaut ob auf ein Thema geantwortet wurde?
habe angefangen, taugt aber nicht, da es Universal Funktionieren sollte
Spoiler anzeigen
#include<Inet.au3>
#include<GUIConstantsEx.au3>
$Treffer=''
GUICreate ("Threadchecker", 900,120); Wagerechte; Höhe
GUISetBkColor(0xFFB200);FF6699);663399 )
GUISetFont(9, 300)
GUICtrlCreateLabel ("Hier den Link rein",10,30)
$Link = GUICtrlCreateEdit ('', 220,30,600,20,0)
$Name=GUICtrlCreateEdit ('', 220,60,600,20,0)
$start = GUICtrlCreateButton (" Starten", 200,90)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
$LinkR = GUICtrlRead($Link)
Select
case $msg = $start
FileWrite(@ScriptDir&'\Temp.txt',_INetGetSource($LinkR))
$Temp=FileOpen(@ScriptDir&'\Temp.txt',0)
While 1
$TempR=FileReadLine($Temp)
if @error=-1 Then
MsgBox(0,'Letzer Beitrag von ',$Treffer)
$Link=$LinkR&'#'&$Treffer
MsgBox(0,"",$Link)
ShellExecute($Link)
Exit
EndIf
if StringInStr($TempR,'<div class="messageBody" id="') then
$TempR=StringTrimLeft($TempR,36)
$TempR=StringTrimRight($TempR,2)
$Treffer=$TempR
EndIf
WEnd
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
EndIf
Wend