Asp Bot Script
-
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
-
eee ne olcak bu konu :)
-
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 :)
-
xmlhttp get komutu kullanılarak merkez bankasından döviz kuru ceken bi kod vardır ortada en bilindiği odur hocam...
www.maxiasp.com da bulunmakta, indirirsen bütün mantığı orda...
-
asp tear ile yapılıyor elimde bi örnek vardı ama ankarada kaldı :(
-
FOXXLY bunu yazdı:
-----------------------------asp tear ile yapılıyor elimde bi örnek vardı ama ankarada kaldı :(
-----------------------------rene hocam saol onu denicem
foxly hocam bulabilirsen güzel olur
-
istersen haberler.com için yazmış olduğum botun kodlarını örnek olması açısından verebilirim.
-
bonzo bunu yazdı:
-----------------------------
istersen haberler.com için yazmış olduğum botun kodlarını örnek olması açısından verebilirim.
-----------------------------bende alabilir miyim :D
-
bonzo bunu yazdı:
-----------------------------
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
-
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=Db yolu yazılacak"
%>
<%
Server.ScriptTimeout=1800
pati="<td class=""anasayfablok""><a href=""([A-Za-z0-9-/]*)"">([A-Za-z0-9-ÜĞİŞÇÖüğışçö\(\).\s-:""]*)</a>"
linki="http://www.haberler.com/iskenderun/"
metin = indiregandi(linki,pati) 'veri çekiliyor.
response.Write(metin)
Function indiregandi(link,patternimiz)
icerik=avci(link)
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = patternimiz
Set Sonuc = RegEx.Execute(icerik)
'Response.Write("<h1>Toplam "&Sonuc.Count&" Sonuç var.</h1>")
icerikz=""
For i=0 To Sonuc.Count -1
patisi="<p class=""haberbaslik"">([A-Za-z0-9-ÜĞİŞÇÖüğışçö\(\).\s-'"":\?]*)</p></td>([A-Za-z0-9-_ÜGISÇÖügisçö.\s-\W\(\)]*)<td colspan=""2"" class=""linkz01"">([A-Za-z0-9-_ÜGISÇÖügisçö.\s-\W\(\)]*)<div align=""left""([A-Za-z0-9-_ÜGISÇÖügisçö.\s-\W\(\)]*)</div>([A-Za-z0-9-_ÜGISÇÖügisçö.\s-\W\(\)]*)<table border=0 cellspacing="
linkisi = "http://www.haberler.com"&Sonuc(i).submatches(0)
baslikisi = Sonuc(i).submatches(1)
haber_metni = icerigandi(linkisi,patisi) 'ilgi sayfadan haber metni çekiliyor.
haberparcala=Link_Kaldir(haber_metni)
haberparcala=split(haberparcala,"|||")
haberdetay=haberparcala(1)
haberbaslik=haberparcala(0)
haberkisa=ozet_al(haberdetay)
tarih=date()
kategori=1
kaynak=" "
onay=1
manset=1
kontrol_sql ="Select * from haber Where haberbaslik='" & haberbaslik & "'"
set kontrol_rs=Sur.Execute(kontrol_sql)
if not kontrol_rs.eof then
else
kayit_sql ="Insert Into haber (haberbaslik, haberkisa, haberdetay, tarih, kategori, kaynak, onay, manset, resim) Values ('" & haberbaslik & "', '" & haberkisa & "', '" & haberdetay & "', '" & tarih & "', " & kategori & ", '" & kaynak & "', " & onay & ", " & manset & ", 'foto_yok.jpg')"
Sur.Execute(kayit_sql)
end if
icerikz = icerikz & "<h1>" & haberbaslik & "</h1>" & haberkisa & "<br /><br />" & haberdetay & "<br /><br />"
Next
indiregandi = Temizle(icerikz)
End Function
Function icerigandi(link,patternimiz)
response.Write(link&" <br>")
icerik=avci(link)
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = patternimiz
Set Sonuc = RegEx.Execute(icerik)
'Response.Write("<h1>Toplam "&Sonuc.Count&" Sonuç var.</h1>")
icerikz = Sonuc(i).submatches(0) & "|||" & Sonuc(i).submatches(2) & Sonuc(i).submatches(4)
icerigandi = Temizle(icerikz)
End Function
Function avci(gelen)
WhoisServer = gelen
Const adTypeText = 2
Const adReadAll = -1
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objStream = Server.CreateObject("ADODB.Stream" )
objHTTP.Open "GET" , WhoisServer, false
objHTTP.Send
objStream.Open
objStream.Type = adTypeText
objStream.WriteText(objHttp.ResponseBody)
objStream.Position = 0
objStream.CharSet = "windows-1254"
ControlResult = objStream.ReadText(adReadAll)
objStream.Close
Set objStream = Nothing
Set objHTTP = Nothing
avci=ControlResult
'avci=right(avci,42)
End Function
Function Temizle(strVeri)
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 = strVeri
End Function
Function Link_Kaldir(gelen)
kaldir_pattern="<a href=""/[A-Za-z0-9-/]*/"" title=[A-Za-z0-9-ÜĞİŞÇÖüğışçö\(\).\s-]*>([A-Za-z0-9-ÜĞİŞÇÖüğışçö\(\).\s-]*)</a>"
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = kaldir_pattern
Set Sonuc = RegEx.Execute(gelen)
For i=0 To Sonuc.Count -1
gelen = replace(gelen,Sonuc(i),Sonuc(i).submatches(0))
Next
Link_Kaldir = gelen
End Function
Function ozet_al(gelen)
pozisyon=instr(gelen,"<p>")
if pozisyon=0 then
pozisyon=instr(gelen,"<br/>")
end if
pozisyon=pozisyon-1
ozet=left(gelen,pozisyon)
ozet_al=Temizle_ozet(ozet)
End Function
Function Temizle_ozet(strVeri)
If strVeri = "" Then Exit Function
strVeri = trim(strVeri)
strVeri = Replace(strVeri, vbcrlf, "")
strVeri = Replace(strVeri, vbcr, "")
strVeri = Replace(strVeri, vblf, "")
strVeri = Replace(strVeri, chr(13), "")
strVeri = Replace(strVeri, "'", "")
Temizle_ozet = strVeri
End Function
%>Db yolunu belirtip hangi sayfadan çekmesini istiyorsanız o dizinide belirlediğinizde script çalışıyor.Tabi buradaki ayarlamalar kendi db düzenime göre 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.