Inquiridor
Preencher campos de um site com dados via VB2008

Pergunta
-
Olá, preciso acessar o site http://sistemas.anatel.gov.br/stel/consultas/recuperacaofrequencias/tela.asp?SISQSmodulo=9896 e preencher os campos "Recuperar dados por:,Apresentar dados por:,Inicial:,Final:,Sigla da UF:,Unidade: e Grupo de Estações" de maneira automatica, pois dentro do codigo estes campos deverão sofrer alterações.
Alguem sabe uma maneira de informar estes campos pelo código vb?
Obrigado.
Todas as Respostas
-
Segue exemplo básico:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://sistemas.anatel.gov.br/stel/consultas/recuperacaofrequencias/tela.asp?SISQSmodulo=9896") End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim vSendBrowser As String Dim vInicial As String vInicial = "350" vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value='" & vInicial & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>" WebBrowser1.Document.Forms(0).InnerHtml = vSendBrowser WebBrowser1.Focus() SendKeys.Send("{TAB}") End Sub
Desta forma irá preencher o campo Inicial com valor 350
Leonardo Garcia
pensouweb@hotmail.com -
Preencheu somente o Inicial, agora você deve criar as novas variáveis correspondente aos campos e preencher.
Dim vInicial As String Dim vFinal As String Dim vVariavel2 As String Din vVariavel3 As String vInicial = "350" vFinal = "seu valor aqui" vVariavel2 = "outro valor aqui" vVariavel3 = "outro aqui"
Depois passar os valores das variáveis para o formulário
vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value='" & vInicial & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>" vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoFinal' value='" & vFinal & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>" vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value='" & vVariavel2 & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>" vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value='" & vVariavel3 & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>"
Leonardo Garcia
pensouweb@hotmail.com- Marcado como Resposta Thiago.inf2007 sexta-feira, 22 de fevereiro de 2013 13:31
- Não Marcado como Resposta Thiago.inf2007 sexta-feira, 22 de fevereiro de 2013 14:28
-
Caro Leonardo, falta apenas um detalhe para finalizar meu projeto, após preencher os campos eu preciso enviar um comando para fazer o download, no site normal basta pressionar o botão "Download TXT", mas no meu caso a existencia do botão é desnecessária, porém preciso enviar o comando para fazer o download do arquivo com os parametros setados pelas variaveis.
Obrigado
- Editado Thiago.inf2007 sexta-feira, 22 de fevereiro de 2013 14:44
-
Tenta assim:
vSendBrowser = "<button type='button' id='botaoFlatDownloadTXT' onclick='if (critica('frmtela', 'True','', false,false, 'divparametro', this)) { confirmarDownloadTxt(this);; }' barraBotao='true' style='white-space: nowrap;background: buttonface url(/Apoio_SitarWeb/Includes/Interface/CoolBar/images/Extrato.gif) 0px center no-repeat; HEIGHT: 22px; FONT-FAMILY: Tahoma, Arial, Helvetica; FONT-SIZE: 8pt; FONT-COLOR: menutext; PADDING-LEFT: 12; MARGIN-LEFT: 0; title='Download TXT'> Download TXT </button>"
Depois:
SendKeys.Send("{ENTER}")
Leonardo Garcia
pensouweb@hotmail.com- Editado Leonardo.Garcia sexta-feira, 22 de fevereiro de 2013 15:06
-
Eu tentei desta maneira, mas aparece um erro de "Scrip", com a mensagem "An error has occurred in the script on this page".
Abaixo o codigo que estou utilizando, os dados que necessito estão todos abaixo, só falta enviar :D
Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://sistemas.anatel.gov.br/stel/consultas/recuperacaofrequencias/tela.asp?SISQSmodulo=9896") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim vSendBrowser, vSiglaUF As String Dim vInicial, vFinal As Integer vInicial = 7735 vFinal = 8275 vSiglaUF = "SP" vSendBrowser = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>" _ & "<html lang='pt-br'>" _ & "<head>" _ & "<meta http-equiv='Content-Type' content='text/html; charset=ISO-8859-1'>" _ & "<style type='text/css'>@import url( /sis/etc-SISAPI/estilos/estilo_topoSIS.css );</style>" _ & "<title>" _ & "STEL - SISTEMA DE SERVIÇOS DE TELECOMUNICAÇÕES - [SIS versão 2.2.62]" _ & "</title>" _ & "</head><body>" _ & " <label class='SubTituloTela' id='subTitulofrmtela' name='subTitulofrmtela'>Opções de consulta</label>" _ & " <table id='' class='Tabela' style='border-collapse: collapse;' cellSpacing='1' cellPadding='1' width='100%' align='center' border='0'>" _ & " <tr name='TRIndFiltro' id='TRIndFiltro' >" _ & " <td class='SubTituloDireita' id='TitIndFiltro' width='15%'>Recuperar dados por:</td>" _ & " <td class='CampoEsquerda' id='TDIndFiltro' colspan='0' width='' valign='middle'>" _ & " <table align=''>" _ & " <tr>" _ & " <td>" _ & " " _ & " <label for='IndFiltro0' accesskey='u' title='Selecione a forma de recuperação dos dados do relatório.'>" _ & " <input type='radio' id='IndFiltro0' name='IndFiltro' referencia='' nomeDiv='divparametro' value='u' onClick='exibeObjetos(this);' title='Selecione a forma de recuperação dos dados do relatório.' obrigatorio='s' nomecampo='Recuperar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();' checked><u>U</u>F</label><br>" _ & " " _ & " <label for='IndFiltro1' accesskey='m' title='Selecione a forma de recuperação dos dados do relatório.'>" _ & " <input type='radio' id='IndFiltro1' name='IndFiltro' referencia='' nomeDiv='divparametro' value='m' onClick='exibeObjetos(this);' title='Selecione a forma de recuperação dos dados do relatório.' obrigatorio='s' nomecampo='Recuperar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>M</u>unicípio</label><br>" _ & " " _ & " <label for='IndFiltro2' accesskey='c' title='Selecione a forma de recuperação dos dados do relatório.'>" _ & " <input type='radio' id='IndFiltro2' name='IndFiltro' referencia='' nomeDiv='divparametro' value='c' onClick='exibeObjetos(this);' title='Selecione a forma de recuperação dos dados do relatório.' obrigatorio='s' nomecampo='Recuperar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>C</u>oordenadas geográficas</label><br>" _ & " " _ & " <label for='IndFiltro3' accesskey='s' title='Selecione a forma de recuperação dos dados do relatório.'>" _ & " <input type='radio' id='IndFiltro3' name='IndFiltro' referencia='' nomeDiv='divparametro' value='s' onClick='exibeObjetos(this);' title='Selecione a forma de recuperação dos dados do relatório.' obrigatorio='s' nomecampo='Recuperar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'>Modalidade de <u>S</u>erviço</label><br>" _ & " " _ & " <label for='IndFiltro4' accesskey='g' title='Selecione a forma de recuperação dos dados do relatório.'>" _ & " <input type='radio' id='IndFiltro4' name='IndFiltro' referencia='' nomeDiv='divparametro' value='g' onClick='exibeObjetos(this);' title='Selecione a forma de recuperação dos dados do relatório.' obrigatorio='s' nomecampo='Recuperar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>G</u>eral</label><br>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatorioIndFiltro' name='ImgObrigatorioIndFiltro' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagemIndFiltro' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgIndFiltro' id='msgIndFiltro' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " <td class='SubTituloDireita' id='TitIndApresentacao' width='15%'>Apresentar dados por:</td>" _ & " <td class='CampoEsquerda' id='TDIndApresentacao' colspan='0' width='' valign='middle'>" _ & " <table align=''>" _ & " <tr>" _ & " <td><table><tr><td nowrap>" _ & " " _ & " <label for='IndApresentacao0' accesskey='a' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao0' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='a' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>A</u>) Município e Entidade</label><br>" _ & " " _ & " <label for='IndApresentacao1' accesskey='b' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao1' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='b' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>B</u>) Município e Freqüência</label><br>" _ & " " _ & " <label for='IndApresentacao2' accesskey='c' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao2' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='c' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>C</u>) Entidade e Município</label><br>" _ & " " _ & " <label for='IndApresentacao3' accesskey='d' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao3' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='d' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>D</u>) Entidade e Freqüência</label><br>" _ & " " _ & " <label for='IndApresentacao4' accesskey='e' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao4' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='e' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>E</u>) Modalidade e Freqüência</label><br>" _ & " " _ & " <label for='IndApresentacao5' accesskey='f' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao5' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='f' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>F</u>) Modalidade e Entidade</label><br></td><td nowrap>" _ & " " _ & " <label for='IndApresentacao6' accesskey='g' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao6' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='g' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>G</u>) Modalidade e Município</label><br>" _ & " " _ & " <label for='IndApresentacao7' accesskey='h' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao7' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='h' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>H</u>) Freqüência e Município</label><br>" _ & " " _ & " <label for='IndApresentacao8' accesskey='i' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao8' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='i' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'checked><u>I</u>) Freqüência e Coordenadas</label><br>" _ & " " _ & " <label for='IndApresentacao9' accesskey='j' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao9' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='j' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>J</u>) Freqüência e Entidade</label><br>" _ & " " _ & " <label for='IndApresentacao10' accesskey='l' title='Selecione a forma de apresentação dos dados do relatório.'>" _ & " <input type='radio' id='IndApresentacao10' name='IndApresentacao' referencia='' nomeDiv='divparametro' value='l' title='Selecione a forma de apresentação dos dados do relatório.' obrigatorio='s' nomecampo='Apresentar dados por' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'><u>L</u>) Coordenadas e Freqüência</label><br></tr></table>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatorioIndApresentacao' name='ImgObrigatorioIndApresentacao' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagemIndApresentacao' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgIndApresentacao' id='msgIndApresentacao' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " <label class='SubTituloTela' id='subTitulofrmtela' name='subTitulofrmtela'>Faixa de Freqüência</label>" _ & "<table id='' class='Tabela' style='border-collapse: collapse;' cellSpacing='1' cellPadding='1' width='100%' align='center' border='0'>" _ & " <tr name='TRpMedTransmissaoInicial' id='TRpMedTransmissaoInicial' >" _ & " <td class='SubTituloDireita' width='15%' id='TitpMedTransmissaoInicial'>Inicial:</td>" _ & " <td class='CampoEsquerda' id='TDpMedTransmissaoInicial' colspan='0' width='' valign='middle'>" _ & " <table border='0' align=''>" _ & " <tr>" _ & " <td valign='middle'>" _ & " <input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value = '" & vInicial & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' value='' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatoriopMedTransmissaoInicial' name='ImgObrigatoriopMedTransmissaoInicial' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagempMedTransmissaoInicial' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgpMedTransmissaoInicial' id='msgpMedTransmissaoInicial' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " <td class='SubTituloDireita' width='15%' id='TitpIdtUnidadeTransmissao'>Unidade:</td> " _ & " <td class='CampoEsquerda' id='TDpIdtUnidadeTransmissao' colspan='0' width='' valign='middle' Rowspan='0'>" _ & " <table border='0' align=''>" _ & " <tr>" _ & " <td><select class=CampoEstilo style='' referencia='' nomeDiv='divparametro' name='pIdtUnidadeTransmissao' id='pIdtUnidadeTransmissao' title='Informe a unidade da freqüência.' obrigatorio='s' nomecampo='Unidade' textoAjuda='Informe a unidade da freqüência.' onfocus='MostraAjuda(this);' onblur='EscondeAjuda();' ><option value='' selected>- Informe -</option><option value='1'>kHz</option><option value='2' selected>MHz</option><option value='3'>GHz</option></select>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatoriopIdtUnidadeTransmissao' name='ImgObrigatoriopIdtUnidadeTransmissao' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagempIdtUnidadeTransmissao' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgpIdtUnidadeTransmissao' id='msgpIdtUnidadeTransmissao' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " </tr>" _ & " <tr name='TRpMedRecepcaoInicial' id='TRpMedRecepcaoInicial' >" _ & " <td class='SubTituloDireita' width='15%' id='TitpMedRecepcaoInicial'>Final:</td>" _ & " <td class='CampoEsquerda' id='TDpMedRecepcaoInicial' colspan='0' width='' valign='middle'>" _ & " <table border='0' align=''>" _ & " <tr>" _ & " <td valign='middle'>" _ & " <input class='CampoEstilo' type='text' name='pMedRecepcaoInicial' value = '" & vFinal & "'id='pMedRecepcaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' value='' title='Informe a Freqüência de Recepção' obrigatorio='s' nomecampo='Final' textoAjuda='Informe a Freqüência de Recepção' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sFinal'>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatoriopMedRecepcaoInicial' name='ImgObrigatoriopMedRecepcaoInicial' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagempMedRecepcaoInicial' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgpMedRecepcaoInicial' id='msgpMedRecepcaoInicial' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " <td class='SubTituloDireita' width='15%' id='TitpIdtUnidadeRecepcao'>Unidade:</td> " _ & " <td class='CampoEsquerda' id='TDpIdtUnidadeRecepcao' colspan='0' width='' valign='middle' Rowspan='0'>" _ & " <table border='0' align=''>" _ & " <tr>" _ & " <td><select class=CampoEstilo style='' referencia='' nomeDiv='divparametro' name='pIdtUnidadeRecepcao' id='pIdtUnidadeRecepcao' title='Informe a Unidade da Freqüência' obrigatorio='s' nomecampo='Unidade' textoAjuda='Informe a Unidade da Freqüência' onfocus='MostraAjuda(this);' onblur='EscondeAjuda();' ><option value=''>- Informe -</option><option value='1'>kHz</option><option value='2' selected>MHz</option><option value='3'>GHz</option></select>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatoriopIdtUnidadeRecepcao' name='ImgObrigatoriopIdtUnidadeRecepcao' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagempIdtUnidadeRecepcao' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgpIdtUnidadeRecepcao' id='msgpIdtUnidadeRecepcao' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " <tr name='TRSiglaUF' id='TRSiglaUF' style='display: 'none';' >" _ & " <td class='SubTituloDireita' id='TitSiglaUF' width='15%'>Sigla da UF:</td>" _ & " <td class='CampoEsquerda' id='TDSiglaUF' colspan='3' width='' align='' valign='middle'>" _ & " <table align=''>" _ & " <tr>" _ & " <td>" _ & " <select class='CampoEstilo' style='' name='SiglaUF' id='SiglaUF' title='Informe a UF para a pesquisa.' referencia='' nomeDiv='divparametro' obrigatorio='n' nomecampo='Sigla da UF' textoAjuda='Informe a UF para a pesquisa.'; ' >" _ & " <option value='' selected>" & vSiglaUF & "</option><option value='AC'>AC</option><option value='AL'>AL</option><option value='AM'>AM</option><option value='AP'>AP</option><option value='BA'>BA</option><option value='CE'>CE</option><option value='DF'>DF</option><option value='ES'>ES</option><option value='GO'>GO</option><option value='MA'>MA</option><option value='MG'>MG</option><option value='MS'>MS</option><option value='MT'>MT</option><option value='PA'>PA</option><option value='PB'>PB</option><option value='PE'>PE</option><option value='PI'>PI</option><option value='PR'>PR</option><option value='RJ'>RJ</option><option value='RN'>RN</option><option value='RO'>RO</option><option value='RR'>RR</option><option value='RS'>RS</option><option value='SC'>SC</option><option value='SE'>SE</option><option value='SP'>SP</option><option value='TO'>TO</option>" _ & " </select>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:none' id='ImgObrigatorioSiglaUF' name='ImgObrigatorioSiglaUF' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagemSiglaUF' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgSiglaUF' id='msgSiglaUF' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table> " _ & " </td>" _ & " </tr>" _ & " <table id='' class='Tabela' style='border-collapse: collapse;' cellSpacing='1' cellPadding='1' width='100%' align='center' border='0'>" _ & " <tr name='TRIndGrupoEstacao' id='TRIndGrupoEstacao' >" _ & " <td class='SubTituloDireita' id='TitIndGrupoEstacao' width='15%'>Grupo de Estações:</td>" _ & " <td class='CampoEsquerda' id='TDIndGrupoEstacao' colspan='3' width='' valign='middle'>" _ & " <table align=''>" _ & " <tr>" _ & " <td>" _ & " " _ & " <label for='IndGrupoEstacao0' accesskey='t' title='Selecione os tipos de dados do relatório.'>" _ & " <input type='radio' id='IndGrupoEstacao0' name='IndGrupoEstacao' referencia='' nomeDiv='divparametro' value='t' title='Selecione os tipos de dados do relatório.' obrigatorio='s' nomecampo='Grupo de Estações' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'>Somente <u>T</u>errenas</label><br>" _ & " " _ & " <label for='IndGrupoEstacao1' accesskey='r' title='Selecione os tipos de dados do relatório.'>" _ & " <input type='radio' id='IndGrupoEstacao1' name='IndGrupoEstacao' referencia='' nomeDiv='divparametro' value='r' title='Selecione os tipos de dados do relatório.' obrigatorio='s' nomecampo='Grupo de Estações' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();' checked>Somente Te<u>r</u>restres (exceto SCM, SMP e Trunking)</label><br>" _ & " " _ & " <label for='IndGrupoEstacao2' accesskey='k' title='Selecione os tipos de dados do relatório.'>" _ & " <input type='radio' id='IndGrupoEstacao2' name='IndGrupoEstacao' referencia='' nomeDiv='divparametro' value='k' title='Selecione os tipos de dados do relatório.' obrigatorio='s' nomecampo='Grupo de Estações' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'>Somente Trun<u>k</u>ing</label><br>" _ & " " _ & " <label for='IndGrupoEstacao3' accesskey='m' title='Selecione os tipos de dados do relatório.'>" _ & " <input type='radio' id='IndGrupoEstacao3' name='IndGrupoEstacao' referencia='' nomeDiv='divparametro' value='m' title='Selecione os tipos de dados do relatório.' obrigatorio='s' nomecampo='Grupo de Estações' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'>Somente <u>M</u>óvel Pessoal e SCM</label><br>" _ & " " _ & " <label for='IndGrupoEstacao4' accesskey='c' title='Selecione os tipos de dados do relatório.'>" _ & " <input type='radio' id='IndGrupoEstacao4' name='IndGrupoEstacao' referencia='' nomeDiv='divparametro' value='s' title='Selecione os tipos de dados do relatório.' obrigatorio='s' nomecampo='Grupo de Estações' onfocus=' MostraAjuda(this);' onblur=' EscondeAjuda();'>Todos (<u>C</u>onsolidado)</label><br>" _ & " </td>" _ & " <td valign='middle'>" _ & " <label style='display:' id='ImgObrigatorioIndGrupoEstacao' name='ImgObrigatorioIndGrupoEstacao' title='Indica que o campo é de preenchimento obrigatório.' valign='middle'><img id='ImgObrigatorioImagemIndGrupoEstacao' src='/Apoio_SITARWEB/includes/Interface/Images/setaEsquerdared.gif' alt='imagem'></label>" _ & " <label name='msgIndGrupoEstacao' id='msgIndGrupoEstacao' style='display: none;'></label>" _ & " </td>" _ & " </tr>" _ & " </table>" _ & " </td>" _ & " </tr>" _ & " </table><table ID='tblCoolbar' CELLPADDING='0' CELLSPACING='0' BORDER='0' WIDTH='100%'" _ & " <td id='td'>" _ & " <button type='button' id='botaoFlatDownloadTXT' onclick='if (critica('frmtela', 'True','', false,false, 'divparametro', this)) { confirmarDownloadTxt(this);; }' barraBotao='true'" _ & " style='white-space: nowrap;background: buttonface url(/Apoio_SitarWeb/Includes/Interface/CoolBar/images/Extrato.gif) 0px center no-repeat; HEIGHT: 22px; FONT-FAMILY: Tahoma, Arial, Helvetica; FONT-SIZE: 8pt; FONT-COLOR: menutext; PADDING-LEFT: 12; MARGIN-LEFT: 0; ' " _ & " title='Download TXT'> Download TXT </button>" _ & " </td>" _ & "</body></html>" WebBrowser1.Document.Forms(0).InnerHtml = vSendBrowser WebBrowser1.Focus() SendKeys.Send("{TAB}") End Sub End Class
- Editado Thiago.inf2007 sexta-feira, 22 de fevereiro de 2013 16:33
-
-
Senhores, essa é uma duvida minha também!
Eu consigo usar esse codigo para manipular o meu Browser?
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim vSendBrowser As String
Dim vInicial As String
vInicial = "350"
vSendBrowser = "<input class='CampoEstilo' type='text' name='pMedTransmissaoInicial' value='" & vInicial & "' id='pMedTransmissaoInicial' size='18' referencia='' nomeDiv='divparametro' maxlength='14' title='Informe a freqüência de transmissão' obrigatorio='s' nomecampo='Inicial' textoAjuda='Informe a freqüência de transmissão' onfocus=' MostraAjuda(this);' onblur='validaMedFrequencia(this); EscondeAjuda(); validaCaracter(this, true, null);' onKeyPress='if (!validaCaracter(this, true, null)){return false;} ' lang='sInicial'>"
WebBrowser1.Document.Forms(0).InnerHtml = vSendBrowser
WebBrowser1.Focus()
SendKeys.Send("{TAB}")
End Sub