IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Cycle Radyo dinletme (https://www.ircforumlari.net/mirc-scripting-sorunlari/782610-cycle-radyo-dinletme.html)

Dahaka 14 Ocak 2018 15:42
Cycle Radyo dinletme
 
Kod:
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..

Alper 15 Ocak 2018 20:59
Cevap: Cycle Radyo dinletme
 
Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041896536)
Kod:
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?

Dahaka 15 Ocak 2018 21:06
Cevap: Cycle Radyo dinletme
 
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041897146)
Radyo nun socket kısmı yok sanırım kodun içinde. Tam olarak kod bu mu?
Kod:
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

Alper 15 Ocak 2018 22:08
Cevap: Cycle Radyo dinletme
 
Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041897150)
Kod:
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:
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:
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:
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)
birde bu kodu ekle

Dahaka 15 Ocak 2018 22:23
Cevap: Cycle Radyo dinletme
 
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041897203)
Cycle botuna baktım şöyle bir deneyelim.
Kod:
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:
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:
on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)
birde bu kodu ekle


Kod:
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

Alper 15 Ocak 2018 22:31
Cevap: Cycle Radyo dinletme
 
Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041897209)
Kod:
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.

Dahaka 15 Ocak 2018 22:37
Cevap: Cycle Radyo dinletme
 
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041897210)
ilk verdiğin kodun en altına koy.
Kod:
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 --

Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041897213)
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

Alper 15 Ocak 2018 22:40
Cevap: Cycle Radyo dinletme
 
Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041897213)
Kod:
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:
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

Dahaka 15 Ocak 2018 23:23
Cevap: Cycle Radyo dinletme
 
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041897218)
Kod:
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:
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 ?

Alper 16 Ocak 2018 00:09
Cevap: Cycle Radyo dinletme
 
Alıntı:
TR-ance Nickli Üyeden Alıntı (Mesaj 1041897227)
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:
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:
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:03.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net