1.vbs
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:1k
源码类别:

Email服务器

开发平台:

Delphi

  1.  set   sh=WScript.CreateObject("WScript.Shell")   
  2.   WScript.Sleep   1000  
  3.  
  4.   sh.SendKeys   "telnet   pop.21cn.com 110"   
  5.   WScript.Sleep   1000   
  6.   sh.SendKeys   "{ENTER}" 
  7.   
  8.   WScript.Sleep   1000   
  9.   WScript.Sleep   1000   
  10.   sh.SendKeys   "user linuxpingwp@21cnc.com"   
  11.   WScript.Sleep   3000 
  12.   sh.SendKeys   "{ENTER}"  
  13.  
  14.   sh.SendKeys   "pass 123456a"   
  15.   WScript.Sleep   1000   
  16.   sh.SendKeys   "{ENTER}" 
  17.  
  18.   sh.SendKeys   "UIDL "   
  19.   WScript.Sleep   1000   
  20.   sh.SendKeys   "{ENTER}"