WebGadgetGetBody

Синтаксис

Function WebGadgetGetBody(ByVal pIWebBrowser As Integer Ptr,ByVal flag As Long=0) As String

Описание

Получает HTML код текущей страницы между тегами Body. В Linux получает HTML код всей страницы.

Параметры

pIWebBrowser - указатель на объект браузера

flag - (только для windows) если флаг равен нулю,то получает код между тегами Body ; если 1 , то вместе с тегами Body

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var style = WS_VSCROLL Or WS_HSCROLL
Var Exstyle = WS_EX_CLIENTEDGE
#Else
Var style = 0
Var Exstyle = 0
#EndIf
Dim As Integer event
Dim As HWND hwnd
Dim As Any Ptr bra
hwnd = OpenWindow("WebGadget",10,10,800,600) : CenterWindow(hwnd)
bra=WebGadget(1,10,50,760,500,"http://www.freebasic.net/",style,Exstyle)
ButtonGadget(3,10,10,50,20,"Get")
Do
  event=WaitEvent()
  If Event=EventClose Then
     End
  ElseIf  Event=EventGadget Then
     Select Case EventNumber
        Case 3
           ? WebGadgetGetBody(bra,1)
     End Select
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Easy EPub and documentation editor