在VB中利用UDP协议编写聊天程序VB

在VB中利用UDP协议编写聊天程序VB（共1篇）

1.在VB中利用UDP协议编写聊天程序VB 篇一

你想监视计算机的开机和关机时间吗?其实这很简单，下面笔者就教你如何用 VB 制作一个开机关机记录程序， 首先了解这个程序的工作原理：在计算机启动后， Windows 打开这个程序，程序便会自动记录下开机的时间，当关机时，Windows关闭这个程序，程序会记录下

你想监视计算机的开机和关机时间吗?其实这很简单，下面笔者就教你如何用VB制作一个开机关机记录程序。

首先了解这个程序的工作原理：在计算机启动后，Windows打开这个程序，程序便会自动记录下开机的时间，当关机时，Windows关闭这个程序，程序会记录下关机的时间，并把它们以.txt格式保存下来。

接着，开始制作程序和设置系统。

第一步：打开VB，新建一个窗体，用鼠标左键双击窗体，输入以下代码。

Dim begintime

Private Sub Form_Load()

Me.Hide

begintime=Now

End Sub

Private Sub Form_Unload(Cancel As Integer)

endtime=Now

n=DateDiff(″N″,begintime,endtime)

Dim fso As New FileSystemObject

Dim txtfile As TextStream

Set a=App

If fso.FileExists(a.Path & ″开机记录.txt″) Then

Set txtfile=fso.OpenTextFile(a.Path & ″开机记录.txt″,ForAppending)

Else

Set txtfile=fso.OpenTextFile(a.Path & ″开机记录.txt″,ForWriting,True)

End If

txtfile.Write ″开机时间″ & begintime

txtfile.Write ″ ″&″关机时间″& endtime

txtfile.Write ″ ″&″时间长度″& n & ″分钟″

txtfile.WriteBlankLines 2

End Sub

第二步：单击“文件”菜单中的“生成工程.EXE”选项(或 “File” 菜单中的“Make *.EXE”选项)，选择路径保存，

第三步：在Windows资源管理器中将刚制作的程序复制到计划任务中，并双击它。在“计划”选项卡中将程序设置为每次启动计算机时运行。重新启动计算机。

最后，讲一下如何查看开机记录。当再次开机时，便可以在保存程序的文件夹中看到一个名为“开机记录”的TXT文件，打开它，就可以看到上次开机的记录。如果你有什么疑问，欢迎写信给我，来信寄至m_a_x@263.net。

(江苏 赵昆)

原文转自：www.ltesting.net