Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Создание справочника Windows API

Страница: 1 |

 

  Вопрос: Помогите развернуть консоль на весь экран! Добавлено: 06.12.10 15:21  

Автор вопроса:  d-ovs
Слышал, что есть API функция, которая это делает под 95-98 Виндой(но мне, естественно, для ОС поновее надо). Пробовал через эмуляцию нажатия ctrl+enter, почему-то не вышло... Последняя надежда на Вас, друзья!

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #1 Добавлено: 06.12.10 17:12
потому что надо пробовать эмуляцию Alt-Enter

Ответить

Номер ответа: 2
Автор ответа:
 d-ovs



Вопросов: 1
Ответов: 8
 Профиль | | #2 Добавлено: 06.12.10 21:42
AgentFire пишет:
потому что надо пробовать эмуляцию Alt-Enter

 

Ой извините, опечатка! Я Alt+Enter пробовал! Не помогло...

Ответить

Номер ответа: 3
Автор ответа:
 d-ovs



Вопросов: 1
Ответов: 8
 Профиль | | #3 Добавлено: 06.12.10 22:46
Ну кто-нибудь...=(

Ответить

Номер ответа: 4
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #4 Добавлено: 06.12.10 23:00
покажи как эмулировал

Ответить

Номер ответа: 5
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #5 Добавлено: 06.12.10 23:36
попробуй вот так:
  1.  
  2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  3. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  4. Private Const SW_SHOWNORMAL = 1&
  5. Private Const SW_SHOWMAXIMIZED = 3&
  6.  
  7. Private Sub Form_Load()
  8. Dim lngHwnd As Long
  9. lngHwnd = FindWindow("ConsoleWindowClass", vbNullString)
  10. If lngHwnd > 0 Then ShowWindow lngHwnd, SW_SHOWMAXIMIZED
  11. End Sub

Ответить

Номер ответа: 6
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #6 Добавлено: 07.12.10 00:29
Just, ты хоть командную строку от открывал? MAXIMIZED и FULLSCREEN разные вещи

Ответить

Номер ответа: 7
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #7 Добавлено: 07.12.10 18:59
AgentFire,Ясно.

Ответить

Номер ответа: 8
Автор ответа:
 d-ovs



Вопросов: 1
Ответов: 8
 Профиль | | #8 Добавлено: 08.12.10 20:39
Вот мой способ эмуляции:
  1.     Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  2.   Public Const VK_RETURN = &HD
  3.     Public Const VK_MENU = &H12
  4.     Public Const KEYEVENTF_KEYUP = &H2
  5.  
  6.  Public Sub PressAltEnter()
  7.         '  keybd_event(VK_MENU, 0, 1, 0)
  8.         Windows.Forms.Application.DoEvents()
  9.            keybd_event(VK_RETURN, 0, 1, 0)
  10.         Windows.Forms.Application.DoEvents()
  11.          keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
  12.          keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
  13.             runscript()

Ответить

Номер ответа: 9
Автор ответа:
 d-ovs



Вопросов: 1
Ответов: 8
 Профиль | | #9 Добавлено: 08.12.10 20:46
И кстати, Just, ShowWindow у меня тоже был испробован, но результат был более чем странным: консоль пропадала с экрана и я сначала подумал что она просто вырубилась, но она исчезла из процессов, с экрана, с таскбара... А файл который открывался консолью продолжал использоваться(был недоступен для редактирования, удаления и т.д. всвязи с тем, что знят программой)! Так что им я решил не пользоваться =)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам