Perl学习笔记（十二）--IE自动化

　　在IE浏览器中进行自动化，首先需要安装Win32::IEAutomation这个模块，此模块相当强大，能操作浏览器的刷新，后退，前进等，由于AutoItX3.dll也嵌在里面，甚至可以操作浏览器中弹出的windows窗口

　　在IEAutomation.pm的文件中，给出了使用它的例子：

　　

use Win32::IEAutomation;
    
    # Creating new instance of Internet Explorer
    my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);
    
    # Site navigation
    $ie->gotoURL('http://www.google.com');
    
    # Finding hyperlinks and clicking them
    # Using 'linktext:' option (text of the link shown on web page)
    $ie->getLink('linktext:', "About Google")->Click;    
    # Or using 'linktext:' option with pattern matching
    $ie->getLink('linktext:', qr/About Google/)->Click;
    # Or using 'id:' option ( <a id=1a class=q href=......>)
    $ie->getLink('id:', "1a")->Click;
    
    # Finding checkbox and selecting it
    # Using 'name:' option ( <input type = "checkbox" name = "checkme" value = "1"> )
    $ie->getCheckbox('name:', "checkme")->Select;
    # Or using 'aftertext:' option (for checkbox after some text on the web page) 
    $ie->getCheckbox('aftertext:', "some text here")->Select;
    
    # Finding text field and entering data into it
    # Using 'name:' option ( <input type="text" name="username" .......> )
    $ie->getTextBox('name:', "username")->SetValue($user);
    
    # Finding button and clicking it
    # using 'caption:' option
    $ie->getButton('caption:', "Google Search")->Click;
    
    # Accessing controls under frame
    $ie->getFrame("name:", "content")->getLink("linktext:", "All Documents")->Click;
    
    # Nested frames
    $ie->getFrame("name:", "first_frame")->getFrame("name:", "nested_frame");
    
    # Catching the popup as new window and accessing controls in it
    my $popup = $ie->getPopupWindow("title of popup window");
    $popup->getButton('value:', "button_value")->Click;

　　例子很详尽，只贴了一部分。对元素的操作放在Element.pm这个文件，在实际使用过程中有可能会发生找不到元素的情况，可通过更改它来实现。

　　如果要测360浏览器怎么办呢？简单，只要将默认浏览器改成360就可以啦。

　　控制台打印如果出现中文乱码的情况，可使用如下代码：

　　

use encoding 'utf8',STDIN=>'utf8',STDOUT=>'gb2312';

　　运行起来的浏览器如果想输入中文，上面的就不能解决乱码了哦。需要对字符Encode即可，如下

　　

    $name = "测试";
    $name2 = Encode::encode('gb2312', $name);