Çok teşekkürler dostum eline sağlık.

eline sağlık

Teşekkürler dostum güzel paylaşım

eger programinizda nag ekranini normal show degilde bu asagidaki code ile cagirirsaniz programinizin cracklenmesi cok daha zorlasir cünkü normalde show ile windowsun apileri kullanirken bu metod ile formu hook metodu ile cagiriyoruz bude crackerin MSVBVM60. vbaNew2 apisini kullanarak nag ekranina ulasmasini engelliyor... böylece isleri 2 kat zorlasiyor... forma su kodlari ekleyin: Option Explicit Private Sub Form_Load Shell_Hook_Msg_ID = RegisterWindowMessage RegisterShellHookWindow LogWinOldProc = SetWindowLong End Sub Private Sub Form_Unload DeregisterShellHookWindow Me. hWnd SetWindowLong Me. hWnd, GWL_WNDPROC, LogWinOldProc End Sub bir modul ekleyin ve su kodlari ekleyin: Option Explicit Public Declare Function RegisterShellHookWindow Lib "user32" As Long ''use in NT5 Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" As Long Public Declare Function DeregisterShellHookWindow Lib "user32" As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthW" As Long Private Const HSHELL_WINDOWCREATED = 1 Private Const HSHELL_WINDOWDESTROYED = 2 Private Const HSHELL_ACTIVATESHELLWINDOW = 3 Private Const HSHELL_WINDOWACTIVATED = 4 Private Const HSHELL_GETMINRECT = 5 Private Const HSHELL_REDRAW = 6 Private Const HSHELL_TASKMAN = 7 Private Const HSHELL_LANGUAGE = 8 Private Const HSHELL_SYSMENU = 9 Private Const HSHELL_ENDTASK = 10 Private Const HSHELL_ACCESSIBILITYSTATE = 11 Private Const HSHELL_APPCOMMAND = 12 Private Const HSHELL_WINDOWREPLACED = 13 Private Const HSHELL_WINDOWREPLACING = 14 Private Const HSHELL_HIGHBIT = &H8000& Private Const HSHELL_FLASH = Private Const HSHELL_RUDEAPPACTIVATED = Public Const GWL_WNDPROC = -4 Private Const MAX_PATH = 260 Public Shell_Hook_Msg_ID As Long Public LogWinOldProc As Long Public Function WndProc As Long Select Case wMsg Case Shell_Hook_Msg_ID Dim szTmp As String Select Case wParam Case HSHELL_WINDOWACTIVATED szTmp = String Call GetWindowText Debug. Print "HSHELL_WINDOWACTIVATED:" & Left$(szTmp, GetWindowTextLength Case HSHELL_WINDOWCREATED szTmp = String Call GetWindowText Debug. Print "HSHELL_WINDOWCREATED:" & Left$(szTmp, GetWindowTextLength End Select End Select WndProc = CallWindowProc End Function yazim hatalari icin kusura bakmayin kolay gelsin...

teşekkürler fuujin. eğer güzel bi proje yaparsam kullanırım...

Saol İyi paylaşım