Das Neuste Thema?

**GtaSpider**

Hi! Hier habe ich ein kleines aber feines skript geschrieben mit dem man gucken kann was das momentan aktuellste thema hier ist dessen autor und wann es erstellt wurde und von wem es das letzte mal beschrieben wurde und wann....
edit: natürlich von dem besten forum das es gibt *g* https://autoit.de/www.autoit.de

C

#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>


$Form1 = GUICreate("AForm1", 268, 123, 192, 125)
GUISetBkColor(0xA5BCEB)
$Input1 = GUICtrlCreateInput("Bitte Warten...", 8, 16, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Titel", 10, 0, 29, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)
$Input2 = GUICtrlCreateInput("Bitte Warten...", 8, 56, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Autor", 10, 40, 29, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)
$Input3 = GUICtrlCreateInput("Bitte Warten...", 8, 96, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 10, 80, 69, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)
$Input4 = GUICtrlCreateInput("Bitte Warten...", 144, 16, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Letzter Beitrag von", 146, 0, 101, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)
$Input5 = GUICtrlCreateInput("Bitte Warten...", 144, 56, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 146, 40, 69, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)
$Button = GUICtrlCreateButton("&Aktualisieren", 144, 88, 115, 28)
GUISetState(@SW_SHOW)


GetLastPost()


While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case $msg = $Button
		GetLastPost()
		;;;;;;
	EndSelect
WEnd
Exit
Func GetLastPost($setdata = 1)
	$file = "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://autoit.aufwaerts.de/portal.php",$file,1)


	$string = FileRead($file,FileGetSize($file))


	$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[$threaddayline-2],'<a href="profile.php?userid=',1)


	$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

Alles anzeigen

geRRus

NICE
gta
weiter so,hoffentlich sehen wir weiter Sachen von dir.
thx
cu

Edit: hier noch mal wie das Ding aussieht

**GtaSpider**

Danke geRRus!
Mach du auch weiter so :tassen:

und danke wegen dem bild

**peethebee**

Hallo!

Das ist ja wirklich top. Kann man noch einrichten, dass das Programm in einem vorgegebenen Abstand selbst nachschauent und dann evtl. einen Sound ausgibt, wenn ein neues Thema da ist?
Dann wäre das Tool unersätzlich für mich. Danke! So macht man sich Freunde als Mod :tongue:.
Noch ein kleiner technischer Hinweis: Evtl. geht das Parsen mit "Regulären Ausdrücken" (RegExp) schneller und präziser. Wenn du Zeit hast, dich da mal einzuarbeiten, wird es nicht schaden.

peethebee

**Gun-Food**

hmm, wäre klasse, aber mache ich was falsch?? :

Code

Neuer Beitrag.au3(69,135) : ERROR: _ArraySearch(): undefined function.
        $threaddayline = _ArraySearch($array,@TAB&'<br /><b>'&$threadday&'</b>, <span class="time">'&$threadtime&'</span></span></td>')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

**peethebee**

Beta? evtl. kompilieren, dann macht er es mit der Beta.
Die Func ArraySearch war in der stable noch nicht in array.au3, glaube ich.

peethebee

**Gun-Food**

Auch die Beta meckert. Kann mir wer die fertige exe anhängen? Ich schau dann mal wegen ner anderen AutoIt Version.

**Gun-Food**

Nachtrag:
Ein Continue anyway hat geholfen.

geRRus

eine EXE voller Viren?
Bitte schön:)

EDIT:Gun könntest du als datei-anhang auch exe freischalten?oder wenigsten RAR?thx

**GtaSpider**

Hallo!

peethebee : Danke ersteinmal für das lob :)! Wenn es dann unersätzlich für dich wäre mach ich das doch gerne. Werde mich mal dran machen, und das denn gleich (oder villeicht auch morgen ) Posten!

**GtaSpider**

Hallo!

So habe nun ein *wenig* geupdatet! Ich habe es luxuriöser gestaltet!
natürlich habe ich auch peethebee's Vorschläge berücksichtigt!

Hier nun Das Skript! Hoffe auf Rückmeldungen. Viel Spaß damit.

