Website Blocker For Local Pc

By eyiezinc on May 18, 2009

===========================EYIEZINC SCRIPTING DEVELOPMENT===========================
Addons Name: Website Blocker For Local Pc
Date : 15.04.2009
Created By : Lestat
Description : Copy Paste In Your Mirc Or Load -rs This File In Your Script Editor
Notes : Not For Cyber Cafe

How To Use:
When You Load This Addons In Your Script Editor/remote
Right Click At Status/Channel/Query Then, The Menu Will Appear "Website Blocker" Click That Menu
Then Figure Out Your Self :P
Warning: After Remove Url Please Wait a Minute To Recover Your Host
==============================================================================

menu status,channel,query {
  -
  Website Blocker:weblock
  -
}
dialog weblock {
  title "WWW.EYIEZINC.INFO"
  size -1 -1 178 203
  option dbu
  button "Close", 1, 73 161 30 12, flat ok cancel
  box "Local PC Website Blocker", 2, 6 7 164 151
  button "Add To Block List", 4, 10 30 152 10, flat
  button "Del From Block List", 5, 10 140 152 10, flat
  list 3, 10 54 152 85, size
  edit "", 7, 10 18 152 10
  box "", 6, 6 172 165 28
  edit "EYIEZINC WEBSITE BLOCKER SYSTEM", 8, 15 178 153 10, disable read center
  edit "Created By Lestat", 9, 15 187 153 10, disable read center
  edit "", 10, 10 42 152 10, disable read center
  link "www.eyiezinc.info", 11, 118 1 48 8
  text "Website URL", 12, 72 11 37 6
}
On 1:dialog:weblock:sclick:*: {
  if ($did == 3) { if ($did($dname,3).seltext) { did -e $dname 5 } }
  if ($did == 4) && ($did($dname,7).text) { 
    if ($count($strip($did($dname,7).text),$chr(46)) < 2) || ($count($strip($did($dname,7).text),$chr(46)) > 3) || ($left($strip($did($dname,7).text),1) isnum)    { halt }
    addweb 

  }
  if ($did == 5) && ($did($dname,3).seltext) { delweb }
  if ($did == 1) { .remove c:/hoster.txt | .timerwrite off | .timerremove off }
  if ($did == 11) { .url -n www.eyiezinc.info }
}
On 1:dialog:weblock:edit:*: {
  if ($did == 7) {
    if ($len($did($dname,7).text) < 4) { did -b $dname 4 }
    else { did -e $dname 4  }
    if ($count($strip($did($dname,7).text),/) > 7) || ($chr(32) isin $strip($did($dname,7).text))  {  .did -r $dname 7 }
  }
}

On 1:dialog:weblock:init:*: { did -a $dname 10 Scanning.. | scanlist  }
alias weblock { if (!$dialog(weblock)) { dialog -m weblock weblock } }
alias scanlist {

  filter -cb "c:/windows/system32/drivers/etc/hosts" c:/hoster.txt
  .blocksx

}
alias -l blocksx { 
  did -r $dname 3
  var %t = 1
  while (%t <= $lines(c:/hoster.txt)) {
    if (127.0.0.1 isin $read(c:/hoster.txt,%t)) && ($gettok($read(c:/hoster.txt,%t),2,32) != localhost) {  did -a weblock 3 $+([,%t,]) $gettok($read(c:/hoster.txt,%t),2-,32) $str($chr(0160),10) }
    inc %t
  }
  if ($lines(c:/hoster.txt) == 19) { did -b $dname 5 }
  .timerremove 1 2 did -r $dname 10
  if (!$did($dname,3).lines) { .timerwrite 1 2 did -a $dname 10 No Block Website  }
  else { .timerremove 1 2 did -r $dname 10 | .timerwrite 1 2 did -a $dname 10 Got $did($dname,3).lines Locks Website }
  if (!$did($dname,3).seltext) { did -b $dname 4,5 } 
}
alias -l delweb {
  did -r $dname 10
  if ($lines(c:/hoster.txt) == 19) {  halt }
  .write -dl $+ $remove($gettok($did(weblock,3).seltext,1,32),],[) c:/hoster.txt
  .copy -o c:/hoster.txt "c:/windows/system32/drivers/etc/hosts"
  .did -a $dname 10 Delete Successfull
  .did -b $dname 5
  .scanlist
}
alias -l addweb {
  did -r $dname 10
  if ($chr(32) isin $did($dname,7).text) { $input(Error,c,Cannot Space,1) | did -r $dname 7 }
  else {
    var %t = 1
    while (%t <= $lines(c:/hoster.txt)) {
      if ($gettok($read(c:/hoster.txt,%t),2,32) == $strip($did($dname,7).text))  { did -r $dname 7 }
      inc %t
    }
    if ($did($dname,7).text) { .write "c:/windows/system32/drivers/etc/hosts" 127.0.0.1 $strip($did($dname,7).text) | did -r $dname 7 | did -b $dname 5,4 }
    did -a $dname 10 Added Successfull
    .scanlist
  }
}

================================== End Of Addons==================================

Comments

Sign in to comment.
Firstmate   -  May 19, 2009

The location of the hosts file on Windows computers are all the same, with the exception of 95/98 and ME.

 Respond  
WorldDMT   -  May 19, 2009

hi

i didnt see all your code i see it quyckly but i saw that!!

filter -cb "c:/windows/system32/drivers/etc/hosts" c:/hoster.txt

all dir's cant be like yours use $sciptrdir or other for make sure to get the true dir

 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.