Docstoc

scan ip

Document Sample
scan ip Powered By Docstoc
					dialog ipfind {
  title "Ip To Nick"
  size -1 -1 205 237
  box "Nick Finder", 1, 0 2 205 235
  edit "", 2, 51 20 144 21,
  text "Enter IP", 3, 7 23 39 16
  box "Nick's Are", 4, 5 76 130 155
  list 5, 10 91 119 135, size
  button "Search", 6, 107 47 87 26, flat
  button "Close", 7, 140 205 59 25, cancel, flat
  button "Kick", 8, 140 82 59 25, flat
  button "Who Is", 9, 140 138 59 25, flat
  button "Msg Kick", 10, 140 110 59 25, flat
  combo 12, 9 49 90 90, hsbar drop
}

alias ipf { if $dialog(ipfind) == $null) dialog -m ipfind ipfind }
alias ipserch {
  var %sock * $+ $did(ipfind,2) $+ *
  var %sockt $ialchan(%sock,$did(ipfind,12),0)
  while (%sockt) { did -a ipfind 5
$ialchan(%sock,$did(ipfind,12),%sockt).nick | dec %sockt }
}

on *:dialog:ipfind:sclick:6:{
  if ($did(ipfind,2) !== $null) && ($did(ipfind,12).seltext !== $null) &&
($server !== $null) {
    did -r ipfind 5
    dialog -t ipfind Ip To Nick .. Please Wait
    did -b ipfind 2,6,12
    timer565 0 0 rnnick
    who $did(ipfind,12)
  }
}
raw 315:*:{ if ($dialog(ipfind) !== $null) { ipserch | dialog -t ipfind
Ip To Nick .. Finshed | did -e ipfind 2,6,12 | timer565 off | did -ra
ipfind 6 Search } }
raw 352:*:{ if ($dialog(ipfind) !== $null) { halt } }

on *:join:#:{ if ($nick == $me) && $dialog(ipfind) !== $null) did -a
ipfind 12 $chan }
alias rnnick {
  if ($dialog(ipfind) !== $null) {
    set %rnnick $nick($did(ipfind,12),$r(1,$nick($did(ipfind,12),0)))
    if ($len(%rnnick) <= 10) did -ra ipfind 6 %rnnick
  }
  elseif ($server == $null) { timer565 off | did -e 2,12,6 }
}
on *:dialog:ipfind:init:0:{ var %chnget $chan(0) | while (%chnget) { did
-a ipfind 12 $chan(%chnget) | dec %chnget } | did -c ipfind 12 1 }

on *:dialog:ipfind:sclick:8:{
  if ($did(ipfind,5).seltext !== $null) {
    var %c = $comchan($did(ipfind,5).seltext,0) | while (%c) { ban
$comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext | kick
$comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext Ip To Nick
Kick | dec %c }
  }
}
on *:dialog:ipfind:dclick:5:{ query $did(ipfind,5).seltext }

on *:dialog:ipfind:sclick:9:{ if ($did(ipfind,5).seltext !== $null) uwho
$did(ipfind,5).seltext }

on *:dialog:entmsg:sclick:2:{
  if ($did(ipfind,5).seltext !== $null) {
    var %c = $comchan($did(ipfind,5).seltext,0) | while (%c) { ban
$comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext | kick
$comchan($did(ipfind,5).seltext,%c) $did(ipfind,5).seltext
$did(entmsg,1).text | dec %c }
  }
  if $dialog(entmsg) !== $null) dialog -x entmsg entmsg
}

on *:dialog:ipfind:sclick:10:{ if $dialog(entmsg) == $null) dialog -m
entmsg entmsg }
alias samak { return About Ip To Nick }
dialog entmsg {
  title "Kick With Msg"
  size -1 -1 351 43
  edit "", 1, 0 4 271 37, multi
  button "Kick", 2, 274 4 75 17, flat
  button "Cansel", 3, 274 24 75 17, cancel, flat
}


on *:dialog:ipfind:sclick:11:{ if $dialog(abtipf) == $null) dialog -m
abtipf abtipf }

on *:dialog:abtipf:init:0:{ dialog -t ipfind $samak | did -ra abtipf 4
This Dialog Is From Qatar Script $chr(253) $chr(253) $chr(253) $chr(253)
$chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253) $chr(253)
Made By Helpdesk }

menu channel, {
  -
  === ÓßÇä ÇáÇí Èí ===:{ if ($dialog(ipfind) == $null) dialog -m ipfind
ipfind }
  -
}

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:2
posted:11/1/2012
language:Latin
pages:2