Jump to content

kamuran731

Üye
 View Profile  See their activity

  • Posts

    527

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by kamuran731

    Windows Başlangıç Yönetici

    in Örnek Çalışmalar

    Posted · Edited by kamuran731

    Aslında dediğim önerilerin bir kısmını yapmışım. Sadece hizmetleri listeleyemedim.

    ayrı konu açmak istemiyorum. Aslında benim geliştirdiğim proje senin yapımındır. 

    biraz daha geliştirip paylaşmak istersen proje dosyasını sana atarım

    Resim

     

    [url=http://www.tnctr.com/uploads/imgs/pre_1377789918__baslangc_yoneticisi.png]pre_1377789918__baslangc_yoneticisi.png[/URL]

    Windows Başlangıç Yönetici

    in Örnek Çalışmalar

    Posted

    Program hakkında bir öneri:

    yaptığınız programda açılışta devreye giren programları kaldırabiliyoruz

    aynı program ile açışta devreye giren (windows hizmetleri hariç) hizmetleride görüp kaldırabilirsek o zaman daha güzel olur.

    eğer bu şekilde olmuyorsa, programa bir buton ekleyerek msconfgi çalıştırarak ordan hizmetleri düzenleyebiliriz.

    Cd - Dvd - Usb - Hdd ... Için Multiboot Hazırlamak

    in Katılımsız Kurulum Destek

    Posted

    Arkadaşlar easybot programı ile multiboot yaptıktan sonra chip programları ile cdrom olarak flash belleğime entegre ediyorum.

    Yapmak istediğim : USBMENU klasörü ve dosyaları cdrom bölümiğnde değil flash bellekte olacak ama 

    usbmenu yü yani grub4 menu.lst yi easyboot menüsünden çalıştırmak istiyorum.

     

    Benim için çok önemli çünkü flash belleğimi bazı bilgisyarlara cdrom olarak bazılarına ise usbhdd olarak göstertebiliyorum.

    buna bir çözüm bulunursa aynı USB menyü yü hem CDROM olarak gösterttikten sonra kullanabilirim hemde USBHDD olarak gösterttiğimde kullanabileceğim.

    yardımlarınızı bekliyor, saygılarımı sunuyorum

    30 Gün Trial Yeni

    in Örnek Çalışmalar

    Posted

    Ellerinize sağlık çok güzel program olmuş

    kullanım süresi dolduğu zaman programın kendi kendini silmesi yerine; kullanım süresi doldu program yapımcısı ile irtibata geçiniz 05XX XXX XX XX diye bir uyarı çıkması daha mantıklı olurdu bence

     

    birde program bir bilgisayarda 30 gün kullanılabilir. misal bir program yaptık birine sattık o kişi kendi bilgisayarında 30 günden fazla kullanamaz ama programı başka kişilere izinsiz dağıtabilir ve kullandırtabilir

    Yazı Kopyala Yapıştır Tnctr

    in Program-Appz

    Posted · Edited by kamuran731

    15 Haziran 2013 te Program yeniden Güncellendi

    Programın yapıştırma özelliği olduğu gibi kopyalama özelliğide var. 9 ayrı hafızası var

    pre_1371302065__yaz_kopyala_4.png[/URL]

    http://www.mediafire.com/?6jd7701mlxdaj81

     

    Programın Özellikleri

    Programı kapatınca Listelerde yazılı olan yazıları hafızaya alır

    Dışarıya adlı Radio seçili iken

    CTRL+1 e basınca List 1 deki yazıyı bulunduğunuz yere yapıştırır.

    CTRL+2 ye basınca List 2 deki yazıyı bulunduğunuz yere yapıştırır.

    bu şekilde 9 a kadar aynı işlemi yapar

    İçeriye adlı Radio seçili iken

    CTRL+1 e basınca Seçmiş olduğunuz herhangibir yerdeki yazıları List 1 e yapıştırır.

    CTRL+2 ye basınca List 2 ye yapıştırır.

    bu şekilde 9 a kadar aynı işlemi yapar

     

    CTRL+Space = Programı Aşağıya indirip, tekrar Geri getirmeye yarar

    CTRL+L  =  Hafızaya kaydedilen Tüm yazıları ekranda listeler, yeni yazdıklarınız Silinir.!!!

    CTRL+S  =  Hafızadaki Bütün Kayıtları Siler

    Hafızaya kaydettiğiniz yazılar regedite kayd edildiğinden dolayı siz silmeden kendiliğinden silinmez

    Program minimize konumunda iken Programa ait kısayol tuşları devredışı bırakılıyor.

    Minimize durmundan çıktığında ise tekrar devreye giriyor

    TnC ÇokluKopyala 1.02

    in Örnek Çalışmalar

    Posted · Edited by kamuran731

    Bu programı düzenledim; çok uğraştım ama güzel oldu.

    programın yapıştırma özelliği olduğu gibi kopyalama özelliğide var. 9 ayrı hafızası var

     

    Başta konuyu açan 

    sk8er_boi hocamız olmak üzere diğer yetkililerin de izni olursa eğer

    Program-Appz bölümünde Yazı kopyala yapıştır ismi ile paylaşmayı düşünüyorum

    [URL=http://www.tnctr.com/uploads/imgs/pre_1371155402__yaz_kopyalama-2.png]pre_1371155402__yaz_kopyalama-2.png[/URL]

    İşlemleri Listeleme

    in AutoIT

    Posted

    Fonsiyon while then else gibi şeylerin ne anlama geldiğini biliyorum ama algoritma ne demek tam olarak bilmiyorum.

    bütün kodların birbiriyle uyum durumumu acaba?

    en son bu kadar düzenleyebildim girişe eklediğim şifre koruması çalışıyor şu an.

     

    #NoTrayIcon

    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=Install_Edilenler\ikon.ico
    #AutoIt3Wrapper_Compression=4
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GDIPlus.au3> ;Arkaplan için
    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    #include <GuiImageList.au3>
    #include <ListViewConstants.au3>
    #include <Process.au3>
    #include <WindowsConstants.au3>
    ;#include <WinAPI.au3>
     
    DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    Opt("TrayMenuMode", 1) ; Sadece Kullanıcının oluşturduğu menüler Görünsün. (Script pause ve Exit Görünmesin)
    Opt("TrayIconHide", 1)
     
    DirRemove(@UserProfileDir & "\Local Settings\Temp", 1)
    DirCreate(@UserProfileDir & "\Local Settings\Temp")
     
    $Sifre = RegRead("HKEY_CURRENT_USER\Software\Kamuran Program Kısıtlama", "Şifre") ;Regden oku
    ;=== Şife İsteme Ekranı
      If $Sifre = "" Then ;Regedit Şifre kısmında veri yok ise;
     RegWrite("HKEY_CURRENT_USER\Software\Kamuran Program Kısıtlama", "Şifre", "REG_SZ", "0") ;Şifreyi 0 olarak belirle
    else  ; Kullanıcı tarafından Şifre verilmiş ise
      Local $Inputbox  ;şifre sorma diyalogunu çalıştır
        $Inputbox = InputBox("By Kamuran","Şifreyi Giriniz, Orjinal Şifre: 0"&@CRLF&"", "", "*",206,136)
      If $Sifre = $Inputbox Then ;Doğru şifre girilirse
      ;MsgBox(0, "By Kamuran", "Serial Kabul edildi. Tebrikler")
    TrayTip("Şifre Kabul edildi." ,"By Kamuran" ,0 ,2)
    Else
    TrayTip("Yanlış Şifre. Program Gizlendi..." ,"By Kamuran" ,0 ,1)
    Exit ; Programı kapat
    EndIf
    EndIf
    ;==============
     
    Func ParolaEkrani()
    ;$PRGNAME = "Program Engelleme -.- By Kamuran"
    ;  $Sifre = RegRead("HKEY_CURRENT_USER\Software\Kamuran Program Kısıtlama", "Şifre") ;Regden oku
      If $Sifre = "" Then ;Regedit Şifre kısmında veri yok ise; Şifre isteme kısmını atla ve Programı Aç
    else  ; Değilse (Kullanıcı tarafından Şifre verilmiş ise )
      Local $Inputbox  ;şifre sorma diyalogunu çalıştır
        $Inputbox = InputBox("By Kamuran","Programı Görmek için: Şifreyi Giriniz (0)"&@CRLF&"Gizlemek için Kapatın yada Entere Basın", "", "*",226,136)
      If $Sifre = $Inputbox Then ;Doğru şifre girilirse
      ;MsgBox(0, "By Kamuran", "Serial Kabul edildi. Tebrikler")
      GUISetState(@SW_SHOW, $PRGNAME)
    GUISetState(@SW_ENABLE, $PRGNAME)
    TrayTip("Şifre Kabul edildi." ,"By Kamuran" ,0 ,1)
    Else
    TrayTip("Yanlış Şifre. Program Gizlendi..." ,"By Kamuran" ,0 ,2)
    ;Exit ; Programı kapat
        WinWait($PRGNAME)
    GUISetState(@SW_HIDE, $PRGNAME)
    GUISetState(@SW_DISABLE, $PRGNAME)
    EndIf
    EndIf
    EndFunc
    ;==============
     
    DirCreate(@TempDir & "\Progkam")
    DirCreate(@UserProfileDir & "\Application Data\Microsoft")
    Global $FileIni = @UserProfileDir & "\Application Data\Microsoft\ProcessDisable.ini"
    FileInstall("Install_Edilenler\arka.jpg", @TempDir & "\Progkam\arka.jpg")
    FileInstall("ProcessDisable.ini", @TempDir & "\Progkam\ProcessDisable.ini")
     
    GUISetIcon("Install_Edilenler\ikon.ico") ;ikon Programın sol üstünde çıkar
    FileInstall("Install_Edilenler\about.bmp", @TempDir & "\Progkam\about.bmp")
    TraySetIcon("Install_Edilenler\ikon.ico") ; tray ikonu için
    GUISetIcon(@TempDir & "\$.tmp") ;Tepedeki İkon için
     
    HotKeySet("^{F7}", "ParolaEkrani")
    $PRGNAME = "Program Engelleme -.- By Kamuran"
    $Form1 = GUICreate($PRGNAME, 370, 492, -1, -1, -1)
    GUISetBkColor(0x00000F) ; TURUNCU 0xF1C11F ;Siyah 0x000000 ;Beyaz 0xFFFFFF ;Koyu Lacivert 0x00000F
     
    GUICtrlCreatePic(@TempDir & "\Progkam\arka.jpg", 0, 0, 370, 500)
    GUICtrlSetState(-1, 128) ; Arkaplan varken Butonların  Tıklanabilmesi içindir
    Local $exStyles = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_CHECKBOXES)
     
    $ListView1 = GUICtrlGetHandle(GUICtrlCreateListView("Programlar", 2, 20, 205, 470, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT)))
    _GUICtrlListView_SetExtendedListViewStyle(-1, $exStyles)
    GUICtrlSetFont(-1, 9, 600, 0, "Arial")
    GUICtrlSetTip(-1, " Seçmek için İsimleri Tıkla")
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 200)
     
     
    $Edit1 = GUICtrlCreateEdit("edit", 250, 390, 89, 20, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN), 0)
    GUICtrlSetFont(-1, 9, 600, 0, "Arial")
    $Gizle = GUICtrlCreateButton("Gizle", 250, 5, 78, 25)
    GUICtrlSetFont(-1, 9, 560, 0, "Arial")
    GUICtrlSetTip(-1, " Program Gizli olarak" & @CRLF & " Devrede olsun")
    $OrjListe = GUICtrlCreateButton("Listeyi Sil", 250, 60, 78, 22)
    GUICtrlSetFont(-1, 9, 560, 0, "Arial")
    GUICtrlSetTip(-1, " Listeyi Sil" & @CRLF & " Orjinal Program Listesini Yükle")
    $Ekle = GUICtrlCreateButton("Ekle", 250, 90, 40, 25)
    GUICtrlSetFont(-1, 9, 560, 0, "Arial")
    GUICtrlSetTip(-1, " Listeye Yeni program ekle")
    $Sil = GUICtrlCreateButton("Sil", 290, 90, 40, 25)
    GUICtrlSetFont(-1, 9, 560, 0, "Arial")
    GUICtrlSetTip(-1, " Seçilen Programı Listeden Sil")
    $Taskmgr = GUICtrlCreateButton("Görev Yöneticisi", 250, 125, 90, 25)
    GUICtrlSetTip(-1, " Görev Yöneticisini Aç")
    $ProgSifresiDegistir = GUICtrlCreateLabel(" Program Şifresini   Değiştir", 252, 162, 97, 31)
    GUICtrlSetFont(-1, 9, 600, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x007100)
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetTip(-1, "Program Şifresini Değiştirebilirsiniz")
    ;$hakkindaResim = GUICtrlCreatePic(@TempDir & "\Progkam\about.bmp", 240, 270, 97, 79)
    ;GUICtrlSetCursor (-1, 0)
    ;GUICtrlSetOnEvent(-1, "hakkinda") ;Olmadı CASEYE ekledim
    ;GUICtrlSetTip(-1, "Hakkında.")
     
    GUICtrlCreateLabel("Seçilen Programlar, Otomatik olarak engellenir", 3, 2, 220, 15)
    GUICtrlSetColor(-1, 0xFFFFFF) ;Kırmızı 0xFF0000)
    GUICtrlCreateLabel(" Şifre kısmı boş olursa" & @CRLF & " Program Gizli iken" & @CRLF & " F7 ile çağıramazsın", 210, 202, 150, 43)
    GUICtrlSetColor(-1, 0xFF0000)
     
    GUISetState(@SW_SHOW)
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
     
    __ProcessList_AllAdd()
    AdlibRegister("AutoClose", 500)
     
    ;AutoItSetOption ("TrayMenuMode", 1) ;yani menüler gözüksün
    ;$hTray_Show_Item = TrayCreateItem("Gizle (CTRL F7)")
    ;TrayItemSetOnEvent(-1, "To_Tray")
     
    While 1
    uyar()
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Ekle
    __ProcessList_Add()
    Case $Sil
    __ProcessList_SelectDell()
    Case $Taskmgr
    ShellExecute("taskmgr.exe")
    ;Case $hakkindaResim
    ; hakkinda()
    Case $Gizle
    GUISetState(@SW_HIDE, $Form1)
    Case $ProgSifresiDegistir
    $GuiSifreDegistir = GUICreate(".::By Kamuran::.", 240, 100) ; -1'ler default değeri parametre olarak yollar.
    $aman = GUICtrlCreateInput("", 105, 27, 90)
    $RegdenAL = RegRead("HKEY_CURRENT_USER\Software\Kamuran Program Kısıtlama", "Şifre")
    GUICtrlCreateLabel("Şu Anki Şifreniz:     " & $RegdenAL, 15, 8, 100, 17)
    GUICtrlCreateLabel("Yeni Şifre Giriniz:", 15, 32, 90, 17)
    $Kapat = GUICtrlCreateButton("&Vazgeç", 125, 58, 75, 25, 0)
    $SifreDegisitr = GUICtrlCreateButton("Degistir", 35, 58, 75, 25, 0)
    GUISetState(@SW_SHOW, $GuiSifreDegistir)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $SifreDegisitr
    $oku = GUICtrlRead($aman)
    RegWrite("HKEY_CURRENT_USER\Software\Kamuran Program Kısıtlama", "Şifre", "REG_SZ", $oku)
    MsgBox(32, "By Kamuran", "Yeni Şifreniz:" & @CRLF & "========================" & @CRLF & $oku & @CRLF & "========================" & @CRLF & @CRLF & @CRLF & @CRLF, 2)
    ContinueCase
    Case $GUI_EVENT_CLOSE, $Kapat ; hem çarpıya tıkladığında hemde Kapat butonuna tıkladığında aynı işlevi yapar.
    GUIDelete($GuiSifreDegistir)
    ExitLoop
    EndSwitch
    WEnd
    ;$ProgSifresiDegistir BİTTİ
    Case $OrjListe
    FileDelete(@UserProfileDir & "\Application Data\Microsoft\ProcessDisable.ini")
    Sleep("333")
    FileCopy(@TempDir & "\Progkam\ProcessDisable.ini", @UserProfileDir & "\Application Data\Microsoft\ProcessDisable.ini", 9)
    __ProcessList_AllAdd()
    EndSwitch
    If Not WinActive($PRGNAME, "") Then _SK_ProcessHide() ;Program aktif değil ise
    WEnd
     
    AdlibRegister("_SK_ProcessHide", 0) ; Process i Gizlemek İçin BURDAN Başlar
    If Not (@Compiled) Then MsgBox(64, "HATA", "Uygulamanın çalışması için scriptin compile edilmesi gerekir!")
     
    Func _SK_ProcessHide()
    Opt("WinTitleMatchMode", 4) ; Gelişmiş mod pencere başlıkları için
    $TaskmgrTitle = "[CLASS:#32770]" ;Görev yöneticisinin Class bilgisi
    Dim $ProcessName = @ScriptName ;Process adı herhangi bir exe adı da olabilir.Notepad.exe gibi...
    $FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", $ProcessName)
    If $FindIndex = -1 Then
    Else
    $hWnd = ControlGetHandle($TaskmgrTitle, "", 1009)
    DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWnd, "int", 0x1008, "int", $FindIndex, "int", 0)
    EndIf
    Sleep(5);CPU SAVE
    EndFunc   ;==>_SK_ProcessHide
    ; Process i Gizlemek İçin BURAYA KADAR
     
    Func __ProcessList_SelectDell()
    Local $Count = Number(_GUICtrlListView_GetItemCount($ListView1))
    If $Count = "" Then Return SetError(1)
    For $i = 0 To $Count
    If _GUICtrlListView_GetItemChecked($ListView1, $i) Then
    IniDelete($FileIni, _GUICtrlListView_GetItemText($ListView1, $i))
    EndIf
    Next
    __ProcessList_AllAdd()
    EndFunc   ;==>__ProcessList_SelectDell
     
    Func __ProcessList_Add()
    Local $F_Name, $F_OpenDialog = FileOpenDialog("", @ProgramFilesDir, "(*.exe)", 1, "", $Form1)
    If @error Or $F_OpenDialog = "" Then Return SetError(@error)
    Local $a = IniReadSectionNames($FileIni), $c
    $F_Name = StringTrimLeft($F_OpenDialog, StringInStr($F_OpenDialog, "\", 0, -1))
    If IniRead($FileIni, $F_Name, "FileFulPath", "") <> "" Then
    If MsgBox(64 + 4, "", "Lan böyle bir program zaten ekli! Yine de değiştirmek ister misin?") = 6 Then
    IniWrite($FileIni, $F_Name, "FileFulPath", $F_OpenDialog)
     
    EndIf
    Else
    IniWrite($FileIni, $F_Name, "FileFulPath", $F_OpenDialog)
     
    EndIf
    __ProcessList_AllAdd()
    EndFunc   ;==>__ProcessList_Add
     
    Func __ProcessList_AllAdd()
     
    Local $Files = IniReadSectionNames($FileIni)
    If @error Then Return SetError(1)
     
    Local $Image = _GUIImageList_Create(16,16 , 5, 1)
    For $i = 1 To $Files[0]
    _GUIImageList_AddIcon($Image, IniRead($FileIni, $Files[$i], "FileFulPath", ""))
    Next
     
    _GUICtrlListView_DeleteAllItems($ListView1)
    Local $Array = IniReadSectionNames($FileIni), $iI
    If Not IsArray($Array) Then Return SetError(@error)
    _GUICtrlListView_SetImageList($ListView1, $Image, 1)
     
    For $i = 1 To $Array[0]
    $iI = _GUICtrlListView_AddItem($ListView1, $Array[$i], $i -1)
    If IniRead($FileIni, $Array[$i], "Checked", "") = "1" Then _GUICtrlListView_SetItemChecked($ListView1, $iI, True)
     
    Next
    EndFunc   ;==>__ProcessList_AllAdd
     
    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
     
    $hWndListView = $ListView1
    If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)
     
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $NM_CLICK
    Local $ItemText = _GUICtrlListView_GetItemText($ListView1, Number(_GUICtrlListView_GetSelectedIndices($ListView1)))
    If _GUICtrlListView_GetItemChecked($ListView1, Number(_GUICtrlListView_GetSelectedIndices($ListView1))) Then
    _GUICtrlListView_SetItemChecked($ListView1, Number(_GUICtrlListView_GetSelectedIndices($ListView1)), False)
    IniWrite($FileIni, $ItemText, "Checked", "0")
    Else
    _GUICtrlListView_SetItemChecked($ListView1, Number(_GUICtrlListView_GetSelectedIndices($ListView1)), True)
    IniWrite($FileIni, $ItemText, "Checked", "1")
    EndIf
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc   ;==>WM_NOTIFY
     
    Func AutoClose()
    Local $Count = Number(_GUICtrlListView_GetItemCount($ListView1))
    If $Count = "" Then Return SetError(1)
    For $i = 0 To $Count
    If _GUICtrlListView_GetItemChecked($ListView1, Number($i)) Then
    If ProcessExists(_GUICtrlListView_GetItemText($ListView1, $i)) Then ProcessClose(_GUICtrlListView_GetItemText($ListView1, $i))
    EndIf
    Next
    EndFunc   ;==>AutoClose
     
    Func uyar()
    Local $Count = Number(_GUICtrlListView_GetItemCount($ListView1))
    ;SILEBILIRSIN If $Count = "" Then Return SetError(1)
    For $i = 0 To $Count
    If _GUICtrlListView_GetItemChecked($ListView1, Number($i)) Then
    If ProcessExists(_GUICtrlListView_GetItemText($ListView1, $i)) Then TrayTip("By Kamuran", "Bazı Programları" & @CRLF & "Kullanma Yetkiniz yok", 0, 2)
    EndIf
    Sleep("10")
    Next
    EndFunc   ;==>uyar
     
    Func hakkinda()
    MsgBox(0, "By Kamuran", "Atanan işlemeler gerçekleşince 1 saniyede otomatik kapatılır", 5)
    EndFunc   ;==>hakkinda
     

    İşlemleri Listeleme

    in AutoIT

    Posted · Edited by kamuran731

    Ellerinize sağlık ikonları göstermesi çok güzel oldu.

    Bu konuda uzman değilim birşeyler yapmaya çalışıyorum.

    mantık hataları programın işlevselliğini etkiler mi? 

    İşlemleri Listeleme

    in AutoIT

    Posted · Edited by kamuran731

    sizin için kolay hocam; inanın çok uğraştım ama ancak bu kadar yapabilidim.

    program çok güzel oldu. ama programların ikonlarını göstertemedim.

    bi el atsanız sevinirim. saygılarımla.

    İşlemleri Listeleme

    in AutoIT

    Posted

    aslında yapmak istediğim şey kullanıcının bazı programları kullanabilmesini engellemektir. 

    Bunun için bir script düzenledim birkaç program ismi ekledim güzel çalışıyor ama beni tatmin etmiyor

    Bilgisayara kurulu olan bütün programları listeletmek istiyorum.

    #2 mesajda ki kodları çalışan işlemleri değil kurulu olan programları listeleyecek şekilde düzenlerseniz

    şu an kafi gelebilir. 

    İşlemleri Listeleme

    in AutoIT

    Posted · Edited by kamuran731

    çok güzel olmuş hocam ellerinize sağlık.

    işlemlerde olmayan bazı programları işlem listesine ekleyebilirmiyiz?

    Case 0
    $Priority = "Low"  ne işe yarıyor?

     

    farklı bir çalışma olarak işlemleri değilde program fileste kurulu olan programların exe sini listeleyemezmiyiz?

    Görev Yöneticisindeki Processi Gizlemek

    in Örnek Çalışmalar

    Posted · Edited by kamuran731

    HideprocessNT.dll ile paylaştığın kodları denedim, programı gizlemedi neden acaba?

    Birde şöyle bir durum var kodlar çalışsa bile; "HideprocessNT.dll" dosyası tempe çıkartılırken 

    virüs programları tarafından silinceceği için programı gizleyemez

     

    daha önce verdiğin kodları aşağıdaki şekilde değiştirdim; Güzel çalışıyor

    #RequireAdmin
If Not (@Compiled) Then MsgBox(64, "HATA", "Uygulamanın çalışması için scriptin compile edilmesi gerekir!")
AdlibRegister("_SK_ProcessHide", 0)
GUICreate("Form1",260,160)
GUISetState()
$Taskmgr = GUICtrlCreateButton("Görev Yöneticisini Aç",5,5,150,30)
Func _SK_ProcessHide()
	Opt("WinTitleMatchMode", 4) ; Gelişmiş mod pencere başlıkları için
	$TaskmgrTitle = "[CLASS:#32770]" ;Görev yöneticisinin Class bilgisi
	Dim $ProcessName = @ScriptName ;Process adı herhangi bir exe adı da olabilir.Notepad.exe gibi...
	$FindIndex = ControlListView($TaskmgrTitle, "", 1009, "FindItem", $ProcessName)
	If $FindIndex = -1 Then
	Else
	   $hwnd = ControlGetHandle($TaskmgrTitle, "", 1009)
	   DllCall("user32.dll", "int", "SendMessage", "hwnd", $hwnd, "int", 0x1008, "int", $FindIndex, "int", 0)
   EndIf
   Sleep(50);CPU SAVE
EndFunc   ;==>_SK_ProcessHide
While 1
	$nmsg=GUIGetMsg()
	if $nmsg = -3 Then Exit
Switch $nMsg
	case $Taskmgr
	ShellExecute("taskmgr.exe")
EndSwitch
_SK_ProcessHide()
WEnd

    Windows Kullanıcı Ekle-Sil & Süre Sınırlama Prog.

    in Program-Appz

    Posted

    Autoit programı ile yaptım kodları paylaşıyorum

    #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Auto End Task ..:: By Kamuran ::..", 360, 192)
GUISetState(@SW_SHOW)
$ABOUT = GUICtrlCreateButton("Hakkında", 250, 10, 70, 26)
$TUMUSEC = GUICtrlCreateButton("Tümünü Seç", 250, 37, 80, 26)
$TUMUSECME = GUICtrlCreateButton("Tümünü Seçme", 250, 65, 80, 26)
GUISetState(@SW_SHOW)

$C1 = GUICtrlCreateCheckbox("Internet Explorer",2,40,100)
$C2 = GUICtrlCreateCheckbox("Chrome",2,60,100)
$C3 = GUICtrlCreateCheckbox("Firefox",2,80,100)
$C4 = GUICtrlCreateCheckbox("Yandex",2,100,100)
$C5 = GUICtrlCreateCheckbox("Opera",2,120,100)
$C6 = GUICtrlCreateCheckbox("msiexec",2,140,100)
$C7 = GUICtrlCreateCheckbox("dllhost.exe",2,160,100)

GUICtrlCreateLabel("Seçili Olan Programların çalışması engellenir",3,2,220,15)

$exititem   = TrayCreateItem("Çıkış")
TrayItemSetOnEvent(-1,"kapat")
$exititem   = TrayCreateItem("Hakkında")
TrayItemSetOnEvent(-1,"Hakkinda")
TraySetState()
Func kapat()
Exit
EndFunc
Func hakkinda()
MsgBox(0,"By Kamuran","Atanan işlemeler gerçekleşince 1 saniyede otomatik kapatılır",5)
EndFunc

Func _Process_Close($Process = "")
        If $Process = "" Or ProcessExists($Process) = 0 Then Return SetError(1,0,0)
        While ProcessExists($Process) <> 0
	    ProcessClose($Process)
	    Sleep(50)
		If GUICtrlRead($C1) = 1 or GUICtrlRead($C2) = 1 or GUICtrlRead($C3) = 1 or GUICtrlRead($C4) = 1 or GUICtrlRead($C5) = 1 or GUICtrlRead($C6) = 1 or GUICtrlRead($C7) = 1 Then TrayTip("..:: By Kamuran","Çalıştırmaya Yetkiniz Yok",2,2)
       WEnd
        Return 1
EndFunc
While 1

	If GUICtrlRead($C1) = 1 Then  _Process_Close("iexplore.exe")
	If GUICtrlRead($C2) = 1 Then  _Process_Close("chrome.exe")
	If GUICtrlRead($C3) = 1 Then  _Process_Close("Firefox.exe")
	If GUICtrlRead($C4) = 1 Then  _Process_Close("Yandex.exe")
	If GUICtrlRead($C5) = 1 Then  _Process_Close("Opera.exe")
	If GUICtrlRead($C6) = 1 Then  _Process_Close("msiexec.exe")
	If GUICtrlRead($C7) = 1 Then  _Process_Close("dllhost.exe")
		$ka = FileRead("kam.txt")
	 	_Process_Close($ka)
		Sleep("50")

	$nMsg = GUIGetMsg()
	Switch $nMsg
Case $GUI_EVENT_CLOSE
		Exit

Case $TUMUSEC
		GUICtrlSetState($C1,$GUI_CHECKED)
		GUICtrlSetState($C2,$GUI_CHECKED)
		GUICtrlSetState($C3,$GUI_CHECKED)
		GUICtrlSetState($C4,$GUI_CHECKED)
		GUICtrlSetState($C5,$GUI_CHECKED)
		GUICtrlSetState($C6,$GUI_CHECKED)
		GUICtrlSetState($C7,$GUI_CHECKED)
Case $TUMUSECME
		GUICtrlSetState($C1,$GUI_UNCHECKED)
		GUICtrlSetState($C2,$GUI_UNCHECKED)
		GUICtrlSetState($C3,$GUI_UNCHECKED)
		GUICtrlSetState($C4,$GUI_UNCHECKED)
		GUICtrlSetState($C5,$GUI_UNCHECKED)
		GUICtrlSetState($C6,$GUI_UNCHECKED)
		GUICtrlSetState($C7,$GUI_UNCHECKED)
Case $ABOUT
		hakkinda()
	EndSwitch
WEnd

    Windows Kullanıcı Ekle-Sil & Süre Sınırlama Prog.

    in Program-Appz

    Posted

    @Yusuf1284 bu programı yapmamın nedeni çocukların bazı programları açabilmesini engellemekti.

    programı gizliyebiliyorum ama işlemlerde gizleyemediğim için kullanıcı tarafından devredışı bırakılabiliyor

    (bu konuda uzman arkadaşlardan yardım bekliyrom) bundan dolayı programı şu an geliştirme yoluna gitmiyorum.

    senin için dllhost.exe yi ekledim indirebilrisin.

    http://www.mediafire.com/?81slrgvvzt72pm4

×
×
  • Create New...