Adlibregister Donguden Cıkmıyor

[darendeli]

Func SiteBilgileriGuncel()
Local $oIE = _IECreate("https://yootugne.gq/prog.php?p=youtubeikk",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "div")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "stats" Then
	  If not @error then	$hostteam1 = $oTag1.innerTEXT
	  If GUICtrlRead($hostteam1) <> "" Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($Label2 ,GUICtrlRead($hostteam1))
 EndIf
If StringLen($hostteam1) = 0 Then $hostteam1 = @CRLF
ConsoleWrite($hostteam1 & @CRLF)
GUICtrlSetData($Label2 ,$hostteam1)
	 EndIf
Next
_IEQuit($oIE)
AdlibUnRegister("SiteBilgileriGuncel")
AdlibRegister("SiteBilgileriGuncel",1000)
EndFunc

 

[ronaldinho424]

darendeli, 20 saat önce yazdı:

Func SiteBilgileriGuncel()
Local $oIE = _IECreate("https://yootugne.gq/prog.php?p=youtubeikk",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "div")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "stats" Then
	  If not @error then	$hostteam1 = $oTag1.innerTEXT
	  If GUICtrlRead($hostteam1) <> "" Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($Label2 ,GUICtrlRead($hostteam1))
 EndIf
If StringLen($hostteam1) = 0 Then $hostteam1 = @CRLF
ConsoleWrite($hostteam1 & @CRLF)
GUICtrlSetData($Label2 ,$hostteam1)
	 EndIf
Next
_IEQuit($oIE)
AdlibUnRegister("SiteBilgileriGuncel")
AdlibRegister("SiteBilgileriGuncel",1000)
EndFunc

 

AdlibRegister  ile işlevi kaydedeceksin ondan sonra AdlibUnRegister kayıtlı işlevi sileceksin. _IECreate işlevi bitti artık Internet Explorer siteleri desteklemiyor.