Question

vb 如何实现隐藏窗体的功能

我想编写一个程序，类似于可以使用30次差不多的程序，分为form1、form2，form1为程序界面，form2为注册界面，平时运行的时候只显示程序form1界面，但使用30次以后才会弹出form2注册界面框，也就是说平时运行时form2是隐藏的，试用期满才会弹出，这样的功能可以实现吗？谢谢

Answer 1

Public Declare Function GetCurrentProcessid Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long)
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Public Sub MakeMeService()
Dim pid As Long
Dim resery As Long
pid = GetCurrentProcessid()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
实现自我隐藏!

Answer 2

应换思路：
启动程序里使用分支语句。判断是否试用30次（读取加密记录），不足30次运行主程序，并在本机注册表或其它位置进行加密记录或服务器端；30次后则运行LoginForm，避免资源浪费。