Kod: Tümünü seç
#AutoIt3Wrapper_Change2CUI=y
#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
Global Const $Separator = Chr(124)
Global Const $Space = Chr(32)
Opt("GUIDataSeparatorChar", $Separator)
_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))
GUICtrlSetLimit(-1, 1000)
$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 GUICtrlRead($hostteam1) <> "" Then
ConsoleWrite ($hostteam1& @CRLF)
GUICtrlSetData($List2 ,GUICtrlRead($hostteam1))
EndIf
If StringLen($hostteam1) = 0 Then $hostteam1 = @CRLF
ConsoleWrite($hostteam1 & @CRLF)
GUICtrlSetData($List2 ,$hostteam1& $Separator)
EndIf
Next
_IEQuit($oIE)
EndFunc
Func _Obj_Error()
;Obj hatalarında burdaya ek kodlar girebilirsin.
EndFunc ;==>_Obj_Error
