Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: адресная строка експлорера Добавлено: 12.06.09 20:43  

Автор вопроса:  leha2009
Уважаемый форум помогите как сделать так чтобы программа присваивала переменной explorerAddressString значение строки адреса експлорера, если можно кодом, в гугле смотрел((( Нашел код, он работает для ХРшки, но на семерке не работает.Заранее благодарен......

Ответить

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

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



Вопросов: 3
Ответов: 64
  Профиль | | #1 Добавлено: 13.06.09 00:43
А какой IE?

Ответить

Номер ответа: 2
Автор ответа:
 MegaÐefender



Вопросов: 19
Ответов: 313
  Web-сайт: safetyAV.narod.ru
 Профиль | | #2 		Добавлено: 13.06.09 01:44
А какая разница ие какой, человеку нужен адрес папки проводника. Интернет експлорер и просто експлорер - разные вещи.

Ответить

Номер ответа: 3
Автор ответа:
 SSTREGG



Вопросов: 3
Ответов: 64
  Профиль | | #3 Добавлено: 13.06.09 01:45
Надо уточнять...

Ответить

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



Вопросов: 3
Ответов: 64
  Профиль | | #4 Добавлено: 13.06.09 01:53
А принцип поиска такой: находишь окно експлорера (FindWindow), потом по дочерним окнам проходишься (FindWindowEx), а когда нашел вытаскиваешь текст...
  1.  
  2.     ' Берем текст
  3.     ' hWnd - хендл найденного окна
  4.     Private Function GetAddress(ByVal hWnd As Int32) As String
  5.         Dim tLen As Int32 = SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0) + 1
  6.         Dim tBuff As String = StrDup(tLen, Chr(0))
  7.         tLen = SendMessage(hWnd, WM_GETTEXT, tLen, tBuff)
  8.         If tLen > 0 Then
  9.             Return tBuff.Substring(0, tLen)
  10.         Else
  11.             Return ""
  12.         End If
  13.     End Function

Ответить

Номер ответа: 5
Автор ответа:
 MegaÐefender



Вопросов: 19
Ответов: 313
  Web-сайт: safetyAV.narod.ru
 Профиль | | #5 		Добавлено: 13.06.09 04:34
Ему вб6 нужен, а вы .нет клеите! форум не .нет, а общий, т.е. вб6.

Ответить

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



Вопросов: 39
Ответов: 127
  Web-сайт: kalamfur.ru
 Профиль | | #6 		Добавлено: 13.06.09 08:50
SSTREGG, как раз хотел спросить по дочерним окнам, а тут уже код =)
Спасибо.

MegaÐefender, к чему нападки? Или просто хотелось поучавствовать?

Ответить

Страница: 1 |

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



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