C

;Includes


#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>


;Optionen & Variablen
TraySetIcon("shell32.dll",70)
Opt("TrayMenuMode", 1)
InetGet("http://autoit.aufwaerts.de/images/avatars/avatar-13.jpg", @TempDir & "\gtaspiderava~.jpg")
Global $file = @TempDir & "\Temp.php", $optgui,$Hidecheck = 0,$oldlastwrite,$oldthread


;Gui


$Main = GUICreate("AutoIt.de - By GtaSpider", 268, 143, 192, 125)
GUISetBkColor(0xA5BCEB)
GUISetIcon("shell32.dll",70)


$FileMenu = GUICtrlCreateMenu("&Datei")
$Aktmenu = GUICtrlCreateMenuitem("&Aktualisieren", $FileMenu)
GUICtrlCreateMenuitem("", $FileMenu)
$exit = GUICtrlCreateMenuitem("&Exit", $FileMenu)


$XtraMenu = GUICtrlCreateMenu("&Extras")
$open = GUICtrlCreateMenuitem("&Gehe zu AutoIt.de", $XtraMenu)
$Hide = GUICtrlCreateMenuitem("Zu &Tray Minimieren", $XtraMenu)
GUICtrlCreateMenuitem("", $XtraMenu)
$Opt = GUICtrlCreateMenuitem("&Optionen", $XtraMenu)


