Family Calendar

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Family Calendar

Logged in as: Guest

arrSession:exec spGetSession 2,16,53387

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Family Calendar
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Family Calendar - 11/8/2007 5:47:19 AM

mcds99

Posts: 424
Score: 4
Joined: 2/28/2006
Status: offline

I just could not see writting all our important dates on a paper calendar again for 2008.
I went searching for a "SIMPLE" calendar system on the internet, everything I found required some kind of database.
Having a database is neet but it requires more skill than my kids or my wife have when it comes to technology.
Let alone me 8-O Text files are easy to deal with ;-)
I found a calendar HTA that only had the basics in it and enhanced it for my needs.
Change the VAR wkDir and Dir to where you will keep the text files, if you don't like notepad as a text editor change that.

It qualifies as KISMIF (Keep It Simple Make It Fun)

<html>
<head>
<TITLE>Please select a date</TITLE>
<HTA:APPLICATION 
   ID="HTA Calendar" 
   APPLICATIONNAME="HTA Calendar"
   SCROLL="no"
   SINGLEINSTANCE="yes"
   WINDOWSTATE="normal"
   CAPTION = "yes"
>
</head>
<SCRIPT Language="VBScript">
'### =================================================================================
Dim HRez, VRez
Dim HSize: HSize = 450
Dim VSize: VSize = 360
Dim wkDir: WkDir = "D:\_Script\_vbscript\_Scripts\Calendar\DateData\"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
 SET fsObj = CreateObject("Scripting.FileSystemObject")
 SET dir = fsObj.GetFolder("D:\_Script\_vbscript\_Scripts\Calendar\DateData\")
'### =================================================================================
Sub Window_Onload  
 GetResolution
 self.ResizeTo HSize,VSize
 self.MoveTo (HRez-HSize)/2,(VRez-VSize)/2
End Sub
'### =================================================================================
Sub GetResolution
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colItems = objWMIService.ExecQuery ("Select * from Win32_DisplayConfiguration")
    For Each objItem In colItems
       HRez = objItem.PelsWidth
       VRez = objItem.PelsHeight
    Next
       If HRez > 1280 Then HRez = 1280
       If VRez > 1024 Then VRez = 1024
End Sub
'### =================================================================================
Sub ExitScript
 Self.Close()
End Sub
'### =================================================================================
Sub ViewEntry
  parDate = Calendar1.Value
  mdyDate = split(parDate, "/")
  nmDate = mdyDate(0) & mdyDate(1) & mdyDate(2)
  fnDate =  nmDate & ".txt"
  chkFile = wkDir & fnDate
    IF (fsObj.FileExists(chkFile)) THEN
       Set oFile = fsObj.OpenTextFile(chkFile, ForReading)
       msgBox oFile.readall
    Else 
       For Each xFile in dir.files
        wFile = chkFile
        Set wFile = fsObj.CreateTextFile(chkFile, ForWriting)
            wFile.close
       NEXT
         openFile = "notepad.exe " & chr34 & chkFile
         Set objShell=CreateObject("Wscript.shell")
             objShell.Run openFile
    END IF
End Sub
'### =================================================================================
Sub EditEntry
 parDate = Calendar1.Value
 mdyDate = split(parDate, "/")
 nmDate = mdyDate(0) & mdyDate(1) & mdyDate(2)
 fnDate =  nmDate & ".txt"
 chkFile = wkDir & fnDate
    openFile = "notepad.exe " & chr34 & chkFile
    Set objShell=CreateObject("Wscript.shell")
        objShell.Run openFile
End Sub
'### =================================================================================
</SCRIPT>
<body bgcolor="#AED6C9">
</select><span style="position: left: 0; top: 20"><p align="center">
<OBJECT CLASSID="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id=Calendar1>
   <param name="BackColor" value="-2147483633">
   <param name="DayLength" value="1">
   <param name="MonthLength" value="1">
   <param name="DayFontColor" value="0">
   <param name="FirstDay" value="1">
   <param name="GridCellEffect" value="1">
   <param name="GridFontColor" value="10485760">
   <param name="GridLinesColor" value="-2147483632">
   <param name="ShowDateSelectors" value="-1">
   <param name="ShowDays" value="-1">
   <param name="ShowHorizontalGrid" value="-1">
   <param name="ShowTitle" value="-1">
   <param name="ShowVerticalGrid" value="-1">
   <param name="TitleFontColor" value="10485760">
   <param name="ValueIsNull" value="0">
</OBJECT>
<br>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="View" name="run_button"  onClick="ViewEntry">
<br><br>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="Edit" name="run_button"  onClick="EditEntry">
  <br><br>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="Exit" name="run_button"  onClick="ExitScript"> 
</BODY>
</HTML>

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

Revisions: 1 | Post #: 1

RE: Family Calendar - 11/8/2007 2:35:33 PM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

That's great !

(in reply to mcds99)

Post #: 2

RE: Family Calendar - 11/9/2007 9:08:54 PM

wanghuok

Posts: 17
Score: 0
Joined: 10/13/2005
Status: offline

this script cant run successfully on my computer.
is there no CalendarACTIVEX on my computer.
and where i can download it.

_____________________________

I come from China,This is a very beautiful country.

Welcome to China.

(in reply to mcds99)

Post #: 3

RE: Family Calendar - 11/9/2007 11:04:42 PM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Have you copied the script into a file with a HTA extention?
i.e. calendar.hta

I noticed you get an activeX warning when it is run from html

(in reply to wanghuok)

Post #: 4

RE: Family Calendar - 11/10/2007 1:18:18 AM

wanghuok

Posts: 17
Score: 0
Joined: 10/13/2005
Status: offline

I run the script with a HTA extention for sure.
and it gives me a warning indicate that Object does not support this attribute or method "calendar1.value" when i run it .

_____________________________

I come from China,This is a very beautiful country.

Welcome to China.

(in reply to Meg)

Post #: 5

RE: Family Calendar - 11/10/2007 1:20:57 AM

Meg

Posts: 125
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

Sorry I don't know, I only can test with XP, maybe it works funny on a different operating system. Good Luck.

(in reply to wanghuok)

Post #: 6

RE: Family Calendar - 11/13/2007 5:31:52 AM

mcds99

Posts: 424
Score: 4
Joined: 2/28/2006
Status: offline

Google mscal.ocx this is the active X control the runs the calendar.

Down load and put it in to the C:\Windows folder.

Run this command "regsvr32 mscal.ocx /s" this will register the active X control, without any popups, "/s for silent".

It should work after that.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to Meg)

