View Code127.0.0.1 ui.skype.com
::1 ui.skype.com

View Codeset thepass to the text returned of (display dialog "Enter your Password to edit /etc/hosts file" default answer "")
set fdata to do shell script "echo " & "|perl -n -e 'open(F,\"</etc/hosts\");while(<F>){s/\\r|\\n//g;s/(\\n|\\r|\\x0d)//g;print\"$_\\n\";}close(F);'"
--display dialog fdata
if fdata contains "skype" then
set done to 1
else
set filetowrite to "/etc/hosts"
-- you can add more domains to block below
set fdata to fdata & "

127.0.0.1 ui.skype.com
::1 ui.skype.com
"
do shell script "cp " & filetowrite & " " & filetowrite & ".backup" with administrator privileges
delay 1
do shell script "echo " & quoted form of fdata & " > " & quoted form of filetowrite with administrator privileges
delay 1

tell application "System Events"
if not (exists process "Terminal") then
set wCounter to 1
tell application "Terminal"
activate
delay 2
end tell
else
delay 2
set wCounter to 0
tell application "Terminal"
activate
delay 2
delay 1
end tell
end if
end tell
tell application "Terminal"
activate
delay 2
tell application "System Events"
tell process "Terminal"
if wCounter < 1 then
keystroke "n" using {command down}
delay 1
end if
keystroke "k" using {command down}
delay 1
keystroke "sudo pico " & filetowrite
delay 1
keystroke return
delay 1
keystroke "a" using {command down}
delay 1
keystroke "c" using {command down}
delay 1
set screenData to (the clipboard) as text
if screenData contains "password" then
keystroke thepass
delay 2
keystroke return
delay 2
end if
keystroke return
delay 1
key code 51
delay 1
keystroke "x" using {control down}
delay 1
keystroke "y"
delay 1
keystroke return
delay 1
keystroke "hexdump -C " & filetowrite
delay 1
keystroke return
delay 2
keystroke "dscacheutil -flushcache"
delay 1
keystroke return
delay 2
end tell
end tell
end tell -- end tell Terminal
if wCounter > 0 then -- if Terminal was not active
tell application "Terminal" to quit
else -- Terminal was active
tell application "System Events"
tell process "Terminal"
keystroke "w" using {command down}
end tell
end tell
end if
end if
-- if skype word not present in /etc/hosts file