none
Preencher campos de um site com dados via VB2008 RRS feed

  • 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.

    quarta-feira, 20 de fevereiro de 2013 14:14

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

    quinta-feira, 21 de fevereiro de 2013 04:28
  • 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
    quinta-feira, 21 de fevereiro de 2013 17:26
  • 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



    sexta-feira, 22 de fevereiro de 2013 14:30
  • 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'>&nbsp;Download TXT&nbsp;</button>"


    Depois:

    SendKeys.Send("{ENTER}")


    Leonardo Garcia
    pensouweb@hotmail.com


    sexta-feira, 22 de fevereiro de 2013 15:02
  • 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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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>" _
    & "	   	    &nbsp;" _
    & "	   	<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'>&nbsp;Download TXT&nbsp;</button>" _
    & "				</td>" _
    & "</body></html>"
    
    
    
    
    
            WebBrowser1.Document.Forms(0).InnerHtml = vSendBrowser
    
            WebBrowser1.Focus()
            SendKeys.Send("{TAB}")
    
        End Sub
    End Class



    sexta-feira, 22 de fevereiro de 2013 15:53
  • Bom dia!

    Você conseguiu resolver o problema mencionado acima, pois também fiz e esta dando esse erro de script também..

    quarta-feira, 4 de junho de 2014 14:43
  • 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
    quarta-feira, 4 de junho de 2014 18:48