Post #: 7

RE: Family Calendar - 11/14/2007 6:46:41 AM

mcds99

Posts: 424
Score: 4
Joined: 2/28/2006
Status: offline

I decided to take this 2 more steps forward, this is the first step an HTML version, the next step will be an ASP.

This does not use Notepad for editing.

<html>
<head>
<TITLE>Calendar</TITLE>
</head>
<SCRIPT Language="VBScript">
'### =================================================================================
Dim wkDir: WkDir = "D:\_Script\_vbscript\_Scripts\Calendar\DateData\"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
  SET fsObj = CreateObject("Scripting.FileSystemObject")
  SET dir = fsObj.GetFolder("D:\_Script\_vbscript\_Scripts\Calendar\DateData\")
'### =================================================================================
Sub ExitScript
  Self.Close()
End Sub
'### =================================================================================
Sub ViewEntry
   parDate = Calendar1.Value
   mdyDate = split(parDate, "/")
   nmDate = mdyDate(0) & mdyDate(1) & mdyDate(2)
   fnDate =  nmDate & ".txt"
   chkFile = wkDir & fnDate
     IF (fsObj.FileExists(chkFile)) THEN
        Set oFile = fsObj.OpenTextFile(chkFile, ForReading)
        DispCal.value = oFile.readall
     Else
     msgBox("No entry exists")
     END IF
End Sub
'### =================================================================================
Sub EditEntry
  parDate = Calendar1.Value
  mdyDate = split(parDate, "/")
  nmDate = mdyDate(0) & mdyDate(1) & mdyDate(2)
  fnDate =  nmDate & ".txt"
  chkFile = wkDir & fnDate
     openFile = "notepad.exe " & chr34 & chkFile
     Set objShell=CreateObject("Wscript.shell")
         objShell.Run openFile
End Sub
'### =================================================================================
Sub SaveEntry
  parDate = Calendar1.Value
  mdyDate = split(parDate, "/")
  nmDate = mdyDate(0) & mdyDate(1) & mdyDate(2)
  fnDate =  nmDate & ".txt"
  chkFile = wkDir & fnDate
  wFile = chkFile
  Set wFile = fsObj.CreateTextFile(chkFile, ForWriting)
      wFile.close
  Set wrFile = fsObj.OpenTextFile(chkFile, ForWriting)
      wrFile.writeline(DispCal.value)
End Sub
'### =================================================================================
</SCRIPT>
<body bgcolor="#AED6C9">
</select><span style="position: left: 0; top: 20"><p align="center">
<OBJECT CLASSID="clsid:8E27C92B-1264-101C-8A2F-040224009C02" id=Calendar1>
    <param name="BackColor" value="-2147483633">
    <param name="DayLength" value="1">
    <param name="MonthLength" value="1">
    <param name="DayFontColor" value="0">
    <param name="FirstDay" value="1">
    <param name="GridCellEffect" value="1">
    <param name="GridFontColor" value="10485760">
    <param name="GridLinesColor" value="-2147483632">
    <param name="ShowDateSelectors" value="-1">
    <param name="ShowDays" value="-1">
    <param name="ShowHorizontalGrid" value="-1">
    <param name="ShowTitle" value="-1">
    <param name="ShowVerticalGrid" value="-1">
    <param name="TitleFontColor" value="10485760">
    <param name="ValueIsNull" value="0">
</OBJECT>
<TABLE>
<TR><td><th align="center">Family Calendar</td></TR>
<TR>
<td>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="View" name="run_button"  onClick="ViewEntry">
</td><td>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="Save" name="run_button"  onClick="SaveEntry">
   </td><td>
</select><span style="position: left: 0; top: 40;; width:96; height:20">
<input id=runbutton  class="button" type="button" value="Exit" name="run_button"  onClick="ExitScript">
</td>
</TR>
</TABLE>
<TABLE>
<TR>
<td Align="Center">
<textarea name="DispCal" rows="8" cols=40></textarea>
</td>
</TABLE>
</BODY>
</HTML>

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to mcds99)

Post #: 8

RE: Family Calendar - 11/19/2007 12:45:51 AM

mbouchard

Posts: 1862
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

Just took a look at this and it looks cool, but I do have a stupid question. Why not just use Google Calendar? Myself, my wife and 2 kids each have a calendar, I can edit all calendars and my wife can edit hers and the kids. Each one is color coded so it is easy to see who each entry is for.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to mcds99)

Post #: 9

RE: Family Calendar - 11/21/2007 6:55:20 AM

mcds99

Posts: 424
Score: 4
Joined: 2/28/2006
Status: offline

I guess I just don't like having my family data on googles email/calendar system. Once you put something on a computer system you don't own and have in your house it belongs to them (whoever they are). They can do anything they want to do with the information stored on their systems. I know this sounds paranoid but it gives me the hebegebes to know someone else know where my kids are at any given time. I own the server I put my stuff on and it is in my house.

It would also imply that we let our kids use email, we restrict the use of technology including TV at home because it's not just fun and games. My kids have their own computers in their rooms. The doors are open and we can pop in at any time, it's about our kids trusting our judgement in what they do not about us trusting them to do the right thing. Kids make mistakes they click on everything.

quote:

ORIGINAL: mbouchard

Just took a look at this and it looks cool, but I do have a stupid question. Why not just use Google Calendar? Myself, my wife and 2 kids each have a calendar, I can edit all calendars and my wife can edit hers and the kids. Each one is color coded so it is easy to see who each entry is for.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to mbouchard)

Post #: 10

RE: Family Calendar - 11/23/2007 7:15:15 AM

Fredledingue

Posts: 337
Score: 0
Joined: 5/9/2005
From:
Status: offline

Line 23: SET dir = fsObj.GetFolder("D:\_Script\_vbscript\_Scripts\Calendar\DateData\")
Hard coded path: Doesn't exists on my computer

Line 31 to 41
Sub GetResolution
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_DisplayConfiguration")
   For Each objItem In colItems
      HRez = objItem.PelsWidth
      VRez = objItem.PelsHeight
   Next
      If HRez > 1280 Then HRez = 1280
      If VRez > 1024 Then VRez = 1024
End Sub

This is completely useless, please use this instead:

       HRez = window.screen.width
      VRez = window.screen.height

_____________________________

Fred

(in reply to mcds99)