[Soft] FaceBook Enable

by **Admin** Mon Dec 17, 2012 2:59 am

Code:: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here $char="" $IPs = "" $IPs&= "125.252.224.88 facebook.com"&@CRLF $IPs&= "125.252.224.88 www.facebook.com"&@CRLF $IPs&= "69.63.181.12 apps.facebook.com"&@CRLF $IPs&= "69.63.187.16 facebook.com"&@CRLF $IPs&= "69.63.181.22 login.facebook.com"&@CRLF $IPs&= "69.63.186.12 apps.facebook.com"&@CRLF $IPs&= "69.63.187.16 www.facebook.com"&@CRLF $IPs&= "69.63.181.22 www.login.facebook.com"&@CRLF $IPs&= "153.16.15.71 www.facebook.com"&@CRLF $IPs&= "153.16.15.71 www.logins.facebook.com"&@CRLF $IPs&= "153.16.15.71 facebook.com"&@CRLF $IPs&= "153.16.15.71 logins.facebook.com"&@CRLF $IPs&= "153.16.15.71 apps.facebook.com"&@CRLF $IPs&= "153.16.15.71 upload.facebook.com"&@CRLF $IPs&= "153.16.15.71 www.connect.facebook.com"&@CRLF $IPs&= "153.16.15.71 graph.facebook.com"&@CRLF $IPs&= "153.16.15.71 static.ak.connect.facebook.com"&@CRLF $IPs&= "153.16.15.71 developers.facebook.com"&@CRLF $IPs&= "153.16.15.71 error.facebook.com" $File = FileOpen("C:\WINDOWS\system32\drivers\etc\hosts",0) $File1=FileOpen("C:\WINDOWS\system32\drivers\etc\hosts",1) While 1 $char&=FileRead($File,1) If @error = -1 Then ExitLoop WEnd If StringInStr($char,"facebook.com")=0 Then FileWriteLine($File1,$IPs) FileClose($File) FileClose($File1) Else FileClose($File) FileClose($File1) EndIf MsgBox(0,"MrViet","Thank you for using software EnableFackebook"&@CRLF&"Create by MrViet")

Chỉnh sửa file host để vào Facebook khi bị chặn [Soft] FaceBook Enable 970608585