asp tear ile yapılıyor elimde bi rnek vardı ama ankarada kaldı :( kelimeler albayım bazı anlamlara gelmiyor.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%><%Set Sur = Server. CreateObject Sur. Open "PROVIDER=MICROSOFT. JET. OLEDB.4.0;DATA SOURCE=Db yolu yazılacak"%><%Server. ScriptTimeout=1800pati="<td class=""anasayfablok""><a href=""( )"">( )</a>"linki="http://www.haberler.com/iskenderun/"metin = indiregandi 'veri çekiliyor. response. Write Function indiregandi icerik=avci Set RegEx = New RegExpRegEx. Global = TrueRegEx. IgnoreCase = TrueRegEx. Pattern = patternimizSet Sonuc = RegEx. Execute 'Response. Write("<h1>Toplam "&Sonuc. Count&" Sonuç var.</h1>")icerikz=""For i=0 To Sonuc. Count -1patisi="<p class=""haberbaslik"">( )</p></td>( )<td colspan=""2"" class=""linkz01"">( )<div align=""left""( )</div>( )<table border=0 cellspacing="linkisi = "http://www.haberler.com"&Sonuc . submatches(0)baslikisi = Sonuc . submatches(1)haber_metni = icerigandi 'ilgi sayfadan haber metni çekiliyor. haberparcala=Link_Kaldir haberparcala=split haberdetay=haberparcala(1) haberbaslik=haberparcala(0) haberkisa=ozet_al tarih=date kategori=1 kaynak=" " onay=1 manset=1 kontrol_sql ="Select from haber Where haberbaslik='" & haberbaslik & "'" set kontrol_rs=Sur. Execute if not kontrol_rs. eof then else kayit_sql ="Insert Into haber Values " Sur. Execute end ificerikz = icerikz & "<h1>" & haberbaslik & "</h1>" & haberkisa & "<br /><br />" & haberdetay & "<br /><br />"Nextindiregandi = Temizle End FunctionFunction icerigandi response. Write icerik=avci Set RegEx = New RegExpRegEx. Global = TrueRegEx. IgnoreCase = TrueRegEx. Pattern = patternimizSet Sonuc = RegEx. Execute 'Response. Write("<h1>Toplam "&Sonuc. Count&" Sonuç var.</h1>")icerikz = Sonuc . submatches(0) & "|||" & Sonuc . submatches(2) & Sonuc . submatches(4)icerigandi = Temizle End FunctionFunction avci WhoisServer = gelenConst adTypeText = 2 Const adReadAll = -1 Set objHTTP = Server. CreateObject("MSXML2. ServerXMLHTTP" ) Set objStream = Server. CreateObject objHTTP. Open "GET" , WhoisServer, false objHTTP. SendobjStream. Open objStream. Type = adTypeText objStream. WriteText objStream. Position = 0 objStream. CharSet = "windows-1254" ControlResult = objStream. ReadText objStream. Close Set objStream = Nothing Set objHTTP = Nothing avci=ControlResult'avci=right(avci,42)End FunctionFunction Temizle If strVeri = "" Then Exit Function strVeri = Replace(strVeri, "<BR>", "<br/>", 1, -1, 1) strVeri = Replace(strVeri, "<U>", "", 1, -1, 1) strVeri = Replace(strVeri, "</U>", "", 1, -1, 1) strVeri = Replace(strVeri, "'", "", 1, -1, 1) Temizle = strVeriEnd FunctionFunction Link_Kaldir kaldir_pattern="<a href=""/ /"" title= >( )</a>" Set RegEx = New RegExp RegEx. Global = True RegEx. IgnoreCase = True RegEx. Pattern = kaldir_pattern Set Sonuc = RegEx. Execute For i=0 To Sonuc. Count -1 gelen = replace(gelen, Sonuc , Sonuc . submatches(0)) Next Link_Kaldir = gelenEnd FunctionFunction ozet_al pozisyon=instr if pozisyon=0 then pozisyon=instr end if pozisyon=pozisyon-1 ozet=left ozet_al=Temizle_ozet End FunctionFunction Temizle_ozet If strVeri = "" Then Exit Function strVeri = trim strVeri = Replace strVeri = Replace strVeri = Replace strVeri = Replace(strVeri, chr(13), "") strVeri = Replace Temizle_ozet = strVeriEnd Function%> Db yolunu belirtip hangi sayfadan çekmesini istiyorsanız o dizinide belirlediğinizde script çalışıyor. Tabi buradaki ayarlamalar kendi db düzenime gre yapılmıştı. Ayrıca site zırt pırt reklam yerleşimlerini değiştirdiği için kullanmayıda bıraktım. Size bir rnek olması açısından veriyorum. Unutmayın bunu bu haliyle kullanmanız pek işinize yaramaz. Dünyayı güzellik kurtaracak. Bir insanı sevmekle başlayacak herşey/Gerçekçi ol imkansızı gerçekleştir.

asp bot script olayı biraz karmaşık webmaster forumlarında araştırsan belki bulabilirsin ama düşük bir ihtimal. çünkü sağda solda dolaşan warez scriptlere benzemeyen türden bi scripttir kendileri :)

eee ne olcak bu konu :)

istersen haberler.com için yazmış olduğum botun kodlarını rnek olması açısından verebilirim. Dünyayı güzellik kurtaracak. Bir insanı sevmekle başlayacak herşey/Gerçekçi ol imkansızı gerçekleştir.

: istersen haberler.com için yazmış olduğum botun kodlarını rnek olması açısından verebilirim. bende alabilir miyim :D screw you guys! i"m goin" hoooome!

S. a Elinde Asp İle Yazılmış Başka bİ Siteden Veri Çeken rnek teşkil edecek bi bot arıyorum bıt siteden aldığı veriyi db ye kayıt edicek şekilde olucak

: asp tear ile yapılıyor elimde bi rnek vardı ama ankarada kaldı :( rene hocam saol onu denicem foxly hocam bulabilirsen güzel olur

xmlhttp get komutu kullanılarak merkez bankasından dviz kuru ceken bi kod vardır ortada en bilindiği odur hocam... www.maxiasp.com da bulunmakta, indirirsen bütün mantığı orda... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

: istersen haberler.com için yazmış olduğum botun kodlarını rnek olması açısından verebilirim. kesinlikle forumda le bişi paylaşman süper olur Şişirdi Beş-On Adam, Yaptı Balon Adam, tekşndende Basit, Vallahi Bu Son Adam.