Hallo,
ersteinmal der Code:
Spoiler anzeigen
#include <GuiConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <IE.au3>
#include <String.au3>
#include <FF.au3>
$gui = GUICreate("Programm", 1905, 1000)
[/autoit] [autoit][/autoit] [autoit]$tab = GUICtrlCreateTab (0, 0, 1920, 20)
[/autoit] [autoit][/autoit] [autoit]$tstreamsitem = GUICtrlCreateTabItem ("Streams") ;Tab Streams Item
[/autoit] [autoit][/autoit] [autoit]Dim $ooliveid = 2721 ;Ocelote Live ID
Dim $oaliveid = 42146 ;Athene Live ID
Func _CheckOwn3dStatus($oliveid)
[/autoit] [autoit][/autoit] [autoit]$ourl = "http://api.own3d.tv/rest/live/status.xml?liveid=" & $oliveid
[/autoit] [autoit][/autoit] [autoit]_FFStart ($ourl, "default", 1, "true")
_FFLoadWait ()
$ostatushtml = _FFReadHTML () ;Own3d Status auslesen
_FFQuit ()
Global $ostatus[4]
Local $aRead[1]
$onamestart = ">live_name</span>></a>"
$onameend = "<span xmlns="
$oviewerstart = ">live_viewer</span>></a>"
$oviewerend = "<span xmlns="
$ogamestart = ">game_short</span>></a>"
$ogameend = "<span xmlns="
$ostatusstart = ">live_is_live</span>></a>"
$ostatusend = "<span xmlns="
$aRead = _StringBetween ($ostatushtml, $onamestart, $onameend) ;Name
If Not @error Then $ostatus[0] = $aRead[0]
$aRead = _StringBetween ($ostatushtml, $oviewerstart, $oviewerend) ;Viewer
If Not @error Then $ostatus[1] = $aRead[0]
$aRead = _StringBetween ($ostatushtml, $ogamestart, $ogamestart) ;Game
If Not @error Then $ostatus[2] = $aRead[0]
$aRead = _StringBetween ($ostatushtml, $ostatusstart, $ostatusend) ;Status
If Not @error Then $ostatus[3] = $aRead[0]
EndFunc
[/autoit] [autoit][/autoit] [autoit]$ooverviewlist = GUICtrlCreateListView ("Stream | Viewer |Game", 1600, 470, 300, 450) ;own3d Stream Liste
[/autoit] [autoit][/autoit] [autoit]Func _CreateListViewItemIfLive()
If $ostatus[3] = 1 Then
GUICtrlCreateListViewItem ($ostatus[0] & "|" & $ostatus[1] & "|" & $ostatus[2], $ooverviewlist)
[/autoit] [autoit][/autoit] [autoit]EndIf
EndFunc
;_CheckOwn3dStatus ausführen und ListViewItem erstellen
_CheckOwn3dStatus($ooliveid) ;Ocelote Live ID
_CreateListViewItemIfLive()
_CheckOwn3dStatus($oaliveid) ;Athene Live ID
_CreateListViewItemIfLive()
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Nach der Anwendung dieses Bugfixes traten folgende Fehler auf:
1. Firefox startet sichtbar.
2. Firefox schließt sich nicht wieder.
3. Das eigentliche Programm (GUI) startet nicht.
Ich hoffe ihr könnt mir helfen
MfG ExChill