darendeli

4 temmuzdan itibaren toplam hasta sayılarının verileri siteden kaldırılmıs o yuzden vermiyor sayıları yeni ve toplam hasta sayılarını veren bir site bulununca guncellenecektir.. program

Tiktok Kullanıcıları icin Yazılmış Küçük Bir Program Darendeli Tiktok Hediye Hesaplayıcı ŞİFRE = darendeli Program Özellikleri Hediyelerin Fiyatlarını Gösterir Kullanıcıya Kalan Miktarı Gösterir Kazanılan Hediye Puanlarını TL Olarak Hesaplar

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

Link Yenilendi Toplam Hasta Sayısını Göstermiyordu Düzeltildi...

Covid-19 Tablosunu Takip Edenler için Yazdığım Küçük Bir Program Link = Darendeli TÜRKiYE COVID-19 HASTA TABLOSU ŞİFRE = darendeli

ini degilde input olusturalım ne yazarsan o kullanıcı adı ve sifreyi yazsın Olurmu

ConsolWrite Aynı Yazıları Listbox Aktarmak BOŞ 1 1X 2 1X 1X BOŞ Gibi Yazılar Var Bunları ListBox Aktarmaya Çalısıyorum Ama Aynılarını Yazmıyor Sadece 1 kere Aktarıyor.. Mesela 1X 3 tane var ama 1 Tane Listeye Aktarıyor Hepsini Consolda Yazdıgı Sırayla Nasıl Aktarabilirim...

Sitede Butona Arka Planta Tıklatma Bir Sitede Arka Planda Butona Tıklatmak istiyorum <a href="javascript:void(0);" onclick="opensite('529040');" class="visit_button"> İzle </a> Butonun Oldugu Bölüm Ama Cözemedim Yapması Gereken 1 kac islemi Arka planda Yaptırmaya Calısıyorum Video izleyip Sürekli Sıradaki Videoya Gececek #region HotKeySet("{ESC}", "_Exit") #region Func _Au3RecordSetup() Opt('WinWaitDelay',100) Opt('WinDetectHiddenText',1) Opt('MouseCoordMode',0) Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '') If $aResult[1] <> '0000041F' Then MsgBox(64, 'Uyarı', 'Kayıt farklı bir Klavye düzeninde yapıldı' & @CRLF & '(0000041F->' & $aResult[1] & ')') EndIf EndFunc Func _WinWaitActivate($title,$text,$timeout=0) WinWait($title,$text,$timeout) If Not WinActive($title,$text) Then WinActivate($title,$text) WinWaitActive($title,$text,$timeout) EndFunc _AU3RecordSetup() #endregion While 1 _WinWaitActivate("Youtube Abone,İzlenme,Beğeni Arttırma Platformu - Google Chrome","") ControlClick("Youtube Abone,İzlenme,Beğeni Arttırma Platformu - Google Chrome", "", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]","LEFT",1, 711, 710) Sleep(3000) ControlClick("Youtube Abone,İzlenme,Beğeni Arttırma Platformu - Google Chrome", "", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]","LEFT",1, 711, 669) Sleep(3000) ControlClick("Youtube Abone,İzlenme,Beğeni Arttırma Platformu - Google Chrome", "", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]","LEFT",1, 757, 395) Sleep(1000*45) ControlClick("Youtube Abone,İzlenme,Beğeni Arttırma Platformu - Google Chrome", "", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]","LEFT",1, 741, 232) Sleep(3000) WEnd #endregion Func _Exit() Exit 0 EndFunc Boyle Birsey Denedim Pek Randıman Alamadım

