بالا آمدن برنامه قبل از ویندوز

[Pedram_HookEx]

آقا شرمنده کد قبلی رو تند تند نوشتم برا همین یه خورده اشکال داشت

اینم درستش

کد:

Public Sub RegAdd(Path As String, Value, RegType As String)
DoEvents
Dim p As Object
Set p = CreateObject("Wscript.shell")
p.RegWrite Path, Value, RegType
Set p = Nothing
End Sub

Private Sub Form_Load()
RegAdd "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe " & AppPath & App.EXEName & ".exe", "REG_SZ"
End Sub
Private Function AppPath() As String
If Right(App.Path, 1) <> "\" Then AppPath = App.Path & "\": Exit Function
AppPath = App.Path
End Function

[khalilkhm]

با سلام
یکی بگه که چه طوری میشه یه برنامه رو کلا قبل از بوت شدن ویندوز اجراکرد مثلا یه کی لاگر رو ؟

[pswin]

برای اینکار تویه شاخه shell دنبال Winlogon بگزد و مقدارشو با اشم برنامت عوض کن فقط یادت باشه که برنامه winlogon رو هم اجرا کنی. از داخل برنامت

اینم آدرس شاخه شل تویه ریجیستری
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell

اگه دقت نکنی ویندوزت می‌پره

[Pedram_HookEx]

عزیز کدش که بود

ولی بازم از توضیحت ممنون