Hallo vllt kennt ihr das kleine Tool von GTAspider um das neuste thema im Forum zu ssehen ich wollte es nun mal neu machen da es nicht mehr funktioniert. (Habe ihn gefragt er hat gesgat wäre kein problem, wers net glaub kann ja selba fragen)
Also hier der Code
Spoiler anzeigen
#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>
#NoTrayIcon
$Form1 = GUICreate("AutoIt.de Checker", 135, 320, -1, -1, -1, $WS_EX_TOOLWINDOW)
$n = GUICtrlCreatePic(@DesktopDir & "\AutoIt.jpg",-1,-1, 140,320)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("Bitte Warten...", 8, 15, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Titel", 10, 0, 29, 14)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1,0xDE6F41)
$Input2 = GUICtrlCreateInput("Bitte Warten...", 8, 60, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Autor", 10, 45, 29, 14)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1,0xDE6F41)
$Input3 = GUICtrlCreateInput("Bitte Warten...", 8, 105, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 10, 90, 29, 14)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1,0xDE6F41)
$Input4 = GUICtrlCreateInput("Bitte Warten...", 8, 165, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Letzter Beitrag von", 10, 150, 40, 14)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1,0xDE6F41)
$Input5 = GUICtrlCreateInput("Bitte Warten...", 8, 210, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 10, 195, 29, 14)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1,0xDE6F41)
$Button = GUICtrlCreateButton("&Aktualisieren", 8, 245, 121, 21)
GUISetState(@SW_SHOW)
GetLastPost()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button
GetLastPost()
;;;;;;
EndSelect
WEnd
Exit
Func GetLastPost($setdata = 1)
$file = @TempDir&"\wg.php"
Dim $array
If $setdata = 1 Then
GUICtrlSetState($Button,$GUI_DISABLE)
GUICtrlSetData($Input1,"Bitte Warten...")
GUICtrlSetData($Input2,"Bitte Warten...")
GUICtrlSetData($Input3,"Bitte Warten...")
GUICtrlSetData($Input4,"Bitte Warten...")
GUICtrlSetData($Input5,"Bitte Warten...")
EndIf
InetGet("http://www.autoit.de/portal.php",$file,1)
$string = FileRead($file,FileGetSize($file))
[/autoit] [autoit][/autoit] [autoit]$strings = StringSplit($string,'<a href="thread.php?threadid=',1)
$strings = StringSplit($strings[2],">",1)
$strings = StringSplit($strings[2],"</a",1)
$threadtitle = $strings[1]
$strings = StringSplit($string,"<br /><b>",1)
$strings = StringSplit($strings[3],"</b>",1)
$threadday = $strings[1]
$strings = StringSplit($string,'<span class="time">',1)
$strings = StringSplit($strings[2],'</span>',1)
$threadtime = $strings[1]
_FileReadToArray($file,$array)
$threaddayline = _ArraySearch($array,@TAB&'<br /><b>'&$threadday&'</b>, <span class="time">'&$threadtime&'</span></span></td>')
$strings = StringSplit($array[$threadlastdayline-2],'<a href="profile.php?userid=',1)
[/autoit] [autoit][/autoit] [autoit]$strings = StringSplit($strings[2],">",1)
$strings = StringSplit($strings[2],"<",1)
$threadautor = $strings[1]
$strings = StringSplit($string,"<br /><b>",1)
$strings = StringSplit($strings[4],"</b>",1)
$threadlastday = $strings[1]
$strings = StringSplit($string,'<span class="time">',1)
$strings = StringSplit($strings[3],'</span>',1)
$threadlasttime = $strings[1]
$threadlastdayline = _ArraySearch($array,@TAB&'<td class="tablea" align="right"><table border="0" cellspacing="0" cellpadding="1"><tr><td align="right" nowrap="nowrap"><span class="smallfont">')
$strings = StringSplit($array[$threadlastdayline+3],'<a href="profile.php?userid=',1)
$strings = StringSplit($strings[2],"<b>",1)
$strings = StringSplit($strings[2],"<",1)
$threadlastwrite = $strings[1]
If $setdata = 1 Then
GUICtrlSetState($Button,$GUI_ENABLE)
GUICtrlSetData($Input1,$threadtitle)
GUICtrlSetData($Input2,$threadautor)
GUICtrlSetData($Input3,$threadday&" "&$threadtime)
GUICtrlSetData($Input4,$threadlastwrite)
GUICtrlSetData($Input5,$threadlastday&" "&$threadlasttime)
GUICtrlSetTip($Input1,$threadtitle)
Else
Return $threadtitle&"<&-$.6"&$threadlastday&"<&-$.6"&$threadtime&"<&-$.6"&$threadautor&"<&-$.6"&$threadlastwrite&"<&-$.6"&$threadlastday&"<&-$.6"&$threadlasttime
EndIf
EndFunc
Er sagt an alle möglichen stellen das Fehler sind
vllt könnt ihr helfen vllt findet ihr die fehler im Code.
GTAspider hat gesagt der https://autoit.de/www.autoit.de Quelltext (quellcode) hat sich geändert deswegen funtz es nicht mehr.
Also ich hoffe ihr könnt helfen.
Thx im Voraus :comp2: :comp2: :comp2: