KeyPad

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.5
Scores Submitted	2
Date Added	Aug 05, 2007
Last Updated	Aug 06, 2007
Tags	button dialog lock protection type

Introduction

This can be useful for stopping people coming to your computer and typing in mIRC while you are away from the computer.

There is a channel sub menu, the 'Enter a security number' item will open a dialog for you to enter a security number which you will use later on. The 'Open KeyPad' item will effectively lock mIRC up preventing anyone from typing in anything on there other than the dialog. The dialog will only disappear when you click 'Go' after entering the correct number.

Grab the Code

dialog keypad {
  title "KEYPAD"
  option dbu
  size -1 -1 80 75
  text "Enter your security number", 23, 4 1 70 10
  edit "", 24, 4 9 70 10, read
  button "1", 25, 4 21 23 11
  button "2", 26, 28 21 23 11
  button "3", 27, 52 21 23 11
  button "4", 28, 4 34 23 11
  button "5", 29, 28 34 23 11
  button "6", 30, 52 34 23 11
  button "7", 31, 4 47 23 11
  button "8", 32, 28 47 23 11
  button "9", 33, 52 47 23 11
  button "0", 34, 15 60 23 11
  button "Go", 35, 40 60 23 11, ok
}
alias keypad {
  $dialog(keypad,keypad,-2)
}
on *:DIALOG:keypad:close:*: {
  if (( %keypad != %keypadnum )) {
    .timer -m 1 0 keypad
  }
  unset %keypad
}
on *:DIALOG:keypad:sclick:*: {
  if (( $did isnum 25-34 )) {
    did -a keypad 24 $did($did)
    set %keypad $did(24)
  }
  if (( $did(24) != $null )) did -e keypad 35
  else did -b keypad 35
}
dialog numberentry {
  title "KEYPAD"
  option dbu
  size -1 -1 80 75
  text "Choose your security number", 23, 4 1 72 10
  edit "", 24, 4 9 70 10, read
  button "1", 25, 4 21 23 11
  button "2", 26, 28 21 23 11
  button "3", 27, 52 21 23 11
  button "4", 28, 4 34 23 11
  button "5", 29, 28 34 23 11
  button "6", 30, 52 34 23 11
  button "7", 31, 4 47 23 11
  button "8", 32, 28 47 23 11
  button "9", 33, 52 47 23 11
  button "0", 34, 15 60 23 11
  button "Go", 35, 40 60 23 11, ok
}
on *:DIALOG:numberentry:sclick:*: {
  if (( $did isnum 1-34 )) {  did -a numberentry 24 $did($did) }
  if (( $did == 35 )) {
    if (( $input(Do you want your security number to be $did(numberentry,24) $+ ?,-y,Confirmation,3,4) )) {
      set %keypadnum $did(numberentry,24)
    }
  }
  if (( $did(24) != $null )) did -e numberentry 35
  else did -b numberentry 35
}
alias numberentry {
  $dialog(numberentry,numberentry)
}
on *:DIALOG:numberentry:init:*: {
  did -b numberentry 35
}
on *:DIALOG:keypad:init:*: {
  did -b keypad 35
}
menu channel {
  Keypad
  .Enter A Security Number:numberentry
  .Open KeyPad:keypad
}

Comments

(6) RSS

Go to Bottom

Olliegod

Comments: 74

mIRC Snippet: KeyPad
Posted on Aug 6, 2007 2:59 am

You could simplify the number click events greatly by using if ($did isnum 25-34)

Callison1

Comments: 130

mIRC Snippet: KeyPad
Posted on Aug 6, 2007 3:42 am

I didn\'t think of that, updated.

I also removed a glitch where on the dialog where you choose a security number you could click X and set your security number as nothing.

Olliegod

Comments: 74

mIRC Snippet: KeyPad
Posted on Aug 6, 2007 4:33 am

That shortened up a bit wouldn\'t you say? ;)

Callison1

Comments: 130

mIRC Snippet: KeyPad
Posted on Aug 6, 2007 5:08 am

Lol yea just a bit.

Trav

Comments: 16

mIRC Snippet: KeyPad
Posted on Aug 17, 2007 9:48 am

Great script man even though mirc comes with a built in password thing you just minimize mirc while clicking ctrl, but this is great \'cause you don\'t have to reset your pass each time! Gj

mountaindew

Comments: 1,539

mIRC Snippet: KeyPad
Posted on Oct 5, 2007 9:12 pm

was about to say what trav said, simply hold ctrl and minimize ;)

but this is a great idea, very original, good job

suggestion: maybe replace what you click with *\'s

KeyPad

Introduction

Grab the Code

Comments

Callison1

My Snippet Tags

Contact

Friends (4)

Sponsors

		Pyromaniac Britain
Last seen: Mar 22, 2008 Profile Friends (4) Snippets (13) Comments Received (140) Comments Submitted (130) Forum Posts (387)