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

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/)

- - port ac/kapat (https://www.ircforumlari.net/mirc-scripting-sorunlari/678745-port-ac-kapat.html)

Darnasus

06 Şubat 2015 12:13

port ac/kapat

Merhaba,

Asagidaki gibi bir kod editledim. Bu kodun amaci belirttigim portun girislerini istedigim zaman kapatabilmem. $read dedigim de eklenen portu okutamadim lakin, nerede hata yapiyorum?

Kod:

on *:text:*:#kontrol:{

  if $1 == !port {

    if !$2 { msg $chan Port belirtin. Portlari 4!portlar komutu ile listeleyebilirsiniz  }

    else {

      if !$read(port.txt,w,$+(*,$2-,*)) { msg # Belirttiginiz port bulunamadi. | return }

      .write acport.txt $2-

      .msg # Port kayit edildi. 

      .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin

    }

  }

  if $1 == !portlar { var %:m = 1 | while %:m <= $lines(port.txt) { msg # %:m - $read(port.txt,%:m) | inc %:m } }

  if $1 == !pstop {

    /msg # Port girisleri durduruldu

    .remove acport.txt
 

  }

}
 

on *:snotice:*:{ if *$+ $read(acport.txt)* iswm $8 { gline $+(*@,$gettok($gettok($10,2,64),1,41))  :Sunucu Guvenligi }
 

} 

}

Toprak

06 Şubat 2015 14:00

Cevap: port ac/kapat

Snotice kısmı böyle;

Kod:

on *:snotice:*Client connecting on port*: $iif($read(acport.txt,w,$remove($8,:)),gline $+(*@,$token($token($10,2,64),1,41)) +1h Sunucu Güvenliği)

Darnasus

06 Şubat 2015 14:23

Cevap: port ac/kapat

Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .msg # $read(acport.txt,*) nolu girisler kapatildi. Durdurmak icin !pstop yazin bu kisimda da okumuyor. Orayi nasil sey ettirmek gerek ;d

Darnasus

08 Şubat 2015 22:12

Cevap: port ac/kapat

* Geçersiz format: $iif
-

Yukarida ki hatayi veriyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak

09 Şubat 2015 11:56

Cevap: port ac/kapat

Tekrar alırmısın.

Darnasus

09 Şubat 2015 13:19

Cevap: port ac/kapat

Alıntı:

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

Tekrar alırmısın.

Eyvallah simdilik hata vermedi. Diger kisimdaki $read nasil degistirebilirim bir kac sekilde denedim ama ama okumadi.

Toprak

09 Şubat 2015 13:32

Cevap: port ac/kapat

Kod:

var %:p = 1 | while %:p <= $lines(acport.txt) {

.hadd -ms Port List $hget(Port,List) $read(acport.txt,%:p)

inc %:p

}

msg # $hget(Port,List) Port'ları kapatıldı..

gibi..

Darnasus

09 Şubat 2015 13:47

Cevap: port ac/kapat

$read(port.txt,w,$+(*,$2-,*)) seklinde hallettim kardesim, sag ol. Konu kapatilabilir

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:59.