ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/winhost/nettest.frm
(Generate patch)

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.3 by pjm2, Fri Feb 23 10:07:55 2001 UTC vs.
Revision 1.4 by pjm2, Fri Feb 23 10:29:16 2001 UTC

# Line 18 | Line 18 | Begin VB.Form Form1
18        Caption         =   "TCP to Filter"
19        Height          =   375
20        Left            =   3720
21 <      TabIndex        =   9
21 >      TabIndex        =   5
22        Top             =   2520
23        Width           =   1575
24     End
# Line 27 | Line 27 | Begin VB.Form Form1
27        Left            =   240
28        MultiLine       =   -1  'True
29        ScrollBars      =   2  'Vertical
30 <      TabIndex        =   8
30 >      TabIndex        =   4
31        Text            =   "nettest.frx":0000
32        Top             =   3000
33        Width           =   5055
# Line 36 | Line 36 | Begin VB.Form Form1
36        Caption         =   "TCP to FilterManager"
37        Height          =   375
38        Left            =   3360
39 <      TabIndex        =   7
39 >      TabIndex        =   3
40        Top             =   2040
41        Width           =   1935
42     End
# Line 47 | Line 47 | Begin VB.Form Form1
47        _ExtentY        =   741
48        _Version        =   393216
49     End
50 –   Begin VB.TextBox Text3
51 –      Height          =   285
52 –      Left            =   1680
53 –      TabIndex        =   5
54 –      Text            =   "killigrew.ukc.ac.uk"
55 –      Top             =   1560
56 –      Width           =   2535
57 –   End
58 –   Begin VB.TextBox Text2
59 –      Height          =   285
60 –      Left            =   1680
61 –      TabIndex        =   3
62 –      Text            =   "4567"
63 –      Top             =   1920
64 –      Width           =   855
65 –   End
50     Begin VB.CommandButton Command1
51        Caption         =   "Send UDP"
52        Height          =   375
# Line 87 | Line 71 | Begin VB.Form Form1
71        _Version        =   393216
72        Protocol        =   1
73     End
90 –   Begin VB.Label Label3
91 –      Alignment       =   1  'Right Justify
92 –      Caption         =   "Destination:"
93 –      Height          =   255
94 –      Left            =   360
95 –      TabIndex        =   6
96 –      Top             =   1560
97 –      Width           =   1215
98 –   End
99 –   Begin VB.Label Label2
100 –      Alignment       =   1  'Right Justify
101 –      Caption         =   "Port:"
102 –      Height          =   255
103 –      Left            =   360
104 –      TabIndex        =   4
105 –      Top             =   1920
106 –      Width           =   1215
107 –   End
74     Begin VB.Label Label1
75        Caption         =   "Packet contents"
76        Height          =   255
# Line 119 | Line 85 | Attribute VB_GlobalNameSpace = False
85   Attribute VB_Creatable = False
86   Attribute VB_PredeclaredId = True
87   Attribute VB_Exposed = False
88 + 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
89 + 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
90 +
91 + Dim filterManagerHostname As String
92 + Dim filterManagerTCPPort As Integer
93 +
94   Dim filterHostname As String
95   Dim filterTCPPort As Integer
96   Dim filterUDPPort As Integer
# Line 132 | Line 104 | Dim responseNumber As Integer
104  
105   Private Sub Command1_Click()
106  
107 +    xml = "<packet></packet>"
108 +
109      ' Use the first winsock control to send a UDP packet.
110 <    Winsock1.RemoteHost = Text3.Text
111 <    Winsock1.RemotePort = Text2.Text
112 <    Winsock1.SendData Text1.Text
110 >    Winsock1.RemoteHost = filterHostname
111 >    Winsock1.RemotePort = filterUDPPort
112 >    Winsock1.SendData xml
113  
114   End Sub
115  
# Line 143 | Line 117 | Private Sub Command2_Click()
117      
118      ' establish a TCP connection to a filtermanager
119      Winsock2.Close
120 <    Winsock2.Connect Text3.Text, Text2.Text
120 >    Winsock2.Connect filterManagerHostname, filterManagerTCPPort
121  
122   End Sub
123  
# Line 155 | Line 129 | End Sub
129  
130   Private Sub Form_Load()
131      protocolVersion = "1.1"
132 +    
133 +    ''''TEMP
134 +    filterManagerHostname = "killigrew.ukc.ac.uk"
135 +    filterManagerTCPPort = 4567
136 +    Exit Sub
137 +    ''' ENDTEMP
138 +    
139 +    On Error GoTo iniError
140 +    Dim buf As String * 256
141 +    Dim length As Long
142 +    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
143 +    filterManagerHostname = Left$(buf, length)
144 +    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
145 +    filterManagerTCPPort = Left$(buf, length)
146 +    
147 +    Exit Sub
148 +    
149 + iniError:
150 +    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")
151 +    End
152 +    
153   End Sub
154  
155 + Private Sub Label2_Click()
156 +
157 + End Sub
158 +
159   Private Sub Winsock2_Connect()
160        
161     responseNumber = 0
# Line 260 | Line 259 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
259   configError:
260      x = MsgBox("error doing configuration")
261   heartbeatError:
262 <    
262 >    x = MsgBox("error doing configuration")
263   End Sub

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines