如何阻止来自Windows的社交媒体

我想根据时间阻止我的电脑上的社交媒体。 下午9点后阻止，上午11点后解锁（如家长控制）我试过以下，但失败。

创build了一个block.bat文件

@echo off (Get-Content C:WindowsSystem32driversetchosts) | ForEach-Object { $_ -replace "#127.0.0.1 facebook.com","127.0.0.1 facebook.com" } | Set-Content C:WindowsSystem32driversetchosts

创build一个Unblock.bat文件

@echo off (Get-Content C:WindowsSystem32driversetchosts) | ForEach-Object { $_ -replace "127.0.0.1 facebook.com","#127.0.0.1 facebook.com" } | Set-Content C:WindowsSystem32driversetchosts

并将这2个bat文件添加到任务计划程序。 Block将在上午11点运行，并在晚上9点解锁。

批量重命名文件夹结构

从批处理检查Visual Studioshell程序安装

VBScript自定义button？

SVN后提交挂钩批处理窗口

如何通过batch file知道命令是否成功执行？

我从PowerShell得到这个错误：

Set-Content：input对象不能被绑定，因为它不包含

绑定所有必需参数所需的信息：path

在线：1个字符：140

+ ... e“＃127.0.0.1 facebook.com”，“127.0.0.1 facebook.com”} | 设置内容

+ ~~~~~~~~~~~

+ CategoryInfo：InvalidArgument：（＃copyright（c）... Microsoft Corp.:String）[Set-Content]，ParameterBindingException

+ FullyQualifiedErrorId：InputObjectMissingMandatory，Microsoft.PowerShell.Commands.SetContentCommand

而手动运行bat文件什么都不做。

Windowsbatch file从子文件夹复制到一个文件夹

意外的Windows批处理行为 – 赋值后variables重置 – 在FILE和SET中使用FOR％f获取文件date

如何在批处理脚本中更新％time％variables

如何在Windowsbatch file中为图像序列创buildprintf样式的string？

如何从批处理脚本中包含由分隔符分隔的文件的文件parsing行

给这个代码一个镜头：

