--- experimental/host/vb_net_test/nettest.frm	2001/02/23 10:07:55	1.3
+++ experimental/host/vb_net_test/nettest.frm	2001/02/23 10:29:16	1.4
@@ -18,7 +18,7 @@ Begin VB.Form Form1 
       Caption         =   "TCP to Filter"
       Height          =   375
       Left            =   3720
-      TabIndex        =   9
+      TabIndex        =   5
       Top             =   2520
       Width           =   1575
    End
@@ -27,7 +27,7 @@ Begin VB.Form Form1 
       Left            =   240
       MultiLine       =   -1  'True
       ScrollBars      =   2  'Vertical
-      TabIndex        =   8
+      TabIndex        =   4
       Text            =   "nettest.frx":0000
       Top             =   3000
       Width           =   5055
@@ -36,7 +36,7 @@ Begin VB.Form Form1 
       Caption         =   "TCP to FilterManager"
       Height          =   375
       Left            =   3360
-      TabIndex        =   7
+      TabIndex        =   3
       Top             =   2040
       Width           =   1935
    End
@@ -47,22 +47,6 @@ Begin VB.Form Form1 
       _ExtentY        =   741
       _Version        =   393216
    End
-   Begin VB.TextBox Text3 
-      Height          =   285
-      Left            =   1680
-      TabIndex        =   5
-      Text            =   "killigrew.ukc.ac.uk"
-      Top             =   1560
-      Width           =   2535
-   End
-   Begin VB.TextBox Text2 
-      Height          =   285
-      Left            =   1680
-      TabIndex        =   3
-      Text            =   "4567"
-      Top             =   1920
-      Width           =   855
-   End
    Begin VB.CommandButton Command1 
       Caption         =   "Send UDP"
       Height          =   375
@@ -87,24 +71,6 @@ Begin VB.Form Form1 
       _Version        =   393216
       Protocol        =   1
    End
-   Begin VB.Label Label3 
-      Alignment       =   1  'Right Justify
-      Caption         =   "Destination:"
-      Height          =   255
-      Left            =   360
-      TabIndex        =   6
-      Top             =   1560
-      Width           =   1215
-   End
-   Begin VB.Label Label2 
-      Alignment       =   1  'Right Justify
-      Caption         =   "Port:"
-      Height          =   255
-      Left            =   360
-      TabIndex        =   4
-      Top             =   1920
-      Width           =   1215
-   End
    Begin VB.Label Label1 
       Caption         =   "Packet contents"
       Height          =   255
@@ -119,6 +85,12 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
+Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
+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 filterHostname As String
 Dim filterTCPPort As Integer
 Dim filterUDPPort As Integer
@@ -132,10 +104,12 @@ Dim responseNumber As Integer
 
 Private Sub Command1_Click()
 
+    xml = "<packet></packet>"
+
     ' Use the first winsock control to send a UDP packet.
-    Winsock1.RemoteHost = Text3.Text
-    Winsock1.RemotePort = Text2.Text
-    Winsock1.SendData Text1.Text
+    Winsock1.RemoteHost = filterHostname
+    Winsock1.RemotePort = filterUDPPort
+    Winsock1.SendData xml
 
 End Sub
 
@@ -143,7 +117,7 @@ Private Sub Command2_Click()
     
     ' establish a TCP connection to a filtermanager
     Winsock2.Close
-    Winsock2.Connect Text3.Text, Text2.Text
+    Winsock2.Connect filterManagerHostname, filterManagerTCPPort
 
 End Sub
 
@@ -155,8 +129,33 @@ End Sub
 
 Private Sub Form_Load()
     protocolVersion = "1.1"
+    
+    ''''TEMP
+    filterManagerHostname = "killigrew.ukc.ac.uk"
+    filterManagerTCPPort = 4567
+    Exit Sub
+    ''' ENDTEMP
+    
+    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")
+    filterManagerHostname = Left$(buf, length)
+    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
+    filterManagerTCPPort = Left$(buf, length)
+    
+    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")
+    End
+    
 End Sub
 
+Private Sub Label2_Click()
+
+End Sub
+
 Private Sub Winsock2_Connect()
       
    responseNumber = 0
@@ -260,5 +259,5 @@ Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
 configError:
     x = MsgBox("error doing configuration")
 heartbeatError:
-    
+    x = MsgBox("error doing configuration")
 End Sub