NoMercy den anlayan biri bakabilirmi
 

; 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

Cevap: NoMercy den anlayan biri bakabilirmi
 

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.

Yanıt: NoMercy den anlayan biri bakabilirmi
 

peki ne yapmam grekiyo yardım edermisin

Cevap: NoMercy den anlayan biri bakabilirmi
 

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..

Yanıt: NoMercy den anlayan biri bakabilirmi
 

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

Cevap: NoMercy den anlayan biri bakabilirmi
 

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.

Yanıt: NoMercy den anlayan biri bakabilirmi
 

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

Yanıt: NoMercy den anlayan biri bakabilirmi
 

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

Cevap: NoMercy den anlayan biri bakabilirmi
 

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