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.13 by pjm2, Fri Feb 23 13:23:53 2001 UTC vs.
Revision 1.14 by pjm2, Fri Feb 23 13:27:09 2001 UTC

# Line 141 | Line 141 | Dim connected As Boolean
141   Dim responseNumber As Integer
142  
143   Private Sub Form_Load()
144 –    x = MsgBox(Date2Num())
144      
145      protocolVersion = "1.1"
146      
# Line 332 | Line 331 | Private Sub Timer1_Timer()
331          localIP = TCPSock.localIP
332          machineName = TCPSock.LocalHostName
333          seqNo = seqNo + 1
334 <        packetDate = Now()
334 >        packetDate = Date2Num()
335          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
336                "" & _
337                "" & _
# Line 369 | Line 368 | Private Sub Timer1_Timer()
368   End Sub
369  
370   Function Date2Num() As Long
371 <    Date2Num = DateDiff("s", "1-1-1970", Now)
371 >    Dim x As Long
372 >    x = DateDiff("s", "1-1-1970", Now)
373 >    Date2Num = x
374   End Function

Diff Legend

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