Calender Eventer v0.1

[Glyph]

The setup file

CODE

expandcollapse popup

#include <GuiConstants.au3>
#include <misc.au3>
$user32 = ""
$dates = 4;inputs
$destination = @ScriptDir & "\Laod1.jpg"
$destination2 = @ScriptDir & "\Laod2.jpg"
$destination3 = @ScriptDir & "\Laod3.jpg"
#Region ### START Koda GUI section ### Form=
$form1= GuiCreate("Calender Eventer v0.1", 380, 141,-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)
dim $input[4]
$Input[0] = GUICtrlCreateInput(''&@MDAY, 10, 30, 50, 20)
$Input[1] = GUICtrlCreateInput(''&@MON, 70, 30, 60, 20)
$Input[2] = GUICtrlCreateInput(''&@YEAR, 140, 30, 70, 20)


$Label_4 = GuiCtrlCreateLabel("Event", 260, 10, 40, 20, $SS_CENTER)
$Input[3] = GUICtrlCreateInput('Type the event here' , 230, 30, 130, 20)
Dim $dwy[4] = ['Day','Month','Year','Event']
$Save = GuiCtrlCreateButton("Save", 170, 100, 60, 30)

$Pic_1 = GuiCtrlCreatePic("civ.gif", 0, 60, 26, 28)
$Pic_2 = GuiCtrlCreatePic("civ.gif", 300, 60, 26, 28)
$Pic_3 = GuiCtrlCreatePic("civ.gif", 30, 60, 26, 28)
$Pic_4 = GuiCtrlCreatePic("civ.gif", 60, 60, 26, 28)
$Pic_5 = GuiCtrlCreatePic("civ.gif", 90, 60, 26, 28)
$Pic_6 = GuiCtrlCreatePic("civ.gif", 120, 60, 26, 28)
$Pic_7 = GuiCtrlCreatePic("civ.gif", 150, 60, 26, 28)
$Pic_8 = GuiCtrlCreatePic("civ.gif", 180, 60, 26, 28)
$Pic_9 = GuiCtrlCreatePic("civ.gif", 210, 60, 26, 28)
$Pic_10 = GuiCtrlCreatePic("civ.gif", 240, 60, 26, 28)
$Pic_11 = GuiCtrlCreatePic("civ.gif", 270, 60, 26, 28)
$Pic_12 = GuiCtrlCreatePic("civ.gif", 330, 60, 26, 28)
$Pic_15 = GuiCtrlCreatePic("civ.gif", 360, 60, 26, 28)
$Pic_13 = GuiCtrlCreatePic("Calander.gif", 0, 90, 160, 49)
$Pic_14 = GuiCtrlCreatePic("Eventer.gif", 240, 90, 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 3
        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

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Calender", "REG_SZ", @ScriptDir&"\Calender Notification.exe")
Exit
oÝ÷ Û÷(uæèÅ8^b~'«r^nZºÚ"µÍÌÍÑ^HH[TXY
ØÜ    [È ÌÎNÉÌLÔÙ][ÜË[IÌÎNË   ÌÎNÑ^IÌÎNË    ÌÎNÌ ÌÎNË ÌÎNÓYÜØYÙHIÌÎNÈ
BÌÍÓ[ÛH[TXY
ØÜ    [È ÌÎNÉÌLÔÙ][ÜË[IÌÎNË   ÌÎNÓ[Û  ÌÎNË ÌÎNÌIÌÎNË ÌÎNÓYÜØYÙHIÌÎNÈ
BÌÍÖYXH[TXY
ØÜ    [È ÌÎNÉÌLÔÙ][ÜË[IÌÎNË   ÌÎNÖYXÌÎNË    ÌÎNÌÌÎNË  ÌÎNÓYÜØYÙHIÌÎNÈ
BÌÍÑ][H[TXY
ØÜ    [È ÌÎNÉÌLÔÙ][ÜË[IÌÎNË   ÌÎNÑ][   ÌÎNË ÌÎNÌÉÌÎNË    ÌÎNÓYÜØYÙHIÌÎNÈ
BYQVHH  ÌÍÙ^H[QVHH   ÌÍÑ^H[SÓH   ÌÍÓ[Û[QPTH  ÌÍÖYX[ÙÐÞ
    ][ÝÐØ[[][    ][ÝË  ][ÝÕHÈ[][Ù^IÌÌÎΠ   ][ÝÉ[È   ÌÍÑ][
B[Y

[The INI file:]

[Day]

0=10

[Month]

1=12

[Year]

2=2006

[Event]

3=Run Setup Calander.exe!

[/The INI file:]

The link: Calender Eventer v0.1

Edited December 10, 2006 by backstabbed