Selasa, 4 Disember 2012

mIRC Script - mIRC Lock


alias start if ($dialog(start) == $null) { $dialog(start,start,-4) }
dialog start {
  title "Masukan Katalaluan"
  size -1 -1 206 76
  edit "", 10, 36 13 132 19, pass autohs
  button "OK", 20, 18 44 75 23, ok
  button "Batal", 30, 113 44 75 23, cancel
  text "", 17, 180 15 15 13
  icon 271, -5 -55 250 225,

}
on 1:dialog:start:sclick:*:{
  if ($did == 20) { set %password $did(start,10).text | if (%password == %ok) { .timercount off | echo -a 4-
( 5Akses Di Terima 4)- | unset %count } | if (%password != %ok) { echo -a 4-( 5 Katalaluan Salah Akses
Di Tolak 4)-  | exit1 } }
  if ($did == 30) { exit1 }
}
on 1:dialog:start:init:*:{
  .timercount 0 1 pass1
  set %count 30
}
alias pass if ($dialog(pass) == $null) { dialog -m pass pass }
dialog pass {
  title SpyCops Lock
  size -1 -1 200 185
  button "OK", 20, 15 155 75 23
  button "Batal", 36, 110 155 75 23, cancel
  button "Reset", 30, 160 30 35 20, ok
  box "Katalaluan:", 26, 36 15 120 44
  radio "YA", 27, 60 35 35 13, group
  radio "XD", 28, 100 35 35 13
  box "Masukan Katalaluan:", 16, 25 60 145 80
  edit "", 8, 30 75 100 22, pass autohs
  edit "", 14, 30 110 100 22, pass autohs
  text "", 17, 140 95 20 13
  text "Taip Semula:", 18, 33 97 95 14
}
on 1:dialog:pass:init:*:{
  if (%ok? == $null) && (%ok == $null) { set %pass off | did -b pass 8,14,16,18 }
  if (%pass == on) { did -c pass 27 }
  if (%pass == off) { did -c pass 28 | did -b pass 8,14,16,18 }
  did -o pass 8 1 %ok?
  did -o pass 14 1 %ok
}
on 1:dialog:pass:sclick:*:{
  if ($did == 27) { set %pass on | did -e pass 8,14,16,18 }
  if ($did == 28) { set %pass off | did -b pass 8,14,16,18 }
  if ($did == 20) {  if (%pass == off) { dialog -c pass | halt } | set %ok? $did(pass,8).text | set %ok $did
(pass,14).text | if (%ok? == %ok) {  did -ra pass 17 Ok | .timer 1 1 dialog -c pass } | if (%ok? != %ok) {  did -
ra pass 17 No } | if (%ok? == $null) { did -ra pass 17 No | unset %ok | unset %ok? | .timer 1 1 pass } | if (%ok
== $null) { did -ra pass 17 No | unset %ok | unset %ok? | .timer 1 1 pass } }
  if ($did == 30) { set %pass off | unset %ok | unset %ok? | .timer 1 0 pass }
}
on *:start: {
  if (%pass == on) { start }
}
alias exit1 { if ($dialog(start) != $null) {
    unset %count
    dialog -x start start
    .timercount off
    .timer 1 1 exit
  }
}
menu * {
  Kunci Spy Cops:/pass
}
alias pass1 {
  dec %count 1 
  if (%count == 0) { unset %count | echo -a 4 mIRC Ditutup!! | exit1 }
  pass2
}
alias pass2 { if ($dialog(start) != $null) {
    did -ra start 17 %count  
  }
}

Tiada ulasan:

Catat Ulasan