IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

7Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Ocak 2018, 15:42   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cycle Radyo dinletme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias sunucu return 45.2.83.213:6667 alias setname return deneme alias chanlar return alias ident return deneme alias basla { foral timerforum 0 8 /foral timercycle 0 4 /clon } alias dur { .timerforum off .timercycle off } alias clon { set %andd $rand(0,9999999999999) set %proxy $read(proxy.txt) sockclose x $+ %andd sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) sockclose radyoc $+ %andd sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) } on *:sockopen:x*: { if ( $sockerr > 0 ) { return } sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF) } on *:sockread:x*:{ if ( $sockerr > 0 ) { return } var %report .sockread %report tokenize 32 %report var %asasa sockwrite -n $sockname if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) { set %and $rand(10,2000) %asasa NICK $read(nick.txt) %asasa USER $ident ” ” : $+ $setname .timer $+ $sockname 2 %and /sockclose $sockname %asasa join $chanlar } if ($1 == ping) { %asasa pong $2 } if (version isin $4) { %asasa notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) } if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit } } }

Kodda sorun yok radyo dinliyor ama nikler sunucudan cıkıs yaptıgında radyoyu hala dinliyor gözüküyor bu sorunu nasıl cozebilirim..
sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) ----- Diyerek nicklere radyo dinletiyorum.. sockclose radyoc $+ %andd --- diyerek denemedim ama malesef başaramadım..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 15 Ocak 2018, 20:59   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sw { if $sock($1).status == active { sockwrite -nt $1- } } alias sunucu return 45.2.83.213:6667 alias setname return deneme alias chanlar return alias ident return deneme alias basla { foral timerforum 0 8 /foral timercycle 0 4 /clon } alias dur { .timerforum off .timercycle off } alias clon { set %andd $rand(0,9999999999999) set %proxy $read(proxy.txt) sockclose x $+ %andd sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) sockclose radyoc $+ %andd sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) } on *:sockopen:x*: { if ( $sockerr > 0 ) { return } sw $sockname CONNECT $sunucu $+(HTTP/1.0,$CRLF,$CRLF) } on *:sockread:x*:{ if ( $sockerr > 0 ) { return } var %report .sockread %report tokenize 32 %report var %asasa sockwrite -n $sockname if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) { set %and $rand(10,2000) %asasa NICK $read(nick.txt) %asasa USER $ident ” ” : $+ $setname .timer $+ $sockname 2 %and /sockclose $sockname %asasa join $chanlar } if ($1 == ping) { %asasa pong $2 } if (version isin $4) { %asasa notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) } if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit } } }

Kodda sorun yok radyo dinliyor ama nikler sunucudan cıkıs yaptıgında radyoyu hala dinliyor gözüküyor bu sorunu nasıl cozebilirim..
sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) ----- Diyerek nicklere radyo dinletiyorum.. sockclose radyoc $+ %andd --- diyerek denemedim ama malesef başaramadım..

Radyo nun socket kısmı yok sanırım kodun içinde. Tam olarak kod bu mu?

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 21:06   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Radyo nun socket kısmı yok sanırım kodun içinde. Tam olarak kod bu mu?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:radyoc*:{ if ($sockerr > 0) { sockclose $sockname | returnex } sw $sockname CONNECT 53.5.3.213:1080 $+(HTTP/1.1,$CRLF,$CRLF) } on *:sockread:radyoc*:{ var %;rdin | sockread %;rdin | tokenize 32 %;rdin if ($gettok(%;rdin,1-2,32) == HTTP/1.0 200) || ($gettok(%;rdin,1-2,32) == HTTP/1.1 200) { sockwrite -nt $sockname GET /;*.nsv HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36 sockwrite -nt $sockname Accept: */* sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 sockwrite -nt $sockname Range: bytes=0- sockwrite -nt $sockname $crlf } }

bununla da ayrı remote acıp dinletiyorum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][COLOR="Silver"]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:06 -->-> Daha önceki mesaj 21:04 --

[/COLOR @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buarada konu baslagındaki ilk kod cycle bot un kodları içine radyo acması için bi kod yerleştirdim acıyor radyo yu nikler ama nik sunucudan cıkınca radyo kapatmıyor tek sorun o

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 22:08   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:radyoc*:{ if ($sockerr > 0) { sockclose $sockname | returnex } sw $sockname CONNECT 53.5.3.213:1080 $+(HTTP/1.1,$CRLF,$CRLF) } on *:sockread:radyoc*:{ var %;rdin | sockread %;rdin | tokenize 32 %;rdin if ($gettok(%;rdin,1-2,32) == HTTP/1.0 200) || ($gettok(%;rdin,1-2,32) == HTTP/1.1 200) { sockwrite -nt $sockname GET /;*.nsv HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36 sockwrite -nt $sockname Accept: */* sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 sockwrite -nt $sockname Range: bytes=0- sockwrite -nt $sockname $crlf } }