@Echo off cls & color 0A & echo. Mode con cols=55 lines=5 Set copyright=Hackoo 2016 Title Block-UnBlock Facebook by %copyright% ::::::::::::::::::::::::::::::::::::::::: :: Automatically check & get admin rights ::::::::::::::::::::::::::::::::::::::::: CLS Echo. Echo. ECHO ************************************** ECHO Running Admin shell ECHO ************************************** ::pause :checkPrivileges NET FILE 1>NUL 2>NUL if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges ) :getPrivileges if '%1'=='ELEV' (echo ELEV & shift /1 & goto gotPrivileges) Echo. ECHO. ECHO ************************************** ECHO Invoking UAC for Privilege Escalation ECHO ************************************** setlocal disableDelayedExpansion set "batchPath=%~0" setlocal EnableDelayedExpansion ( ECHO Set UAC = CreateObject^("Shell.Application"^) ECHO args = "ELEV " ECHO For Each strArg in WScript.Arguments ECHO args = args ^& strArg ^& " " ECHO Next ECHO UAC.ShellExecute "!batchPath!",args,"","runas",1 )> "%temp%OEgetPrivileges.vbs" "%systemRoot%system32WScript.exe" "%temp%OEgetPrivileges.vbs" %* exit /B :gotPrivileges if '%1'=='ELEV' shift /1 setlocal & pushd . cd /d "%~dp0" :::::::::::::::::::::::::::: ::START :::::::::::::::::::::::::::: setlocal enabledelayedexpansion Set copyright=Hackoo 2016 Title Block-UnBlock Facebook by %copyright% Rem If you didn't want to create a shortcut and see the intro on your desktop just comment this line below If Not Exist %USERPROFILE%DesktopBlock-UnBlock_Facebook.lnk Goto:Intro ::*********************************************************************************************** :CheckPassword Mode con cols=55 lines=3 cls & color 0A & echo. set MyPassword=Hackoo set "psCommand=powershell -Command "$pword = read-host 'Enter your password' -Assecurestring ; ^ $BSTR=[System.Runtime.InteropServices.Marshal]::securestringToBSTR($pword); ^ [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)"" for /f "usebackq delims=" %%p in (`%psCommand%`) do set password=%%p if %MyPassword%==%password% (Goto:Good) else (Goto:Bad) exit/b ::*********************************************************************************************** :Good Cls & Color 0A echo( echo Good Password TimeOut /T 1 /NoBreak>nul Goto:menuLOOP ::*********************************************************************************************** :Bad Cls & Color 0C echo( echo Bad password TimeOut /T 1 /NoBreak>nul Goto:CheckPassword ::*********************************************************************************************** :menuLOOP Mode con cols=85 lines=8 Cls & color 0B Title Block and UnBlock Facebook by %copyright% echo( echo( ================================Menu================================ echo( for /f "tokens=2* delims=_ " %%A in ('"findstr /b /c:":menu_" "%~f0""') do echo %%A %%B echo( echo( ==================================================================== set choice= echo( & set /p choice=Make a choice or hit ENTER to quit: || GOTO :EOF echo( & call :menu_[%choice%] GOTO:menuLOOP ::******************************************************************************************** :menu_[1] Blocking Facebook Mode con cols=85 lines=8 cls & color 0C Call:SkipLine 3 Call:Tab 6 echo %x% "Deactivate write protection" ... TimeOut /T 2 /NoBreak>nul set hostspath=%windir%system32driversetchosts Set BackupHosts=%AppData%hosts.hackoo If Not Exist %BackupHosts% Attrib -R %hostspath% && Type %hostspath% > %BackupHosts% cls Attrib -R %hostspath% ( echo ########################### echo # Block Facebook %copyright%# echo ########################### echo 127.0.0.1 www.facebook.com echo 127.0.0.1 facebook.com echo 127.0.0.1 ok.facebook.com echo 127.0.0.1 www.ok.facebook.com echo 127.0.0.1 a.ok.facebook.com echo 127.0.0.1 www.a.ok.facebook.com echo 127.0.0.1 facebook.com.au echo 127.0.0.1 www.facebook.com.au echo 127.0.0.1 nl-nl.facebook.com echo 127.0.0.1 www.nl-nl.facebook.com echo 127.0.0.1 facebook.nl echo 127.0.0.1 www.facebook.nl echo 127.0.0.1 login.facebook.com.au echo 127.0.0.1 www.login.facebook.com.au echo 127.0.0.1 www-10-01-snc2.facebook.com echo 127.0.0.1 www-11-01-snc2.facebook.com echo 127.0.0.1 www-10-03-ash1.facebook.com echo 127.0.0.1 www-12-08-ash1.facebook.com echo 127.0.0.1 www-13-08-ash1.facebook.com echo 127.0.0.1 static.ak.fbcdn.net echo 127.0.0.1 www.static.ak.fbcdn.net echo 127.0.0.1 login.facebook.com echo 127.0.0.1 www.login.facebook.com echo 127.0.0.1 login.facebook.com.nl echo 127.0.0.1 www.login.facebook.com.nl echo 127.0.0.1 fbcdn.net echo 127.0.0.1 www.fbcdn.net echo 127.0.0.1 fbcdn.com echo 127.0.0.1 www.fbcdn.com echo 127.0.0.1 ads.ak.facebook.com echo 127.0.0.1 www.ads.ak.facebook.com echo 127.0.0.1 static.ak.connect.facebook.com echo 127.0.0.1 www.static.ak.connect.facebook.com echo 127.0.0.1 login.facebook.com echo 127.0.0.1 www.login.facebook.com ) > %hostspath% cls Call:SkipLine 3 Call:Tab 5 echo %x% "Facebook is Blocked by %copyright%" ATTRIB +R %hostspath% TimeOut /T 2 /NoBreak>nul Start www.facebook.com ::GOTO :menuLOOP Exit ::******************************************************************************************** :menu_[2] UnBlocking Facebook cls & color 0A Title UnBlocking Facebook .... Call:SkipLine 3 Call:Tab 5 set hostspath=%windir%system32driversetchosts Set BackupHosts=%AppData%hosts.hackoo If Exist %BackupHosts% Attrib -R %hostspath% && Type %BackupHosts% > %hostspath% ATTRIB +R %hostspath% echo %x% "Facebook is UnBlocked by %copyright%" TimeOut /T 2 /NoBreak>nul Start www.facebook.com Exit ::GOTO :menuLOOP ::****************************************************************************************** :Play ( echo Play "%~1" echo Sub Play(URL^) echo Dim Sound echo Set Sound = CreateObject("WMPlayer.OCX"^) echo Sound.URL = URL echo Sound.settings.volume = 100 echo Sound.Controls.play echo do while Sound.currentmedia.duration = 0 echo wscript.sleep 100 echo loop echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000 echo End Sub )>%~2 ::******************************************************************************************** :SkipLine For /L %%I In (1,1,%1) Do Echo( Goto:Eof ::******************************************************************************************** :Tab set "x=" For /L %%I In (1,%1) Do Set "x=!x! " REM ^-- this is a TAB goto :eof ::******************************************************************************************** :Intro Color 0A & Mode con cols=101 lines=57 echo( echo ` `` ` ` ` `` `` echo ``` ` ````````` ` ` echo ` .-/+osyhhhhhhhhhhhhyyso+:-` ` ` echo ````/hddddddddddddddddddddddddddhy- `` ` echo `` :mdmdmdmmddddddddddddddddddddddy` echo ` oNmmmmddddddddddddddddddddddmmmd. ` echo ` yNmNNNmmmmmmmmmmmmmmmmmmmmmmmmmm: echo ` .dNmNmNNmmNmmmmmmmmmmmmmmmmmmmmmN+ `` echo ` :NmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmNy ` `` echo ` oNmmmmNmmmmmmmmmmmmmmmmmmmmmmmmmmm. ` echo ` hNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmN: ` ` echo `` ` .mNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmN+ `` `` ` echo ` ` `..-/++osyNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmNmNy``` `` echo ` ` `.:+syhddddddmmmNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmNmyoo/:-.`` echo ` ``-/shhddddddddddddmNNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmNmdddddddhyo+:-``` ``` echo ` `.+ydddddddddddddddddNNNNmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmdddmddddmmddhyo:.`` echo ``+dddddddddddddddddmmmNNNNmmmmmmmmdddddmddddddddmmdmmmmmmNmdmdddddddddddddddy/` echo ` `ydddddddddddddddddddmNNNNNmmmmmdddddddddddddddddddddmmmNNNmdddddddddddddddddddd/`` echo omdmdddddddddddddddddmNNNmmmmmmmmddddddddddddddddddddmmNNNmmdmddddddddddddddddddd. ` echo ` omddddddddddddmddddmmdmmmmmmNmmmmmddddddddddddddddmmmmmNmmmdddddddddddddddddddddy` ` ` echo `ymdddddddddddddddddmddddmmmmmmmmmdddddddddddddddddmmmdmddddddddddddddddddddddds. `` echo ` `+dmdddddmmdmmmmddmmmdddddmmmddddddddddddddddddddddddddddddddddmmddmddddddmh+.` ` ` echo `` ``/shmdmddmmmmmmmddddmmmmmmmmmmdddddddddddddddddddddddddddddmmddmdddddhy+-` ` ` ` echo ` ` ```-/oyhdddmmmmmmmmmmmmmmmmmmdddddddddddddmddddmmmdmmddddddddddhyo/-` ` ` ` ` echo ` ` ` ` ` ``-/+sydddddddddmddmmdmdddmdddddmmmdmmmdddddddhhhhhho/-.` ` echo ``` ` :mNMNNNNNmdhhhhhhhddddddddhdhhhhhhhyyhmmNNNmmd. ` echo ` :mNNNNNMNNNhsooo+++++oyyo+oo++/://++++sNNNNNNmh/ `` echo ``` :dNNNNNNMNNNdyssoo++/+oyy++o++////+oooohNNNNNNmd/ ` ` ` echo `:dNNNNNNMNNNNmyyssooo+osyy++ooo++++oosssdNNNNNNmdo ` ` echo ``./hNNNNNNNNNNNmNdsyhhoooyoys+/+o+++++yhssymNNNNNNmdy. echo ` `` .oymNNNNmNNNMNNNNMhosdmdysohho+hs+++sddossmNNNNNNNmdmo```` echo ` ` -/smNNNNNNNNNNNNNMNdosyydmmmdoodNmmddssosmMNmNNNNNmmdds:.` echo ` ` ` .+dmNNNmNNNNNNNNNNMNdosyssssoo+osoooososmMMNmNNNNmNmmddds:.`` echo ` ``` `` ` ``.-/odNNNNNNmNMNNNNNNMMMMMmssyooooyys++++oohNMMMNmNNNNmNmmmmNNNmdho-` ` echo ` `` `.-/+syhdmNNNNMMNNNNNNNNNNNNmNMNNMNNhso++smms//+oodNNMMNmNmmNNmNNmNmNNNNNNNmhs/.` ` ` echo ` ` .+ydmNNNNNNNNNMNMMNNNNNNNNNNNNNNMMMNMMNmy+/hmdh:++yNNNMMMNNNmmmmmNNmNNNNNNNNNNNNmmhs:.` ` echo ```/dmNNNNNNNMNNNMMMMMMNMNNNNNNNNmNNMMMMMNMNNh+omNo/sdMNMNNMMNNNmmmmmmNNNNNNNNNNNNNNNNmNmds:`` ` echo ``.smmmNNNNNNNNNNNNNNNNMNMNNNMNNmNmNNMNMMMNNNNNNdNmdmNNNNNNMMNNNNNNmmmmNNNNNNNNNNNNNNNNNNNmmmh/` ` echo ``/dmmNmNNNNNNNNNNNNNNNNNNMMNNNNmmNNNMMMMMMMMMMMNMNNMNMNNNNNNNNNNNNNmmmmNNNNNNNNNNNNNNNNNmmNmmmms. ` echo NmmmmNNNmmmmNNNNNNNNNNNMMMNNNNNmNNNNNNNNNNNNNMNNMNNNNNNNNNNNNNNNNNmmmmNNNNNNNNNNNNNNNmmmmNmmmmmh-` echo mmmmNmNmmmmmmmNNNNNNNNMMMMMMMMNNNmNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNMNNNmmmNNNNNNNNNNNNNNNNNmmmmmmmmmmd: echo mNNmmmmmmmmmmNNNNNMMMMMMNMNMMMMNNmNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNmmmmmmmmmmmmmmm echo NmmmmmmmmmmmNNNNNNNNMMNNNMNNNMMNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNmmmmmmmmmmmmm echo( echo "/ | / | / | "; echo "$$ | $$ | ______ _______ $$ | __ ______ ______ "; echo "$$ |__$$ | / / |$$ | / | / / "; echo "$$ $$ | $$$$$$ |/$$$$$$$/ $$ |_/$$/ /$$$$$$ |/$$$$$$ |"; echo "$$$$$$$$ | / $$ |$$ | $$ $$< $$ | $$ |$$ | $$ |"; echo "$$ | $$ |/$$$$$$$ |$$ _____ $$$$$$ $$ __$$ |$$ __$$ |"; echo "$$ | $$ |$$ $$ |$$ |$$ | $$ |$$ $$/ $$ $$/ "; echo "$$/ $$/ $$$$$$$/ $$$$$$$/ $$/ $$/ $$$$$$/ $$$$$$/ "; echo " "; echo " "; Set vbsfile=%temp%Intro.vbs Set URL=http://hackoo.alwaysdata.net/Intro.mp3 Call:Play %URL% %vbsfile% Start %vbsfile% Timeout /T 18 /Nobreak>nul ::******************************************************************** Set MyFile=%~f0 Set ShorcutName=Block-UnBlock_Facebook ( echo Call Shortcut("%MyFile%","%shorcutName%"^) echo ^'**********************************************************************************************^) echo Sub Shortcut(CheminApplication,Nom^) echo Dim objShell,DesktopPath,objShortCut,MyTab echo Set objShell = CreateObject("WScript.Shell"^) echo MyTab = Split(CheminApplication,""^) echo If Nom = "" Then echo Nom = MyTab(UBound(MyTab^)^) echo End if echo DesktopPath = objShell.SpecialFolders("Desktop"^) echo Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "" ^& Nom ^& ".lnk"^) echo objShortCut.TargetPath = Dblquote(CheminApplication^) echo ObjShortCut.IconLocation = "Winver.exe,0" echo objShortCut.Save echo End Sub echo ^'********************************************************************************************** echo ^'Fonction pour ajouter les doubles quotes dans une variable echo Function DblQuote(Str^) echo DblQuote = Chr(34^) ^& Str ^& Chr(34^) echo End Function echo ^'********************************************************************************************** ) > %temp%shortcutme.vbs Start /Wait %temp%shortcutme.vbs Del %temp%shortcutme.vbs Goto:CheckPassword ::**************************************************************************************************** :EOF EXIT

你不能阻止Facebook通过主机转发到本地主机。

在你的路由器或防火墙上做。

但是，如果为你工作与批处理文件。 块

最好使用这个vbs

https://www.experts-exchange.com/questions/26971010/VBScript-Hosts-File-add-remove-multiple-entries.html

接下来是我们的解决方案。

解除封锁

$HostFile = "$($env:windir)system32Driversetchosts" $Hosts = Get-Content -Path $HostFile (Get-Content $HostFile) -replace '127.0.0.1 Facebook.com','#127.0.0.1 Facebook.com' | Set-Content $HostFile

块

$HostFile = "$($env:windir)system32Driversetchosts" $Hosts = Get-Content -Path $HostFile (Get-Content $HostFile) -replace '#127.0.0.1 Facebook.com','127.0.0.1 Facebook.com' | Set-Content $HostFile