VB 定时网络共享.rar

VB定时网络共享，定时网络共享设置，同样将事件定义在按钮中，用户单击按钮后执行以下代码：　　PrivateSubCommand1_Click()　　Timer1.Interval=300'开启计时器　　MsgBox"共享控制已经设置完毕！"　　EndSub　　PrivateSubCommand2_Click()　　End　　EndSub　　PrivateSubTimer1_Timer()　　DimR　　IfTime=DTPicker1Then'根据时间设置共享　　R=Shell("cmd.ex