folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Regeditten Veri Okuma Yardım (VB)



Regeditten Veri Okuma Yardım (VB)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    Private Sub Command1_Click()
    Set reg = CreateObject("wscript.shell")
    reg.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority", "1", "REG_DWORD"
    MsgBox ("XP HIZLANDIRMAK AMACIYLA IRQPRIOTRY ANAHTARI AKTİF EDİLDİ")
    End Sub

    Private Sub Command2_Click()
    Set reg = CreateObject("wscript.shell")
    reg.regdelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority"
    MsgBox ("kayıt silindi") �bu anahtarı belki silmek istersiniz diye ekledim delete olarak
    End Sub

    Private Sub Command3_Click()

    Set reg = CreateObject("wscript.shell")
    reg.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\HungAppTimeout", "500"
    MsgBox ("YANIT VERMEYEN UYGULAMA SONLANDIRILMASI HIZLANDIRILDI")
    End Sub

    Private Sub Command4_Click()
    Set reg = CreateObject("wscript.shell")
    reg.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "0"
    MsgBox ("MENU LERİN AÇILMASI HIZLANDIRILDI")
    End Sub

    Private Sub Command5_Click()
    Set reg = CreateObject("wscript.shell")
    reg.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\W aitToKillServiceTimeout", "1000"
    MsgBox ("XP KAPANMASI HIZLANDIRILDI")
    End Sub

     -----------------

    bu kodlarda ekleme ve silme var okumak için hangi kodları kullancaz ?   

    mesela HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\PriorityControl\IRQ8Priority deki bi değerin verisini text e nasıl aktarıcam.? 

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    31 yaşında emekli
    ajan1111
    ajan1111's avatar
    Kayıt Tarihi: 25/Ağustos/2005
    Erkek

    oku = GetSetting("ilk klasör", "altına açtığın klasör", "girdiğin değişken", "")

    mesela;

    firmaadi = GetSetting("ajan1111", "Ayarlar", "firma", "")



    ajan1111

               ayarlar

                         firma

    firma'nın içindede "acan"  değeri var. onu firmaadi değişkenine atıyor.

     

    ama bu yazdığım vbasic'te direk olarak "SaveSetting" olarak kullandığın zaman "VB and VBA Program Settings" bunun altına yazıyor ve getsetting 'lede burdan okuyor. özel olarak yol belirlemek istiyorsan o ayrı. bulabilirsem onuda yayınlarım

    Kayalardan kayarım yoktur benim ayarım (;
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek

    Private Function degeroku(Value As String) As String
     

    Dim registry As Object
    Dim alinandeger


    Set registry = CreateObject("wscript.shell")

    alinandeger = registry.RegRead(Value)

    degeroku = alinandeger

    End Function
    Private Sub Form_Load()

    Text1 =  degeroku("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\WaitToKillServiceTimeout")

    End Sub

    ' degeroku("bu kısma istediğin anahtarı yazarak değeri okutabilirsin), hadi kolay gelsin :), bu arada formuna text1 koy

     

     

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
    Reply With Quote Alıntı yap
Toplam Hit: 2482 Toplam Mesaj: 3