Kod: Tümünü seç
#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
$gui = GUICreate("Maç Listesi", 425, 238, 192, 124)
Local $idListview = GUICtrlCreateListView("Sıra | Ev Sahibi Takım | Deplasman Takımı ", 10, 10, 450, 100) ;,$LVS_SORTDESCENDING)
Local $idItem1 = GUICtrlCreateListViewItem("||", $idListview)
Local $idItem2 = GUICtrlCreateListViewItem("||", $idListview)
Local $idItem3 = GUICtrlCreateListViewItem("||", $idListview)
GUISetState(@SW_SHOW)
GUICtrlSetData($idItem2, "||")
GUICtrlSetData($idItem3, "||")
GUICtrlDelete($idItem1)
$buton = GUICtrlCreateButton("Maçları Listele", 100, 150, 200, 30)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $buton
_MaclariListele()
EndSwitch
WEnd
Func _MaclariListele()
Local $oIE = _IECreate("http://www.statarea.com/predictions",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "div")
For $oTag In $oTags
if $oTag.GetAttribute("class") == "hostteam" Then
$hostteam = $oTag.innerTEXT
If $hostteam <> '' Then
ConsoleWrite($hostteam & @CRLF)
GUICtrlSetData($idItem2,'|'&$hostteam )
EndIf
EndIf
Next
_IEQuit($oIE)
EndFunc