找回密码  加入

AUTOIT CN

搜索
查看: 149|回复: 8

[AU3基础] 有没有写LOG日志的UDF

[复制链接]
发表于 2018-9-12 16:53:19 | 显示全部楼层 |阅读模式
有没有写LOG日志的UDF?
发表于 2018-9-12 17:26:51 | 显示全部楼层
#include <EventLog.au3>
了解一下。
发表于 2018-9-12 23:24:40 | 显示全部楼层
win系統LOG? 自訂義LOG? 用於哪邊?
 楼主| 发表于 7 天前 | 显示全部楼层
自訂義LOG? 自定义软件的log生成。
 楼主| 发表于 7 天前 | 显示全部楼层
本帖最后由 redapple2008 于 2018-9-13 09:56 编辑

这个是加载dll写系统日志的,我自定议log文件需要自己写文件生成吗?


  1. #include "_CustomEventLog.au3"

  2. $MyEventName = "AutoIt"

  3. $EventLog = _SetLog($MyEventName,"AutoIteventmsg.dll")

  4. If NOT @error then
  5.     _RegisterEvent($EventLog, $SUCCESS, $App_Started, @ScriptName)
  6.     _RegisterEvent($EventLog, $INFORMATION, $App_OK, "Just confirming this app is OK")
  7.     _RegisterEvent($EventLog, $ERROR, $App_Error, "This app is not feeling very well" & @crlf & "Can someone call a doctor")
  8.     _RegisterEvent($EventLog, $WARNING, $App_Warning, "There is no crap in this event log")
  9.     _RegisterEvent($EventLog, $INFORMATION, $App_Information, "Nothing to see here")
  10.     _RegisterEvent($EventLog, $INFORMATION, $App_Free, "This is my Free string" & @crlf & "with nothing at the begining")
  11.     _RegisterEvent($EventLog, $SUCCESS, $App_Stopped, @ScriptName)
  12. EndIf

  13. ;or using the normal AutoIt includes

  14. $EventLog = _SetLog($MyEventName,"AutoIteventmsg.dll")

  15. Global $aData[1]=[0]
  16. $hEventLog = _EventLog__RegisterSource("",$EventLog)
  17. _EventLog__Report($hEventLog, $INFORMATION, "None", $App_Information, "","Another message without the crap", $aData)
  18. _EventLog__Close ($hEventLog)
复制代码
发表于 5 天前 | 显示全部楼层
还有这个模块,我都是直接输出到文件。比如时间:事件
 楼主| 发表于 前天 08:53 | 显示全部楼层
hualong1009 发表于 2018-9-15 13:34
还有这个模块,我都是直接输出到文件。比如时间:事件

能不能举个例子?谢谢了!
发表于 前天 13:54 | 显示全部楼层
redapple2008 发表于 2018-9-18 08:53
能不能举个例子?谢谢了!

我不知道有这样的模块,自己写了个函数,输出
  1. Func Send_Msg($Msg = "", $Level = 0)
  2.         Global $MsgBox
  3.         If $Level == 0 Then
  4.                 _GUICtrlListBox_InsertString($MsgBox, @YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg, 0)
  5.                 GUICtrlSetColor($MsgBox, 0x000000)
  6.                 FileWriteLine($ConfigDir&"\Test_Record.log" ,@YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg)
  7.         ElseIf $Level == 1 Then
  8.                 _GUICtrlListBox_InsertString($MsgBox, @YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg, 0)
  9.                 GUICtrlSetColor($MsgBox, 0x22B14C)
  10.                 FileWriteLine($ConfigDir&"\Test_Record.log" ,@YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg)
  11.         ElseIf $Level == 2 Then
  12.                 _GUICtrlListBox_InsertString($MsgBox, @YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg, 0)
  13.                 ;GUICtrlSetData($MsgBox, @YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg)
  14.                 GUICtrlSetColor($MsgBox, 0xED1C24)
  15.                 FileWriteLine($ConfigDir&"\Test_Record.log" ,@YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg)
  16.         ElseIf $Level == 3 Then
  17.                 FileWriteLine($ConfigDir&"\Test_Record.log" ,@YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" -- "&$Msg)
  18.         EndIf

  19. EndFunc
复制代码
 楼主| 发表于 前天 14:09 | 显示全部楼层
hualong1009 发表于 2018-9-18 13:54
我不知道有这样的模块,自己写了个函数,输出

谢谢了!十分感谢,有例子就好多了,我再研究研究。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-9-20 01:36 , Processed in 0.094195 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表