• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

xlo620

form para enviar sms atraves do Mytmn- pagina 3

36 mensagens neste tópico

boas, eu estou a desenvolver um projecto em q uma form envia sms atraves do portal Mytmn. anda por ai uma aplicaçao q usa isso ( Florikey, criada em vb.net)

eu so consegui fazer o codigo para o login, o resto nao :/ tenho um browser inserido na form (url: www.tmn.pt) e tenho o seguinte codigo:

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        Dim htmle As HtmlElement
        For Each htmle In WebBrowser1.Document.GetElementsByTagName("Input")
            Select Case htmle.Name
                Case "usr"
                    htmle.InnerText = userbox.text
                Case "pwd"
                    htmle.InnerText = passbox.text
            End Select
        Next
        WebBrowser1.Document.InvokeScript("validarFLogin")

alguem me consegue ajudar no resto? :/

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Convem dizeres onde é q tás a encravar.

so consegui fazer o codigo para o login, falta ir pra pagina do envio de sms, e depois inserir o texto q vou escrever numa text box e enviar ( ...invokescript("validateForm") )
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes usar um timer, para verificar se a pagina para onde te redirecciona o login fica apresentada... e qd ficar, fazes o navigate para a pagina de envio do sms. No timer, podes ter algo do tipo

Private Sub Timer1_Tick(...)
if Not WebBrowser1.IsBusy then
WebBrowser1.Navigate url_onde_inseres_a_sms
End if
End Sub

Agora tens q fazer alguns ajustes :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Qual é o URL da página de envio de SMS's?

o url varia de user para user.
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja consegui fazer o login e passar para a pagina de envio de sms. falta agora escrever a sms, destinatario e mandar..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja consegui fazer o login e passar para a pagina de envio de sms. falta agora escrever a sms, destinatario e mandar..

podias já agora dizer-me como o fizes-te? é que quando explorava isso, também reparei nesse pequeno promenor...

mas agora escrever a sms, destinario e mandar acho que é fácil, basta verificares quais os nomes dos campos. sabes fazer isso?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podias já agora dizer-me como o fizes-te? é que quando explorava isso, também reparei nesse pequeno promenor...

mas agora escrever a sms, destinario e mandar acho que é fácil, basta verificares quais os nomes dos campos. sabes fazer isso?

é no codigo fonte certo? mas meto o q? id?
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        Dim htmle As HtmlElement
        For Each htmle In WebBrowser1.Document.GetElementsByTagName("Input")
            Select Case htmle.Name
                Case "usr"
                    htmle.InnerText = user.text
                Case "pwd"
                    htmle.InnerText = pass.text
            End Select
        Next
        WebBrowser1.Document.InvokeScript("validarFLogin")

        If Not WebBrowser1.IsBusy Then
            WebBrowser1.Navigate("http://www.tmn.pt/vgn-ext-templating/v/index.jsp?vgnextoid=7e1d007f3cc83110VgnVCM1000005401650aRCRD&iu=http%3A%2F%2Fmy.tmn.pt%2Fweb%2Fmytmn.po%3Fintrd%3D%26url%3D%2Fweb%2Feasysms%2FEasySms.po")

        End If

tenho isto..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim, acho que podes fazer pelos ID's, basta explorá-los no código-fonte.

<HTML><HEAD><META content="no-cache" http-equiv="pragma"><META content="0" http-equiv="expires"><META content="no-cache" http-equiv="Cache-Control"><TITLE>myTMN</TITLE><META content="text/html; charset=iso-8859-1" http-equiv="Content-Type"><SCRIPT language="javascript" src="/jsni/web/script_comum.js" type="text/javascript"></SCRIPT><SCRIPT language="javascript" src="/jsni/web/easysms/esmsSend.js" type="text/javascript"></SCRIPT><SCRIPT language="javascript" src="/jsni/web/images.js" type="text/javascript"></SCRIPT><SCRIPT language="javascript" src="/staticdb/web/messages.js" type="text/javascript"></SCRIPT><SCRIPT id="scriptJavascriptArrays" language="javascript" type="text/javascript">modelosArray[0] = new Array();submodelosArray[0] = new Array();
subcategoriasArray[0] = new Array();</SCRIPT><SCRIPT id="scriptInitContadorMax" language="javascript" type="text/javascript">var contadorMax = 140; var maxToSend = 30;</SCRIPT><LINK href="/cssni/web/mytmn.css" rel="stylesheet" type="text/css"></HEAD><BODY class="normal"><SCRIPT language="JavaScript" type="text/javascript">    MM_preloadImages('/imagesni/web/frontend/bt_enviar_f2.gif');
    MM_preloadImages('/imagesni/web/frontend/bt_remover_f2.gif');
    MM_preloadImages('/imagesni/web/frontend/bt_confirmar_f2.gif');
