-
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Задача отобразить пользователю некую информацию из web и что бы он подтвердил факт ознакомления с ней.
никак не согласуется с
ИБО подтверждение будет не совсем очевидно
и это из серии
собсно - началось
в нек. случаях можно взять текст, в нек. накрыть своим макетом, с информацией с сайта, а на сайт отправить сабмит (если вообще оно надо)
"просто в такой постановке задачи" - нет понимания - что должно произойти!
Попробовал, но при открытии формы возникает ошибка:
Cannot locate specified OLE object within the document
[DOUBLEPOST=1429166962,1429166817][/DOUBLEPOST]
никак не согласуется сИБО подтверждение будет не совсем очевидно
и это из сериисобсно - началось
в нек. случаях можно взять текст, в нек. накрыть своим макетом, с информацией с сайта, а на сайт отправить сабмит (если вообще оно надо)
"просто в такой постановке задачи" - нет понимания - что должно произойти!
Пользователь находясь в документе нажимает кнопку, открывается форма\подформа в которой отображается определенная страница, а чуть ниже кнопка подтверждения.
если страница содержит инфу и интерактива на ней (именно на вебстранице) не нужно - то как и сказал - забрать текст (если форматирование примитивное) или состряпать майм (тут от конкретного случая зависит)
как я понял юзер просто должен прочесть, а кнопку в нотес-форме нажать
Код:
%REM
*********************************************
Agent test\ReadHTTP
Created Apr 16, 2015 by Mikhail Cholokov/CRUINTERNET
Description: Comments for Agent
%END REM
Option Public
Option Declare
Use "ErrorHandling"
Sub Initialize
On Error GoTo ErrH
Dim jSession As JavaSession
Dim jError As JavaError
Dim USER_AGENT As String, sURL As String
USER_AGENT = {Mozilla/5.0}
sURL={http://www.google.com/search?q=mkyong}
Set jSession= New JAVASESSION
Dim url As Javaclass, urlobj As Javaobject, con As Javaobject, instrm As Javaobject
Set url=jSession.Getclass({java/net/URL})
Set urlobj=url.Createobject({(Ljava/lang/String;)V}, sURL)
'{HttpURLConnection}
Set con=urlobj.openConnection()
Call con.setRequestMethod({GET})
'add request header
Call con.setRequestProperty({User-Agent}, USER_AGENT)
Dim ret As Integer
ret=con.getResponseCode()
Print {ret code:} ret
Set instrm=con.getInputStream()
'Set instrm=urlobj.openStream()
Print {estimate of the number of bytes:} instrm.available()
Dim inreader, inbuffer, tmpclass As Javaclass
Set tmpclass=jSession.GetClass({java/io/InputStreamReader})
Set inreader=tmpclass.CreateObject({(Ljava/io/InputStream;)V}, instrm)
Set tmpclass=jSession.GetClass({java/io/BufferedReader})
Set inbuffer=tmpclass.CreateObject({(Ljava/io/Reader;)V},inreader)
Dim txt As String, v
v=inbuffer.readLine()
Do While Not IsEmpty(v)
txt=CStr(v)
Print txt
v=inbuffer.readLine()
Loop
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
End Sub
Последнее редактирование модератором:
Имхо речь идет о визуализации в нотес форме HTML страницы со всякими CSS\JS\и т.п.
Просто вычитать можно и через wget\curl. давно как то пытался использовать XUL - но лучшее что было - это как раз COM компонента от да и то пропал быстро( В standart клиенте есть возможность использование мозилловского движка для отображения HTML, но вменяемых механизмов как реализации бриджа LS2DOM так и кастомизации не обнаружил...
ТС озвучил - надо прочитать и одобрить, причем - кнопкой в нотес форме, из чего - отображаем текст
как дернуть текст - хслт (там 3-и строки)
А бабаега против - ТЗ об отображении интернет страницы :beer:
Может @haldey спросим - а чего надато на самом деле?
@haldey: - "Задача отобразить пользователю некую информацию из web и что бы он подтвердил факт ознакомления с ней."
подправил код https://codeby.net/threads/56598/#post-256402
там проверка по значению ошибочная была, надо на empty проверять (выход из бриджа)
там проверка по значению ошибочная была, надо на empty проверять (выход из бриджа)
Обучение наступательной кибербезопасности в игровой форме. Начать игру!