发布时间：2014-12-08 20:18:19
use Win32::NetAdmin;my $hostname = Win32::NodeName();my $ref = {};my $hostid;if( Win32::NetAdmin::GetTransports("\\\\$hostname", $ref) ) { foreach my $trans (keys %{$ref}).........【阅读全文】
发布时间：2014-12-02 00:24:44
###若要引用常量值必须先加载基常量元素 use Win32::GUI::constants qw(MB_OK MB_OKCANCEL MB_YESNO); #以空格方开来 要设置按钮的消息框出现在指定下列值之一：常量表示 .........【阅读全文】
