我改了远控监视老家儿子的电脑的，10月份突然不上线了，苏州本地的可以，虚拟机测试可以，就是老家的不行，QQ远程也看不出哪儿不对，正常运行，就是不上线！我用的端口是888，华夏域名的动态，没办法，改了个脚本，暂时控制儿子的上网时间，大家需要可以拿去！
大家有什么好的办法么？指点下！我打算截图直接FTP传过来，怕网络再封锁了21端口，80的已经封锁了，神啊，给俺指条路吧！
set w=CreateObject("wscript.shell")
Dim a,b,c,d,e,f,g,h,i
Set ObjWsh = CreateObject("Wscript.Shell")
a=#00:00:00#                '定义时间段
b=#08:30:00#              '定义时间段
d=#11:30:00#               '定义时间段
e=#13:00:00#              '定义时间段
f=#17:30:00#                '定义时间段
g=#19:00:00#             '定义时间段
h=#22:00:00#              '定义时间段
i=#23:50:00#             '定义时间段
w.run "cmd /c at 11:30 shutdown -s -f -t 0",0,true
w.run "cmd /c at 17:30 shutdown -s -f -t 0",0,true
w.run "cmd /c at 22:00 shutdown -s -f -t 0",0,true  
For i = 1 To 900000
c=Time'系统时间

If DateDiff("n",a,c)>0 And DateDiff("n",c,b)>0 then '判断时间段
w.Popup "毛旭！睡觉时间，不准玩电脑！看好家，带好你小妹！",3,"提示",64+0   
w.run "cmd /c shutdown -s -f -t 0",0,true
else
end if
If DateDiff("n",d,c)>0 And DateDiff("n",c,e)>0 then '判断时间段  
w.Popup "毛旭！中午吃饭时间，不准玩电脑！看好家，带好你小妹！",3,"提示",64+0     
w.run "cmd /c shutdown -s -f -t 0",0,true
else
end if
If DateDiff("n",f,c)>0 And DateDiff("n",c,g)>0 then '判断时间段
w.Popup "毛旭！晚上吃饭时间，不准玩电脑！看好家，带好你小妹！",3,"提示",64+0     
w.run "cmd /c shutdown -s -f -t 0",0,true
else
end if
If DateDiff("n",h,c)>0 And DateDiff("n",c,i)>0 then '判断时间段  
w.Popup "毛旭！该睡觉了，不准玩电脑！看好家，带好你小妹！",3,"提示",64+0      
w.run "cmd /c shutdown -s -f -t 0",0,true
else
end if
wscript.sleep 1000*60*1
Next

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

上传的附件：

• 88.jpg （68.96kb，9次下载）