Администрирование 98-й

[Milashka]

Как вести администрирование в 98й винде. по моим рассчетам для того чтобы защитить винду ... (надо блокировать доступ к досу, иначе все легко сносится ... )

 

[????]

Млин ... ну VB и гадость когда надо применять WinAPI

Вот то, что удалось смастерить:

Private Declare Function GetDC Lib "user32" (ByVal hwnd 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 GetDesktopWindow Lib "user32" () As Long

Private Sub Command1_Click()


hSrc = GetDesktopWindow
hdcSrc = GetDC(hSrc)
BitBlt Picture1.hDC, 0, 0, 1024, 768, hdcSrc, 0, 0, &HCC0020

Picture1.Refresh

End Sub

GetDesctopWindow - получение хэндла desktop'а
GetDC - получение хэндла контекста по хэндлу окна, параметр - хэндл окна
BitBlt - побитовае копирование региона в контексте Src в контекст Dest (тут используется контекст пикчербокса Picture1). Последний параметр - флаг SRCCOPY (просто копирует). А так - Dest контекст, х-координата верх. левого угла региона Src контекста, y-коорд. верх. левого угла региона Src контекста, ширина региона, высота региона, Src контекст, х-координата верх. левого угла региона Dest контекста, y-коорд. верх. левого угла региона Dest контекста, флаг.

Млин... 30 минут убил на "4" строки текста

 

[kagor]

Milashka Если все твои вопросы относятся к VB, то не лучше их писать в разделе "Системное программирование" форум "Другие"???

 

[admin]

Milashka
kagor прав. Я уже задолбался переносить

 

[????]

Milashka
Упс я не туда написал
Это про PrintScreen

 

[kagor]

???? Вот и я думал, какое отношение твой код имеет к этой теме Так ничего и не придумал

 

[????]

kagor
Было бы интересней, если бы прибумал