</SCRIPT><TABLE border="0" cellpadding="0" cellspacing="0" width="100%"><TR><TD colspan="4"><TABLE border="0" cellpadding="0" cellspacing="0" width="100%"><TR><TD align="center" class="bannerBackground1" height="75" valign="middle"><DIV><OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" height="60" width="468"><PARAM name="movie" value="/imagesdb/19Fantasporto08_468x60.swf"><PARAM name="quality" value="high"><PARAM name="wmode" value="transparent"><EMBED height="60" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" src="/imagesdb/19Fantasporto08_468x60.swf" type="application/x-shockwave-flash" width="468" wmode="transparent"></EMBED></OBJECT></DIV></TD></TR><TR><TD class="bannerBackground2" height="5" width="10"></TD></TR><TR><TD height="5" width="10"></TD></TR></TABLE></TD></TR><TR class="pageBackground" valign="middle"><TD valign="TOP" width="4%"> </TD><TD align="LEFT" colspan="2" nowrap width="92%"><SPAN class="tabTitle">Enviar SMS</SPAN></TD><TD valign="TOP" width="4%"> </TD></TR><TR class="tableTop"><TD class="pageBackground" colspan="4" height="26"> </TD></TR><!--CORPO--><TR class="pageBackground" valign="Top"><TD> </TD><TD class="textNormal" colspan="2" id="title"><TABLE border="0" cellpadding="0" cellspacing="0" width="100%"><TR><TD colspan="2"></TD></TR><TR><TD align="center" valign="top" width="50%"><FORM action="EasySms.po" method="post" name="easySmsForm"><INPUT name="event" type="hidden" value="confirmSend"> <INPUT id="paramUser" name="user" type="hidden" value="1629540554"> <TABLE align="center" border="0" cellpadding="2" cellspacing="0" summary="" width="100%"><TR><TD align="center" valign="top"><TABLE align="center" border="0" cellpadding="2" cellspacing="0" summary=""><TR><TD align="center" class="textNormal"><B>Escreva a sua mensagem:</B> </TD></TR><TR><TD align="center"><TEXTAREA class="esmsTextbox" cols="20" id="message" name="message" onblur="contador(this,easySmsForm.chars);" onkeyup="contador(this,easySmsForm.chars);" rows="5" wrap="soft"></TEXTAREA> </TD></TR><TR><TD align="center" class="textNormal">Caracteres disponíveis <INPUT class="textNormal" disabled id="chars" maxlength="5" name="chars" size="5" value="140"></TD></TR><TR><TD align="center"><P class="textNormal">Deseja gravar a mensagem? <INPUT id="saveMessageYes" name="saveMessage" type="radio" value="yes">Sim  <INPUT checked id="saveMessageNo" name="saveMessage" type="radio" value="no">Não</TD></TR></TABLE></TD></TR><TR><TD align="center"><TABLE align="center" border="0" cellpadding="2" cellspacing="0" summary=""><TR><TD align="center" class="textNormal"><B>Ou escolha uma do Easy Messaging:</B> </TD></TR><TR><TD align="center"><SELECT class="esmsSelectionBox" id="categorias" name="categorias" onchange="mudarModelos(easySmsForm.categorias,easySmsForm.subcategorias,easySmsForm.modelos);"><OPTION id="TemplateOptionCategorias" selected>Seleccione uma categoria</OPTION></SELECT> </TD></TR><TR><TD align="center"><SELECT class="esmsSelectionBox" id="subcategorias" name="subcategorias" onchange="mudarModelosSubCategorias(easySmsForm.categorias,easySmsForm.subcategorias,easySmsForm.modelos);"><OPTION id="TemplateOptionSubcategorias" selected>Seleccione uma subcategoria</OPTION></SELECT> </TD></TR><TR><TD align="center"><SELECT class="esmsSelectionBox" id="modelos" name="modelos" onchange="setMensagemCounter(this,easySmsForm.message,easySmsForm.chars);" size="5"><OPTION id="TemplateOptionModelos" selected>Seleccione um modelo</OPTION></SELECT> </TD></TR></TABLE></TD></TR><TR><TD align="center"><TABLE align="center" border="0" cellpadding="2" cellspacing="0" summary=""><TR><TD class="textNormal" id="textoNumDestinos"><B>Nºs dos Destinatários</B></TD></TR><TR><TD align="center"><INPUT class="textNormal" id="phoneNumber1" maxlength="9" name="phoneNumber1" size="12" type="text"> </TD></TR><TR><TD align="center"><INPUT class="textNormal" id="phoneNumber2" maxlength="9" name="phoneNumber2" size="12" type="text"> </TD></TR><TR><TD align="center"><INPUT class="textNormal" id="phoneNumber3" maxlength="9" name="phoneNumber3" size="12" type="text"> </TD></TR><TR><TD align="center"><INPUT class="textNormal" id="phoneNumber4" maxlength="9" name="phoneNumber4" size="12" type="text"> </TD></TR><TR><TD align="center"><INPUT class="textNormal" id="phoneNumber5" maxlength="9" name="phoneNumber5" size="12" type="text"> </TD></TR></TABLE></TD></TR><TR><TD align="center"><TABLE border="0" cellpadding="4" width="300"><TR class="esmsPublicity"><TD align="center" class="textNormal"><B>Arquivo t</B> <DIV align="justify" class="textNormal">Até agora, sempre que perdia, trocava ou o seu telemóvel era roubado, também acabava por perder os seus contactos. Com o <A href="/web/mk/MobileKeeperTmn.po">Arquivo t</A> já pode ter uma maneira prática e segura de os guardar, podendo passar a utilizar a sua agenda para enviar SMS a partir do site tmn. <A href="/web/mk/MobileKeeperTmn.po"><U><B>Adira já!</B></U></A></DIV></TD></TR></TABLE></TD></TR><TR><TD></TD></TR><TR id="buttonContinue"><TD align="center"><BR> <IMG border="0" height="17" name="bt_enviar" onclick="validateForm(easySmsForm);" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('bt_enviar','','/imagesni/web/frontend/bt_continuar_f_azul_f2.gif',1)" src="/imagesni/web/frontend/bt_continuar_f_azul.gif" width="90"> </TD></TR></TABLE></FORM></TD><TD valign="top" width="50%"><P align="justify" class="textNormal"><B>Nesta página pode enviar SMS gratuitos para telemóveis TMN!</B><P align="justify" class="textNormal">A TMN oferece-lhe agora a possibilidade de enviar a partir desta página até <A href="../madvertisement/Register.po" target="_new"><B>50 SMS gratuitos por mês</B></A> para telemóveis TMN, desde que o saldo do seu cartão seja superior a &#8364; 0.<P align="justify" class="textNormal">Para ganhar mais <A href="../madvertisement/Register.po" target="_new"><B>20 SMS por mês</B></A>, para além dos 30 que já lhe oferecemos, <A href="../madvertisement/Register.po" target="_new"><B>clique aqui</B></A> e adira já sem custos adicionais às vantagens <A href="../madvertisement/Register.po" target="_new"><B>X Mensagens!</B></A><P align="justify" class="textNormal">Nesta página, pode enviar até 5 SMS em simultâneo, com o limite máximo de 130 caracteres para números das redes móveis nacionais e/ou da rede fixa PT Comunicações. A todas as mensagens será adicionada a frase: "<SMS via www.tmn.pt>".<P align="justify" class="textNormal">Esgotados os SMS gratuitos para destinos TMN, o preço de cada SMS é de &#8364; 0,10 (classe P2).<BR> Para as outras redes, o preço por SMS enviado é sempre de &#8364; 0,10 (classe P2).<BR> (valores com IVA incluído à taxa legal em vigor)<P align="justify" class="textNormal">Escreva já a sua mensagem ou utilize uma das nossas propostas de mensagens pré-definidas e divirta-se com os amigos.<P align="justify" class="textNormal" id="availableMessagesMessage">Este mês dispõe ainda de <B id="messagesCanBeSent">30</B> mensagens grátis para a rede TMN.</TD></TR></TABLE></TD><TD background="/imagesni/web/frontend/tab_home_dir.gif"><IMG height="382" src="/imagesni/web/frontend/spacer.gif" width="5"></TD></TR><!--CORPO--><TR class="tableBottom"><TD colspan="4"></TD></TR></TABLE><TABLE border="0" cellpadding="0" cellspacing="0" summary="" width="100%"><TR><TD background="/imagesni/web/frontend/bg_footer.gif"><IMG alt="" height="3" src="/imagesni/web/frontend/spacer.gif" width="15"></TD></TR><TR class="bannerBackground1"><TD align="center"><P class="textSmall"><A class="textSmall" href="/staticdb/web/MyTmnHelp.html" id="LinkHelp">> Ajuda</A> <IMG alt="" border="0" height="8" src="/imagesni/web/frontend/spacer.gif" width="72"> <A class="textSmall" href="/staticdb/web/TariffClasses.html" id="LinkTariff">> Tarifários</A></TD></TR><TR class="bannerBackground1"><TD align="center"> </TD></TR></TABLE><SCRIPT id="scriptEasySmsEnd" language="javascript" type="text/javascript">  initCategorias(document.easySmsForm);
  contador(document.easySmsForm.message,document.easySmsForm.chars);
  fillContacts();

