ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/experimental/host/vb_net_test/nettest.frm

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.23 by pjm2, Mon Feb 26 09:54:25 2001 UTC vs.
Revision 1.24 by pjm2, Mon Feb 26 10:13:10 2001 UTC

#	Line 4 | Line 4 | Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0
4		Begin VB.Form Form1
5		BorderStyle     =   3  'Fixed Dialog
6		Caption         =   "i-scream Winhost"
7	<	ClientHeight    =   5655
7	>	ClientHeight    =   1275
8		ClientLeft      =   45
9		ClientTop       =   330
10		ClientWidth     =   4710
#	Line 12 | Line 12 | Begin VB.Form Form1
12		LinkTopic       =   "Form1"
13		MaxButton       =   0   'False
14		MinButton       =   0   'False
15	<	ScaleHeight     =   5655
15	>	ScaleHeight     =   1275
16		ScaleWidth      =   4710
17		ShowInTaskbar   =   0   'False
18	<	StartUpPosition =   3  'Windows Default
18	>	StartUpPosition =   2  'CenterScreen
19	>	Visible         =   0   'False
20		Begin VB.CommandButton Hide
21		Caption         =   "Hide Window"
22		Height          =   375
23		Left            =   3120
24	<	TabIndex        =   7
25	<	Top             =   840
24	>	TabIndex        =   6
25	>	Top             =   480
26		Width           =   1455
27		End
28		Begin SysTray.SystemTray SystemTray
#	Line 36 | Line 37 | Begin VB.Form Form1
37		Left            =   2760
38		Top             =   1800
39		End
39	–	Begin VB.TextBox Text4
40	–	Height          =   1575
41	–	Left            =   240
42	–	MultiLine       =   -1  'True
43	–	ScrollBars      =   2  'Vertical
44	–	TabIndex        =   1
45	–	Text            =   "nettest.frx":0742
46	–	Top             =   3000
47	–	Width           =   3975
48	–	End
40		Begin VB.CommandButton Reconfigure
41		Caption         =   "Reconfigure with FilterManager"
42		Height          =   375
43		Left            =   120
44		TabIndex        =   0
45	<	Top             =   840
45	>	Top             =   480
46		Width           =   2895
47		End
48		Begin MSWinsockLib.Winsock TCPSock
#	Line 69 | Line 60 | Begin VB.Form Form1
60		_Version        =   393216
61		Protocol        =   1
62		End
72	–	Begin VB.Label Label5
73	–	Caption         =   "b e t a"
74	–	BeginProperty Font
75	–	Name            =   "MS Sans Serif"
76	–	Size            =   24
77	–	Charset         =   0
78	–	Weight          =   700
79	–	Underline       =   0   'False
80	–	Italic          =   0   'False
81	–	Strikethrough   =   0   'False
82	–	EndProperty
83	–	Height          =   615
84	–	Left            =   240
85	–	TabIndex        =   8
86	–	Top             =   120
87	–	Width           =   1815
88	–	End
63		Begin VB.Label Label2
64		Alignment       =   1  'Right Justify
65		Caption         =   "Next heartbeat:"
66		Height          =   255
67		Left            =   2400
68	<	TabIndex        =   6
69	<	Top             =   480
68	>	TabIndex        =   5
69	>	Top             =   120
70		Width           =   1455
71		End
72		Begin VB.Label Label1
73		Alignment       =   1  'Right Justify
74		Caption         =   "Next UDP packet:"
75		Height          =   255
76	<	Left            =   2400
77	<	TabIndex        =   5
76	>	Left            =   120
77	>	TabIndex        =   4
78		Top             =   120
79		Width           =   1455
80		End
#	Line 109 | Line 83 | Begin VB.Form Form1
83		Caption         =   "0"
84		Height          =   255
85		Left            =   3960
86	<	TabIndex        =   4
87	<	Top             =   480
86	>	TabIndex        =   3
87	>	Top             =   120
88		Width           =   615
89		End
90		Begin VB.Label Label3
91		BorderStyle     =   1  'Fixed Single
92		Caption         =   "0"
93		Height          =   255
94	<	Left            =   3960
95	<	TabIndex        =   3
94	>	Left            =   1680
95	>	TabIndex        =   2
96		Top             =   120
97		Width           =   615
98		End
#	Line 127 | Line 101 | Begin VB.Form Form1
101		Caption         =   "Status:"
102		Height          =   255
103		Left            =   0
104	<	TabIndex        =   2
105	<	Top             =   1320
104	>	TabIndex        =   1
105	>	Top             =   960
106		Width           =   4695
107		End
108		End
#	Line 174 | Line 148 | Private Sub Form_Load()
148		Status.Caption = "Loading"
149		Form1.Caption = "i-scream Winhost " & protocolVersion
150
177	–	Form1.Show
178	–
151		CUpTime.Init
152
153		If CUpTime.isWin9x Then
#	Line 242 | Line 214 | Private Sub SystemTray_MouseDblClk(ByVal Button As Int
214
215		Form1.Visible = True
216		Form1.SetFocus
245	–
217
218		End Sub
219
#	Line 271 | Line 242 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
242		' Remove linefeeds and returns from the line.
243		response = Replace(response, Chr(13), "")
244		response = Replace(response, Chr(10), "")
245	<	Text4.Text = Text4.Text & vbCrLf & response
245	>	'Text4.Text = Text4.Text & vbCrLf & response
246
247		If connected = False Then
248		' Perform TCP configuration (1.1)
#	Line 318 | Line 289 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
289		connected = True
290		responseNumber = 0
291		TCPSock.Close
292	<	Text4.Text = Text4.Text & vbCrLf & "  <closed>"
292	>	'Text4.Text = Text4.Text & vbCrLf & "  <closed>"
293		Status.Caption = "Configuration successful"
294		Label3.Caption = UDPUpdateTime
295		Label4.Caption = TCPUpdateTime
#	Line 438 | Line 409 | Private Sub Timer1_Timer()
409		"<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
410		"<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
411		"</packet>"
412	<	Text4.Text = Text4.Text + xml
412	>	'Text4.Text = Text4.Text + xml
413
414		' Use the first winsock control to send a UDP packet.
415		UDPSock.RemoteHost = filterHostname

Diff Legend

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