TTnet ADSL Kota sorgulatma

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 12:20

Benim formumda 1 webbrowser 3 edit ve 1 tanede button var ben buttona bastığımda edit1i güvenlik koduna edit2yi kullancı adına 3üde şifreye yazıyor ardından Girişe tıklatacağım fakat o sayfadaki Giriş buttonunun adını bir türli bulamadım bileniniz veya bulabilecek olanınız varsa ve yazarsa çok sevinirim...

Saygılar teşekkürler...

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 12:25

formu submit eden tuşların name kullanmasına gerek yoktur yani name değeri yok, onun yerine kullanıcı adı vs inputlardan birine focus edip enter tuşunu yollayabilirsiniz

ya da en mantıklısı direkt olarak post methoduyla http://adslkota.ttnet.net.tr/adslkota/loginSelf.do ya değerleri gönderebilirsiniz

<form method="post" action="loginSelf.do">

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 12:59

Tamam ama ttnet verileri nasıl yolluyor?

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 01:16

burada yapacağınız ordaki formu kullanmak yerine verileri kendiniz göndermek yukarda da yazıyor zaten post metoduyla gönderiyor verileri o şekilde kullanıcı girişi yaptırtabilirsiniz, zaten sonrasında sizi direkt sayfaya yönlendirecektir ordan da bilgileri çekebilirsiniz

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 02:16

Ben buttona basarak yollamak istiyorum bunu nasıl yapabilirim?

Sayfanın kaynak kodu bu;

Kod: Tümünü seç


<script>



    function gGetElementById(s) {
 var o = (document.getElementById ? document.getElementById(s)
                                  : document.all[s]);
 return ((o == null) ? false : o);
}

function playCaptcha() {
  var wavURL    = '"sound"';
  var embedCode = '<EMBED SRC=' + wavURL + ' HIDDEN="true" AUTOSTART="true" />';

  gGetElementById("playAudio").innerHTML = "";
  gGetElementById("playAudio").innerHTML = embedCode;
}

function changeLabel(lang) {

  switch (lang) {
  case 0:
    LABEL0.innerText="ADSL Kullanım Bilgileri";
    LABEL1.innerText="Kullanıcı Adı";
    LABEL2.innerText="Şifre";
    LABEL3.innerText="Güvenlik Kodu";
    LABEL4.innerText="Soldaki kutucuğa yukarıdaki güvenlik kodunu küçük harfle giriniz";
    LABEL5.innerText="Bütün Hakları Saklıdır ";

  break;
  case 1:
    LABEL0.innerText="ADSL Quota Information";
    LABEL1.innerText="Username";
    LABEL2.innerText="Password";
    LABEL3.innerText="Security Code";
      LABEL4.innerText="Please enter the security code in lowercase.";
      LABEL5.innerText=" All rights reserved ";


  break;
  }
if (!document.forms[0].userName.disabled)
    document.forms[0].userName.focus();
}

</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">

<html lang="tr">
<html>
  <head>

      <script language="JavaScript">


            function hideFrame() {
              parent.document.all("TopFrame").rows="*,100%"
          }
      </script>

  <meta name="Pragma" content="no-cache">
  <meta http-equiv="Expires" content="Mon, 06 Jan 1990 00:00:01 GMT">
  <meta http-equiv="cache-control" content="no-cache">

  <meta http-equiv="Pragma" content="no-cache">
  <meta http-equiv="Expires" content="-1">
  <meta http-equiv="Cache-Control" content="must-revalidate">
  <link href="adslkota.css" type="text/css" rel="stylesheet">
  <title>Türk Telekom ADSL Kullanım Bilgileri</title>

  </head>
  <body   onKeyDown="processKey(event)" onload="hideFrame();"> 
    <P>&nbsp;</P>

          <form method="post" action="loginSelf.do">
          <input type="hidden" name="dispatch" value="login">
    <table class="tblData" align="center" cellspacing="1" width="490">

      <tr class="header">
          <td width="24%">

          </td>
          <td width="76%">
          <STRONG><LABEL ID="LABEL0" >ADSL Kullanım Bilgileri </LABEL></STRONG>

        </td>
      </tr>

      <tr>
        <td width="24%"><b> <LABEL ID="LABEL1" FOR="userName">Kullanıcı Adı</LABEL></b>
        </td>
        <td width="76%">
            <input type="text" name="userName" value=""/>

        </td>
      </tr>
      <tr>

        <td width="24%"><b>  <LABEL ID="LABEL2" FOR="password">Şifre</LABEL> </b></td>
        <td width="76%">
          <input type="password" name="password"/>
        </td>

      </tr>

      <tr>
        <td width="24%"><b><LABEL ID="LABEL3" FOR="password">Güvenlik Kodu </LABEL> </b></td>
        <td width="76%">
            <table border='0'><tr><td>
               <img src="jcaptcha"></td></tr>
            </table>

            <!--  TODO: sound captcha için commentleri kaldır.        -->
            <br>
            <div id="playAudio"></div>
            <table>
                <tr>
                    <td NOWRAP>

                        <input type='text' name='captchaResponse' value=''>

                        <a href="javascript:playCaptcha()">

                            <img src="image/accessibility.jpg" border="0"  style="color:'red'" alt="DİNLEDİGİNİZ HARF ve RAKAMLARI GİRİNİZ" />

                        </a>
                    </td>
                    <td><LABEL ID="LABEL4" >Soldaki kutucuğa yukarıdaki <b>guvenlik kodunu küçük harfle</b> giriniz</LABEL></td>
                 </tr>
            </table>

           
        </td>
      </tr>

            <tr>
        <td colspan="2"><center>

            <input type="radio" name="lang" value="tr" checked="true"  onclick="changeLabel(0);" />
            <STRONG><FONT color="#0033cc"> <img src="image/trsmall.gif" width="25" height="16"/>
                T&uuml;rk&ccedil;e</FONT></STRONG>

                   <input type="radio" name="lang" value="en" onclick="changeLabel(1);" />
            <STRONG><FONT color="#0033cc"> <img src="image/uksmall.gif" width="25" height="16"/>
            </FONT> </STRONG> <STRONG><FONT color="#0033cc"> English &nbsp;</FONT></STRONG>

        </center>

            </td>

      </tr>

      <tr  class="btn">
        <td width="24%" colspan="2">
        <input type=submit value="Giriş" style='width:80px' class='btn'/>
        </td>
      </tr>
    </table>
    <P></P>

      <center>
          <FONT color="#999999"><LABEL ID="LABEL5" >
              Bütün Hakları Saklıdır </LABEL> &copy; 2004

          <BR/>
             

              <center>

</center>
    
    <script type="text/javascript">
    document.forms[0].userName.focus();




</script>


  <script type="text/javascript">
function processKey(event) {
	if (event.keyCode == 13)
	{
    if (!document.forms[0].go1.disabled && !document.forms[0].go1.disabled)
    {
      if (document.forms[0].userName.value.length > 0
          || document.forms[0].password.value.length > 0)
        document.forms[0].go1.focus();
       else
        document.forms[0].go1.focus();
    }
	}
}
</script>

</body>
</html>
</html>
</form>

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 03:46

bu şekilde tıklama yaptırabilirsin sanırım

Kod: Tümünü seç

mouse.CursorPos:= Point(10,30); //burada webbrowser üzerindeki tıklamak istediğin buttonun kordinatı
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); 
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

butonun kordinatını öğrenmek içinde mousemove olayına bir labele falan x ve y değişkenlerini yazdırırsan mouse kordinatlarını da öğrenmiş olursun kolay gelsin

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 04:08

Form oynatılırsa ne yapacağız?

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 04:38

formu tam ekran yapmak çözüm olabilir tabi ama size uymayabilir bu seferde

