Textos do servidor para o VB

[ratiquinho 2]

IIrei ensinar a vocês hoje como puxar um link do servidor seu para o Visual Basic seja em Textbox,Label ou até mesmo msgbox.

 

Vamos ao código e explicação.

 

O que usaremos :

1 - Textbox

1 - Webbrowser ( Coloque o Visible dele como False )

1 - Label

1 - Button

1 - Timer

 

No seu Form1 adicione o seguinte código ;

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Webbrowser1.Navigate(" ") ' Adicione entre os " " o endereço do seu servidor exemplo "

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

End Sub

 

No seu button1 adicione este código abaixo :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Timer1.start

 

End Sub

 

>> Explicação : O Webbrowser1 irá puxar o endereço que você colocar entre o ("") no caso "

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

mais não acabamos ainda !

 

>> Explicação : Coloque o Intervalo do Timer1 em 3000 para dar tempo que o webbrowser1 carregue o link dentro dele.

 

1-2 : Puxando o Texto do Webbrowser para o seu textbox !

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

timer1.stop

Textbox1.text = webbrowser1.documenttext

 

end sub

 

1-3 : Puxando o Texto do Webbrowser para o seu label !

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

timer1.stop

label1.text = webbrowser1.documenttext

end sub

 

1-4 : Puxando o Texto do Webbrowser para sua msgbox !

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

timer1.stop

MsgBox(WebBrowser1.DocumentText, MsgBoxStyle.Information, "")

 

end sub

 

Espero ter ajudado aqueles que estão começando agora em VB, Lembre-se usando FTP você pode fazer muitas coisas com o VB.