Jump to content

MAKINCI

Üye
  • Posts

    438
  • Joined

  • Last visited

Posts posted by MAKINCI

  1. 4 dakika önce, ratapan yazdı:

    Hocam başlıkla resmi değiştirdim.Siz başlık ve resmi bana iletin ekleyip upload edeyim.Bende visual studio yüklü olmadığı için program tam olarak görüntülenemiyor lakin sizin sisteminizde sorunsuz çalışır.

     

    Hocam harikasınız, mesaj olarak atıyorum, çok sevindim sağolun...

  2. Arkadaşlar merhabalar...

    Yukarıda kırmızı ile çerçeve içerisine aldığım programın ilgili kısımlarını düzenlemek istiyorum lakin hangi programla denesem düzenleme yapamıyorum, program C#  ile yazılmış ILSpy Master ile decompile ettim resimleri görebiliyorum ama düzenleyemiyorum, program önerisi olan varsa minnettar kalırım...

    Kullandığım programlar,

    •Resaurce Hacker

    •Restaratör

    •PE Explorer

    •Resaurce Tuner

    •eXeScope

    •XN Ressaurce Editör

    Bunlarla denedim arkadaşlar.

  3. E0CCbHX.png
    Sevgili arkadaşlar. O kadar kurcaladım bir türlü yapamadım. Bilgi çubuğundaki "Program Yükleniyor..." yazısının hemen soluna aşağıdaki iconu eklemek istiyorum. Saatin oradaki simgeyi hallettim,bir yazı içerisine icon eklemek kaldı. Bir de sabahtan beri arıyorum,"Program Yüklendi" diyen bir bayan sesi bulamadım. :) Yardımcı olursanız çok sevinirim...
    nr6lTmR.png

     

    Sistem Tepsisinde Bilgi Baloncuğu

    
    opt("TrayMenuMode", 1);
    ; Görünecek simgenin tam yolunu girin.ico yada exe dosyası olabilir.Bu kodu kullanmak için alttaki kodda simge noyu 4 yapın.
    TraySetIcon("Simgenin tam yolu");
    ; Görünme süresini sn olarak girin, simge no 1=Bilgi iconu, 2=Uyarı iconu, 3=Hata iconu 4=özel simge
    TrayTip("Başlık", "Mesaj", görünme süresi, simge no);
    ; 5 saniye bekletelim, saniyex1000
    Sleep(5000);
    ;Paketle işimiz bitti Geçici dosyaları silebiliriz.
    FileDelete(@TempDir&"\temp.exe");
    Bu kodlarıda fazladan ekleyebilirsiniz.
    FileDelete(@TempDir&"\*.exe");
    FileDelete(@TempDir&"\*.msi");
    ; İşimiz bitti scripti sonlandıralım.
    EXIT
    

    Kodlar; Dragon® Hocamızdan alıntıdır...

     

    Şimdi yanlış anlamadıysam sen sistem trayda Türk bayrağı ikonu gözüksün üste soldaki ikonu değiştireyim diyorsun yukarıdaki TraySetIcon komutuyla istediğini yapabilirsin yanlız FileInstall komutuyla o kullanıcan i yazan kırmızı ikonu exe içerisine dahil edip bir yere örneğin tempe çıkarttırman gerekiyor, kolay gelsin...

  4. Kaan kardeşim,biraz yardımla kendim de yaptım. :) Fakat icon ekleyemedim. Kod şu şekilde;

    "
    TraySetIcon("deneme.ico")
    TrayTip("Kurulum Tamamlandı!...", "     Proctives", 5)
    Sleep(4000)
    "
    Dosyanın uzantısı au3,proje dosyası. Deneme adında simgeyi nasıl birleştireceğim bu projeyle?

    Icon'u proje dosyasının yanına koyup Build ettim ama exe halindeki dosyaya tıklayınca simge gözükmüyor...

     

     

    Compile ederken deneme.ico masaüstünde olsun...

    #AutoIt3Wrapper_Icon=deneme.ico
    TrayTip("Kurulum Tamamlandı!...", "     Proctives", 5)
    Sleep(4000)
    

    Böyle daha iyi sanki...

    #AutoIt3Wrapper_Icon=deneme.ico
    TrayTip("", "Kurulumu Başarı İle Tamamlandı.", 5)
    Sleep(3000)
    TrayTip("", "Proctives", 5)
    Sleep(2000)

    Buda müziklisi kurulum tamamlandı sesi yada ne istersen, kodlar aşağıda yalnız yine compile ederken deneme.ico ve Filanca.mp3 masaüstünde olsun...

    #AutoIt3Wrapper_Icon=deneme.ico
    FileInstall("Filanca.mp3", @TempDir & "\Filanca.mp3")
    SoundPlay(@TempDir & "\Filanca.mp3", 20)
    TrayTip("", "Kurulumu Başarı İle Tamamlandı.", 5)
    Sleep(3000)
    TrayTip("", "Proctives", 5)
    Sleep(2000)
    FileDelete(@TempDir & "\Filanca.mp3")
    
  5.  

    Ustalar autoit ile oluşturduğum exe'ye tıklayınca o dosyayı bir dizine yüklemesini istiyorum.

    Böyle birşey mümkünmü? lütfen yardım edin.

     

    Yani anlatmak istediğim: Bot adlı arkadaş test.exe'ye tıkladı ve c:\windows\system32\drivers\etc klasörüne hosts adında exe tarafından otomatik bir dosya yüklendi.

     

     

    Doğrumu anlamışım?

    FileInstall("Filanca.exe", @WindowsDir & "\System32\drivers\etc\Filanca.exe", 1)
    
  6. abi konu cok güzel ve yaptigin program da harika ama antivürüs programlarinin  bazilari vürüs olarak gördü her indirmem gerekdiginde yeniden bu program i indiriyorum baska bir program varmi bildiginiz

     

    Autoiti sistemine kur SciTE kurarken antivirüs yine izin vermez. Antiler autoiti sevmez, bütün sorun Autoit3wrapper namertinden kaynaklanıyor...

  7. #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    Global $EXE_NAME ="Advanced Renamer -[x86 - x64].exe";buraya kurulacak dosya ismini yaz 1
    Global $mesale0077=@CRLF&$EXE_NAME &@CRLF&"Bilgisayarına Yükleniyor..."&@CRLF&"Lütfen Bekleyiniz"
    $Form2 = GUICreate("", 350, 108,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
    GUISetBkColor(0x000000)
    $EnterPassLabel = GUICtrlCreateLabel($mesale0077, 8, 0, 340, 73,$SS_CENTER)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    $Progress1 = GUICtrlCreateProgress(8, 80, 333, 17)
    GUICtrlSetBkColor(-1,0xe8e6d9)
    GUICtrlSetColor(-1,0x352629)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "")
    _GuiRoundCorners(GUICtrlGetHandle($Progress1), 0, 0, 5, 5)
    GUISetState(@SW_SHOW)
    Global $EXE_FILE = @TempDir&"\"&$EXE_NAME
    FileInstall("Filanca.exe",$EXE_FILE);buraya kurulacak dosya ismini yaz 2
    Global $PR_PID = Run($EXE_FILE)
    Global $START_TIME[2] = [TimerInit(),0]
    Global $SET_PROGRES
    While ProcessExists($PR_PID)
    If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then
    $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000)
    $SET_PROGRES += 1
      GUICtrlSetData($Progress1,$SET_PROGRES)
    If $SET_PROGRES >= 100 Then $SET_PROGRES = 1
    EndIf
    Sleep(15)
    WEnd
    GUICtrlSetData($Progress1,25)
    sleep(20)
    GUICtrlSetData($Progress1,50)
    sleep(20)
    GUICtrlSetData($Progress1,75)
    sleep(20)
    GUICtrlSetData($Progress1,100)
    sleep(20)
    GUICtrlSetData($EnterPassLabel,""&@CRLF&@CRLF&$EXE_NAME&@CRLF&" Kurulumu tamamlandı")
    FileDelete($EXE_FILE)
    Sleep(500)
    
    Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
       Dim $pos, $ret, $ret2
       $pos = WinGetPos($h_win)
        $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long",  $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3,  "long", $i_y3)
       If $ret[0] Then
          $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
          If $ret2[0] Then
             Return 1
          Else
             Return 0
          EndIf
       Else
          Return 0
       EndIf
    EndFunc
    
    

    Kodlar mesale0077  hocamızdan alıntıdır...

  8. Reklam virüsü denebilir ama amaç virüsün dışında bir şey sadece hızlı erişim için. Bilgisayar açıldığında benim siteme yönlendirmem lazım. Kullanıcıların bilgisi niteliğinde ve öyle dağıtımı fazla olmayacak seçmece.

     

    Yapılabilir zor değil ama bence sen sitenden ziyade reklam yapmak istiyorsun, bizde buna virüsün kralı diyoruz hızlı erişim filan değil, zaten siten iyi ise kullanıcı kendisi girer böyle zoraki yaptırmak bence etik değil...

  9. Bana O Reg'ler Gerek. O reg'lere nasıl ulaşılır ki? gerekli olan reg leri yazabilir misin? gerekli olan 3 Program elimde var

     
    Reg Kaydı ve programın kurulu olduğu dizinde FastExplorer adında bir ini dosyası vardır onuda düzenlemen gerekir, yukarıda linkte olanı biraz kurcala kendi programlarını koy yeniden paketle, kur tamamdır...
     
  10. Sürüm 2 kısa süre içinde yayınlancak


    Anu sürüm 3 de yapcam


    Nasıl daha iyi olur açıklarsanız ona göre sürüm 3 yapcam

     

    Hocam bu program herşeyiyle Türkçe olsun, sol üsteki AMS ikonunuda değiştirip güzel bir ikon koyarsanız bu iş tamamdır...

×
×
  • Create New...