有一些杀毒软件可以免费用30天，用什么代码可以实现(页 1) - VB6论坛

z99yy6h 发表于 2008-7-9 18:21

有一些杀毒软件可以免费用30天，用什么代码可以实现

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

multiple1902 发表于 2008-7-9 18:28

记录第一次使用的日期
每次运行时与此日期比较（日期类型的减法，或者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

flyue 发表于 2008-7-9 19:27

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

z99yy6h 发表于 2008-7-10 16:29

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

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

wyfandy 发表于 2008-7-10 16:37

未发现问题

multiple1902 发表于 2008-7-10 17:28

[quote][bo][un]z99yy6h[/un] 在 2008-7-10 16:29 的发言：[/bo]

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

Private Sub Command1_Click()
Dim aa$
Dim objWMIService As Object
Dim colProcesslist As Object
Dim objProcess As Object
Set objWMIService = ... [/quote]
但是一般最好说清楚这段代码要实现什么功能，不然别人只能帮你看有没有语法错

页: [1]