Calender Eventer v0.2

[Glyph]

CODE

expandcollapse popup

#include <GuiConstants.au3>
#include <misc.au3>

$0=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '0', 'Message Here' ))
$1=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '1', 'Message Here' ))
$2=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '2', 'Message Here' ))
$3=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '3', 'Message Here' ))

$4=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '4', 'Message Here' ))
$5=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '5', 'Message Here' ))
$6=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '6', 'Message Here' ))
$7=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '7', 'Message Here' ))

$8=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '8', 'Message Here' ))
$9=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '9', 'Message Here' ))
$10=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '10', 'Message Here' ))
$11=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '11', 'Message Here' ))

$12=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '12', 'Message Here' ))
$13=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '13', 'Message Here' ))
$14=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '14', 'Message Here' ))
$15=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '15', 'Message Here' ))

$16=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '16', 'Message Here' ))
$17=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '17', 'Message Here' ))
$18=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '18', 'Message Here' ))
$19=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '19', 'Message Here' ))

$20=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '20', 'Message Here' ))
$21=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '21', 'Message Here' ))
$22=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '22', 'Message Here' ))
$23=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '23', 'Message Here' ))

$24=(IniRead( @ScriptDir & '\Settings.ini', 'Day', '24', 'Message Here' ))
$25=(IniRead( @ScriptDir & '\Settings.ini', 'Month', '25', 'Message Here' ))
$26=(IniRead( @ScriptDir & '\Settings.ini', 'Year', '26', 'Message Here' ))
$27=(IniRead( @ScriptDir & '\Settings.ini', 'Event', '27', 'Message Here' ))

$user32 = ""
$dates = 27;inputs
$destination = @ScriptDir & "\Laod1.jpg"
$destination2 = @ScriptDir & "\Laod2.jpg"
$destination3 = @ScriptDir & "\Laod3.jpg"
#Region ### START Koda GUI section ### Form=
$form1= GuiCreate("Calender Eventer v0.2", 380, 450,-1, -1)

$Label_1 = GuiCtrlCreateLabel("Day", 20, 10, 40, 20, $SS_CENTER)
$Label_2 = GuiCtrlCreateLabel("Month", 80, 10, 50, 20, $SS_CENTER)
$Label_3 = GuiCtrlCreateLabel("Year", 160, 10, 30, 20, $SS_CENTER)
$Label_4 = GuiCtrlCreateLabel("Event", 260, 10, 40, 20, $SS_CENTER)

dim $input[28]
$Input[0] = GUICtrlCreateInput($0, 10, 30, 50, 20)
$Input[4] = GUICtrlCreateInput($4, 10, 70, 50, 20)
$Input[8] = GUICtrlCreateInput($8, 10, 110, 50, 20)
$Input[12] = GUICtrlCreateInput($12, 10, 150, 50, 20)
$Input[16] = GUICtrlCreateInput($16, 10, 190, 50, 20)
$Input[20] = GUICtrlCreateInput($20, 10, 230, 50, 20)
$Input[24] = GUICtrlCreateInput($24, 10, 270, 50, 20)

$Input[1] = GUICtrlCreateInput($1, 70, 30, 60, 20)
$Input[5] = GUICtrlCreateInput($5, 70, 70, 60, 20)
$Input[9] = GUICtrlCreateInput($9, 70, 110, 60, 20)
$Input[13] = GUICtrlCreateInput($13, 70, 150, 60, 20)
$Input[17] = GUICtrlCreateInput($17, 70, 190, 60, 20)
$Input[21] = GUICtrlCreateInput($21, 70, 230, 60, 20)
$Input[25] = GUICtrlCreateInput($25, 70, 270, 60, 20)

$Input[2] = GUICtrlCreateInput($2, 140, 30, 70, 20)
$Input[6] = GUICtrlCreateInput($6, 140, 70, 70, 20)
$Input[10] = GUICtrlCreateInput($10, 140, 110, 70, 20)
$Input[14] = GUICtrlCreateInput($14, 140, 150, 70, 20)
$Input[18] = GUICtrlCreateInput($18, 140, 190, 70, 20)
$Input[22] = GUICtrlCreateInput($22, 140, 230, 70, 20)
$Input[26] = GUICtrlCreateInput($26, 140, 270, 70, 20)

$Input[3] = GUICtrlCreateInput($3, 230, 30, 130, 20)
$Input[7] = GUICtrlCreateInput($7, 230, 70, 130, 20)
$Input[11] = GUICtrlCreateInput($11 , 230, 110, 130, 20)
$Input[15] = GUICtrlCreateInput($15, 230, 150, 130, 20)
$Input[19] = GUICtrlCreateInput($19, 230, 190, 130, 20)
$Input[23] = GUICtrlCreateInput($23, 230, 230, 130, 20)
$Input[27] = GUICtrlCreateInput($27, 230, 270, 130, 20)
Dim $dwy[28] = ['Day','Month','Year','Event', 'Day','Month','Year','Event', 'Day','Month','Year','Event', 'Day','Month','Year','Event','Day','Month',
'Year','Event', 'Day','Month','Year','Event', 'Day','Month','Year','Event']

$Save = GuiCtrlCreateButton("Save", 170, 420, 50, 30)

$Pic_13 = GuiCtrlCreatePic("cev02.gif", 80, 292, 224, 124)
$Pic_14 = GuiCtrlCreatePic("Eventer.gif", 0, 341, 140, 50)
GuiSetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nmsg = GuiGetMsg()
If $nMsg = $GUI_EVENT_CLOSE Then Exit
   
  if $nmsg = $Save then ExitLoop
WEnd

If $nMsg = $Save Then
        Save()
    EndIf

Func Save()
    For $i = 0 To 27
        IniWrite( @ScriptDir & '\Settings.ini', $dwy[$i],$i, GUICtrlRead($input[$i]))
    Next

SplashImageOn("Saved!", $destination,420,300)
Sleep(1500)
SplashOff()

SplashImageOn("Saved!", $destination2,420,300)
Sleep(1500)
SplashOff()

SplashImageOn("Saved!", $destination3,420,300)
Sleep(2000)
SplashOff()
EndFunc
MsgBox(0,"Saved","Saved Successfully!")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Calender", "REG_SZ", @ScriptDir&"\Calender Notification.exe")
Exit

[The ini file]

[Day]

0=10

4=10

8=10

12=10

16=10

20=10

24=10

[Month]

1=12

5=12

9=12

13=12

17=12

21=12

25=12

[Year]

2=2006

6=2006

10=2006

14=2006

18=2006

22=2006

26=2006

[Event]

3=Type the event here!

7=Type the event here!

11=Type the event here!

15=Type the event here!

19=Type the event here!

23=Type the event here!

27=Type the event here!

[/The ini file]

The link: Calender Eventer v0.2

Edited December 10, 2006 by backstabbed

[Valik]

There's no need of creating a new thread for each release. Just use one thread.

[Xenobiologist]

Hi,

if you like to deal with calendars, then you might want to have a look at this http://www.autoitscript.com/forum/index.ph...&hl=galenda

So long,

Mega

[Glyph]

Oh man... i wish id've checked for galenda.... oh well i guess i can work on something else..