如何实现这个vb程序

软件 2022-08-09

这个用VB怎么实现

楼主连进程和线程都没搞清楚怎么做~~~ 一个程序只能有一个进程,而一个进程可以多线程... 你想实现进程相互监视,必须得做2个exe程序互相监督,这个比较简单,不停刷新任务管理器来获取当前的进程有没存在指定进程即可,如果不存在则开启就OK. 开机启动写下注册表就好了~~~ 隐藏任务栏需要把自己的程序注册为一个系统服务,也是通过注册表操作的附带一句:如果你想用VB写木马,一个字--难,首先运行VB需要有VB6.dll的环境支持,同时你如果想你做的程序在大多数电脑上都能运行,你必须一个控件都不能用,一切全API编程才有可能实现,不然你想你编出的程序在别人机子上运行,你还得打包个几M的东西发给他,

vb如何实现运行某程序！！！

用 shell,或者新建一个进程。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell（ "c:\123.rar" ） '或者 System.Diagnostics.Process.Start("c:\123.rar"） End Sub shell程序可以带参数的，如： Shell("unrar.exe e c:\secret.rar")‘ 调用解压缩文程序unrar.exe,将c盘secret.rar 解压缩到当前目录

请教一个VB程序的实现方法。

我先讲原理，你说的按F1就能响应并且输入一串作弊码的话，截获F1这个按键消息要用HOOK（钩子），代码如下：模块部分： Option Explicit Public Const WH_KEYBOARD = 13 Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Public Declare Fu

如何实现VB运行过程中动态执行代码?

VB 关于ExeCuteLine的问题: 实际运用时发现，其只能在VB编辑器中生效，如程序Make成exe文件后就不能使用了。后来我找到一种可以代替其功能的方法。实现如下：在工程中引入Microsoft Script Control，然后通过其实例的.eval函数可以完成同上的功能。且eval函数还可以返回执行的结果。这点比之ExecuteLine更为方便。例如 tmpStr = scriptControl1.Eval("1 + 2 > 4") '用一个字符串变量获取eval的执行结果执行之后tmpStr的值为"false"。

如何编写VB程序，使程序实现以下功能？

代码如下，工程文件已打包上传
PrivateSubCommand1_Click()
Dimarr,arr1()
arr=Split(Text1.Text,"")
ReDimarr1(UBound(arr))
Fori=0ToUBound(arr)
arr1(i)=arr(i)
Next
Text2.Text=Max(arr1)
Text3.Text=Min(arr1)
Text4.Text=Avg(arr1)
EndSub
PublicFunctionMax(ByRefSZtmp())AsDouble
Dimi%
Max=SZtmp(LBound(SZtmp))
Fori=LBound(SZtmp)ToUBound(SZtmp)
IfCDbl(SZtmp(i))>MaxThenMax=CDbl(SZtmp(i))
Nexti
EndFunction
PublicFunctionMin(ByRefSZtmp())AsDouble
Dimi%
Min=SZtmp(LBound(SZtmp))
Fori=LBound(SZtmp)+1ToUBound(SZtmp)

IfCDbl(SZtmp(i))Nexti

EndFunction
FunctionAvg(ByRefmySinge())AsDouble
DimsnAsSingle
DimcnAsInteger,iAsInteger
cn=UBound(mySinge)-LBound(mySinge)+1
Fori=LBound(mySinge)ToUBound(mySinge)
sn=sn+mySinge(i)
Nexti
Avg=sn/cn
EndFunction