Çevrimdışı

; Son dakika haberleri
alias haber {
if $sock(haber) {
sockclose $ifmatch
}
sockopen haber sondakika.internethaber.com 80
}
on *:sockopen:haber: {
if $sockerr {
return
}
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: sondakika.internethaber.com
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr-TR; rv:1.7.8) Gecko/20050511 Firefox/1.0.4
sockwrite -nt $sockname Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/pn
sockwrite -nt $sockname Accept-Language: en-us,en;q=0.5
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname
}
on *:sockread:haber: {
sockread %h
tokenize 32 %h
if <td class=row_date* iswm $1- {
var %tarih $gettok($gettok($1-,3,59),1,38)
var %x $remove($1-,$mid($1-,1,123))
var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)
var %haber $gettok($gettok(%x,2,62),1,60)
if !$read(haber.txt,w,* $+ %haber $+ *,1) {
if $lines(haber.txt) >= 50 {
write -c haber.txt
}
write haber.txt 06 $+ %tarih 3:4 %haber * 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :6Son dakika haberi! (TR saatiyle: %tarih $+ )
sw nomercy PRIVMSG #haberler :4 $+ %haber 5*** 2Bu haberin ayrintilari icin: 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
}
}
}
alias randhaber {
sw nomercy PRIVMSG #haberler :2Haber hatirlatmasi: $read(haber.txt)
}

arkadaşlar ben bunu çalıştıramadım habet.txt içine yazıyo ordan okuyo ama haber.txt içine içine haber yazdıramıyorum kendim bişi eklediğim zaman NoMercyi kapatım actığım zaman kendi siliyo ama yazmıyor bni yardım edin

 

Çevrimdışı

var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)

ßurasi iptal oldugu icin calişmiyor.

 

Çevrimdışı

peki ne yapmam grekiyo yardım edermisin

 

Çevrimdışı

vaLLa kardeş mIRC Scripting'den pek anlamam ama o adresten online haberleri cekip haber.txt yazdırıyor sanırım o adres kapali oldugu icinde calişmior calişan bir adresle oranın yerini değişirsen sanirim sorunun ortadan kalkar. büyük ihtimal..

 

Çevrimdışı

on *:sockread:haber: {
sockread %h
tokenize 32 %h
if <td class=row_date* iswm $1- {
var %tarih $gettok($gettok($1-,3,59),1,38)
var %x $remove($1-,$mid($1-,1,123))
var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)
var %haber $gettok($gettok(%x,2,62),1,60)
if !$read(haber.txt,w,* $+ %haber $+ *,1) {
if $lines(haber.txt) >= 50 {
write -c haber.txt


orayı dediğin gibi yaptım ama gene bi değişiklik yok

 

Çevrimdışı

alias haber {
if $sock(haber) {
sockclose $ifmatch
}
sockopen haber [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:haber: {
if $sockerr {
return
}
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Yoklarken Bunları buldum
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= bu adresi Birde
sondadika.internethaber.com yapıp öle bir dene.

 

Çevrimdışı

yok yaw gene olmadı valla ben bu çalıştıramadımya benden başkada kimse çalıştıramaz çalıştıracak adamında elinden öperim ustam derim
aslında mantık gayet basit

on *:sockopen:haber: {
if $sockerr {
return
}
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: sondakika.internethaber.com
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr-TR; rv:1.7.8) Gecko/20050511 Firefox/1.0.4
sockwrite -nt $sockname Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/pn
sockwrite -nt $sockname Accept-Language: en-us,en;q=0.5
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname
}
on *:sockread:haber: {
sockread %h
tokenize 32 %h
if <td class=row_date* iswm $1- {
var %tarih $gettok($gettok($1-,3,59),1,38)
var %x $remove($1-,$mid($1-,1,123))
var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)
var %haber $gettok($gettok(%x,2,62),1,60)
if !$read(haber.txt,w,* $+ %haber $+ *,1) {
if $lines(haber.txt) >= 50 {
write -c haber.txt
}
write haber.txt 06 $+ %tarih 3:4 %haber * 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :6Son dakika haberi! (TR saatiyle: %tarih $+ )
sw nomercy PRIVMSG #haberler :4 $+ %haber 5*** 2Bu haberin ayrintilari icin: 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
}
}
}
alias randhaber {
sw nomercy PRIVMSG #haberler :2Haber hatirlatmasi: $read(haber.txt)
}



var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)
bu adresten aldığını haber.txt içine yazıyo ordan okuyup #haberler kanalına yazıyo mantık bu ama bir yerde bir yanlış var ama nerde

 

Çevrimdışı

kafayı kullalalım az biraz


var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)

bu adres çalışmıyo 1 sebep bu olabilir onun yerine çalışan bir adres olarak

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] koydum değişen bişi yok başka bir hata göremiyorum ki

 

Çevrimdışı

Evet Bende Denedım Olmadı Durum Biraz Karısık... Botta Sorun Var sanırım