ASP Bot Haber Detaylarını Alamıyorum. - Sayfa 3

02-05-2014, 19:22:46

#19

sanırım bu şekilde yapulıyordu

Alıntı

strVeriCekilecekAdres = "http://galatasaraysd.org/etkinlikler/?sayfa=1"
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", strVeriCekilecekAdres, False
oXMLHttp.Send("kadikutusu=kadi&sifrekutusu=sifre")

şeklinde sisteme giriş yapar.
daha sonra sistem aynı şekilde devam eder ama yukrıda arkadaşı 28.satırda verdiği

Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

satır kaldırınız.2 kez set ettiğimizde sayfayı yeni bir browserda açmış gbi oluyordu o zamanda süreklii giriş ister

02-05-2014, 22:21:54

#20

beyogluhosting

oktayman adlı üyeden alıntı: mesajı görüntüle

sanırım bu şekilde yapulıyordu

şeklinde sisteme giriş yapar.
daha sonra sistem aynı şekilde devam eder ama yukrıda arkadaşı 28.satırda verdiği

Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

satır kaldırınız.2 kez set ettiğimizde sayfayı yeni bir browserda açmış gbi oluyordu o zamanda süreklii giriş ister

Teşekkür ederim hocam, ama maalesef giriş yapmıyor.

02-05-2014, 22:27:11

#21

oktayman

beyogluhosting adlı üyeden alıntı: mesajı görüntüle

Teşekkür ederim hocam, ama maalesef giriş yapmıyor.

hangi siteye giriş yapmak istiyorsunuz,siz yapamamışsınızdır yoksa olur

03-05-2014, 00:08:39

#22

beyogluhosting

X Bir site, siz örnek bir site yapıp giriş sağlayabilirmisiniz ?

03-05-2014, 22:58:07

#23

~~vyslmkyy~~

Üyeliği durduruldu

hocam afınıza sığınarak bir şey demek istiyorum eğer asp yi yeni öğrenyosanız uzak durun php veya dotnet varken asp ye bulaşmayın derim

04-05-2014, 11:15:10

#24

oktayman

beyogluhosting adlı üyeden alıntı: mesajı görüntüle

X Bir site, siz örnek bir site yapıp giriş sağlayabilirmisiniz ?

kusura bakmayın mesajınızı yeni gördüm,örnek bir giriş hazırladım size bbtuurk diye bir site bulup üye oldum oraya giriş yapabildim aynı mantıkla çoğu siteye giriş yapabilirsiniz(ileri düzey güvenlik önemleri yoksa)

ben xmlhttp yerine winhttp bileşenin kullandım frak etmez ikiside benzer.
kodlarda küçük bir html çakışması var açtıktan sora linkler karışıyor ama siz düzenlersiniz artık.

<%
Function BinaryToString(Binary) 
   Dim cl1, cl2, cl3, pl1, pl2, pl3 
   Dim L 
      cl1 = 1 
      cl2 = 1 
      cl3 = 1 
      L = LenB(Binary) 
   Do While cl1<=L 
      pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
      cl1 = cl1 + 1 
      cl3 = cl3 + 1 
   If cl3>300 Then 
      pl2 = pl2 & pl3 
      pl3 = ""
      cl3 = 1 
      cl2 = cl2 + 1 
   If cl2>200 Then 
   pl1 = pl1 & pl2 
   pl2 = ""
   cl2 = 1 
   End If 
   End If 
   Loop 
   BinaryToString = pl1 & pl2 & pl3 
End Function
%>
<head>
<meta http-equiv="Content-Language" content="tr">
</head>

	<%
	'GİRİŞ YAP	
strVeriCekilecekAdres = "http://www.bbturk.com/member.php"
Set oXMLHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
oXMLHttp.open "POST", strVeriCekilecekAdres, False
oXMLHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oXMLHttp.setRequestHeader "USER_AGENT", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.131 Safari/537.36"
oXMLHttp.Send("quick_username=oktay123456789&quick_password=123456789&url=http://www.bbturk.com/member.php&action=do_login&quick_login=1")

  
	
	%>	


<table border="1" width="100%" id="table1" height="394">
	<tr>
	
	
		<td height="32" bgcolor="#FF0000">
		
<html>
<body>		
		
		&nbsp;<p></a><a href="default.asp?git=kpanel">kontrol paneli&nbsp;</a>&nbsp;&nbsp;&nbsp;&nbsp; 
		özel mesajlar</td>
	</tr>
	<tr>
	
</body>
</html>

<td>
		
		

	<%
	if request.querystring("git")="kpanel" then
	
strVeriCekilecekAdres = "http://www.bbturk.com/usercp.php"
'Set oXMLHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oXMLHttp.setRequestHeader "USER_AGENT", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.131 Safari/537.36"
oXMLHttp.Send("")

response.write oXMLHttp.responsetext
	
	end if
	
	
	
	%>
		
		
		
		</td>
	</tr>
</table>

bu şekilde asp ile Ktunnel Vtunnel gibi proxy uygulamaları yazabilir siniz

30-05-2014, 19:03:31

#25

Aspffice

beyogluhosting adlı üyeden alıntı: mesajı görüntüle

X Bir site, siz örnek bir site yapıp giriş sağlayabilirmisiniz ?

abi senin yaptığın botu tahmin edebiliyorum senin kodlamanla alakalı bi sıkıntı yok, Sıkıntı Bot'un çektiği rss'de haberin kısa özetini çekiyo sen haberin tamamını çeksin istiyosun bu botla alakalı bi durum değil bot'u gönderdiğin rss le alakalı.