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

Milashka · 19.02.2004

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

???? · 19.02.2004

Млин ... ну 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 · 19.02.2004

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

admin · 19.02.2004

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

???? · 19.02.2004

Milashka
Упс

я не туда написал

Это про PrintScreen

kagor · 19.02.2004

???? Вот и я думал, какое отношение твой код имеет к этой теме

Так ничего и не придумал

???? · 20.02.2004

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