我想百分百監控別人的電腦

VTC有開放日，
你可到知專設計學院，
問問當地教授。
他們應該是在使用dos指令，下達shutdown 在幾點關機的指令。
參考：善用Windows 7內建的工作排程器，設定電腦定時自動關機、休眠或自動重開機！
http://key.chtouch.com/ContentView.aspx?P=133
你對TeamViewer認識未夠！以致被弟妹反抗！
你該上一上課呀！
TeamViewer 是一款免費、中文化、跨平台的遠端控制軟體。
http://blog.xuite.net/yh96301/blog/31680898-%E5%85%8D%E8%B2%BB%E9%81%A0%E7%AB%AF%E6%8E%A7%E5%88%B6%E8%BB%9F%E9%AB%94TeamViewer

u can use i TALC to watch their computer

http://zh.wikipedia.org/zh-hk/ITALC

after u install it,u need to set these port in their computer:5800,5900,5858


so that u can see their computer

之前讀完個課程,課程有教到相關技巧,多種方法遙控電腦
我覺得導師教得幾好
口啤幾好
有免費試睇
詳細可以參考遙控電腦 (Remote Control) 的原理及技巧課程
http://www.systematic.com.hk/remote_control.htm

寫個vbs俾你. 放入去佢地個 "C:\Documents and Settings\%USERNAME%\「開始」功能表\程式集\開啟" 個道

未能達到你完全控制, 但係一定打到無哂引

1) 了解遊戲名稱 [工作管理員] > [處理程序]
一定要係呢道搵到個名
2) 寫一個Notepad俾我個vbs Read
例: 以下呢個Notepad會關左 Excel

開個Notepad寫入以下, Save做 "%AppData%\1234.txt" <<<<呢個照Copy
內容如下:
EXCEL.EXE

3) 如果想Set時間

開個Notepad寫入以下 (分鐘數目, 0為係唔係都關左佢), Save做 "%AppData%\4321.txt" <<<<呢個照Copy
內容如下:
0

4) 開Notepad Copy Paste 以下入去,
Saveas 個File個時
注意: 打File名, 打埋個副檔名".vbs"
5) 放個vbs File入去佢地個 "C:\Documents and Settings\%USERNAME%\「開始」功能表\程式集\開啟" 個道 <<<< 個path 又係要照Copy

程式碼
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
on error resume next
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set ScpFil = CreateObject("Scripting.FileSystemObject")
Set WshShl = CreateObject("Wscript.Shell")
Set DicA = CreateObject("Scripting.Dictionary")
Pth = WshShl.ExpandEnvironmentStrings("%AppData%")

if Not(ScpFil.FileExists(Pth & "\1234.txt")) then Wscript.Quit
Set ObjB = ScpFil.OpenTextFile(Pth & "\1234.txt")
Do Until ObjB.AtEndOfStream
TmpB = ObjB.ReadLine
if not(DicA.Exists(Ucase(TmpB))) then DicA.Add Ucase(TmpB), ""
Loop
ObjB.Close

Tm = 0
if Not(ScpFil.FileExists(Pth & "\4321.txt")) then
Tm = 0
Else
Set ObjB = ScpFil.OpenTextFile(Pth & "\4321.txt")
Do Until ObjB.AtEndOfStream
TmpB = ObjB.ReadLine
Tm = TmpB
Loop
ObjB.Close
End if

Do Until 1 = 2
Set TmpA = WMI.ExecQuery("Select * from Win32_Process")
For Each i in TmpA
TmpB = Ucase(i.Name)
if DicA.Exists(Ucase(TmpB)) then
TmpC = DicA.Item(TmpB)
if TmpC = "" then DicA.Item(TmpB) = Now() * 1
if Now() - DicA.Item(TmpB) > (Tm * 0.0006) Then
i.Terminate
DicA.Item(TmpB) = ""
End if
End if
Next
Wscript.Sleep 60000
Loop
WScript.Quit