mIRC information

By lehmann14l on Aug 24, 2007

Load it and hit F5

comments/suggestions appreciated :)

alias /F5 { dialog -ma mircinfo mircinfo }
dialog mircinfo {
  title "Information"
  option dbu
  size -1 -1 150 112
  icon "", 0
  button "Close", 2, 0 102 20 10, cancel
  button "Refresh", 20, 20 102 25 10
  text "", 3, 5 3 50 15
  text "", 4, 5 10 100 15
  text "", 5, 5 17 100 15
  text "", 6, 5 24 100 15
  text "", 7, 5 31 100 15
  text "", 8, 5 38 100 15
  text "", 9, 5 45 150 15
  text "", 10, 5 52 100 15
  text "", 11, 5 59 100 15
  text "", 12, 5 66 150 15
  text "", 13, 5 73 150 15
  text "", 14, 5 87 150 15
}
on *:dialog:mircinfo:init:0: {
  did -ra mircinfo 3 mIRC Version: $version
  did -ra mircinfo 4 $fulldate
  did -ra mircinfo 5 Connected: $uptime(server,1)
  did -ra mircinfo 6 Server: $server
  did -ra mircinfo 7 Status: $status
  did -ra mircinfo 8 Your IP: $ip
  did -ra mircinfo 9 Mask: $address($me,2)
  did -ra mircinfo 10 Operating System: $os
  did -ra mircinfo 11 Speaker Volume: $vol(master) Mute: $vol(master).mute
  did -ra mircinfo 12 Free space on drive C:\ $calc($calc($disk(1).free / 1024) / 1024) MB
  did -ra mircinfo 13 Path To mIRC.exe: $mircexe
  did -ra mircinfo 14 Current WebPage: $url
}
on *:dialog:mircinfo:sclick:20: {
  did -ra mircinfo 3 mIRC Version: $version
  did -ra mircinfo 4 $fulldate
  did -ra mircinfo 5 Connected: $uptime(server,1)
  did -ra mircinfo 6 Server: $server
  did -ra mircinfo 7 Status: $status
  did -ra mircinfo 8 Your IP: $ip
  did -ra mircinfo 9 Mask: $address($me,2)
  did -ra mircinfo 10 Operating System: $os
  did -ra mircinfo 11 Speaker Volume: $vol(master) Mute: $vol(master).mute
  did -ra mircinfo 12 Free space on drive C:\ $calc($calc($disk(1).free / 1024) / 1024) MB
  did -ra mircinfo 13 Path To mIRC.exe: $mircexe
  did -ra mircinfo 14 Current WebPage: $url
}

Comments

Sign in to comment.
xDaeMoN   -  Aug 24, 2007

You can put the mirc information in an alias so when you load the dialog or click refresh, it will just redirect to the alias, thus shortens the code.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.