Oprcon, that's not HD. The Tivo3 is.

Poor Man's PVR (Non-internet)

I have been running at least two PVR that do not use the internet.
I use the following for my PVR:

- ATI rage 128 cards.
- Pentinum 4 1800mhz computer.
- 200gig Harddrive
- over the air antenna
-


Set-up Operating System
You need to install Windows XP service Pack 2.
I added the following administrator ID "tvshows" but not the main owner of the computer.
I set-up all the passwords for the users for the computer.

--------------------------------------------------------------
Set-up tvshows id to log in right after booting (control userpasswords2)
- start -> run -> control userpasswords2
uncheck "Users must enter a user name and password to use this computer"
click apply and clear out administrator ID and put tvshows and the password

Create the directory for which ati’s recorded programs will go

C:tvpro

Create the directory for which the recorded programs will move to after recorded

C:tvprotvshows



Set-up the security tab for shared files:

Start -> run -> gpedit.msc

click down to following:

local Computer policy
-> computer Configuration
-> Windows Settings
-> Security Settings
-> Local Policies
-> Security Options
Find Policy:

Network access: Sharing and security model for local accounts

and change "Guest only - local users authenticate as Guest"
to "Classic - local users authenticate as themselves"
Turn-off ws32time.dll

Start -> control Panel -> Administrator Tools -> Services -> “Windows Time Properties”

Change [Startup Type:] from “Automatic” to “Disabled”

NOTE: I have found that when this is on and I am recorded ws32time.dll warning will show up and recording will stop.
Reboot the machine
After booting into tvshows ID – change Display Properties so that tvshows does not log out

Left click -> properties ->
[Desktop] tab change the background to (none)
[Screen Saver] tab (none)
Install Rage 128 Device Drivers (from ati.adm.com):

WXPR1286133279.exe
Install Rage 128 Multimedia Center 7.2
MMC72noDVD.exe
Visual Basic Program
-> (Get someone to compile the program so that you can put it in the c:tvpro directory).

+++++++++++++++++++++++++++++++++++++++++++++++++++
‘ Tvdates.exe


Dim sFilepath1 As String
Dim sFilepathA As String

Private Sub Copy_Click()



Dim x As Integer
Dim sOrgFileA As String

Dim sWorkingPath As String


sWorkingPath = sFilepathA

On Error Resume Next


Dim ChangingPath As String
Dim count As Integer
Dim i As Integer
Dim j As Integer
Dim sSource As String

Dim sDestination As String
Dim sSourceFile As String
Dim sDestinationFile As String


Dim iMouseState As Integer
Dim sCurrentDestinationDrive As String


x = 0
j = 0

sCurrentDestinationDrive = sFilepathA
sOrgFileA = sFilepathA


iMouseState = Screen.MousePointer

'Change Mouse state to wait
Screen.MousePointer = 11





Dim NameFileDate As String


Dim sOrgFilePath As String

Dim sOrgDirA As String
sOrgDirA = DirA
'DirA = DirA.List(j) + ""
Dir1 = DirA

DestDiskLabel.Caption = FileA.ListCount
For i = 0 To (FileA.ListCount - 1)


sDestination = sOrgFileA
sSource = sOrgFileA + FileA.List(i)

Dim GetttingDate As String
Dim sTimeDate As String
sTimeDate = FileDateTime(sSource)




Dim sHrsMinSs As String


sHrsMinSs = Format(sTimeDate, "hhAMPM")


Dim FileNameA As String
Dim FileNameNew As String

' to fix files that have Channel in it
If (InStr(FileA.List(i), "Channel")) Then
FileNameA = Left$(FileA.List(i), (Len(FileA.List(i)) - 4))
FileNameNew = Left$(FileNameA, (InStr(FileNameA, "annel") - 1))
FileNameNew = FileNameNew + Right$(FileNameA, (Len(FileNameA) - (InStr(FileNameA, "annel") + 6)))
'FileNameNew = FileNameA + Right$(FileNameA, (Len(FileNameA) - ((InStr(FileNameA, "Channel") + 1))))
'MsgBox (FileNameNew)
ElseIf (InStr(FileA.List(i), "Noname")) Then

' FileNameNew = FileNameNew + Right$(FileNameA, (Len(FileNameA) - (InStr(Fi