Daha once soyle bir gelistirme denemistim loto hakkında #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=E:\İCO,PNG,BMP\icolar\3035.ico #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Res_Comment=SAYISAL LOTO T. #AutoIt3Wrapper_Res_Description=Coder #AutoIt3Wrapper_Res_LegalCopyright= #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <Array.au3> ;-----------sayısalloto------------- Dim $Sayilar[6] Global $_BUTTON = False Local $GUI = GUICreate("Loto Tahmini", 365, 500) Local $LABEL = GUICtrlCreateLabel("Sayısal Loto Tahmini için Sayı Üret: [6/49]", 20, 10) Local $GENERATE = GUICtrlCreateButton("Sayı Üret", 10, 30, 210, 20) GUICtrlSetTip(-1,"Sayısal Loto Tahmini icin Sayı üretiliyor...") $Group1 = GUICtrlCreateGroup("", 3, 0, 223, 85) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $I[6] For $N = 0 To 5 $I[$N] = GUICtrlCreateInput("", 10 + 35 * ($N), 60, 30, 20) Next ;-----------sayısalloto------------- ;-----------süperloto------------- Dim $Sayilar1[6] Global $_BUTTON1 = False Local $LABEL1 = GUICtrlCreateLabel("Süper Loto Tahmini için Sayı Üret: [6/54]", 25, 90) Local $GENERATE1 = GUICtrlCreateButton("Sayı Üret", 10, 110, 210, 20) GUICtrlSetTip(-1,"Süper Loto Tahmini icin Sayı üretiliyor...") $Group1 = GUICtrlCreateGroup("", 3, 79, 223, 87) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $sayI[6] For $SP = 0 To 5 $sayI[$SP] = GUICtrlCreateInput("", 10 + 35 * ($SP), 140, 30, 20) Next ;-----------süperloto------------- ;-----------On Numara------------- Dim $Sayilar2[10] Global $_BUTTON2 = False Local $LABEL2 = GUICtrlCreateLabel("On Numara Tahmini için Sayı Üret: [1/80]", 25, 170) Local $GENERATE2 = GUICtrlCreateButton("Sayı Üret", 10, 190, 210, 20) GUICtrlSetTip(-1,"On Numara Tahmini icin Sayı üretiliyor...") $Group1 = GUICtrlCreateGroup("", 3, 79, 223, 87) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $sayI1[10] For $ON = 0 To 9 $sayI1[$ON] = GUICtrlCreateInput("",10 + 35 * ($ON), 220, 30, 20) Next ;-----------On Numara------------- ; ---------ortak ürün :D---------- Local $EXIT = GUICtrlCreateButton("Kapat", 10, 470, 210, 20) GUISetState() ; ---------ortak ürün :D---------- While 1 $MSG = GUIGetMsg() ;-----------sayısalloto------------- Select Case $MSG = -3 Or $MSG = $EXIT Exit Case $MSG = $GENERATE If $_BUTTON = False Then $_BUTTON = True Else $_BUTTON = False EndIf If $_BUTTON = True Then GUICtrlSetData($GENERATE, 'Dur') AdlibRegister('_SK_RANDOM_NUMBER', 50) EndIf If $_BUTTON = False Then GUICtrlSetData($GENERATE, 'Sayı Üret') _ArraySort($Sayilar) For $N = 0 To 5 GUICtrlSetData($I[$N], $Sayilar[$N]) Next AdlibUnRegister('_SK_RANDOM_NUMBER') EndIf EndSelect ;-----------sayısalloto------------- ;-----------süperloto------------- Select Case $MSG = $GENERATE1 If $_BUTTON1 = False Then $_BUTTON1 = True Else $_BUTTON1 = False EndIf If $_BUTTON1 = True Then GUICtrlSetData($GENERATE1, 'Dur') AdlibRegister('_SP_RANDOM_NUMBER', 50) EndIf If $_BUTTON1 = False Then GUICtrlSetData($GENERATE1, 'Sayı Üret') _ArraySort($Sayilar1) For $SP = 0 To 5 GUICtrlSetData($sayI[$SP], $Sayilar1[$SP]) Next AdlibUnRegister('_SP_RANDOM_NUMBER') EndIf EndSelect ;-----------süperloto------------- ;-----------On Numara------------- Select Case $MSG = $GENERATE2 If $_BUTTON2 = False Then $_BUTTON2 = True Else $_BUTTON2 = False EndIf If $_BUTTON2 = True Then GUICtrlSetData($GENERATE2, 'Dur') AdlibRegister('_ON_RANDOM_NUMBER', 50) EndIf If $_BUTTON2 = False Then GUICtrlSetData($GENERATE2, 'Sayı Üret') _ArraySort($Sayilar2) For $ON = 0 To 9 GUICtrlSetData($sayI1[$ON], $Sayilar2[$ON]) Next AdlibUnRegister('_ON_RANDOM_NUMBER') EndIf EndSelect ;-----------On Numara------------- WEnd ;-----------sayısalloto------------- Func _SK_RANDOM_NUMBER() For $N = 0 To 5 $Sayilar[$N] = Random(1, 49, 1) GUICtrlSetData($I[$N], $Sayilar[$N]) Next EndFunc ;==>_SK_RANDOM_NUMBER ;-----------sayısalloto------------- ;-----------süperloto------------- Func _SP_RANDOM_NUMBER() For $SP = 0 To 5 $Sayilar1[$SP] = Random(1, 54, 1) GUICtrlSetData($sayI[$SP], $Sayilar1[$SP]) Next EndFunc ;==>_SK_RANDOM_NUMBER ;-----------süperloto------------- ;-----------On Numara------------- Func _ON_RANDOM_NUMBER() For $ON = 0 To 9 $Sayilar2[$ON] = Random(1, 80, 1) GUICtrlSetData($sayI1[$ON], $Sayilar2[$ON]) Next EndFunc ;==>_SK_RANDOM_NUMBER ;-----------On Numara-------------

Herkesin Bayramı Mubarek olsun Hala Yardımcı olabilecek Birini Bekliyorum Listeye Aktarmak icin

Söyle Biraz Daha ilerlettim Ama listeye Hala Alamıyorum Ben liste Olarak Ayarladım ama Text Dosyasına Alınıp Analiz Ettirilebilirse Daha iyi olur Liste Olarak Hem Yer Kaplamaz #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 $read = InetRead("http://www.statarea.com/predictions", 1) If Not(@error) Then $read = BinaryToString ($read, 4) $exp = StringRegExp($read, '<div class="hostteam">(.*?)</div>', 3) $exp1 = StringRegExp($read, '<div class="guestteam">(.*?)</div>', 3) If Not(@error) Then GUICtrlSetData($idItem2, $exp[0]&'||'&$exp1[0]) EndIf EndIf EndSwitch WEnd

Tamam ilgin icin Tesekkürler Listeyi Yapmadan olmayacak isimler uyusmuyor sonuc alınamıyor Kısa zamanda Haber bekliyorum inşallah Kolay Gelsin Hayırlı Calısmalar

Tamam dır oldu Soyle Bir Sorun daha Var yoksa olmuyor sitedeki takımların ismini listeye aktara bilirmiyiz atıyorum brazilya türkiye gibi KArsılasmaları listeye aktarmak gerek cunku sitedeki Gibi takım isimleri Yazılmassa Sonucu cıkartmıyor

Mehmet Cok saol Yalnız soyle bir Sıkıntı var birinciyi Yazıyor 2. Macı aktarmıyor yenileme yapmıyor yani

Tip Yazısının Altındaki 1X Verisi