VB 定时网络共享,定时网络共享设置,同样将事件定义在按钮中,用户单击按钮后执行以下代码:
Private Sub Command1_Click()
Timer1.Interval = 300 '开启计时器
MsgBox "共享控制已经设置完毕!"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Dim R
If Time = DTPicker1 Then '根据时间设置共享
R = Shell("cmd.exe /c net share 共享c=c:") '共享C盘
R = Shell("cmd.exe /c net share temp=c:\temp") '共享C盘临时文件夹
R = Shell("cmd.exe /c net share 共享d=d:") '共享D盘
R = Shell("cmd.exe /c net share 共享e=e:") '共享E盘
End If
If Time = DTPicker2 Then '根据时间删除共享
R = Shell("cmd.exe /c net share 共享c /delete") '删除共享C盘
R = Shell("cmd.exe /c net share temp /delete") '删除共享C盘临时文件夹
R = Shell("cmd.exe /c net share 共享d /delete") '删除共D盘
R = Shell("cmd.exe /c net share 共享e /delete") '删除共享E盘
Timer1.Interval = 0
End If
End Sub