bununla da ayrı remote acıp dinletiyorum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][COLOR="Silver"]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:06 -->-> Daha önceki mesaj 21:04 --

[/COLOR @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buarada konu baslagındaki ilk kod cycle bot un kodları içine radyo acması için bi kod yerleştirdim acıyor radyo yu nikler ama nik sunucudan cıkınca radyo kapatmıyor tek sorun o

Cycle botuna baktım şöyle bir deneyelim.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit } }

bu kısmı

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) } }

olarak dener misin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

birde bu kodu ekle

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 22:23   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Cycle botuna baktım şöyle bir deneyelim.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit } }

bu kısmı

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) } }

olarak dener misin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

birde bu kodu ekle



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

bu kodu nereye koyayım buarada dediginle değiştirdim bi tık yok hala dinliyor gozukuyor kapatmadı radyoyu

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 22:31   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

bu kodu nereye koyayım buarada dediginle değiştirdim bi tık yok hala dinliyor gozukuyor kapatmadı radyoyu

ilk verdiğin kodun en altına koy.

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 22:37   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ilk verdiğin kodun en altına koy.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) on *:sockclose:x*: sockclose $replace($sockname,x,radyoc) } } }

sanırım boyle

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:37 -->-> Daha önceki mesaj 22:36 --

TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($2 == 001) {
.hinc -ms Bot gir
if $hget(Bot,gir) > $r(4,8) {
var %bot $sock(x*,$r(1,$sock(x*,0)))
sockwrite -nt %bot quit
sockclose $replace(%bot,x,radyoc)
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)
}
}
}
sanırım boyle

suan deniyorum birazdan calıstıgına dair soylerim

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 22:40   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) on *:sockclose:x*: sockclose $replace($sockname,x,radyoc) } } }

sanırım boyle

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:37 -->-> Daha önceki mesaj 22:36 --



suan deniyorum birazdan calıstıgına dair soylerim

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) } } } on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

Bu şekilde

 
Alıntı ile Cevapla

Alt 15 Ocak 2018, 23:23   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




pckopat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($2 == 001) { .hinc -ms Bot gir if $hget(Bot,gir) > $r(4,8) { var %bot $sock(x*,$r(1,$sock(x*,0))) sockwrite -nt %bot quit sockclose $replace(%bot,x,radyoc) } } } on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)

Bu şekilde

evet dedigin şekilde ekledim sonuc basaralı radyosunu kapatıyor cok teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][COLOR="Silver"]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:23 -->-> Daha önceki mesaj 22:50 --

[/COLOR @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] son bişey sorcam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58)

bu kısımdan baska türlü radyo actırtamam mı acaba ?

 
Alıntı ile Cevapla

Alt 16 Ocak 2018, 00:09   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Cycle Radyo dinletme




TR-ance Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
evet dedigin şekilde ekledim sonuc basaralı radyosunu kapatıyor cok teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][COLOR="Silver"]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:23 -->-> Daha önceki mesaj 22:50 --

[/COLOR @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] son bişey sorcam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
sockopen x $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58) sockopen radyoc $+ %andd $gettok(%proxy,1,58) $gettok(%proxy,2,58)

bu kısımdan baska türlü radyo actırtamam mı acaba ?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias clon { var %:r = $rand(100,9999999), var %:prox = $read(proxy.txt) sockopen $+(x,%:r) $gettok(%:prox,1,58) $gettok(%:prox,2,58) sockopen $+(radyoc,%:r) $gettok(%:prox,1,58) $gettok(%:prox,2,58) }

Bu şekilde dener misin

 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Erkeklere Söz Dinletme Yolları Sue Ah Erkekler 1 09 Ağustos 2012 15:18