--- experimental/host/vb_net_test/nettest.frm	2001/02/23 17:37:04	1.17
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 17:51:07	1.18
@@ -125,10 +125,10 @@ Begin VB.Form Form1 
       Alignment       =   2  'Center
       Caption         =   "Status:"
       Height          =   255
-      Left            =   120
+      Left            =   0
       TabIndex        =   2
       Top             =   1320
-      Width           =   4455
+      Width           =   4695
    End
 End
 Attribute VB_Name = "Form1"
@@ -141,7 +141,7 @@ Private Declare Function GetPrivateProfileString Lib "
 Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
 
 Dim filterManagerHostname As String
-Dim filterManagerTCPPort As Integer
+Dim filterManagerTCPPort As Long
 
 Dim seqNo As Long
 Dim machineName As String
@@ -170,21 +170,21 @@ Private Sub Form_Load()
     'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
     
     ''''TEMP
-    filterManagerHostname = "killigrew.ukc.ac.uk"
-    filterManagerTCPPort = 4567
+    'filterManagerHostname = "killigrew.ukc.ac.uk"
+    'filterManagerTCPPort = 4567
     ''''' END TEMP
     
-    GoTo skip
+    'GoTo skip
     On Error GoTo iniError
     Dim buf As String * 256
     Dim length As Long
-    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
+    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "/winhost.ini")
     filterManagerHostname = Left$(buf, length)
-    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
-    filterManagerTCPPort = Left$(buf, length)
+    length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
+    filterManagerTCPPort = length
 skip:
 
-    Status.Caption = "Connecting to Filter Manager"
+    Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
     Reconfigure_Click
     
     Form1.Show
@@ -194,7 +194,7 @@ skip:
     Exit Sub
     
 iniError:
-    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.", 48, "Configuration not found")
+    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.  " & Err.Description, 48, "Configuration not found")
     End
     
 End Sub