|
|
@Andrei evet gördüm de para vermek istemiyorum ufak bi program yazıcam da tam liste yok elimde
@manglerman teşekkürler dostum aklıma hiç gelmemişti yav sevindirik oldum bak şimdi
yapıcağım şeyde asp ile şöle bişi örnek veriyim
function tusul(urll,tagg,acikk,titt)
dim xml
urlll = "http://www.tusul.com/login.php"
set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xml.Open "POST", urlll, false
xml.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1"
xml.setRequestHeader "Accept-Language", "en-us,en;q=0.5"
xml.setRequestHeader "Accept-Encoding", "gzip,deflate"
xml.setRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
xml.setRequestHeader "Keep-Alive", "timeout=5, max=99"
xml.setRequestHeader "Connection", "keep-alive"
xml.setRequestHeader "Referrer", "http://www.tusul.com/login.php"
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "username=kullanıcı adınız&password=şifreniz&processlogin=1&persistent=on&gonder= Gönder &randkey=5084291&returng=/"
xml.open "post","http://www.tusul.com/submit.php?url="&urll&"&title="&titt&"&tags="&tagg&"&bodytext="&left(acikk,340)&"&category=41&gonder= Gönder &randkey=999866115",false
xml.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1"
xml.Send
if instr(xml.responsetext,"Yeni Haberler") = 0 then
durum = 0
else
durum = 1
end if
tusul = durum
Set xml = nothing
end function
mesela bu şekilde çapta sormayan sitelere yapıcam ama az vardı elimde şifreniz ve kullanıcı adınız kısmını doğru yazarsanız fonksyonla tusula haber ekleyebiliyosunuz :)
edit : yazarken düzgündü gönder dediğimde arka arkaya gelmiş yazılar tahribat artık operayı sevsin yav
|
Giriş Yap
Kayıt ol
Online Üyeler
Aktif Konular
Arama
Üyeler
Forum Kuralları
Tahribat.Com Forumları
Sosyal İmleme Siteleri
Kısayol
Alıntı yap
Özel Mesaj
