perl如何调用ie

打靶归来

UID: 14692
帖子: 17
积分: 39
在线时间: 10 分钟

1^# 打靶归来发表于 2007-08-24 17:51

perl如何调用ie

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

orangetouch

UID: 41428
帖子: 181
积分: 416
在线时间: 1 天 20 小时

2^# orangetouch 发表于 2007-08-24 18:21

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

perlpg

UID: 4097
帖子: 41
积分: 94
在线时间: 2 小时

3^# perlpg 发表于 2007-08-25 00:04

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

Namelessxp

UID: 44847
帖子: 163
积分: 374
在线时间: 1 天 12 小时

4^# Namelessxp 发表于 2007-08-25 19:10

[Copy to clipboard] [ - ]

CODE:

#!/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}',…
|| die "CreateObject: " . Win32::OLE->LastError ;
$ie->{Visible} = 1; #0
$ie->Navigate('\\10.1.3.11\d$');
while ($ie->{Busy}) {
print "Busy\t";
sleep(1);
}
print "Done.";
sleep(1);
undef($ie);

打靶归来

UID: 14692
帖子: 17
积分: 39
在线时间: 10 分钟

5^# 打靶归来发表于 2007-09-12 11:31

QUOTE:

原帖由 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

打靶归来

UID: 14692
帖子: 17
积分: 39
在线时间: 10 分钟

6^# 打靶归来发表于 2007-09-12 11:44

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

lokchungk

UID: 6618
帖子: 74
积分: 170
在线时间: 7 小时

7^# lokchungk 发表于 2007-09-19 13:44

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