ozaman biraz değişik ve uzun bir yol olucak ama kodu buttonun click olayına yazdığınızı farzederek merkez noktayı tıkladığınız nokta alırız ve tıkladığımız noktadan
buttonun kordinatından webbrowserın kordinatını çıkarırsak, webbrowserın ekranki kordinatını bulmuş oluruz ve bu bulduğumuz kordinata da buttonun webbrowser üzerindeki kordinatını(bunu değer vererek bulmamız gerek) eklersek buttona tıklama yapabiliriz

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
kordx,kordy:integer;
begin
kordx:=0; //değerlerin 0 olması halinde webbrowserın sol üst köşesinde tıklama yapıcaktır
kordy:=0;
mouse.CursorPos:= Point(kordx+mouse.CursorPos.x-button1.Left+webbrowser1.left,mouse.CursorPos.y-button1.top+webbrowser1.top+kordy);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

çok dolambaçlı bir yol oldu daha kolayı olabilir yalnız benim aklıma bu geldi
birde ufak not form üzerindeki buttonun boyutu webbrowser üzerindeki button boyutuna en fazla eşit olması gerek

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 04:56

ben sorunumu şu şekilde çözdün sayfanın altına yakındı button tıkladığım button1le arasındaki fark ne kadarsa button1in click olayında sayfayı en alta çekiyorum vede aradaki fark kadar mouseyi yukarı iterek tıklatma yapıyorum.... ip ucu için saolun...

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 05:10

Şimdide http://adslkota.ttnet.net.tr/adslkota/v ... atch=entry bu sayfanı idhttp ile kaynak kodunu alamıyorum...

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 05:22

Kod: Tümünü seç

function TForm1.GetInetFile(const fileURL, FileName: String): boolean; 
const 
BufferSize = 1024; 
var 
hSession, 
hURL : HInternet; 
Buffer : array[1..BufferSize] of Byte; 
BufferLen : DWORD; 
f : File; 
sAppName : string; 
begin 
Result := False; 
sAppName := ExtractFileName(Application.ExeName); 
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 
try 
hURL := InternetOpenURL(hSession, 
PChar(fileURL), 
nil,0,0,0); 
try 
AssignFile(f, FileName); 
Rewrite(f,1); 
repeat 
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); 
BlockWrite(f, Buffer, BufferLen) 
until BufferLen = 0; 
CloseFile(f); 
Result:=True; 
finally 
InternetCloseHandle(hURL) 
end 
finally 
InternetCloseHandle(hSession) 
end 
end;

GetInetFile('buraya url',extraxtFileDir(application.exename)+'\gelen.txt'); şeklinde de çağırın
uses kısmına WinInet

bir de bunu deneyin yine buradan biri paylaşmıştı

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 05:31

Bilgisayara indirip açarak çözdüm sorunumu... Çok teşekkürler...

depresif · Mesaj gönderen **depresif** » 25 Haz 2008 07:30

gayet kolay aslında indirdiğiniz html sayfasını memoya açın ondan sonra satır satır taratın, hangi aydasınız o kelimeyi taratırsınız

döngü içinde

Kod: Tümünü seç

pos('Nisan',memo1.lines[i])>0

şeklinde bir sorgulama yapın eğer bulursa memoda sonraki satırın değerini alın

şöyle bir veri elde ediceksiniz

Kod: Tümünü seç

<td width="100">716.506.221<br>&nbsp;(683,314 MB)</td>

ordaki süzme işlemini ise bundan sonra ise en mantıklı yol "(" ile ")" arasını süzmek onuda copy ile kolayca yapabilirsiniz

kolay gelsin

Extended · Mesaj gönderen **Extended** » 25 Haz 2008 08:06

Çok saolun yaptım bir çok kişiden o sayfayı kaydedip bana yollamalarını istedim memo1.Lines.Strings[127] de uploadu , memo1.Lines.strings[131] dede downloadı buldum...

Delphi Forum

TTnet ADSL Kota sorgulatma

TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma

Re: TTnet ADSL Kota sorgulatma