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>
<p></a><a href="default.asp?git=kpanel">kontrol paneli </a>
ö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