$Title = GUICtrlCreateInput("Bitte Warten...", 8, 16, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Titel", 10, 0, 29, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)


$Autor = GUICtrlCreateInput("Bitte Warten...", 8, 56, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Autor", 10, 40, 29, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)


$Day = GUICtrlCreateInput("Bitte Warten...", 8, 96, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 10, 80, 69, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)


$LastWrite = GUICtrlCreateInput("Bitte Warten...", 144, 16, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Letzter Beitrag von", 146, 0, 101, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)


$LastDay = GUICtrlCreateInput("Bitte Warten...", 144, 56, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Geschrieben", 146, 40, 69, 14)
GUICtrlSetBkColor(-1, 0xA5BCEB)


$Akt = GUICtrlCreateButton("&Aktualisieren", 144, 88, 115, 28)
GUISetState(@SW_SHOW)


;TrayMenü


$TrXtra = TrayCreateMenu("&Extras")
$Tropen = TrayCreateItem("&Gehe zu AutoIt.de", $TrXtra)
$HideShow = TrayCreateItem("Zu &Tray Minimieren", $TrXtra)
TrayCreateItem("", $TrXtra)
$TrOpt = TrayCreateItem("&Optionen", $TrXtra)


$TrFile = TrayCreateMenu("&Datei")
$AktTr = TrayCreateItem("&Aktualisieren", $TrFile)
$trexit = TrayCreateItem("&Exit", $TrFile)




GetLastPost()


While 1
	$msg = GUIGetMsg()
	$trmsg = TrayGetMsg()
	If $optgui <> "" Then
		Wait($optgui)
	EndIf
	Select
		Case $msg = $GUI_EVENT_CLOSE Or $msg = $exit Or $trmsg = $trexit
			ExitLoop
		Case $msg = $Akt Or $msg = $Aktmenu Or $trmsg = $AktTr
			GetLastPost()
		Case $msg = $open Or $trmsg = $Tropen
			RunWait(@ComSpec & ' /c start http://autoit.aufwaerts.de/portal.php', '', @SW_HIDE)
		Case $msg = $Opt Or $trmsg = $TrOpt
			$optgui = OptGui()
			GUIDelete()
		Case $msg = $Hide Or $trmsg = $HideShow
			If $Hidecheck = 1 Then
				GUISetState(@SW_SHOW,$Main)
				$Hidecheck = 0
				TrayItemSetText($HideShow,"Zu &Tray Minimieren")
			Else
				GUISetState(@SW_HIDE,$Main)
				$Hidecheck = 1
				TrayItemSetText($HideShow,"Zu &GUI Erweitern")
			EndIf
	EndSelect
WEnd
Exit


Func OnAutoItExit();Wenn das Programm beendet
	FileDelete($file)
EndFunc   ;==>OnAutoItExit


Func Wait($sleep)
	$td = 0
	$ti = TimerInit()
	While 1
		$msg2 = GUIGetMsg()
		$trmsg2 = TrayGetMsg()
		Select
			Case $msg2 = $GUI_EVENT_CLOSE Or $msg2 = $exit Or $trmsg2 = $trexit
				Exit
			Case $msg2 = $Akt Or $msg2 = $Aktmenu Or $trmsg2 = $AktTr
				GetLastPost()
			Case $msg2 = $open Or $trmsg2 = $Tropen
				Run(@ComSpec & ' /c start http://autoit.aufwaerts.de/portal.php', '', @SW_HIDE)
			Case $msg2 = $Opt Or $trmsg2 = $TrOpt
				$optgui = OptGui()
				GUIDelete()
				If $optgui <> "" Then
					Wait($optgui)
					Return
				Else
					Return
				EndIf
			Case $msg = $Hide Or $trmsg = $HideShow
				If $Hidecheck = 1 Then
					GUISetState(@SW_SHOW,$Main)
					$Hidecheck = 0
					TrayItemSetText($HideShow,"Zu &Tray Minimieren")
				Else
					GUISetState(@SW_HIDE,$Main)
					$Hidecheck = 1
					TrayItemSetText($HideShow,"Zu &GUI Erweitern")
				EndIf
		EndSelect
		If Round(TimerDiff($ti) - 1) > Round($sleep+$td) Then

			$ti2 = TimerInit()
			GetLastPost()
			$td = TimerDiff($ti2)
			$ti = TimerInit()
		EndIf
	WEnd
EndFunc   ;==>Wait


Func OptGui()
	GUICreate("Optionen", 195, 89, 192, 125)

	GUICtrlCreateTab(5, 5, 189, 83)
	GUICtrlCreateTabItem("Aktualisieren")
	$AutomAkt = GUICtrlCreateCheckbox("&Automatisch Aktualisieren", 15, 35, 167, 15)
	$time = GUICtrlCreateInput("0", 55, 55, 47, 19)
	GUICtrlSetState(-1, $GUI_DISABLE)
	GUICtrlCreateUpdown(-1)
	GUICtrlCreateLabel("Alle", 35, 55, 21, 15)
	$Combo = GUICtrlCreateCombo("", 105, 55, 85, 21)
	GUICtrlSetData(-1, "Sekunde(n)|Minute(n)", "Sekund(en)")
	GUICtrlSetState(-1, $GUI_DISABLE)
	GUICtrlCreateTabItem("Info")
	GUICtrlSetState(-1, $GUI_SHOW)
	GUICtrlCreatePic(@TempDir & "\gtaspiderava~.jpg", 15, 30, 50, 50, BitOR($SS_NOTIFY, $WS_GROUP))
	GUICtrlCreateLabel("By GtaSpider Für     AutoIt.de", 75, 35, 70, 37, $SS_CENTER)
	GUICtrlCreateTabItem("")
	GUISetState(@SW_SHOW)

	While 1
		$optmsg = GUIGetMsg()
		Select
			Case $optmsg = $GUI_EVENT_CLOSE
				ExitLoop
			Case $optmsg = $AutomAkt
				If GUICtrlRead($AutomAkt) = 1 Then
					GUICtrlSetState($time, $GUI_ENABLE)
					GUICtrlSetState($Combo, $GUI_ENABLE)
				Else
					GUICtrlSetState($time, $GUI_DISABLE)
					GUICtrlSetState($Combo, $GUI_DISABLE)
				EndIf
		EndSelect
	WEnd
	If GUICtrlRead($AutomAkt) = 1 Then
		If GUICtrlRead($Combo) = "Sekunde(n)" Then
			$sleep = GUICtrlRead($time) * 1000
		Else
			$sleep = GUICtrlRead($time) * 60000
		EndIf
		Return $sleep
	EndIf
EndFunc   ;==>OptGui


Func GetLastPost($setdata = 1,$sound = 1)
	GUISetIcon("shell32.dll",88,$Main)
	TraySetIcon("shell32.dll",88)
	if $sound = 1 Then $sound = @WindowsDir&"\Media\ding.wav"
	Dim $array

	If $setdata = 1 Then
		GUICtrlSetState($Akt, $GUI_DISABLE)
;~ 		GUICtrlSetData($Title, "Bitte Warten...")
;~ 		GUICtrlSetData($Autor, "Bitte Warten...")
;~ 		GUICtrlSetData($Day, "Bitte Warten...")
;~ 		GUICtrlSetData($LastWrite, "Bitte Warten...")
;~ 		GUICtrlSetData($LastDay, "Bitte Warten...")
		;Nur bei bedarf!
	EndIf

	InetGet("http://autoit.aufwaerts.de/portal.php", $file, 1)

	$string = FileRead($file, FileGetSize($file))

	$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[$threaddayline - 2], '<a href="profile.php?userid=', 1)

	$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 $oldlastwrite <> $threadlastwrite Or $oldthread <> $threadtitle Then
		SoundPlay($sound)
		TrayTip("Neuer Beitrag","Neuer Beitrag von """&$threadlastwrite&""""&@CR&"Zum Thema """&$threadtitle&"""",3,1)
		$oldlastwrite = $threadlastwrite
		$oldthread = $threadtitle
	EndIf
	GUISetIcon("shell32.dll",70,$Main)
	TraySetIcon("shell32.dll",70)
	If $setdata = 1 Then
		GUICtrlSetState($Akt, $GUI_ENABLE)
		GUICtrlSetData($Title, $threadtitle)
		GUICtrlSetData($Autor, $threadautor)
		GUICtrlSetData($Day, $threadday & " " & $threadtime)
		GUICtrlSetData($LastWrite, $threadlastwrite)
		GUICtrlSetData($LastDay, $threadlastday & " " & $threadlasttime)
		GUICtrlSetTip($Title, $threadtitle)
	Else
		Return $threadtitle & "<&-$.6" & $threadlastday & "<&-$.6" & $threadtime & "<&-$.6" & $threadautor & "<&-$.6" & $threadlastwrite & "<&-$.6" & $threadlastday & "<&-$.6" & $threadlasttime
	EndIf
EndFunc   ;==>GetLastPost

Alles anzeigen

geRRus

Ist super geworden.
Erster Bug: Wenn man die Option "automatisch aktualisieren" einschaltet,funktioniert die Option "zum Tray minimieren" nicht.

**GtaSpider**

Hallo!

Danke hab ich auch grade bemerkt (bzw peethebee) werde es bald möglichst fixxen!

**peethebee**

Alternative (ungetestet, weiß nicht, ob nicht-Admins hin können): http://www.mywbb.info/board/thread.php?threadid=102306

peethebee

**Gun-Food**

Aja. Sollte wohl ein Hinweis für mich sein??
Werd mal sehen, ob ich euren Wunsch erfüllen kann.
P.S.: In der Zwischenzeit gibt es auf der Portalseite das Guckloch, das das gleiche in einem extra Fenster macht.

**Gun-Food**

So umgestzt. den Donload des eigentlichen Programms, binde ich gleich noch in die Filebase ein.

**peethebee**

Danke!

peethebee

p.s. admin : Kommst du mal wieder im ICQ online?

[KdD]Wolf

Also ich weiß nicht wo her der Fehler kommt aber er kommt und was er bedeutet weiß ich auch nicht.

C:\Dokumente und Einstellungen\Rene Hoffmann\Eigene Dateien\AutoIt Scripts\TestScript.au3 (211) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$strings = StringSplit($strings[2], ">", 1)
$strings = StringSplit(^ ERROR

Agent00

Habe folgenden Bug :

*Pfad Zensiert*\test.au3 (227) : ==> Array variable subscript badly formatted.:
$strings = StringSplit($array[$threaddayline - 2], '<a href="profile.php?userid=', 1)
$strings = StringSplit($array[^ ERROR

**Xenobiologist**

Hi,

da wird ein Array angesprochen außerhalb der Grenzen.

So long,

Mega