ايران ويج

صفحه‌ها: 1 2

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

اینم درستش

کد: 
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

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

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

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

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

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

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

صفحه‌ها: 1 2

Pedram_HookEx

khalilkhm

pswin

Pedram_HookEx