Jump to content

blackman12

Emekli
  • Posts

    5349
  • Joined

  • Last visited

Posts posted by blackman12

  1. İstediğin bölümü yaptım, fakat kodun genelinde düzeltilmesi gereken noktalar var, belirtmeden geçemicem.

     

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_UseUpx=y
    #AutoIt3Wrapper_Res_Language=1055
    #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    
    
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <WindowsConstants.au3>
    #include <Array.au3>
    #include <GUIEdit.au3>
    #include <GuiListView.au3>
    #Region ### START Koda GUI section ### Form=
    $gui = GUICreate("Çekilis Pro", 615, 522, 192, 124)
    $input = GUICtrlCreateInput("", 312, 24, 201, 21)
    $Button2 = GUICtrlCreateButton("ÇEKİLİŞİ BAŞLAT", 16, 432, 587, 73)
    $Input2 = GUICtrlCreateInput("", 552, 24, 49, 21,0x2000)
    GUICtrlSetLimit(-1,1)
    $List2 = GUICtrlCreateList("", 312, 56, 289, 370, BitOR($WS_BORDER, $WS_VSCROLL))
    $Button1 = GUICtrlCreateButton("KATILIMCI EKLE", 16, 2, 283, 23)
    $Button3 = GUICtrlCreateButton("KATILIMCI Sil", 16, 25, 283, 23)
    $Label1 = GUICtrlCreateLabel("Kullanıcı ismi", 380, 2, 283, 20)
    $Label2 = GUICtrlCreateLabel("Seçilecek Sayı", 540, 2, 283, 20)
    $list = _GUICtrlListView_Create($gui, "", 1, 50, 310, 379)
    _GUICtrlListView_SetExtendedListViewStyle($list, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $WS_EX_CLIENTEDGE))
    _GUICtrlListView_InsertColumn($list, 0, "SIRA")
    _GUICtrlListView_InsertColumn($list, 1, "ÇEKİLİŞE KATILAN KİŞİLER")
    If(FileExists(@ScriptDir & "\cekilis.ini")) Then
    	$read_section = IniReadSectionNames(@ScriptDir & "\cekilis.ini")
    	For $i = 1 To $read_section[0]
    		$read = IniReadSection(@ScriptDir & "\cekilis.ini", $read_section[$i])
    		_GUICtrlListView_AddItem($list, $i)
    		_GUICtrlListView_AddSubItem($list, ($i -1), $read_section[$i], 1)
        For $i2 = 1 To $read[0][0]
    			If($read[$i2][0] == "ÇEKİLİŞE KATILAN KİŞİLER") Then _GUICtrlListView_AddSubItem($list, ($i -1), $read[$i2][1], 2)
    		Next
    	Next
    EndIf
    _center_list($list)
    _list_column_size($gui, $list)
    GUISetState()
    #EndRegion ### END Koda GUI section ###
    
    While 1
    	Switch GUIGetMsg()
    		Case -3
    			Exit
    		Case $Button1
    			IniWrite(@ScriptDir & "\filmler.ini", GUICtrlRead($input), "ÇEKİLİŞE KATILAN KİŞİLER", GUICtrlRead($input2))
    			$count = _GUICtrlListView_GetItemCount($list)
    			_GUICtrlListView_AddItem($list, $count+1)
    			_GUICtrlListView_AddSubItem($list, $count, GUICtrlRead($input), 1)
    			_list_column_size($gui, $list)
    			GUICtrlSetData($input, "")
    		Case $Button3
                ConfigRemData()
    		Case $Button2
    			$katilimcisayisi = Number(_GUICtrlListView_GetItemCount($list))
    			$secilecekkisisayisi = Number(GUICtrlRead($input2))
    			if not ($secilecekkisisayisi > $katilimcisayisi) Then
    				Local $secilenler[$secilecekkisisayisi+1] = [$secilecekkisisayisi]
    				Local $secilenlerisim[$secilecekkisisayisi]
    				for $i = 1 to $secilecekkisisayisi
    					Do
    						$simdisecilen = Random(1,$katilimcisayisi,1)
    					Until _ArraySearch($secilenler,$simdisecilen) = -1
    					$secilenler[$i] = $simdisecilen
    					$secilenlerisim[$i-1] = _GUICtrlListView_GetItemText($list,$simdisecilen-1,1)
    				Next
    				GUICtrlSetData($List2,_ArrayToString($secilenlerisim))
    			Else
    				MsgBox(0,"Hata","Seçilecek kişi sayısı katılımcıdan fazla olmamalı.")
    			endif
    	EndSwitch
    WEnd
    
    
    Func ConfigRemData()
    	DeleteSelectedItems()
    ;~     _GUICtrlListView_DeleteItemsSelected($list)
    EndFunc   ;==>ConfigRemData
    
    Func DeleteSelectedItems()
    	Local $SelectedItems = _GUICtrlListView_GetSelectedIndices($list,True)
    	For $i = 1 To $SelectedItems[0]
    		IniDelete(@ScriptDir & "\cekilis.ini",_GUICtrlListView_GetItemText($list,$SelectedItems[$i],1))
    		_GUICtrlListView_DeleteItem($list,$SelectedItems[$i])
        Next
    	Local $icerik = FileReadToArray(@ScriptDir & "\cekilis.ini")
    	If @error Then;dosya boş olunca hata vereceği için bu kod bloğuna alıyorum
    		FileDelete(@ScriptDir & "\cekilis.ini")
    	EndIf
    EndFunc
    
    Func _center_list($list_handle)
    	For $i = 0 To _GUICtrlListView_GetColumnCount($list_handle) - 1
    		_GUICtrlListView_JustifyColumn($list_handle, $i, 2)
    	Next
    EndFunc   ;==>_center_list
    Func _list_column_size($gui_handle, $list_handle)
    	$iScroll_Allowance = 0
    	_GUICtrlListView_EnsureVisible($list_handle, _GUICtrlListView_GetItemCount($list_handle))
    	If _GUICtrlListView_GetTopIndex($list_handle) > 0 Then
    		$iScroll_Allowance = 17
    	EndIf
    	_GUICtrlListView_EnsureVisible($list_handle, 0)
    	$iLV_Width = $iScroll_Allowance
    	For $i = 0 To _GUICtrlListView_GetColumnCount($list_handle) - 1
    		_GUICtrlListView_SetColumnWidth($list_handle, $i, $LVSCW_AUTOSIZE_USEHEADER)
    		$iHeader_Width = _GUICtrlListView_GetColumnWidth($list_handle, $i)
    		_GUICtrlListView_SetColumnWidth($list_handle, $i, $LVSCW_AUTOSIZE)
    		$iData_Width = _GUICtrlListView_GetColumnWidth($list_handle, $i)
    		If $iHeader_Width > $iData_Width Then
    			_GUICtrlListView_SetColumnWidth($list_handle, $i, $iHeader_Width)
    			$iLV_Width += $iHeader_Width
    		Else
    			$iLV_Width += $iData_Width
    		EndIf
    	Next
    	;ControlMove($gui_handle, "", $list_handle, Default, Default, $iLV_Width)
    	;WinMove($gui_handle, "", Default, Default, $iLV_Width + 30)
    EndFunc   ;==>_list_column_size

     

    • Like 1
  2. Merhaba,

    GuiFinderin örneklerinden kullanarak şöyle birşey yazdım sizin için arkaplan rengi derken pencerenin arkaplan rengi her yerde farklı olabilir o biraz sağlıksız oldu bilesiniz.

    #include <Array.au3>
    #include<GUIFinder.au3>
    Global $son = ""
    $hGUI = GUICreate("guifinder deneme", 300, 100)
    
    $hFinder1 = _GUICtrlFinder_Create($hGUI, 230, 4)
    $hBtn1 = GUICtrlCreateButton("Konum/Renk Bul!", 130, 4, 90, 25)
    $Input1 = GUICtrlCreateInput("", 4, 5,120,23)
    GUISetState(@SW_SHOW)
    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
    
    While True
        $iMsg  = GUIGetMsg()
        Switch $iMsg
            Case -3
                ExitLoop
    		Case $hBtn1
    			_GUICtrlFinder_SetLastWnd($hFinder1, $hGUI)
    			if IsHWnd($son) and Kontrol() then
    				$Position = WinGetPos ($son)
    				MsgBox(0,"Sonuç: "&WinGetTitle($son),"Pencerenizin pozisyonu:"&@CRLF&@CRLF&"X: "&$Position[0]&@CRLF&"Y: "&$Position[1]&@CRLF&"Genişlik: "&$Position[2]&@CRLF&"Yükseklik: "&$Position[3]&@CRLF&@CRLF&"Arkaplan Rengi: "&Hex(PixelGetColor(1,1,$son), 6))
    			EndIf
        EndSwitch
    WEnd
    
    Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    	Switch _WinAPI_HiWord($wParam)
    		Case $FN_ENDUSE
    		$son = _GUICtrlFinder_GetLastWnd($lParam)
    	EndSwitch
    EndFunc
    
    Func Kontrol()
    	Local $aList = WinList()
        For $i = 1 To $aList[0][0]
            If $son = $aList[$i][1] Then
                Return True
            EndIf
        Next
    	Return False
    EndFunc

     

    • Like 1
  3. Divane ilk sorun için gerekli yardımı yapmış geri kalan gelen komutu yorumlamak, mesela parametren buysa:

    -"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

    burada left trim ile - kısmını sildirdikten sonra " işaretini de replace ettirip dosya/klasör yolunu elde edebilirsin. Bundan sonraki aşamada bu yolun bir exe mi klasör mü olduğuna karar vermek. bunu da file.isDirectory()  gibi bir komutla kontrol edebilir, klasör açma ya da uygulama açma komutunu gönderebilirsin.

    sorunun ikinci kısmında:

    windowsun tek bir butonla hem klasör hem dosya seçebileceğin bir penceresi yok. O yüzden radioboxları kullan ve hangisi seçiliyse ona göre seçim penceresini açtır.

    • Like 1
  4. Elimde bir kargo takip numarası yoktu deneyemedim:

    Şurada bir ajax çalıştırılıyor:

    http://araskargo.uberkatapps.com/static/araskargo/kargo_takip/js/custom.js?v=1483881397

    Gönderildiği adres ve gönderilen veri de bu:

    url: '/index.php?r=KargoTakip/CheckTrackingNumber',
                data: {
                    'trackingNumber': $('#takipNo').val()
                },

    yani muhtemelen

    http://araskargo.uberkatapps.com/index.php?r=KargoTakip/CheckTrackingNumber?trackingNumber=AAAAAAAAAAAAA

    linkiyle sorgulama yapabilirsin.

     

    • Like 1
  5. 11 yıllık ttnet müşterisiydim ve ev telefonu+internete 90+ fatura ödüyordum. Cep telefonum da avea idi ve 45 tlde ona ödüyordum. Şimdi cep telefonu + ev interneti olarak 4 4lük pakete geçtim Turkcellde ve 84 TL ödüyorum toplamda. Geçiş süreci biraz sancılı oldu ama haklarınızı bilir ve talep ederseniz kesinlikle istediğinizi alıyorsunuz. Turkcell hattıma geçiş sürecinde mağdur kalmamam için, hoşgeldin paketi olarak vs derken bir ayda tam 20 gb internet tanımladı. İnternette vaaddedikleri hızda hakikatten.

    • Like 1
  6. $suruculer = DriveGetDrive("ALL")
    $istenensurucu = ""
    for $i = 1 to $suruculer[0]
    	if FileExists($suruculer[$i]&"\boot\vestel\install.wim") Then
    		$istenensurucu = $suruculer[$i]
    		ExitLoop
    	EndIf
    Next
    if not $istenensurucu = "" Then 
    ;~ 	Burası sende artık
    Else
    	MsgBox(0,"","Bulamadık")
    EndIf

    Gerisi sende. CMD'ye komutları da basit bi şekilde şöyle gönderebilirsin:

    ShellExecute("cmd.exe","/k diskpart /s "&$istenensurucu&"\boot\vestel\DiskiYapilandir.txt")

  7. Yükledim bir sıkıntı yok ama hala 5.x sürüm bu :D 6.x değil ki sitesinde yayınlanan son güncelleme

    Düzenleme: Son güncelleme downgrade güncellemesiymiş :D  "This is downgrade firmware from Andriod M to Andriod L." Ben daha upgrade güncellemesini bulamadan downgradei yükledim ya la :D 

  8. Kendine yönetici olan yeni bir kullanıcı aç ve o kullanıcıya geçiş yapman gerekiyor bunun için komut satırına

    net user kullanıcıadı parola /ADD

    net localgroup administrators kullanıcıadı /add

    komutlarını gönder. Yeni kullanıcı da yine komut satırından

    net user administrator /active:no

    komutunu gönderip bilgisayarı yine eski hesaptan aç ve uac ayarlarını yapıp yeni oluşturduğun kullanıcıyı sil. sorunu çözmüş olman gerekiyor.

  9. madem örnekle istiyorsun açıklamayı en basitinden MsgBox fonksiyonuna bakalım.

    Help dosyasında msgbox için sarı sutun içinde şöyle bir kod var:

    MsgBox ( flag, "title", "text" [, timeout = 0 [, hwnd]] )

    eğer bu bizim tarafımızdan yazılmış bir fonksiyon olsaydı yaklaşık şöyle gözükecekti:

    Func MsgBox ( $flag, $title, $text , $timeout = 0, $hwnd = @GUIHandle )
    ...
    Endfunc

    Yani bu ne demek,

    $flag, $title ve $text parametrelerini fonksiyona göndermeden bu fonksiyon çalışmaz. fakat $timeout ve $hwnd parametrelerini göndermesen bile function başlığında tanımlı değerleri alarak fonksiyon çalışacaktır. Açıklama bu kadar basit, ek olarak fonksiyon başlığında syntax yani yazım kuralları gereği zorunlu parametreler hep ardarda yazılmalı daha sonra optional parametreler yazılmalıdır

    • Like 2
  10. css biliyor musun? 

    eğer tüm menü öğeleri aynı classı taşıyorsa, o class a onhover vererek hepsini aynı renk yapabilirsin.
    eğer her öğeye ayrı renk vermek istiyorsan bunun iki şekli var. bir resim hazırlayıp onhoverda image position vererek yapılan bir metod var birde her öğeye class üzerinden ulaşıp öğe numarasıyla seçip onhover ile renk verebilirsin.

    • Like 1
  11. buttonun onclik evresine return true yapmak ya da butonu pasif yapmak 1. seçenek:

    onclick="this.disabled=true; return true;"

    ya da form içerisinde hidden bi checkbox ekleyip post.php de ya da formu gönderdiğin sayfada kontrol ettirmek 2. seçenek.

    <input type="hidden" name="submitted" id="submitted" value="true" />
    <input type="submit" name="submit" id="submit" value="Submit" onclick="checkSubmit(submitted.value);" />
    <script language="javascript">
    function checkSubmit(submittedValue)
    {
         if(submittedValue)
         {
            //your code goes here......
            document.getElementByID("submitted").value=false;
         }
         else
           Alert("The page was already submitted!"); 
    }
    </script>

    ya da 

    <?php
    
    	if not (isset($_POST['submitted'])){
    		blabla...
    	}
    	
    ?>

     

    • Like 1
  12. o zaman database yapısı bu şekilde olmamalı.

    id | islem_adi | baslangic_zamani | bitis_zamani | islem_dosyasi

    sayfanın ilk açılışında bu tablodaki verileri çekeceksin ve set_interval ile 10 gibi bir yenileme süresiyle bu verilerden zamanı geleni islem_dosyasi verisi ile çalıştıracaksın. bu kurabileceğin en esnek yapi. islemler belli ise islem_dosyasi olmadan islem_adi ile de gemini yürütebilirsin. ;) sen bişiler daha dene. beraber ilerletiriz. güzel bir eklenti bile çıkabilir.

  13. şimdi ortada bir tek olay ve farklı zamanlar mı var? örneğin bir divimiz var.

    <div id="firsat">Fırsat zamanını yakaladın şimdi tıkla!</div>

    bu div saat 12:00'den 13:00'e, 18:00'den 19:00'a, ve benzeri ve benzeri birden fazla sürede gösterilsin gibi bir şey mi yapmak istiyorsun?

    2. alternatif tek olay tek zaman, 3. alternatif çok olay çok zaman?

×
×
  • Create New...