</SCRIPT></BODY></HTML><!--1.30.2|$Date: 2007/07/03 15:15:21 $|$Revision: 2.24 $|$Name:  $|-->

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ficara isto? :wallbash:

        Dim htmle As HtmlElement
        For Each htmle In WebBrowser1.Document.GetElementsByTagName("Input")
            Select Case htmle.Id
                Case "message"
                    htmle.InnerText = sms.text
                Case "phonenumber1"
                    htmle.InnerText = destinatario.text
            End Select
        Next
        WebBrowser1.Document.InvokeScript("validateForm(easySmsForm);")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pelo que estive a analisar do código deve ficar algo como isso. Não dá?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pelo que estive a analisar do código deve ficar algo como isso. Não dá?

nao, nem escreve nada, nem faz "validateForm" :|
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nao, nem escreve nada, nem faz "validateForm" :|

aquele código acontece quando? quando carregas num botão para enviar os dados?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim. era suposto preencher o texto e o destinatario e enviar..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes mandar-me o projecto para eu dar uma vista de olhos?

EDIT: manda para o hdd.pt e posta aqui o link para alguém que queira ver também o código

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes mandar-me o projecto para eu dar uma vista de olhos?

EDIT: manda para o hdd.pt e posta aqui o link para alguém que queira ver também o código

