在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
【在VB中利用UDP协议编写聊天程序VB】推荐阅读:
科学教学背景故事在课堂中的有效利用06-26
数学课堂中错误资源的有效利用总结08-07
浅谈初中化学教学中信息技术的利用论文06-26
小学数学课堂中有效情境的创设与利用研07-30
《小学数学课堂中错误资源的有效利用》小专题研究报告06-09
可行性研究报告编写协议08-16
济南房屋过户程序协议09-08
持续利用07-17
研究和利用07-31
学校档案利用实例07-03