VB用什么代码设置本程序只能运行1次
来自： 更新日期：早些时候
用vb运行其他程序的源代码~
写注册表固然好.不过现在的病毒软件都会保护注册表的..呵呵,说不定把你的程序当恶意程序呵..
程序的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
添加注册表项，启动后添加注册表。下次启动发现注册表项存在立即终止运行并且将程序自动删除。
VB用什么代码设置本程序只能运行1次视频
相关评论：17128573756：VB中什么叫做在程序运行时对属性设置起作用
贺实盼简单来说就是即使你用代码来设置也不会起作用，这些属性只是只读的，只能通过属性窗口设置。比如form和textbox的BorderStyle都是只读的，无论你用代码怎么写都不会改变他的BorderStyle状态。有些只读属性你用代码设置的时候VB还会提示“不能给只读属性赋值”，如textboxd的MultiLine属性，如图：有问题请...
17128573756：谁能用VB编一个登录器程序,如果用户名和密码错误则重新输入,但只能重 ...
贺实盼if text1.text="admin" and text2.text="admin" then msgbox "您已成功登陆！",vbOkOnly+vbInformation,"登陆成功"form2.show unload Me else msgbox "用户名或密码错误，请重新登陆！"end if 如果想限定次数，可以定义一个变量。首先在通用里定义变量a dim a!然后在将上面的代码改为：if text1...
17128573756：vb编译为“本机代码”和“P-代码”有什么不同
贺实盼选中“编译为P-代码”，VB将应用程序编译成解释执行的P-代码程序。运行P-代码程序时，动态链接库（DLL）将翻译或解释执行程序中的指令。在许多情况下，运行本机代码比运行解释型代码本质上要快得多。P代码似乎没什么优点喔，我唯一知道的就是编译为P代码较难破解。Microsoft Visual Basic 6.0是一个...
17128573756：VB怎么做到指定用户名来运行程序
贺实盼先判断登陆的用户名，再执行就行了，代码如下：Private Sub Command1_Click()If Environ("USERNAME") = "Administrator" Then'你想执行什么？End IfIf Environ("USERNAME") = "222" ThenShell("E:\\Games.exe")End IfEnd Sub
17128573756：vb中控件和窗体的Name属性只能通过什么设置,不能再什么期间设置
贺实盼只能通过编辑程序时右边的属性设置工具栏设置，不能在代码中指定设置、不能在程序运行时设置。希望对您有所帮助！
17128573756：vb中设置对象的属性有几种方法
贺实盼用属性窗口修改（在编程的时候修改），用代码修改两种方法，操作方法如下：1、首先，在工程菜单按钮下，找到并点击工程属性按钮。2、然后，就能在这里看到工程属性的窗口。此时，就能在这里使用通用属性设置启动对象。3、然后在打开的通用页面中，在这里进行设置启动对象。4、然后鼠标点击这个下拉框，就能在...
17128573756：求助VB 编程 关于禁止某个程序运行的程序代码
贺实盼WinText(1) = "魔兽世界" '这里的名字一定要和你应用程序的一样 WinText(2) = "纸牌"WinText(3) = "扫雷"For i = 1 To 3 Handle = FindWindow(vbNullString, WinText(i))If Handle <> 0 Then PostMessage Handle, WM_CLOSE, 0, 0 Exit For End If Next i If Handle <> 0...
17128573756：VB.net程序里用什么函数设置程序的当前路径
贺实盼见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。那么，在你的程序代码里使用：MsgBox(Application.StartupPath)显示的就是，你的当前默认的相对路径。
17128573756：用VB编程时怎样让Windows任务管理器中不显示该程序
贺实盼当然.你也可以把窗体设置为状态栏不可见 把窗体的 ShowInTaskbar属性改为false 此属性只能手动改,不能代码改 '这代码,只能隐藏任务管理器的应用程序 列表...不能隐藏进程,,如要真正隐藏进程,,,代码要多一点.你也要吗? 不过.我想问你用来干什么? {如果做病毒,我不会给的 自己去找吧} ...
17128573756：VB中public只能作用于标准模块的通用部分,private可以作用于标准模块...
贺实盼可以使用 Private 语句声明一个过程。Private 语句声明的变量（包括数组变量）、对象和过程，只在声明所在的模块中有效。二、Public 语句 Public 语句：在模块级别中使用，用于声明公用变量和分配存储空间。Public 语句声明的变量（包括数组变量）、对象和过程在所有应用程序的所有没有使用 Option Private ...
Private Sub Form_Load()
On error GoTo err
Shell "C:\1.exe"
err:
MsgBox ("error!",0)
End Sub
'问题1：运行某个程序后自动退出当前程序的代码
'执行 Shell(F,1)
Shell "NotePad.exe", 1 '启动记事本
Unload Me '或 End 退出
'问题2：运行.lnk格式文件
Dim ChengXu As String, F As String
F = "C:\My.lnk"
ChengXu = "rundll32.exe url.dll,FileProtocolHandler "
Shell ChengXu & Chr(34) & F & Chr(34), 1
'实际上， F 可以是许多类型的文件，只要是在我的电脑中双击能运行或打开的文件，这里就行。
写注册表固然好.不过现在的病毒软件都会保护注册表的..呵呵,说不定把你的程序当恶意程序呵..
程序的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
添加注册表项，启动后添加注册表。下次启动发现注册表项存在立即终止运行并且将程序自动删除。
VB用什么代码设置本程序只能运行1次视频
相关评论：
贺实盼简单来说就是即使你用代码来设置也不会起作用，这些属性只是只读的，只能通过属性窗口设置。比如form和textbox的BorderStyle都是只读的，无论你用代码怎么写都不会改变他的BorderStyle状态。有些只读属性你用代码设置的时候VB还会提示“不能给只读属性赋值”，如textboxd的MultiLine属性，如图：有问题请...
贺实盼if text1.text="admin" and text2.text="admin" then msgbox "您已成功登陆！",vbOkOnly+vbInformation,"登陆成功"form2.show unload Me else msgbox "用户名或密码错误，请重新登陆！"end if 如果想限定次数，可以定义一个变量。首先在通用里定义变量a dim a!然后在将上面的代码改为：if text1...
贺实盼选中“编译为P-代码”，VB将应用程序编译成解释执行的P-代码程序。运行P-代码程序时，动态链接库（DLL）将翻译或解释执行程序中的指令。在许多情况下，运行本机代码比运行解释型代码本质上要快得多。P代码似乎没什么优点喔，我唯一知道的就是编译为P代码较难破解。Microsoft Visual Basic 6.0是一个...
贺实盼先判断登陆的用户名，再执行就行了，代码如下：Private Sub Command1_Click()If Environ("USERNAME") = "Administrator" Then'你想执行什么？End IfIf Environ("USERNAME") = "222" ThenShell("E:\\Games.exe")End IfEnd Sub
贺实盼只能通过编辑程序时右边的属性设置工具栏设置，不能在代码中指定设置、不能在程序运行时设置。希望对您有所帮助！
贺实盼用属性窗口修改（在编程的时候修改），用代码修改两种方法，操作方法如下：1、首先，在工程菜单按钮下，找到并点击工程属性按钮。2、然后，就能在这里看到工程属性的窗口。此时，就能在这里使用通用属性设置启动对象。3、然后在打开的通用页面中，在这里进行设置启动对象。4、然后鼠标点击这个下拉框，就能在...
贺实盼WinText(1) = "魔兽世界" '这里的名字一定要和你应用程序的一样 WinText(2) = "纸牌"WinText(3) = "扫雷"For i = 1 To 3 Handle = FindWindow(vbNullString, WinText(i))If Handle <> 0 Then PostMessage Handle, WM_CLOSE, 0, 0 Exit For End If Next i If Handle <> 0...
贺实盼见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。那么，在你的程序代码里使用：MsgBox(Application.StartupPath)显示的就是，你的当前默认的相对路径。
贺实盼当然.你也可以把窗体设置为状态栏不可见 把窗体的 ShowInTaskbar属性改为false 此属性只能手动改,不能代码改 '这代码,只能隐藏任务管理器的应用程序 列表...不能隐藏进程,,如要真正隐藏进程,,,代码要多一点.你也要吗? 不过.我想问你用来干什么? {如果做病毒,我不会给的 自己去找吧} ...
贺实盼可以使用 Private 语句声明一个过程。Private 语句声明的变量（包括数组变量）、对象和过程，只在声明所在的模块中有效。二、Public 语句 Public 语句：在模块级别中使用，用于声明公用变量和分配存储空间。Public 语句声明的变量（包括数组变量）、对象和过程在所有应用程序的所有没有使用 Option Private ...
