TTnet ADSL Kota sorgulatma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
TTnet ADSL Kota sorgulatma
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...
Saygılar teşekkürler...
Re: TTnet ADSL Kota sorgulatma
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">
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">
Re: TTnet ADSL Kota sorgulatma
Tamam ama ttnet verileri nasıl yolluyor?
Re: TTnet ADSL Kota sorgulatma
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
Re: TTnet ADSL Kota sorgulatma
Ben buttona basarak yollamak istiyorum bunu nasıl yapabilirim?
Sayfanın kaynak kodu bu;
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> </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ürkç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 </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> © 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>
Re: TTnet ADSL Kota sorgulatma
bu şekilde tıklama yaptırabilirsin sanırım
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
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);
Re: TTnet ADSL Kota sorgulatma
Form oynatılırsa ne yapacağız?
Re: TTnet ADSL Kota sorgulatma
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
ç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
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;
birde ufak not form üzerindeki buttonun boyutu webbrowser üzerindeki button boyutuna en fazla eşit olması gerek
Re: TTnet ADSL Kota sorgulatma
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...
Re: TTnet ADSL Kota sorgulatma
Şimdide http://adslkota.ttnet.net.tr/adslkota/v ... atch=entry bu sayfanı idhttp ile kaynak kodunu alamıyorum...
Re: TTnet ADSL Kota sorgulatma
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;
uses kısmına WinInet
bir de bunu deneyin yine buradan biri paylaşmıştı
Re: TTnet ADSL Kota sorgulatma
Bilgisayara indirip açarak çözdüm sorunumu... Çok teşekkürler...
Re: TTnet ADSL Kota sorgulatma
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
şeklinde bir sorgulama yapın eğer bulursa memoda sonraki satırın değerini alın
şöyle bir veri elde ediceksiniz
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
döngü içinde
Kod: Tümünü seç
pos('Nisan',memo1.lines[i])>0
şöyle bir veri elde ediceksiniz
Kod: Tümünü seç
<td width="100">716.506.221<br> (683,314 MB)</td>
kolay gelsin
Re: TTnet ADSL Kota sorgulatma
Ç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...