CCTV TECH
Nassau, Bahamas
Search this site Search Help
Default
Newest
Oldest
CCTV Forum News
Use our miniPSS tool to get
enhanced hotkeys in PSS.
miniPSS is an EXE wrapper
for PSS on Windows XP/7.
Visit the Forum Post
All CCTV Pages
All Visual Basic
Real Estate in The Bahamas from $25,000
All Categories
Partners
 
 
 
CenterV2 Full Screen
Version: 8.4, April 20th, 2011

Full Screen mode for Geovision CenterV2
I could not find a setting to go full screen while setting up CenterV2 for a client so I decided to come up with my own method. I just wanted as much video on the screen as possible, basically without the annoying Event Log. I ended up with the main CenterV2 covering the screen without the Event log, which is essentially what we wanted.

The trick is simple:
Your current screen resolution needs to be 1280x1024 or higher, set the CenterV2 resolution to 1024x768, Event Log Floating to the right, then change your screen resolution to 1024x768.

I made a program that will do this automatically, called XCV2.
Just put this in the CenterV2 folder and run this instead of CenterV2.exe.
This was tested with CenterV2 version 8.4 (not included).

Sample Screenshot: 1024x768
View Full Image

How it works
• Closes CenterV2 if its running
• Updates the GeoCSvr.ini file to resolution of 0 (1024x768)
• Updates the registry to ELPos of 0 (Event log on right) and Twinview of 1 (Event log floating)
• Resizes display to 1280x1024 - if we stay in 1024x768, when CenterV2 starts it will show the Event log at the bottom and non floating no matter what is set in the INI or Registry. I could resize to any higher res for this to work but 1280x1024 is a standard that most monitors support. If its already 1280x1024 then it wont resize.
• Start CenterV2
• Waits for the Eventlog window to appear so it can hide it (I use 2 timers, CenterV2 is a tricky app). Got approx 10 seconds max until it times out and the program exits if it cant find the window.
• Resizes the resolution to 1024x768
• CenterV2 should now cover the entire screen without any event log and have a 9, 25, and 36 way view with the control box at the right.

Terms
This is free software and we are not to be held responsible nor liable for damage from
the use or misuse of this software.

Requirements
Requires a Windows Operating System with Visual Basic 6 Runtimes
Requires Geovision CenterV2. Tested on XP SP3 with CenterV2 8.4
Contact us about errors

Download File
Download EXE (40KB)

Also see:
Search Results for GeoVision

GeoVision CenterV2 Download (8.4)
GeoVision's Taiwan Site
GeoVision's USA Site

NOTE:
If you need to run CenterV2 under a user account you will get an error message.
To auto run it as an admin every time create a simple batch file or use the following:

Create New Text Document, right click EDIT.
Paste the following into it and change the Admin user and pass to your own.
Close and it will ask to save it, rename it something like USERRUN.vbs to the CenterV2 path.
Run that under the user account instead of XCV2.exe (XCV2.exe must be in the CenterV2 folder)

You can download the both the EXE and ready made VBS here:
Download ZIP (12KB)

USERRUN.vbs
           
'----------------------------
'// ADMIN USER & PASSWORD  //
'----------------------------
Const USER = "Admin"
Const PASS = "123"

'----------------------------
'// DONT CHANGE BELOW HERE //
'----------------------------

Call Run(ScriptPath & "\XCV2.exe","",USER,PASS)

Sub Run(sExe,sCmds,sUser,sPass)
    Dim WshShell, WshEnv
    Set WshShell = CreateObject("WScript.Shell")
    set WshEnv = WshShell.Environment("Process")
    If LenB(sUser)=0 Or LenB(sPass)=0 Then
        WshShell.Run ShortPath(sExe) & sCmds
    Else
        WshShell.Run "runas /user:" & sUser & " " & CHR(34) & ShortPath(sExe) & sCmds & CHR(34)
        Wscript.Sleep 30
        WshShell.AppActivate WshEnv("SystemRoot")&"\System32\runas.exe"
        WshShell.SendKeys sPass
        WshShell.SendKeys "{ENTER}"
    End If
    Set WshShell=Nothing
    Set WshEnv=Nothing
End Sub
Function ShortPath(filespec)
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    ShortPath = UCase(f.ShortPath)
    Set f = Nothing
    Set fs = Nothing
End Function
Function ScriptPath()
    ScriptPath = CreateObject("Scripting.FileSystemObject")._
    GetParentFolderName(Wscript.ScriptFullName)
End Function      

CCTV | DVR | Video Surveillance | CCTV Cameras | Remote Video | Tech Support | Software | Scripts | Articles | Burglar Alarms | Alarm Monitoring | Real Estate
Copyright © 2001/2012 BahamasSecurity.com
 
Website hosted in Nassau, The Bahamas