我是新人我想要一段VB的后台记数器代码[送分50分，答的好再送]

Question

我是新人我想要一段VB的后台记数器代码，就是当打开这个软件然后后台就自动将记数器+1当加到10的时候，软件将不能使用，并提示测试期已经到了，请注册.....并自动运行一组代码使我的这个软件连同注册表里的我的哪个软件的键值一起卸载掉！请快回复！送分50啊！好了再送哦！急用啊！谢谢啦！我知道你们能行！知道的加我QQ：21291222
emailto:[email protected]

Answer 1

dim timload 时
if tim=0 then end
tim=GetSetting(App.Title, "Settings", "times", 10)unload 时
if tim=0 then exit sub
SaveSetting App.Title, "Settings", "times", tim-1