#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("日志工具", 615, 632, 193, 115)
$Group1 = GUICtrlCreateGroup("日志", 0, 40, 609, 585)
$Edit1 = GUICtrlCreateEdit("", 8, 64, 593, 553)
GUICtrlSetData(-1, "请在这里写下你的人生历程。。。")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("写日志", 8, 8, 75, 25, 0)
$Button2 = GUICtrlCreateButton("读日志", 528, 8, 75, 25, 0)
$Button3 = GUICtrlCreateButton("清空", 400, 8, 75, 25, 0)
$Date1 = GUICtrlCreateDate("2008/10/06 14:44:27", 100, 8, 186, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Button1
IniWrite("Date\blog.dat","blog","日志",GUICtrlRead($Edit1))
msgbox(64,"提示","记录成功")
case $Button2
Dim $var
$var=IniRead("Date\blog.dat","blog","日志","0")
MsgBox(64,"提示","读取成功:"&$var)
Case $Button3
EndSwitch
WEnd |