From 49c0430e34f5535328b0e7a43f6b3bb0a3cb3262 Mon Sep 17 00:00:00 2001
From: James <james@ataye.com.au>
Date: Thu, 4 Dec 2014 20:10:11 +1000
Subject: [PATCH] Change CInt to CLng due to int overflow

---
 ts_block.vbs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ts_block.vbs b/ts_block.vbs
index 3f9b6cc..28f90c5 100644
--- a/ts_block.vbs
+++ b/ts_block.vbs
@@ -118,13 +118,13 @@ Next ' intOSBuild
 ' Read configuration from the registry, if present, in a really simplsitic way
 On Error Resume Next ' Noooo!!!
 intBlockDuration = DEFAULT_BLOCK_DURATION
-If CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_DURATION)) > 0 Then intBlockDuration = CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_DURATION))
+If CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_DURATION)) > 0 Then intBlockDuration = CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_DURATION))
 
 intBlockAttempts = DEFAULT_BLOCK_ATTEMPTS
-If CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_ATTEMPTS)) > 0 Then intBlockAttempts = CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_ATTEMPTS))
+If CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_ATTEMPTS)) > 0 Then intBlockAttempts = CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_ATTEMPTS))
 
 intBlockTimeout = DEFAULT_BLOCK_TIMEOUT
-If CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_TIMEOUT)) > 0 Then intBlockTimeout = CInt(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_TIMEOUT))
+If CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_TIMEOUT)) > 0 Then intBlockTimeout = CLng(objShell.RegRead(REG_CONFIG_PATH & REG_BLOCK_TIMEOUT))
 
 If objShell.RegRead(REG_CONFIG_PATH & REG_BLACKHOLE_IP) <> "" Then
 	blackHoleIPAddress = regexpSanitizeIP.Replace(objShell.RegRead(REG_CONFIG_PATH & REG_BLACKHOLE_IP), "")