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