IEauto

 

 
 

  
  
  
 
  
  
#加载库 
  
  
   use Win32::IEAutomation; 
  
  
   use Win32::IEAutomation::WinClicker; 
  
  
   use Win32::IEAutomation::Element; 
  
  
   my $ie = Win32::IEAutomation->new(visible =>1); 
  
  
#浏览网站 
  
  
   $ie -> gotoURL('http://130.1.1.1/sdg001.htm?ruijie_query_id=sdg&'); 
  
  
   $ie -> WaitforDone(); 
  
  
#获取select对象，选择test1 
  
  
   $ie -> getSelectList("name:",'command') -> SelectItem('test1'); 
  
  
  
  
  
  
  
  
# IE 6 
  
  
  use Win32::GuiTest qw(:ALL); 
  
  
   Gui_Set_ForegroundWindow("Internet Explorer"); 
  
  
   my @windows = FindWindowLike(0,"Microsoft Internet Explorer"); 
  
  
   SetForegroundWindow($windows[0]); 
  
  
   for(1..3){ 
  
  
      SendKeys("{TAB}"); 
  
  
   } 
  
  
   SendKeys("{ENTER}"); 
  
  
   SendKeys("{ENTER}"); 
  
  
   $ie -> closeIE(); 
  
  
   #删除ie 进程 
  
  
    system "taskkill /f /im IEXPLORE.EXE"; 
  
  
# #  
  
  
## IE 8 
  
  
use Win32::GuiTest qw(:ALL); 
  
  
   Gui_Set_ForegroundWindow("Internet Explorer"); 
  
  
   my @windows = FindWindowLike(0,"Microsoft Internet Explorer"); 
  
  
   SetForegroundWindow($windows[0]); 
  
  
   for(1..8){ 
  
  
      SendKeys("{TAB}"); 
  
  
   } 
  
  
foreach(1..4){ 
  
  
   SendKeys("{ENTER}"); 
  
  
} 
  
  
    
  
  
  
  
  
   $ie -> closeIE(); 
  
  
   #删除ie 进程 
  
  
    system "taskkill /f /im IEXPLORE.EXE";