• 0
Sign in to follow this  
Guest - Marcelo -

Da Internet Para O Vb

Question

Guest - Marcelo -

Dim DocWeb As Object, IE As Object

Dim Blah

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate2 URL:="http://sisac.caixa/default.asp?id=595893"

While IE.Busy: DoEvents: Wend

Set DocWeb = IE.Document

While DocWeb.ReadyState <> "complete": DoEvents: Wend

ph34r.gif blah = DocWeb.All.Tags("TD")(1).innerText ph34r.gif

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Pessoal.... o q faco de errado?!?! quando chega na linha do "TD" dá erro! Q Merd*

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Aqui não dá erro, mas também o site não aparece. A URL está realmente correta?

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
Guest f_a_group@hotmail.com

Se é pra abrir sites etc... dentro do VB é simples.

Crie um novo projeto.

Vá em projeto/componentes e adicione microsoft internet controls.

Clique duas vezes no globo verde que aparece na barra dos componentes,isso adicionara o browser.

regule a janela do tamanho que desejar..:)

depois dê dois cliques no projeto abrindo o codigo ... e nele você coloque isso aqui:

Private Sub Form_Load()

Form1.profile.Navigate "http://www.seusite.com"

End Sub

:blink: :note que profile é o nome dado ao browser

Agora adicione um Modulo e nele cole esse código:

Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const SW_NORMAL = 1

Private Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

Public Sub Website(Website As String)

If ShellExecute(&O0, "Open", Website$, vbNullString, vbNullString, SW_NORMAL) < 33 Then

End If

End Sub

Agora de um clique no browser e nas propriedades do lado direito aonde está escrito (NAME),de o nome nele de profile

Pronto :) agora é só se divertir

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this