Современные решения

для защиты Windows приложений

и восстановления исходного кода
АвтъA: vbcode. Дат? ??бликации: 03.08.2004

Изменение внешыDго вида ??ъ@?? ПУСК

Д?? из??ыDыG? внешыDго вида ??ъ@?? ПУСК ва? ыRжн? ??ба? ??ртин?? размерьK 55 ???? * 22 ????. ??? именем temp.bmp

CODE NOW!
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Const SRCCOPY = &HCC0020

Dim hwndTB As Long ? handle taskbar’а
Dim hWndSB As Long ? handle ьIъь ??ъ@?? ПУСК
Dim hDcSB As Long ? handle содержимьB? ??ъ@?? ПУСК
Dim mRect As RECT ? ??ъAдиъьты ??ъ@?? ПУСК
Dim hDcTmp As Long ? handle ыMво? ??ртин??
Dim hBmpTmp As Long ? временъь? ??ртин??
Dim hBmpTmp2 As Long ? временъь? ??ртин??
Dim nWidth As Long ? шириъь ??ъ@?? ПУСК
Dim nHeight As Long ? высота ??ъ@?? ПУСК
Dim sPath As String ? ??ть ? ??ртин??

Private Sub Form_Load()
? ????чить handle taskbar ? ??ъ@?? ПУСК
hwndTB = FindWindow("Shell_TrayWnd", "")
hWndSB = FindWindowEx(hwndTB, 0, "button", vbNullString)
? ????чить dc ??ъ@?? ПУСК
hDcSB = GetWindowDC(hWndSB)
? ????чить ??ъAдиъьты ??ъ@?? ПУСК
Call GetWindowRect(hWndSB, mRect)
? шириъь ? высота
nWidth = mRect.Right - mRect.Left
nHeight = mRect.Bottom - mRect.Top
hDcTmp = CreateCompatibleDC(hDcSB)
hBmpTmp = CreateCompatibleBitmap(hDcTmp, nWidth, nHeight)
? устаыMвить ??ть дл? загруз?? ??ртин??
sPath = App.Path & "\temp.bmp"
hBmpTmp2 = SelectObject(hDcTmp, LoadPicture(sPath))
End Sub

Private Sub tmrPaint_Timer()
? рисовать ??ъ@?? ПУСК
Call BitBlt(hDcSB, 0, 0, nWidth, nHeight, hDcTmp, 0, 0, SRCCOPY)
End Sub

Private Sub Form_Unload(Cancel As Integer)
? ъHистить ??ъ@?? ПУСК
hBmpTmp = SelectObject(hDcTmp, hBmpTmp2)
DeleteObject hBmpTmp
DeleteDC hDcTmp
End Sub



Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий: