用什么代码可以实现免费用30天

记录第一次使用的日期
每次运行时与此日期比较（日期类型的减法，或者DateDiff函数），若超过30天则检查注册情况。

Function DateDiff(Interval As String, Date1, Date2, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
    Member of VBA.DateTime
    Returns the number of time intervals between two specified dates

提示你一下：在第一次运行时，把现在的时间数据写入注册表，然后每次运行时检测注册表，看看有没有到时间，如果到了，就退出程序。

大家检查一下看看这段代码有没毛病

Private Sub Command1_Click()
   Dim aa$
   Dim objWMIService As Object
   Dim colProcesslist As Object
   Dim objProcess As Object
   Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
   Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name='001.exe'")
   If colProcesslist.Count > 0 Then
      For Each objProcess In colProcesslist
         MsgBox "001.exe的进程PID:" & objProcess.processid & vbCrLf & "路径:" & objProcess.ExecutablePath
         aa = objProcess.ExecutablePath
         objProcess.Terminate '关闭程序
      Next
     Kill aa
   End If
End Sub

未发现问题

但是一般最好说清楚这段代码要实现什么功能，不然别人只能帮你看有没有语法错