下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
use Win32::EventLog; $eventLog = Win32::EventLog->new('System') || die $!; %eventRecord = ( 'Source' => 0,'Computer' => 0,'Length' => 0,'RecordNumber' => 0,'TimeGenerated'=> 0,'Timewritten' => 0,'ClosingRecordNumber' => 0,'Category' => 2,'EventID' => 4242,'EventType' => EVENTLOG_INFORMATION_TYPE,'Strings' => "Used to identify the data",'Data' => "Informational data about the message",); $eventLog->Report(\%eventRecord);
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。