Proxy Host Koruması Dialog

proxy

alias hosta { .$iif(!$dialog(hosta),dialog -m hosta hosta,dialog -c hosta hosta) }
dialog Hosta {
  title "Proxy Host Korumasi."
  size -1 -1 240 170
  option dbu
  box "", 1, 10 1 220 142
  edit "", 2, 17 32 64 10, return autohs
  list 3, 17 44 64 75, size
  button "Ekle", 4, 17 21 32 10
  button "SiL", 5, 49 21 32 10
  edit "", 6, 87 32 64 10, return autohs
  list 7, 87 44 64 75, size 
  button "Ekle", 8, 87 21 32 10
  button "SiL", 9, 119 21 32 10
  edit "", 10, 158 32 64 10, return autohs
  list 11, 158 44 64 75, size 
  button "Ekle", 12, 158 21 32 10
  button "SiL", 13, 190 21 32 10
  Radio "", 14, 17 124 7 10
  Radio "", 15, 70 124 7 10
  Radio "", 16, 123 124 7 10
  Radio "", 17, 176 124 7 10
  Text "Oper K+b", 19, 23 124 40 10, Center
  Text "Op K+b", 20, 76 124 40 10, Center
  Text "Oper Gzline", 21, 129 124 40 10, Center
  Text "Host Kapat", 22, 182 124 40 10, Center
  Button "Tamam Kapat", 23, 10 150 220 14,ok
  Text "Host Listesi" 24, 17 8 64 10, Center
  Text "Muaf Host Listesi" 25, 87 8 64 10, Center
  Text "Muaf Kanal Listesi" 26, 158 8 64 10, Center
}
on 1:dialog:Hosta:init:0: { 
  if ($isfile(scripts\host.txt) == $false) { write -c scripts\host.txt } | else { loadbuf -o $dname 3 scripts\host.txt }
  if ($isfile(scripts\muafhost.txt) == $false) { write -c scripts\muafhost.txt } | else { loadbuf -o $dname 7 scripts\muafhost.txt }
  if ($isfile(scripts\hmuafkanal.txt) == $false) { write -c scripts\hmuafkanal.txt } | else { loadbuf -o $dname 11 scripts\hmuafkanal.txt }
  if ($group(#hostadkb) == on) { did -c $dname 14 }
  if ($group(#hostopkb) == on) { did -c $dname 15 }
  if ($group(#hostgz) == on) { did -c $dname 16 }
  if ($group(#hostkapat) == on) { did -c $dname 17 }
}
#hostkapat on
#hostkapat end
on *:dialog:Hosta:sclick:*:{
  if ($did == 4) { if ($did(2) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return }
    elseif (#* iswm $did(2)) { echo -a  Lütfen kanal eklemeyiniz. Host listesidir. Örnek Host: *mchsi*  | return }
    else { write scripts\host.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }
  }
  if ($did == 5) { if ($did(3).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(3).sel scripts\host.txt | did -d $dname 3 $did(3).sel }
  }
  if ($did == 8) { if ($did(6) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return }
    elseif (#* iswm $did(6)) { echo -a  Lütfen kanal eklemeyiniz. Muaf Host listesidir. Örnek Host: *Oper*  | return }
    else { write scripts\muafhost.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 }
  }
  if ($did == 9) { if ($did(7).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(7).sel scripts\muafhost.txt | did -d $dname 7 $did(7).sel }
  }
  if ($did == 12) { if ($did(10) == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return } 
    elseif (#* !iswm $did(10)) { echo -a  Muaf Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac  | return }
    else { write scripts\hmuafkanal.txt $did(10) | did -a $dname 11 $did(10) | did -r $dname 10 }
  }
  if ($did == 13) { if ($did(11).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else {  write -dl $+ $did(11).sel scripts\hmuafkanal.txt | did -d $dname 11 $did(11).sel }
  }
  if ($did(14).state == 1) { .enable #hostadkb | .disable #hostgz | .disable #hostopkb | .disable #hostkapat }
  if ($did(15).state == 1) { .enable #hostopkb  | .disable #hostgz | .disable #hostkapat | .disable #hostadkb }
  if ($did(16).state == 1) { .enable #hostgz  | .disable #hostadkb | .disable #hostopkb | .disable #hostkapat }
  if ($did(17).state == 1) { .enable #hostkapat  | .disable #hostgz | .disable #hostopkb | .disable #hostadkb }
}
#hostkapat on
#hostkapat end
#hostadkb off
on !*:join:#:{
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        kick $chan $nick  Yasak Host!   
        mode # +b $+(*!*@,$v1)
        break
      } 
      dec %hd
    } 
  }
}
#hostadkb end
#hostopkb off
on !*:join:#:{
  if ($me isop $chan) || ($me ishelp $chan)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        kick $chan $nick  Yasak Host!   
        mode # +b $+(*!*@,$v1)
        break
      } 
      dec %hd
    } 
  }
}
#hostopkb end
#hostgz off
on !*:join:#:{
  if (o isin $usermode)  {
    var %a 1 |  while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a  }
    if $istok(%mnall,$nick,32) { return }
    if $istok(%mkall,$chan,32) { return }
    var %c 1
    while (%c <= $lines(scripts\hmuafkanal.txt)) {
      if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }
      inc %c
    }
    var %c 1
    while (%c <= $lines(scripts\muafhost.txt)) {
      if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }
      inc %c
    }
    var %hd $lines(scripts\host.txt) 
    while (0 <= %hd) { 
      if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) { 
        .gzline $nick +30d  Yasak Host!   
        break
      } 
      dec %hd
    } 
  }
}
#hostgz end

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

alias hosta { .$iif(!$dialog(hosta),dialog -m hosta hosta,dialog -c hosta hosta) }

dialog Hosta {

title "Proxy Host Korumasi."

size -1 -1 240 170

option dbu

box "", 1, 10 1 220 142

edit "", 2, 17 32 64 10, return autohs

list 3, 17 44 64 75, size

button "Ekle", 4, 17 21 32 10

button "SiL", 5, 49 21 32 10

edit "", 6, 87 32 64 10, return autohs

list 7, 87 44 64 75, size

button "Ekle", 8, 87 21 32 10

button "SiL", 9, 119 21 32 10

edit "", 10, 158 32 64 10, return autohs

list 11, 158 44 64 75, size

button "Ekle", 12, 158 21 32 10

button "SiL", 13, 190 21 32 10

Radio "", 14, 17 124 7 10

Radio "", 15, 70 124 7 10

Radio "", 16, 123 124 7 10

Radio "", 17, 176 124 7 10

Text "Oper K+b", 19, 23 124 40 10, Center

Text "Op K+b", 20, 76 124 40 10, Center

Text "Oper Gzline", 21, 129 124 40 10, Center

Text "Host Kapat", 22, 182 124 40 10, Center

Button "Tamam Kapat", 23, 10 150 220 14,ok

Text "Host Listesi" 24, 17 8 64 10, Center

Text "Muaf Host Listesi" 25, 87 8 64 10, Center

Text "Muaf Kanal Listesi" 26, 158 8 64 10, Center

}

on 1:dialog:Hosta:init:0: {

if ($isfile(scripts\host.txt) == $false) { write -c scripts\host.txt } | else { loadbuf -o $dname 3 scripts\host.txt }

if ($isfile(scripts\muafhost.txt) == $false) { write -c scripts\muafhost.txt } | else { loadbuf -o $dname 7 scripts\muafhost.txt }

if ($isfile(scripts\hmuafkanal.txt) == $false) { write -c scripts\hmuafkanal.txt } | else { loadbuf -o $dname 11 scripts\hmuafkanal.txt }

if ($group(#hostadkb) == on) { did -c $dname 14 }

if ($group(#hostopkb) == on) { did -c $dname 15 }

if ($group(#hostgz) == on) { did -c $dname 16 }

if ($group(#hostkapat) == on) { did -c $dname 17 }

}

#hostkapat on

#hostkapat end

on *:dialog:Hosta:sclick:*:{

if ($did == 4) { if ($did(2) == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

elseif (#* iswm $did(2)) { echo -a Lütfen kanal eklemeyiniz. Host listesidir. Örnek Host: *mchsi* | return }

else { write scripts\host.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 }

}

if ($did == 5) { if ($did(3).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz... | return }

else { write -dl $+ $did(3).sel scripts\host.txt | did -d $dname 3 $did(3).sel }

}

if ($did == 8) { if ($did(6) == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

elseif (#* iswm $did(6)) { echo -a Lütfen kanal eklemeyiniz. Muaf Host listesidir. Örnek Host: *Oper* | return }

else { write scripts\muafhost.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 }

}

if ($did == 9) { if ($did(7).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz... | return }

else { write -dl $+ $did(7).sel scripts\muafhost.txt | did -d $dname 7 $did(7).sel }

}

if ($did == 12) { if ($did(10) == $null) { echo -a Lütfen Bosluk eklemeyiniz. | return }

elseif (#* !iswm $did(10)) { echo -a Muaf Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac | return }

else { write scripts\hmuafkanal.txt $did(10) | did -a $dname 11 $did(10) | did -r $dname 10 }

}

if ($did == 13) { if ($did(11).sel == 0) { echo -a Silmek Için Bir Satir Seçiniz... | return }

else { write -dl $+ $did(11).sel scripts\hmuafkanal.txt | did -d $dname 11 $did(11).sel }

}

if ($did(14).state == 1) { .enable #hostadkb | .disable #hostgz | .disable #hostopkb | .disable #hostkapat }

if ($did(15).state == 1) { .enable #hostopkb | .disable #hostgz | .disable #hostkapat | .disable #hostadkb }

if ($did(16).state == 1) { .enable #hostgz | .disable #hostadkb | .disable #hostopkb | .disable #hostkapat }

if ($did(17).state == 1) { .enable #hostkapat | .disable #hostgz | .disable #hostopkb | .disable #hostadkb }

}

#hostkapat on

#hostkapat end

#hostadkb off

on !*:join:#:{

if (o isin $usermode) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

var %c 1

while (%c <= $lines(scripts\hmuafkanal.txt)) {

if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }

inc %c

}

var %c 1

while (%c <= $lines(scripts\muafhost.txt)) {

if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }

inc %c

}

var %hd $lines(scripts\host.txt)

while (0 <= %hd) {

if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) {

kick $chan $nick Yasak Host!

mode # +b $+(*!*@,$v1)

break

}

dec %hd

}

#hostadkb end

#hostopkb off

on !*:join:#:{

if ($me isop $chan) || ($me ishelp $chan) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

var %c 1

while (%c <= $lines(scripts\hmuafkanal.txt)) {

if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }

inc %c

}

var %c 1

while (%c <= $lines(scripts\muafhost.txt)) {

if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }

inc %c

}

var %hd $lines(scripts\host.txt)

while (0 <= %hd) {

if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) {

kick $chan $nick Yasak Host!

mode # +b $+(*!*@,$v1)

break

}

dec %hd

}

#hostopkb end

#hostgz off

on !*:join:#:{

if (o isin $usermode) {

var %a 1 | while %a <= $numtok(%mhall,32) { if $gettok(%mhall,%a,32) iswm $address($nick,2)) { reteturn } | inc %a }

if $istok(%mnall,$nick,32) { return }

if $istok(%mkall,$chan,32) { return }

var %c 1

while (%c <= $lines(scripts\hmuafkanal.txt)) {

if ($read(scripts\hmuafkanal.txt,%c) iswm $chan) { return }

inc %c

}

var %c 1

while (%c <= $lines(scripts\muafhost.txt)) {

if ($read(scripts\muafhost.txt,%c) iswm $address($nick,2)) { return }

inc %c

}

var %hd $lines(scripts\host.txt)

while (0 <= %hd) {

if ($read(scripts\host.txt,%hd) iswm $address($nick,2)) {

.gzline $nick +30d Yasak Host!

break

}

dec %hd

}

#hostgz end

indir download butonundaki host.txt dosyasını indirip scripts klasoru içine bırakınız.

önceki yazımızda « Random fullname Koruması Dialog makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

125

Yazı kategorisi : mIRC Parça Kodlar

yorum yok

Proxy Host Koruması Dialog

Etiketler

Proxy Host Koruması Dialog İle Benzer Sohbet Yazıları

[!.]hapis NICK

Çeviri Diyalogu (TRANSLATE DİALOG)

mIRC Fihrist

Proxy Host Koruması Dialog

Proxy Host Koruması Dialog İle Benzer Sohbet Yazıları

Proxy Host Koruması Dialog yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?