VB中 如何用 AppActivate激活 已经打开程序？？

=

Shell("Calc.exe",

1)打开外部程序copy,

必须让电脑有个反百应时间,

加个sleep

1000,

等一会度儿

再用AppActivatec

ReturnValue

激活

一槐罩般用问shell打开程序乎空,就已经算是激活了铅顷闹,

不要再AppActivate也可以答

启动程序如下所示。

1：一种就是在安装软体时往注册表里添加，一种简单粗暴写个快捷方式丢到启动目录里，可以在安装软体时写个脚本bat解决。

2：以在注猜衡册表里添加启动项，前提前亩是有足够的权限，也可以创建一个快捷方式放在startup目录中，也也可以把程序注册成windows 服务， 运行方式为auto。慧兆森

3：vb中写一个代码让电脑一开机程序就运行Private Sub Form_Load() Set w = CreateObject("wscript.shell")w.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" &App.EXEName, App.Path &"\" &App.EXEName &".exe"End Sub。