• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Запуск браузера из лотуса

  • Автор темы Dragon108
  • Дата начала
D

Dragon108

Есть необходимость запускать браузер из лотуса. Пока получается запускать IE. Как можно запускать другие браузеры?
Вот код, запускающий браузер IE

Код:
Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim nn As New notesname (ses.UserName)
Dim URL As String, mailDomain As String


Set doc =ws.CurrentDocument.Document

Select Case nn.Organization
Case "HumanCapital": mailDomain="gmail.com"
Case "GoodWill": mailDomain="good-will.ru"
Case "Diogen Personal": mailDomain="diogen-personal.ru"
Case Else: mailDomain="human-capital.ru"
End Select



' Выводит сообщение "Действительно отправить письмо с координатами?"
' 4 = MB_YESN 	Yes and No , 32 = MB_ICONQUESTION Question mark 
Dim boxType As Long, answer As Integer
boxType& = 4 + 32
answer% = Messagebox("Действительно отправить письмо с координатами?", boxType&, _ 
"Continue?")

If answer% = 6 Then	

'Создает новый документ с комментарием об отправке координат кандидату
Call NewCommentAfterSendCoordinates (Form, DocType)

URL = |mail.google.com/mail/|+|/?extsrc=mailto&url=mailto:|

res = Evaluate(|@URLEncode("Domino"; "|+doc.FIO(0)+| ")|)

URL = URL + res(0)+|%20%3C|+doc.email(0)+|%3E|

req = |explorer "http://| + URL+|"|

res = Shell (req)


End If

End Sub
 

Мыш

Lotus Team
12.02.2008
1 213
29
BIT
43
а req = |http://| + URL+|| не хавает браузер по-умолчанию?
Akupaka, это, КМК, то же самое, что и через explorer - он же не iexplorе запускает.
Можно попробовать, например, firefox (или как у него там exe-шник-то называется) вместо explorer - или поковыряться с функцией ShellExecuteEx, были где-то примеры для Лотуса...
 
X

Xalet

Код:
Sub Click(Source As Button)
Set w = New NotesUIWorkspace
w.UrlOpen("www.google.ru")
End Sub

откроет браузером из настроек лотусов
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!