ПУСК

[Мамонт]

Товарищи программисты! Скажыте а возможно ли программно открыть меню пуска? А то поиск как то ничего не дал мне?

[d3drm]

думаешь если тебе ничего не дал поиск, то пуск тебе что-то даст? ::)

[Amed]

Код: Выделить всё

Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Dim tWnd As Long, bWnd As Long, sSave As String * 250
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    'This code will hide the Start-button
    'Find the taskbar's handle
    tWnd = FindWindow("Shell_traywnd", vbNullString)
    'Search for a child window
    bWnd = GetWindow(tWnd, GW_CHILD)
    Do
        'get the child window's classname
        GetClassName bWnd, sSave, 250
        'We have the handle of the Start button If the classname is 'button'
        If LCase(Left$(sSave, 6)) = "button" Then Exit Do
        'Search the next child
        bWnd = GetWindow(bWnd, GW_HWNDNEXT)
    Loop
    'Hide the start button
    'SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
    SendMessage bWnd, WM_LBUTTONDOWN, vbNull, vbNull
End Sub

[Мамонт]

Чёрт!!! ТЫ ГЕНИЙ!!!! БЛАГОДАРЮ!!

[d3drm]

Да ладно уж, не за что...

[Amed]

Ну как - не за что? Ты мне так помог!

[d3drm]

Да ладно, всего-то штуку баксов одолжил! когда отдашь, кстати?

[Amed]

Как только сделаешь, что обещал! Уговор дороже денег!

[d3drm]

нет, не заставляй меня делать ЭТО. Да еще с тобой! Давай лучше сделаем ЭТО с Роней?

[Amed]

Я уже делал ЭТО с Роней. Или он со мной, не помню.

Может, Гайдар чем поможет?

[d3drm]

Ахтунг?

[Amed]

Нет. Гайдар не по этой части.

[d3drm]

Клар клару осквернил оралом, аналом и другим аморалом.

Фсио, больше не буду, спасибо за хорошее настроение =)

[Amed]

Меши не нужны? Отдам недорого в хорошие руки!

[Мамонт]

Эй! Вы чё тут чат устроили!! Шутники! Спасибо за помощь!

[d3drm]

Да сказали уже, ПАЖАЛСТА! Не мешай!

[Мамонт]

OrBit! Лучшебы делом занялся!!!

[Amed]

Он хотя бы не мешает переписке!

[Мамонт]

У вас у обоих есть аси!! Вот и переписывались! А то блин испортили мою тему!! Какашки!(с ударением на первый слог)

[d3drm]

Да мы сейчас вообще в одной комнате сидим =)

[Amed]

Да! Орбит у меня на коленях!

[d3drm]

Щас во рту у тебя орбит будет

[Amed]

Вот это уже ахтунг. Фи, слезай!

[d3drm]

Рот, аткрой, не могу вылезти!

[Amed]

Сначала ты!

[d3drm]

69?

[Amed]

Мы тут в стоматологов играем, не подумайте чего лишнего.

[Zero_Bit]

OMG Ржунимагу Спасибо за заряд позтиффа!

[d3drm]

всегда пожалуйста! начальству не ругаццо, тему в юмор =)

[BV]

Amed, OrBit - что курили, где брали?