WEBBROWSER

CCAMARA2016 01/08/2016 13:20:08
#465368
Boa tarde, para todos!

Estou tentando dar um click no item NFE, mas não estou conseguindo!!

Segue imagem e parte do código da página, em anexo!

Agradeço antecipadamente!

Claudio/RJ
JABA 03/08/2016 22:49:49
#465469
onmouseover serve apenas para quando o mouse passar por cima. Use o evento onClick se sua intenção é clicar.
CCAMARA2016 06/08/2016 13:39:35
#465562
Citação:

:
onmouseover serve apenas para quando o mouse passar por cima. Use o evento onClick se sua intenção é clicar.




Eu consegui clicar usando assim:
...mas nem sei se seria a melhor forma!

WebBrowser_NF_SERV.Document.parentWindow.execScript [Ô]abre_arquivo([ô]nfe/nfe.php[ô])[Ô], [Ô]JavaScript[Ô]

Dalí em diante não to conseguindo mais nada!

Tenho que selecionar a combobox do site no item [Ô]Juridica de Fora[Ô] mas to tomando maior surra ...rsssss

Tem como ajudar, por favor!?
ROBSON220BASS 06/08/2016 15:18:48
#465563
estou usando assim ... tenta ai, talvez da certo pra vc.

WebBrowser1.Document.GetElementById([Ô]nomedoobjeto[Ô]).Focus() [ô] Porque o botão nao tem ID por isso [Ô]FóCO[Ô] nele
SendKeys.Send([Ô]{Enter}[Ô]) [ô] E [Ô]Clicko Enter[Ô]
CCAMARA2016 06/08/2016 16:07:52
#465566
Citação:

:
estou usando assim ... tenta ai, talvez da certo pra vc.

WebBrowser1.Document.GetElementById([Ô]nomedoobjeto[Ô]).Focus() [ô] Porque o botão nao tem ID por isso [Ô]FóCO[Ô] nele
SendKeys.Send([Ô]{Enter}[Ô]) [ô] E [Ô]Clicko Enter[Ô]


Citação:

:
estou usando assim ... tenta ai, talvez da certo pra vc.

WebBrowser1.Document.GetElementById([Ô]nomedoobjeto[Ô]).Focus() [ô] Porque o botão nao tem ID por isso [Ô]FóCO[Ô] nele
SendKeys.Send([Ô]{Enter}[Ô]) [ô] E [Ô]Clicko Enter[Ô]





Valeu pela ajuda.... mas não deu certo .. tentei até usar o .SetFocus e nada ...

Só lembre-se que estou usando VB6 e não VB.Net ok!!
JABA 07/08/2016 00:16:12
#465589
Citação:

WebBrowser1.Document.GetElementById([Ô][txt-color=#e80000]nomedoobjeto[/txt-color][Ô]).Focus()



Você tem certeza de que passou o nome do objeto correto?
CCAMARA2016 07/08/2016 09:42:59
#465592
Citação:

:
WebBrowser1.Document.GetElementById([Ô][txt-color=#e80000]nomedoobjeto[/txt-color][Ô]).Focus()

Você tem certeza de que passou o nome do objeto correto?




Obrigado JABA, por estar me ajudando!!!

Vou dar uma clareada e te enviar o meu código (VB6)!

Estou usando um Botão e uma TextBox para o captcha

Por ser rotina de Nota Fiscal, não posso enviar o login e senha de acesso, sei que voce vai entender!

Segue tela anexada de parte do codigo da pagina HTML.

Segue conteúdo de meu código:

Private Sub bt_emissao_NF_SERV_Click()

[ô]carrega a pagina principal do login
WebBrowser_NF_SERV.Navigate2 [Ô]https://saojoaodemeriti.sigiss.com.br/saojoaodemeriti/contribuinte/login.php[Ô]

[ô]enquanto não carrega
Do Until WebBrowser_NF_SERV.ReadyState = 4 [ô]READY_STATE_COMPLETE
DoEvents
Loop

[ô]coloca o cod. do usuario
WebBrowser_NF_SERV.Document.getElementById([Ô]ccm[Ô]).Value = [Ô]XXXXXXX[Ô]
[ô]
coloca a senha
WebBrowser_NF_SERV.Document.getElementById([Ô]senha[Ô]).Value = [Ô]XXXXXXX[Ô]


[ô]pega o captcha atual e coloca numa Picture
Dim O As Object
Dim Images As Variant
Set O = WebBrowser_NF_SERV.Document.Body.createControlRange()
For Each Images In WebBrowser_NF_SERV.Document.Images
O.Add Images
O.execCommand [Ô]Copy[Ô]
Do While WebBrowser_NF_SERV.Busy [ô]Fica em loop até que a página tenha sido carregada
DoEvents
Loop
Image_CAPTCHA.Visible = True
Image_CAPTCHA.Picture = Clipboard.GetData
Next Images

[ô]caixa de texto pra colocar o captcha
txt_captcha = [Ô][Ô]
txt_captcha.Visible = True
txt_captcha.SetFocus

End Sub


[ô]caixa de texto captcha com o evento keypress

Private Sub txt_captcha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser_NF_SERV.Document.getElementById([Ô]confirma[Ô]).Value = txt_captcha
WebBrowser_NF_SERV.Document.All.Item([Ô]btnOk[Ô], 0).Click
MsgBox [Ô]Site acessado![Ô], vbInformation, [Ô]Aviso[Ô]
WebBrowser_NF_SERV.Document.parentWindow.execScript [Ô]abre_arquivo([ô]nfe/nfe.php[ô])[Ô], [Ô]JavaScript[Ô]

[ô]OBS.... Se eu colocar esta linha...
[ô]WebBrowser_NF_SERV.Navigate2 [Ô]https://saojoaodemeriti.sigiss.com.br/saojoaodemeriti/contribuinte/[ô]nfe/nfe.php[Ô]

[ô]ao invés da anterior ....
WebBrowser_NF_SERV.Document.parentWindow.execScript [Ô]abre_arquivo([ô]nfe/nfe.php[ô])[Ô], [Ô]JavaScript[Ô]

[ô]... eu consigo selecionar a combobox [Ô]Juridica de Fora[Ô], porém sem a pagina estar autenticada .... esse é o problema, ....
[ô] ... Então resolvi usar o comando JavaScript através da função [Ô]abre_arquivo([ô]nfe/nfe.php[ô])[ô][Ô],[Ô]JavaScript[Ô] que autentica, mas não me deixa [Ô]enchergar[Ô] os itens da combobox para seleção.... afff que sufoco cara !!! rssss

Do While WebBrowser_NF_SERV.ReadyState <> 4 [ô]READY_STATE_COMPLETE
DoEvents
Loop

[ô] AQUI EU DEVERIA SELECIONAR O QUARTO ITEM : Juridica de Fora... MAS NÃO ESTOU CONSEGUINDO
[ô] O QUE VOCE ME MANDOU ESTA DANDO ERRO

[ô]WebBrowser_NF_SERV.Document.getElementById([Ô]local[Ô]).Focus() [ô] Porque o botão nao tem ID por isso [Ô]FóCO[Ô] nele
[ô]SendKeys.Send ([Ô]{Enter}[Ô]) [ô] E [Ô]Clicko Enter[Ô]

[ô]rotina para visualizar se tem combobox (dropdown)
[ô]neste ponto estou muito intrigado, pois não esta retornando nenhuma combobox para mim....
[ô] ... é como se não existiSse essa combobox na tela (select)
[ô]eu preciso selecionar o item [Ô]Juridica de Fora[Ô] que tem o value = [Ô]J2[Ô]

[ô]ESTE CODIGO ABAIXO MOSTRA SE TEM COMBOBOX NA TELA

Dim doc, o As Object
Dim m As String
Dim r As Integer
Set doc = WebBrowser_NF_SERV.Document
Set o = doc.getElementsByTagName([Ô]select[Ô])
m = o.Length [ô]M returns the number of [ô]dropdown lists[ô] in the html page
MsgBox [Ô]there are [Ô] & o.Length & [Ô] dropdown fields[Ô]

For r = 0 To m - 1
o.Item(r).selectedIndex = 1 [ô] PRIMEIRA COMBOBOX SELECIONA O ITEM 4
Next
MsgBox [Ô]End[Ô]

End Sub

[ô].... E VAMU QUE VAMU RSSS
CCAMARA2016 10/08/2016 17:36:54
#465704
...Poxa ninguém !!!???
Faça seu login para responder
Voltar