重起tomcat 我也收益了

vbs脚本，双击运行即可
   
  on   error   resume   Next    
   
  Dim   a    
  a   =   True    
   
  set   WshShell   =   WScript.CreateObject("WScript.Shell")    
   
  Do   While   a    
  set   http   =   CreateObject("Microsoft.XMLHTTP")    
  http.open   "POST","http://www.163.com(这里放你网站的页面地址)",false    
  http.send    
  if   http.Status   >   300   then    
  WshShell.Run("net   stop   tomcat5")    
  WScript.Sleep(10000)    
  WshShell.Run("net   start   tomcat5")    
  end   if    
  WScript.Sleep(30000)    
  loop