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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Kendi IP Adresimle , Cycle Bot (https://www.ircforumlari.net/mirc-scripting-sorunlari/720911-kendi-ip-adresimle-cycle-bot.html)

Kendi IP Adresimle , Cycle Bot

Kod:

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }

alias sunucu return irc.sohbetlisin.com:muafport

alias setname return [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Wep User Wep User

alias chanlar return #deneme

alias ident return S-Com

alias basla {

  foral

  timerforum 0 120 /foral

  timercycle 0 1 /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)

}

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 1 %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) }

}
 

alias afree {

  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )

  return %x

}

proxy kulanmadan kendi ip adresimle giriş cıkış yaptrmam mümkünmü ?

Cevap: Kendi IP Adresimle , Cycle Bot

Gibi..

Kod:

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }

alias sunucu return irc.sohbetlisin.com muafport

alias setname return Site Yapım Aşamasındadır Wep User Wep User

alias chanlar return #deneme

alias ident return S-Com

alias basla {

  timercycle 0 1 /clon

}

alias dur {

  .timercycle off

}

alias clon {

  set %andd  $rand(0,9999999999999)

  sockclose $+(x,%andd)

  sockopen $+(x,%andd) $sunucu

}

on *:sockopen:x*: {

  if ( $sockerr > 0 ) { return }

  sw $sockname NICK $read(nick.txt)

  sw $sockname USER $ident " "  : $+ $setname

  sw $sockname join $chanlar

}

on *:sockread:x*:{

  if ( $sockerr > 0 ) { return }

  var %report | sockread %report | tokenize 32 %report

  if ($1 == ping) { sw $sockname pong $2 }

  if (version isin $4) { sw $sockname notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) }

}

Denemedim ama mantık bu. ;)

Cevap: Kendi IP Adresimle , Cycle Bot

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sunucu lightirc verdiğiniz kod eschat e göre ayarlı sanırım çalışmadı

Cevap: Kendi IP Adresimle , Cycle Bot

Alıntı:

ahmetsivas Nickli Üyeden Alıntı (Mesaj 1041718699)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sunucu lightirc verdiğiniz kod eschat e göre ayarlı sanırım çalışmadı

O version cevap'ı onu değişebilirsiniz inceledim de çalışmaması için bir durum yok :)
Kodları mirc'e ekleyin sonra /basla yazın o kadar.

Cevap: Kendi IP Adresimle , Cycle Bot

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodu mircta alt + r yapıp remote bölümüne ekle .
Mirc.exe oldugu yere nick.txt adlı dosya ac içine nickleri yaz kaydet.
Mirc scriptte /basla komutu ile aktif et.

Kodda sorun yok çalışıyor. Çalışmasına çalışırda sunucuda clone koruması varsa zline yersin : )

Cevap: Kendi IP Adresimle , Cycle Bot

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041718672)

Gibi..

Kod:

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }

alias sunucu return irc.sohbetlisin.com muafport

alias setname return Site Yapım Aşamasındadır Wep User Wep User

alias chanlar return #deneme

alias ident return S-Com

alias basla {

  timercycle 0 1 /clon

}

alias dur {

  .timercycle off

}

alias clon {

  set %andd  $rand(0,9999999999999)

  sockclose $+(x,%andd)

  sockopen $+(x,%andd) $sunucu

}

on *:sockopen:x*: {

  if ( $sockerr > 0 ) { return }

  sw $sockname NICK $read(nick.txt)

  sw $sockname USER $ident " "  : $+ $setname

  sw $sockname join $chanlar

}

on *:sockread:x*:{

  if ( $sockerr > 0 ) { return }

  var %report | sockread %report | tokenize 32 %report

  if ($1 == ping) { sw $sockname pong $2 }

  if (version isin $4) { sw $sockname notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) }

}

Denemedim ama mantık bu. ;)

hata veriyor yanlış bişiler var :))

* /sockopen: Geçersiz parametre (Satır 15, script14.mrc)

Cevap: Kendi IP Adresimle , Cycle Bot

Bu codu yayinlamama sebebim kötü amac'lar için kullanilabilir oldugundan kaynakli , ondan k.bakmasin kimse yeni güncelleme yapmiycam , yapmayi düşünen arkadaslarda yapmamasina özen göstermesini isterim, Hayırlı IF'ler.