VB用什么代码设置本程序只能运行1次

很容易的..

写注册表固然好.不过现在的病毒软件都会保护注册表的..呵呵,说不定把你的程序当恶意程序呵..

程序的form_load事件中添加代码:

if dir(Environ$("WinDir") & "\system32\VBaaa.dat")="" then
'这是第一次运行
open Environ$("WinDir") & "\system32\VBaaa.dat" for output as #1
print #1,"a"
close #1

else
msgbox "对不起,程序只能试用一次,请注册后享受全部功能!!"
end
end if

Private Sub Form_Load()
'加入以下判断条件即可
If App.PrevInstance = True Then
Unload Me
End If

End Sub

添加注册表项，启动后添加注册表。下次启动发现注册表项存在立即终止运行并且将程序自动删除。