Jump to content

MostWanted

Emekli
  • Posts

    3255
  • Joined

  • Last visited

Posts posted by MostWanted

  1. @recep_demirci eğer kastettiğin işletim sistemindeki sağ tıksa ona göre kod düzenleyip command vermelisin...Eğer hangi dosya türleri için bunu istediğini söylersen yardımcı olabilirim.Bir de sadece kendi bilgisayarında kullanacaksan fast explorer ile de bunu kolay biçimde yapabilirsin..

    @mrecep38 ;

    Run('NETSUPPORT SCHOOL keygen.exe /S')[/CODE]

    diyerek /s parametresi ile çalıştırabilirsin yalnız exe'nin ismini boşlukluz yapman senin için daha hayırlı olur..

  2. Öyle yaparsan sağlam olmaz.

    ControlSetText[/CODE]

    ile tek tek inputlara yazdırırsan dağa sağlam olur..Ama tam teşkilatlı örnek yapabilmem için pencerenin au3info programındaki bilgileri lazım..

    Edit: Yanlış görmüşüm :) Ordaki yazıları ise ControlGetText ile alabilirsin :)

  3. Aslında sorun yok :) Kintaro sadece listbox'a çift tıklayınca çalışsın diye ayarlamış bende bozmadım.O senin hata dediğin yere gelince bnm dalgınlığa gelmiş :) Pause butonundaki Dialog.message komutunu kaldırırsan sorun olmaz ;)

  4. Win7 'de tooltip daha hoş duruyo :) Paragrafı gördüm dedim noluyor :) Bu arada şu tasarımı düzenleyen birisi olursa Allah rızası için bi de Tekrar Et, Karıştır gibi seçenekler eklesin de ona göre de komut yazalım :D

  5. Müzik Çaları biraz editledim :) Daha kullanışlı ve güzel oldu ekran görüntüsü ve eklediğim düzelttiğim özellikler aşağıda;

    ekranalntsc.png

    Değişiklikler;

    -Play/Pause ile Ses Aç/Ses Kapat butonları birleştirildi.

    -Şarkının progressini gösteren bi progress bar eklendi.

    -Şarkıya İleri/Geri Sarma özelliği eklendi.(5 saniyedir.Bunu kendiniz ayarlayabilirsiniz..)

    -Şarkı bittikten sonra sonraki şarkıya geçme eklendi.(Karışık veya tekrar etme modu da ekleyebilirdim.Fakat sabah sabah onun tasarımına üşendim :) Eğer birisi eklerse bende komutlarını yazabilirim :) )

    -Butonların üstüne gelince Paragraf çıkması yerine Tooltip eklendi :) (Kintaro'cum bundan sonra bunu kullanırsın artık :) )

    -Ses butonu düzenlendi.Başlangıçta müziğin sesine göre açılmıyordu.(Kintaro Audio.SetVolume'nin max değeri 255, 100 değil :) )

    -Küçük kod ve gui düzenlemeleri..

    Değişiklikler bu kadar.Ve dediğim gibi eğer birisi tasarımını yaparsa "Karışık" ve "Tekrar Et" modlarını da yapabilirim..

    http://rapidshare.com/files/401536604/muzik_calar_v2edit.talha.rar[/CODE]

  6. FileCopy(@DesktopDir & "\NetSupport School TR YAMA\PCIVIDEO.EXE", @ProgramFilesDir & "\NetSupport\NetSupport School\PCIVIDEO.EXE")[/CODE]

    Bu komutla istediğin dosyayı kopyalayabilirsin ama senin istediğin FileInstall ile almaksa şöyle yapacaksın;

    [CODE]FileInstall"(C:\Documents and Settings\Administrator\Desktop\NetSupport School TR YAMA\PCIVIDEO.EXE", @ProgramFilesDir & "\NetSupport\NetSupport School\PCIVIDEO.EXE")[/CODE]

    Böyle yaparsan dosyan exe nin içine gömülmüş olur ve çalıştığından Program Files'teki Net Support klasörüne istediğin exe atılır.Ve son bir öneri Program Files klasörü için @ProgramFilesDir, masaüstü için @DesktopDir Kullan ;)

  7. -- arguments: width, height, Depth, Freq, Permanent (0 false, 1 = true)

    ChangeDisplaySettings(800,600,16,70,0)[/CODE]

    Global Kısmına;

    [CODE]--[[

    function name:     ChangeDisplaySettings

    Arguments:      width, height, Depth, Freq, Permanent (0 false, 1 = true)

    Returns:           0 = The settings change was successful.
                      1 = The computer must be restarted in order for the graphics mode to work.
                     -4 = An invalid set of flags was passed in.
                     -1 = The display driver failed the specified graphics mode.
                     -2 = The graphics mode is not supported.
                     -3 = Windows NT only: Unable to write settings to the registry.

    Description        sets the users screen res
    ]]


    -- Global function for the screen settings, !!!DO NOT EDIT!!!
    function ChangeDisplaySettings(width,height,Depth,Freq,Permanent)
    args = width..", "..height..", "..Depth..", "..Freq..", "..Permanent
    result = DLL.CallFunction("AutoPlay\\Docs\\DLLDisplaySettings.dll", "ChangeDisplaySettings", args, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
        if result == "0" then
            local hWnd = Application.GetWndHandle();
            local WndSize = Window.GetSize(hWnd);
            local ScreenRes = System.GetDisplayInfo();
            local NewPos_X = (ScreenRes.Width - WndSize.Width)/2;
            local NewPos_Y = (ScreenRes.Height - WndSize.Height)/2;
            Window.SetPos(hWnd, NewPos_X, NewPos_Y);
        else
            if result == 1 then err = "The computer must be restarted in order for the graphics mode to work"
                elseif result == "-4" then err = "An invalid set of flags was passed in"
                elseif result == "-1" then err = "The display driver failed the specified graphics mode"
                elseif result == "-2" then err = "The graphics mode is not supported"
                elseif result == "-3" then err = "Unable to write settings to the registry"
            end
            Dialog.Message("Error", err, MB_OK, MB_ICONNONE, MB_DEFBUTTON1);
        end
    end[/CODE]

    Fonksiyonun açıklaması üstünde yazmaktadır.Son olarak dll'sini vereyim;

    [CODE]http://rapidshare.com/files/399765429/DLLDisplaySettings.dll[/CODE]

    Projenizin Doc klasörüne atın.Ondan sonra en üstteki komutu hangi butonla değiştirecekseniz artık onun On Click evresine koyun..

  8. Dün gece Şehrin Azizleri diye film izledim.Film 99 çekimi ve eminim çoğunuz duymuştur.İzlemeyenler izlesin derim.Hem komedi hem aksiyon hem de izlenirken eğleneceğiniz çok güzel bi film.2. si de geçen sene çıktı 1. sinden sonra çok iyi gelmeyebilir ama o da çok güzel..Tavsiye ederim eğer hala duyup da izlemediyseniz :)

  9. Bildiğim kadarıyla @ProgramFilesDir X64 lerde de o yolu vermesi lazım (ProgramFiles(86)) fakat vermiyorsa aşağıdaki gibi bi yol deneyebilirsin.Aynı şey FileCopy içinde geçerli..

    $type=@OSArch
    If $type = "X86" Then
        ShellExecute(@ProgramFilesDir & "\abcprogramı\abc.exe")
    Else
        ShellExecute(@HomeDrive& "\ProgramFiles(86)\abcprogramı\abc.exe")
    EndIf[/CODE]

  10. Cevap 1

    If WinGetState("apenceresi") <> 0 Then
    ;~     pencere bulununca ne yapılacaksa
    Else
    ;~     eğer bir şey olup da pencere çıkmazsa devam etmek için
    EndIf[/CODE]

    2. sorununda cevabı aynı şekilde olabilir.Aynı mantıkla çözebilirsin..

  11. Hayır canım ne alakası var..

    HTTP.Download("http://www.talpsoftware.co.cc/tlny.xml", _TempFolder .. "\\tlny.xml", 80, 20, nil, nil) -- xml i indir
    XML.Load(_TempFolder .. "\\tlny.xml") -- xml i hafizaya yükle
    xml_version = XML.GetValue("winamp/version"); -- xml deki version noyu al
    ini_version = INIFile.GetValue("Autoplay\\Docs\\tlny.ini", "winamp", "version") -- ini deki version noyu al
    nmbXml = String.ToNumber(xml_version) -- alinan degeri sayıya cevir
    nmbIni = String.ToNumber(ini_version) -- alinan degeri sayiya cevir
    if nmbIni < nmbXml then -- eger inideki xml den kucukse
    StatusDlg.Show() -- ilerleme cubugunu goster
    HTTP.Download("http://www.talpsoftware.co.cc/at.rtf", "Autoplay\\Docs\\at.rtf", 80, 20, nil, nil) -- guncelleme dosyasini indir
    StatusDlg.Hide() -- ilerleme cubugunu gizle
    INIFile.SetValue("Autoplay\\Docs\\tlny.ini", "winamp", "versiyon", nmbXml)
    Dialog.Message("Tebrikler", "Güncelleme başarılı") -- basarili mesajini ver
    else -- surumler aynı ise
    Dialog.Message("Tebrikler", "Güncellemeye gerek yok") -- guncel mesajini ver
    end[/CODE]

×
×
  • Create New...