perl如何调用ie

打靶归来

能不能用PERL调用IE,打开IE窗口,并输入\\10.1.3.11\d$这样的字符.....

orangetouch

perl -e "system('C:\Program Files\Internet Explorer\IEXPLORE.EXE','http://www.google.com')"

perlpg

要看网页像楼上的方法就可以了，要对IE进行操作就得用OLE模块了。

Namelessxp

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use Win32::OLE;
   
6. 
   
7. my $ie = Win32::OLE->new ('InternetExplorer.Application.1', 'Quit')
   
8. #或直接用CLSID  new('{0002DF01-0000-0000-C000-000000000046}',…
   
9. ||  die "CreateObject: " . Win32::OLE->LastError ;
   
10. $ie->{Visible} = 1; #0
    
11. $ie->Navigate('\\10.1.3.11\d$');
    
12. while ($ie->{Busy}) {
    
13.         print "Busy\t";
    
14.         sleep(1);
    
15. }
    
16. print "Done.";
    
17. sleep(1);
    
18. undef($ie);
    

复制代码

打靶归来

原帖由 Namelessxp 于 2007-8-25 19:10 发表

#!/usr/bin/perl
use warnings;
use strict;
use Win32::OLE;

my $ie = Win32::OLE->new ('InternetExplorer.Application.1', 'Quit')
#或直接用CLSID  new('{0002DF01-0000-0000-C000-000000000046} ...

$ie->Navigate('\\10.1.3.11\d$');
如何把\\10.1.3.11替换为一个变量,象$ip

打靶归来

搞定,用$ie->Navigate($ip);

lokchungk

system ('start "C:\Program File\Internet Explorer\iexplorer.exe"');