VBNet - Форум - пишу авторан!!!!!

Вопрос: пишу авторан!!!!! Добавлено: 21.05.03 03:00

Автор вопроса: MEDBEDb | ICQ: 177470289

Короче че темнить. пишу авторан который просто оболочка для ХТМЛ страниц. именно на этих страницах будут находиться эти ссылки изза которых весь сыр-бор. давлю на ссылкуи вылазит дурацкое ИЕшное окно.
Пытался сотворить чтонить с webbrowser1_filedownload но нифига не вышло.

помогите плиз. может у кого исходник есть?? киньте в мыло!!
medbedb@inbox.ru .
или может кто посоветует как отловить путь этой ссылки на которую давлю.
плизззззз хелп. резак есть а модных сидюков не нарезать.

Ответить

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

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

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #1

Добавлено: 21.05.03 05:33

Я делал авторан для своего CD. Держи код:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Browser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim Path As String
Dim pos As Integer

   pos = InStr(URL, "#shell=")
   If pos <> 0 Then
      Path = AppPath(Mid$(URL, pos + 7, Len(URL) - pos - 7))
      If Dir$(Path) <> "" Then
         Call ShellExecute(Me.hwnd, "Open", Path, "", "", 0)
         Cancel = True
      End If
   End If
End Sub

Ответить

Номер ответа: 2
Автор ответа:

DAN

ICQ: 234826

Вопросов: 10
Ответов: 124

Web-сайт: visualbasic.boom.ru
Профиль | | #2

Добавлено: 21.05.03 05:34

Короче если используешь WebBrowser, то событие:

Private Sub WebBrowser1_BeforeNavigate2(URL As string......)

Там в переменной URL смотришь на что нажали и все! А если не хочешь, чтобы дальше пошло пишешь WebBrowser1.Stop

Удачи!

Будут вопросы пиши на мыло, я там чаще проверяю ОК? Или на сайт!

Ответить

Номер ответа: 3 Автор ответа: AASoft Вопросов: 86 Ответов: 920	Профиль \| \| #3	Добавлено: 21.05.03 05:35
	eh ty, Pavel, a esche i admin. kak tebe ne stydnov v 20 soobschenij odno razdelyat`?!?!?!?!?! Ответить

Номер ответа: 4 Автор ответа: AASoft Вопросов: 86 Ответов: 920	Профиль \| \| #4	Добавлено: 21.05.03 05:35
	kstati,pavle v chat zaji,pogovorit` nado. Ответить

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

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #5

Добавлено: 21.05.03 05:36

Тьфу, не дописал - глюкануло что-то... Вот такого вида ссылки:

Ответить

Страница: 1 |