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==================================