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
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
All Categories
Boottimer
Boot
USB
Avermedia Dahua Geo
DVR Geovision Kalatel
Livevue Nlite PSS
Remote Video Tweak
USB Setup USB Boot
VB6 VBScript X-irs
Avermedia Dahua Geo
DVR Geovision Kalatel
Livevue Nlite PSS
Remote Video Tweak
USB Setup USB Boot
VB6 VBScript X-irs
Partners
CenterV2 Full Screen
Version: 8.4, April 20th, 2011
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

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
|



