WET
|
TABOÃO DA SERRA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/11/2011 10:44 hs
Olá estou fazendo meu sistema VB6 buscar buscar dados em uma página HTML, na verdade é uma pagina da secretaria da fazenda onde gera Gare de ICMS, então pega dados do meu sistema preenche formulário da web e gera a Gare.
Preciso de uma ajuda.
Primeiro gostaria que ele já abra maximizado não em Fullscreen segundo tem uma pagina que preciso escolher uma opção em combobox e não sei muito bem como fazer.
Segue o meu código:
Private Sub ls_Gera_Gare()
Dim ie As InternetExplorer
Dim ie2 As InternetExplorer
redo:
Set ie = New InternetExplorer
Set ie2 = New InternetExplorer
ie.Visible = True
ie.Navigate "https://www.fazenda.sp.gov.br/simp//"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.All("txtCpf").Value = Replace(Replace(Replace(lblCNPJ_CPF.Caption, ".", ""), "/", ""), "-", "")
ie.Document.All("txtNumDoc").Value = lbl_DI.Caption
' ie.Document.All("btnConsultar").Click
' ie.Document.All("btnGare").Click
'
' ie.Document.All("txtDataVenc").Value = dtpDt_Registro_DI
' ie.Document.All("txtRef").Value = dtpDt_Registro_DI
' ie.Document.All("btnContinuar").Click
'
' ie.Document.All("btnGare").Click
'
' ie.Document.All("txtObs").Value = txtObservacao.Text ' Campo Observação
' ie.Document.All("ddlArmazem").Value = lblId_Recinto_Alfandegado.Caption ' Recinto Alfandegado
' ie.Document.All("txtReceita").Value = lbl_Valor_Receita.Caption ' Valor ICMS
End Sub
|
|
|
|
|
|
Polack
|
EMBU DAS ARTES
SP - BRASIL
|
|
Postada em 29/11/2011 17:08 hs
Cara tenta colocar vbmaximizedfocus depois do link.
ie.Navigate "https://www.fazenda.sp.gov.br/simp//", vbmaxmizedfocus
Não testei mas acredito que faz ele abrir ja maximizado e em foco.
Não sei se vc vai conseguir selecionar o combox da pagina com a opção que deseja.
tenta ai e posta se deu certo ou não
vlw
|
|
|
|
WET
|
TABOÃO DA SERRA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/11/2011 07:42 hs
Bom dia Polack, infelizmente não funcionou o vbmaximizedfocus.
Obrigado por enquanto.
|
|
|
|
Polack
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/11/2011 13:36 hs
Cara testa isso, duvido que não abre maximizado, e na pagina que vc quer.
' Num modulo
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const GW_HWNDNEXT = 2
Public Const SW_MAXIMIZE = 3
Public Function FindWindowPartial(TitleStart As String) As Long
Dim hWndTmp
Dim nRet
Dim TitleTmp As String
hWndTmp = FindWindow(vbNullString, vbNullString)
Do Until hWndTmp = 0
If GetParent(hWndTmp) = 0 Then
TitleTmp = Space(256)
nRet = GetWindowText(hWndTmp, TitleTmp, Len(TitleTmp))
If nRet Then
TitleTmp = UCase(Left(TitleTmp, nRet))
If InStr(TitleTmp, UCase(TitleStart)) Then
FindWindowPartial = hWndTmp
Exit Do
End If
End If
End If
hWndTmp = GetWindow(hWndTmp, GW_HWNDNEXT)
Loop
End Function
'No botão
On Error Resume Next
' Cria um novo objecto e lança a página
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate2 "http://www.clicklanhouse.com.br"
ie.Visible = True
' Procura o handle da janela cujo titulo tem a palavra "Windows Internet Explorer"
Dim ieHwnd As Long
ieHwnd = FindWindowPartial("Windows Internet Explorer")
' Maximiza a janela
ShowWindow ieHwnd, SW_MAXIMIZE
'Não esqueça de mudar o link www.clicklanhouse.com.br para o site que vc quer abrir
T +
|
|
|
|
WET
|
TABOÃO DA SERRA
SP - BRASIL
|
|
Postada em 30/11/2011 14:32 hs
Olá Polack, funcionou.
Muito obrigado pela força.
abs.
|
|
|
|
WET
|
TABOÃO DA SERRA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/12/2011 14:27 hs
Olá Polack ou quem possa me ajudar em mais essa.
Continuado o projeto, testei agora processar de uma vez sem debugar, ou seja qdo eu estava fazenedo debug não apresentava erro. mas após o comando click, tenho que pedir para o sistema aguardar carregar a pagina, para preencher os campos o dar o click. então coloquei o comando.
Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Mas mesmo assim dá erro " Object variable or With block variable not set ".
Se aguardar um segundo dá certo.
Tem idéia o que estou fazendo de errado.?
Segue código completo.
Private Sub Form_Load()
Dim ie As InternetExplorer
Dim i As Integer
redo:
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate2 "http://www3.fazenda.sp.gov.br/ipvanet/"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.All("btnOpcoes").Click
Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
ie.Document.All("btnConsultar").Click
End Sub
|
|
|
|
