重拾VB之二，毫秒篇
重拾VB之二，毫秒篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
在vb中如何获得毫秒精度级别的时间？vb的时间函数不支持毫秒，需要利用windows的基本API，编写程序才能获取毫秒级别的时间精度。过程如下：
1 首先引入取系统时间方法，GetLocalTime，在"kernel32"中。
2 然后定义一个结构，用于按年、月、日、小时、分钟、秒、毫秒保存时间。
3 调用GetLocalTime，获取当前时间，保存到结构中。
4 使用Format函数，生成时间的输出格式显示毫秒。
'代码如下：
'*-----------------------------------------------------------------------------*
'* 注释内容,建立结构体，用于按时间单位保存获取的系统时间。
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
'引入取系统时间方法，GetLocalTime
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
'*-----------------------------------------------------------------------------*
'*-----------------------------------------------------------------------------*
'* 注释内容,用于获取系统时间毫秒的函数。使用中
Public Function getdatetime() As String
Dim LCT As SYSTEMTIME
Dim ymd As String, hms As String
GetLocalTime LCT
ymd = Format(LCT.wYear & "-" & LCT.wMonth & "-" & LCT.wDay, "yyyy-MM-dd")
hms = Format(LCT.wHour, "00") & ":" & Format(LCT.wMinute, "00") & ":" & Format(LCT.wSecond, "00") & "." & Format
(LCT.wMilliseconds, "00
相关文档：
一 木马的由来
木马，即“特洛伊木马”（trojan horse）。
二 所需要的技术
一个成功的木马，除了制作出相关的程序以外，还需要实现以下几方面的功能。1，木马的隐藏 2，木马的运行 3，木马的复制 4，木马的传播等 ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
使用VB把Excel导入到Sql数据库中，其实有几种方法。
下面我介绍的这种方法，较为简单。
其实这种方法的话，是直接使用T-SQL操作的，因此，到了VB里面，直接eccute这个代码就OK了的。
-----------------------------------------------------下面是在T-sql中的语句
if object_id('NewTable') is not null/*判断表NewTabl ......
在开发IP-MAC扫描监视器时，设置了开机自动运行，但是当WINDOWS启动后，程序运行后却打开窗体了，不是最小化运行的。这怎么办呢？于是想到加一个参数给程序启动时，但不知道怎么实现，结果发现VB中有command，是可以接受参数的。直接：AAA.EXE xxx,
在程序中用一个变量得到这个参数，那就可以了。做法：
1、在注册表自启� ......
