asp ile basit bi bot nasıl yapabilir veriler RSS den çekilmeyecek sayfanın belirli kısınlarında grdüklarini alıcak asp tear bileşeni sanırım bişiler yapılacak ama basıl olacak ben çzemedim Şişirdi Beş-On Adam, Yaptı Balon Adam, tekşndende Basit, Vallahi Bu Son Adam.

hocam irreguler expressions ta tavan yapmış olman lazım vestring işlemlerinden uçmuş olman lazım. karakterleri sayacak kadar deli sabır ve işi sonuna kadar bitirecek azim lazım :)youtubeden video çeken bot yapmıştım youtube kodları bir değiştirdi site olduğu gibi kaldı. bir dahada uğraşmadım yeni bot yazmaya. gerçi sonradan youtube kapandı herkesin botu elinde patladı ama :)zamanım olsa şimdide metacafeden çeken yazarım. foxxly nin verdiği rnek yardımcı olur kodu kendine gre editle. baya iyi bişeyler çıkar ortaya. türk kızlarından sabun yapalım, rus kızları elini yıkasın.:)

rn. if gelen="slm" thenresponse. write "slm naber =)"end ifgibi yada replance kullanarak yapabilirsin. mmm session yada cookie kullanarak yazdıklarını hatırlarsın mesela ismini cookie ile kaydet bi sonraki sayfayı açışnda naber XXX fln de vs vs

yuh =)form hazırlarsın heralde name'e xxx yazgelen = request. form die çekersin veriyi

beyler soruyu anlamadınız galiba, arkadaş şey istiyor, mesela site gelecek tahribatta soldaki "seçenekler" blokunun içindekileri çekecek. ve bunu sürekli güncellicek. ben yle anladım soruyu, belkide ben yanlış anlamışımdır :S belki hepimiz yanlış anladık :S ben neresiyim? burası kim? :S

<%Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3 Dim L cl1 = 1 cl2 = 1 cl3 = 1 L = LenB 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 FunctionOn error resume nextsite = "http://theturkler.com/default. asp"Set HTTP = Server. CreateObject HTTP. Open "Get" , site, False HTTP. SEndSayfa_Al = BinaryToString Set HTTP = Nothingif err then response. write "HATA: "&err. description else Basla = InStr(1, Sayfa_Al, "<title>" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla Title = Mid response. write Title &"<br /><br />" Basla = InStr(1, Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla Keyws = Mid response. write Keyws &"<br /><br />" end if %> angel sana yuh amk :D rezil biz bot diyoz sen zort :D kelimeler albayım bazı anlamlara gelmiyor.

: rn. if gelen="slm" thenresponse. write "slm naber =)"end ifgibi yada replance kullanarak yapabilirsin. mmm session yada cookie kullanarak yazdıklarını hatırlarsın mesela ismini cookie ile kaydet bi sonraki sayfayı açışnda naber XXX fln de vs vs sorun orada zaten o geleni belirlemek :)asptear la ilgili birnek var elimde bulunca ekletyim kelimeler albayım bazı anlamlara gelmiyor.

: yuh =)form hazırlarsın heralde name'e xxx yazgelen = request. form die çekersin veriyi hadi ya :D rss cıktıları textlere yerleştiriyo da bizim mi haberimiz yok :D screw you guys! i"m goin" hoooome!