principalExtraer

' Gambas class file
Public Sub Form_Open()

  Editor1.Highlight = Highlight.JavaScript
  Editor1.ReadOnly = True

End
Public Sub ButtonEXTRAER_Click()

  Editor1.Text = usandoComandoWget(TextBoxURL.text)

End

Public Sub ButtonEXTRAER2_Click()

  Editor1.Text = usandoHttpClient(TextBoxURL.Text)

End

Public Sub Form_Resize()

  Editor1.w = Me.W - 10
  Editor1.h = Me.h - Editor1.y - 20

End