MsgBox("www.liu6545.bokee.com");

sub MsgBox {                                    
my($ipmsg) = @_;                                      
use Win32;
Win32::MsgBox("$ipmsg");
}

MsgBox function
Display a message box.
Syntax
[size=+1]MsgBox($Message,$Type,$Caption);

$Message	Text to be displayed in the dialog box.
$Type	Defines the type (Icon & Buttons) of the message box. To define the value sum the desired Buttons option and Icon option.
$Caption	Text to be displayed in window header.

Buttons Option			Icon Option			Returned Value
0	Ok		16	Hand		1	Ok
1	Ok, Cancel		32	Question		2	Cancel
2	Abort, Retry, Ignore		48	Exclamation		3	Abort
3	Yes, No, Cancel		64	Asterisk		4	Retry
4	Yes, No					5	Ignore
5	Retry, Cancel					6	Yes
						7	No

Example
use Win32;
Win32::MsgBox("A first step for Perl in the Windows GUI world !");
Win32::MsgBox('Bug detected',48,'Alert ! Alert');
$result = Win32::MsgBox('Meet me at the coffee machine ?', 16+4, 'Tired ?');
(($result == 6) ? print "I am on my way !\n" : print "bye !\n");        

[ 本帖最后由 scmtata 于 2008-2-29 09:53 编辑 ]