Siteden Veri Cekmek 2019

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
darendeli
Byte4
Byte4
Mesajlar: 168
Kayıt: 06 Haz 2016, 16:55

Siteden Veri Cekmek 2019

Mesaj gönderen darendeli » 25 Şub 2019, 02:07

Arkadaslar Soyle Bir Veri Almak istiyorum Fakat Bazı Sıralarda Bosluklar Var Bu Bosluklarıda Bos olarak Gecmek istiyorum

Kod: Tümünü seç

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include "_UskinLibrary.au3"

Global $Obj_Error = ObjEvent("AutoIt.Error", "_Obj_Error") ;Obj hataları...
_Uskin_LoadDLL()
_Uskin_Init(@ScriptDir&"\MX5.msstyles")

Global $hostteam
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli İddaa Analiz ARACI", 785, 554, 308, 137)

$Label3 = GUICtrlCreateLabel("Program Analizi Yaparken Neleri Dikkate Alıyor", 440, 16, 335, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("✔ Takımlar arasındaki tüm maçlar", 440, 56, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label5 = GUICtrlCreateLabel("✔ Ev sahibi takımın son maçları", 440, 96, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label6 = GUICtrlCreateLabel("✔ Konuk takımın son maçları", 440, 136, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label7 = GUICtrlCreateLabel("✔ Ev sahibi takımın avantajı", 440, 176, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label8 = GUICtrlCreateLabel("✔ Şampiyonada takımların puan durumu", 440, 216, 295, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label9 = GUICtrlCreateLabel("✔ Ülke liginin derecesi (farklı takım ülkeleri)", 440, 256, 375, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label10 = GUICtrlCreateLabel("✔ Takımların sıralaması", 440, 296, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label11 = GUICtrlCreateLabel("✔ Bahisçiler katsayısı (varsa)", 440, 336, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)


$Checkbox2 = GUICtrlCreateCheckbox("Herzaman Üstte", 155, 0, 100, 19)
GUICtrlSetState(-1, $GUI_CHECKED)
WinSetOnTop($Form1, "", 1)
$herzamanustte = 0 ;herzaman üstte Secenegi icin Gerekli Bölüm
$List1 = GUICtrlCreateList("", 8, 40, 209, 318 , BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetLimit(-1, 1000)
$List2 = GUICtrlCreateList("", 224, 40, 209, 318, BitOR($WS_BORDER, $WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("EVSAHİBİ TAKIMLAR", 32, 16, 110, 17)
$Label2 = GUICtrlCreateLabel("DEPLASMAN TAKIMLARI", 256, 16, 130, 17)
$Button1 = GUICtrlCreateButton("Maçkolik Geniş İDDAA", 626, 368, 149, 41)
$Button2 = GUICtrlCreateButton("Statarea", 8, 368, 149, 41)
$Button3 = GUICtrlCreateButton("Footballplatform", 164, 368, 149, 41)
$Button5 = GUICtrlCreateButton("Clevertips", 320, 368, 149, 41)
$Button4 = GUICtrlCreateButton("IY/MS", 472, 368, 149, 41)
$Button6 = GUICtrlCreateButton("TempoBet", 472, 420, 149, 41)
$Button7 = GUICtrlCreateButton("JojoBet", 626, 420, 149, 41)
$Button8 = GUICtrlCreateButton("TempoBet Twitter", 472, 472, 149, 41)
$Button9 = GUICtrlCreateButton("Bahsine Twitter", 626, 472, 149, 41)
$Input1 = GUICtrlCreateInput("", 12, 424, 209, 21)
$Input2 = GUICtrlCreateInput("", 254, 424, 209, 21)
$Button10 = GUICtrlCreateButton("MAÇI ANALİZ ET", 8, 465, 460, 49)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetParts($StatusBar1, "ANALİZ SONUCU..")
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 35)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_EvsahibiTakimlariListele()
_DeplasmanTakimlariListele()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $List1
                GUICtrlSetData($Input1, StringTrimLeft(GUICtrlRead($List1),1))
		Case $List2
                GUICtrlSetData($Input2, StringTrimLeft(GUICtrlRead($List2),1))
		Case $Button1
			ShellExecute("http://www.mackolik.com/Genis-Iddaa-Programi")
		Case $Button2
			ShellExecute("http://www.statarea.com/predictions")
		Case $Button3
			ShellExecute("https://footballplatform.com/football-predictions/")
		Case $Button4
			ShellExecute("https://www.forebet.com/en/football-tips-and-predictions-for-today")
		Case $Button5
			ShellExecute("https://www.clevertips.net/")
		Case $Button6
			ShellExecute("https://www.73tempobet.com/")
		Case $Button7
			ShellExecute("https://www.jojobet80.com/tr/sports/")
		Case $Button8
			ShellExecute("https://twitter.com/tempobet")
		Case $Button9
			ShellExecute("https://twitter.com/bahsinecom")


	Case $Checkbox2
			If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
            $herzamanustte = Not $herzamanustte
			 WinSetOnTop( $Form1, '', $herzamanustte )
           Else
           WinSetOnTop( $Form1, '',$herzamanustte)
           EndIf

	EndSwitch
WEnd



Func _EvsahibiTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "td")
For $oTag In $oTags
     If String ($oTag.GetAttribute("class")) == "column-2" Then
   If not @error then	$hostteam = $oTag.innerTEXT
		 If $hostteam <> '' Then
		ConsoleWrite ($hostteam & @CRLF)
  GUICtrlSetData($List1 ,$hostteam)
		 EndIf

EndIf
Next
_IEQuit($oIE)
EndFunc

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "td")
For $oTag In $oTags
     If String ($oTag.GetAttribute("class")) == "column-3" Then
	If not @error then	 $hostteam2 = $oTag.innerTEXT
		 If $hostteam2 <> '' Then
			 ConsoleWrite ($hostteam2 & @CRLF)
	GUICtrlSetData($List2 ,$hostteam2)
		 EndIf
EndIf
Next
_IEQuit($oIE)
EndFunc




Func _Obj_Error()
	;Obj hatalarında burdaya ek kodlar girebilirsin.
EndFunc   ;==>_Obj_Error

Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..



darendeli
Byte4
Byte4
Mesajlar: 168
Kayıt: 06 Haz 2016, 16:55

Re: Siteden Veri Cekmek 2019

Mesaj gönderen darendeli » 03 Mar 2019, 22:13

Veri Cekmek ile Kimse ilgilenmiyormu Acaba Yapmaya Calıstıgım Verileri Listeliyorum Bazı Yerlerde KArsılıkları Bos Bu Bosluklarıda Bos Ekleyip Listenin KAymasını Önlemeye Calısıyorum
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

anxious
Byte2
Byte2
Mesajlar: 98
Kayıt: 11 Mar 2015, 07:56

Re: Siteden Veri Cekmek 2019

Mesaj gönderen anxious » 04 Mar 2019, 05:29

karşılığı boş olan şeyler nedir biraz daha detay verebilirmisin.
Bahsettiğiniz şey boş satırlar ise : StringRegExpReplace ve StringStripWS kullanın.

Yanlış anlamadıysam Örnek bir kullanım

Kod: Tümünü seç

$hostteam2 = StringRegExpReplace($hostteam2, '(?s)[\n\r\t\v]', '')
$hostteam2 = StringStripWS($hostteam2, 7)
;Bazı durumlarda _StringBetween kullanmanız gerekebilir!
ConsoleWrite($hostteam2 & @CRLF)

darendeli
Byte4
Byte4
Mesajlar: 168
Kayıt: 06 Haz 2016, 16:55

Re: Siteden Veri Cekmek 2019

Mesaj gönderen darendeli » 05 Mar 2019, 01:04

zaten denemistimde tekrar denedim sonuc olumsuz biryerde bi hata yapıyorum ama nerde
örnekle Acıklayayım
Maçlar ve sonucları var sitede
1. takım vs 2. takım ve Karsısında sonuc var bazı sonuclanmamıs yada sonucları olmayan maclar var mesela onları bos gececekki sıra bozulmasın

Kod: Tümünü seç

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include "_UskinLibrary.au3"

Global $Obj_Error = ObjEvent("AutoIt.Error", "_Obj_Error") ;Obj hataları...
Global $hostteam,$hostteam1
_Uskin_LoadDLL()
_Uskin_Init(@ScriptDir&"\MX5.msstyles")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli İddaa Analiz ARACI", 785, 554, 308, 137)

$Label3 = GUICtrlCreateLabel("Program Analizi Yaparken Neleri Dikkate Alıyor", 440, 16, 335, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("✔ Takımlar arasındaki tüm maçlar", 440, 56, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label5 = GUICtrlCreateLabel("✔ Ev sahibi takımın son maçları", 440, 96, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label6 = GUICtrlCreateLabel("✔ Konuk takımın son maçları", 440, 136, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label7 = GUICtrlCreateLabel("✔ Ev sahibi takımın avantajı", 440, 176, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label8 = GUICtrlCreateLabel("✔ Şampiyonada takımların puan durumu", 440, 216, 295, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label9 = GUICtrlCreateLabel("✔ Ülke liginin derecesi (farklı takım ülkeleri)", 440, 256, 375, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label10 = GUICtrlCreateLabel("✔ Takımların sıralaması", 440, 296, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label11 = GUICtrlCreateLabel("✔ Bahisçiler katsayısı (varsa)", 440, 336, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)


$Checkbox2 = GUICtrlCreateCheckbox("Herzaman Üstte", 155, 0, 100, 19)
GUICtrlSetState(-1, $GUI_CHECKED)
WinSetOnTop($Form1, "", 1)
$herzamanustte = 0 ;herzaman üstte Secenegi icin Gerekli Bölüm
$List1 = GUICtrlCreateList("", 8, 40, 209, 318 , BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetLimit(-1, 1000)
$List2 = GUICtrlCreateList("", 224, 40, 209, 318, BitOR($WS_BORDER, $WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("EVSAHİBİ TAKIMLAR", 32, 16, 110, 17)
$Label2 = GUICtrlCreateLabel("DEPLASMAN TAKIMLARI", 256, 16, 130, 17)
$Button1 = GUICtrlCreateButton("Maçkolik Geniş İDDAA", 626, 368, 149, 41)
$Button2 = GUICtrlCreateButton("Statarea", 8, 368, 149, 41)
$Button3 = GUICtrlCreateButton("Footballplatform", 164, 368, 149, 41)
$Button5 = GUICtrlCreateButton("Clevertips", 320, 368, 149, 41)
$Button4 = GUICtrlCreateButton("IY/MS", 472, 368, 149, 41)
$Button6 = GUICtrlCreateButton("TempoBet", 472, 420, 149, 41)
$Button7 = GUICtrlCreateButton("JojoBet", 626, 420, 149, 41)
$Button8 = GUICtrlCreateButton("TempoBet Twitter", 472, 472, 149, 41)
$Button9 = GUICtrlCreateButton("Bahsine Twitter", 626, 472, 149, 41)
$Input1 = GUICtrlCreateInput("", 12, 424, 209, 21)
$Input2 = GUICtrlCreateInput("", 254, 424, 209, 21)
$Button10 = GUICtrlCreateButton("MAÇI ANALİZ ET", 8, 465, 460, 49)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetParts($StatusBar1, "ANALİZ SONUCU..")
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 35)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_EvsahibiTakimlariListele()
_DeplasmanTakimlariListele()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $List1
                GUICtrlSetData($Input1, StringTrimLeft(GUICtrlRead($List1),1))
		Case $List2
                GUICtrlSetData($Input2, StringTrimLeft(GUICtrlRead($List2),1))
		Case $Button1
			ShellExecute("http://www.mackolik.com/Genis-Iddaa-Programi")
		Case $Button2
			ShellExecute("http://www.statarea.com/predictions")
		Case $Button3
			ShellExecute("https://footballplatform.com/football-predictions/")
		Case $Button4
			ShellExecute("https://www.forebet.com/en/football-tips-and-predictions-for-today")
		Case $Button5
			ShellExecute("https://www.clevertips.net/")
		Case $Button6
			ShellExecute("https://www.73tempobet.com/")
		Case $Button7
			ShellExecute("https://www.jojobet80.com/tr/sports/")
		Case $Button8
			ShellExecute("https://twitter.com/tempobet")
		Case $Button9
			ShellExecute("https://twitter.com/bahsinecom")


	Case $Checkbox2
			If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
            $herzamanustte = Not $herzamanustte
			 WinSetOnTop( $Form1, '', $herzamanustte )
           Else
           WinSetOnTop( $Form1, '',$herzamanustte)
           EndIf

	EndSwitch
WEnd



Func _EvsahibiTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "td")
For $oTag In $oTags
     If String ($oTag.GetAttribute("class")) == "column-2" Then
   If not @error then	$hostteam = $oTag.innerTEXT
		 If $hostteam <> '' Then
		ConsoleWrite ($hostteam & @CRLF)
  GUICtrlSetData($List1 ,$hostteam)
		 EndIf

EndIf
Next
_IEQuit($oIE)
EndFunc

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "td")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "column-3" Then
	  If $hostteam1 <> '' Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($List2 ,$hostteam1)
 Else
$hostteam1 = StringRegExpReplace($hostteam1, '(?s)[\n\r\t\v]', '')
$hostteam1 = StringStripWS($hostteam1, 7)
;Bazı durumlarda _StringBetween kullanmanız gerekebilir!
ConsoleWrite($hostteam1 & @CRLF)
GUICtrlSetData($List2 ,$hostteam1)
 EndIf
EndIf
Next
_IEQuit($oIE)
EndFunc




Func _Obj_Error()
	;Obj hatalarında burdaya ek kodlar girebilirsin.
EndFunc   ;==>_Obj_Error

Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

darendeli
Byte4
Byte4
Mesajlar: 168
Kayıt: 06 Haz 2016, 16:55

Re: Siteden Veri Cekmek 2019

Mesaj gönderen darendeli » 06 Mar 2019, 01:42

Verileri Aktarmayı Basardım Fakat Soyle Bir Yerde Kaldım Mesela Karsılasma Sonucu 1 Diyor Diger KArsılasmalardada 1 Varsa Yazmıyor...

Kod: Tümünü seç

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include "_UskinLibrary.au3"

Global $Obj_Error = ObjEvent("AutoIt.Error", "_Obj_Error") ;Obj hataları...
Global $hostteam,$hostteam1
_Uskin_LoadDLL()
_Uskin_Init(@ScriptDir&"\MX5.msstyles")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli İddaa Analiz ARACI", 785, 554, 308, 137)

$Label3 = GUICtrlCreateLabel("Program Analizi Yaparken Neleri Dikkate Alıyor", 440, 16, 335, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("✔ Takımlar arasındaki tüm maçlar", 440, 56, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label5 = GUICtrlCreateLabel("✔ Ev sahibi takımın son maçları", 440, 96, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label6 = GUICtrlCreateLabel("✔ Konuk takımın son maçları", 440, 136, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label7 = GUICtrlCreateLabel("✔ Ev sahibi takımın avantajı", 440, 176, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label8 = GUICtrlCreateLabel("✔ Şampiyonada takımların puan durumu", 440, 216, 295, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label9 = GUICtrlCreateLabel("✔ Ülke liginin derecesi (farklı takım ülkeleri)", 440, 256, 375, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label10 = GUICtrlCreateLabel("✔ Takımların sıralaması", 440, 296, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label11 = GUICtrlCreateLabel("✔ Bahisçiler katsayısı (varsa)", 440, 336, 275, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)


$Checkbox2 = GUICtrlCreateCheckbox("Herzaman Üstte", 155, 0, 100, 19)
GUICtrlSetState(-1, $GUI_CHECKED)
WinSetOnTop($Form1, "", 1)
$herzamanustte = 0 ;herzaman üstte Secenegi icin Gerekli Bölüm
$List1 = GUICtrlCreateList("", 8, 40, 209, 318 , BitOR($WS_BORDER, $WS_VSCROLL))
GUICtrlSetLimit(-1, 1000)
$List2 = GUICtrlCreateList("", 224, 40, 209, 318, BitOR($WS_BORDER, $WS_VSCROLL))
$Label1 = GUICtrlCreateLabel("EVSAHİBİ TAKIMLAR", 32, 16, 110, 17)
$Label2 = GUICtrlCreateLabel("DEPLASMAN TAKIMLARI", 256, 16, 130, 17)
$Button1 = GUICtrlCreateButton("Maçkolik Geniş İDDAA", 626, 368, 149, 41)
$Button2 = GUICtrlCreateButton("Statarea", 8, 368, 149, 41)
$Button3 = GUICtrlCreateButton("Footballplatform", 164, 368, 149, 41)
$Button5 = GUICtrlCreateButton("Clevertips", 320, 368, 149, 41)
$Button4 = GUICtrlCreateButton("IY/MS", 472, 368, 149, 41)
$Button6 = GUICtrlCreateButton("TempoBet", 472, 420, 149, 41)
$Button7 = GUICtrlCreateButton("JojoBet", 626, 420, 149, 41)
$Button8 = GUICtrlCreateButton("TempoBet Twitter", 472, 472, 149, 41)
$Button9 = GUICtrlCreateButton("Bahsine Twitter", 626, 472, 149, 41)
$Input1 = GUICtrlCreateInput("", 12, 424, 209, 21)
$Input2 = GUICtrlCreateInput("", 254, 424, 209, 21)
$Button10 = GUICtrlCreateButton("MAÇI ANALİZ ET", 8, 465, 460, 49)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetParts($StatusBar1, "ANALİZ SONUCU..")
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 35)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_EvsahibiTakimlariListele()
_DeplasmanTakimlariListele()


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $List1
                GUICtrlSetData($Input1, StringTrimLeft(GUICtrlRead($List1),1))
		Case $List2
                GUICtrlSetData($Input2, StringTrimLeft(GUICtrlRead($List2),1))
		Case $Button1
			ShellExecute("http://www.mackolik.com/Genis-Iddaa-Programi")
		Case $Button2
			ShellExecute("http://www.statarea.com/predictions")
		Case $Button3
			ShellExecute("https://footballplatform.com/football-predictions/")
		Case $Button4
			ShellExecute("https://www.forebet.com/en/football-tips-and-predictions-for-today")
		Case $Button5
			ShellExecute("https://www.clevertips.net/")
		Case $Button6
			ShellExecute("https://www.73tempobet.com/")
		Case $Button7
			ShellExecute("https://www.jojobet80.com/tr/sports/")
		Case $Button8
			ShellExecute("https://twitter.com/tempobet")
		Case $Button9
			ShellExecute("https://twitter.com/bahsinecom")


	Case $Checkbox2
			If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
            $herzamanustte = Not $herzamanustte
			 WinSetOnTop( $Form1, '', $herzamanustte )
           Else
           WinSetOnTop( $Form1, '',$herzamanustte)
           EndIf

	EndSwitch
WEnd



Func _EvsahibiTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags = _IETagNameGetCollection($oIE, "td")
For $oTag In $oTags
     If String ($oTag.GetAttribute("class")) == "column-2" Then
   If not @error then	$hostteam = $oTag.innerTEXT
		 If $hostteam <> '' Then
		ConsoleWrite ($hostteam & @CRLF)
  GUICtrlSetData($List1 ,$hostteam)
		 EndIf

EndIf
Next
_IEQuit($oIE)
EndFunc

Func _DeplasmanTakimlariListele()
	Local $oIE = _IECreate("http://slybet.net/",0,0)
Local $oTags1 = _IETagNameGetCollection($oIE, "td")
For $oTag1 In $oTags1
     If String ($oTag1.GetAttribute("class")) == "column-3" Then
	  If not @error then	$hostteam1 = $oTag1.innerTEXT
	  If $hostteam1 <> '' Then
  ConsoleWrite ($hostteam1& @CRLF)
	GUICtrlSetData($List2 ,$hostteam1)
 Else
	$hostteam1 = 'BOŞ'
ConsoleWrite($hostteam1 & @CRLF)
GUICtrlSetData($List2 ,$hostteam1)
 EndIf
EndIf

Next
_IEQuit($oIE)
EndFunc




Func _Obj_Error()
	;Obj hatalarında burdaya ek kodlar girebilirsin.
EndFunc   ;==>_Obj_Error
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Cevapla