ta um bocado javardisse mas ca vai :(

SMSsender.rar @ HDD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa tar-me a meter. Acho um bocado "fraco" estares a fazer uma aplicação de interacção com um site, e usares um webbrowser, para isso usa-se o firefox =P. Bom "here's the deal", eu posso fazer isso (e tu tbm) por httprequests, a situação é que não tenho login de acesso e não sei o que está depois do login =P. Dás-me uma ajuda que eu dou-te a ti?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa tar-me a meter. Acho um bocado "fraco" estares a fazer uma aplicação de interacção com um site, e usares um webbrowser, para isso usa-se o firefox =P. Bom "here's the deal", eu posso fazer isso (e tu tbm) por httprequests, a situação é que não tenho login de acesso e não sei o que está depois do login =P. Dás-me uma ajuda que eu dou-te a ti?

ok :(

é assim, depois de fazer login, abre-se a pagina inicial mas com o login feito, depois tem q se escolher a opçao "envio de SMS" depois preencher os campos... tu podes aceder a pagina de envio de sms sem login.. so quando fores a confirmar o envio é q te vai pedir passwrd..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

o executavel q esta dentro do RAR nao foi feito por mim, mas é o q tenciono fazer..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se calhar seria melhor algo do tipo:

WebBrowser1.Document.GetElementById("message").SetAttribute("value","a tua mensagem")
WebBrowser1.Document.GetElementById("message").SetAttribute("phonenumber1","o nr telemovel")
WebBrowser1.Document.InvokeScript("validateForm(easySmsForm);")

Experimenta e ve se dá.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se calhar seria melhor algo do tipo:

WebBrowser1.Document.GetElementById("message").SetAttribute("value","a tua mensagem")
WebBrowser1.Document.GetElementById("message").SetAttribute("phonenumber1","o nr telemovel")
WebBrowser1.Document.InvokeScript("validateForm(easySmsForm);")

Experimenta e ve se dá.

nao da :/ aparece este  erro "A referência de objecto não foi definida como uma instância de um objecto."

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

xlo620, receio que tenha de saber mais que isso, tipo, o source das paginas, as postdatas, as paginas pra onde és redireccionado. etc.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

xlo620, receio que tenha de saber mais que isso, tipo, o source das paginas, as postdatas, as paginas pra onde és redireccionado. etc.

aqi estao os codigos -fonte:

sources.rar @ HDD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora