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

Тема в разделе "Другие", создана пользователем Milashka, 19 фев 2004.

Статус темы:
Закрыта.
  1. Milashka

    Milashka Гость

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

    ???? Гость

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

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


    Код (Text):
    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" строки текста :)
     
  3. kagor

    kagor Гость

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

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Milashka
    kagor прав. Я уже задолбался переносить :)
     
  5. ????

    ???? Гость

    Milashka
    Упс :) я не туда написал :)
    Это про PrintScreen :)
     
  6. kagor

    kagor Гость

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

    ???? Гость

    kagor
    Было бы интересней, если бы прибумал :) :)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей