vb编程(菜鸟提问)

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:36:26
我用vb编写一个aa.exe代码如下

Private Sub Form_Load()
Form1.Visible = False
Shell "C:\Program Files\aa\bb.exe", vbHide
End Sub

bb.exe是别人的程序,不能修改

--

以上为例, bb.exe只有主窗体隐藏,登陆窗体和断开窗体还是显示的.

求高手帮我编个可以隐藏bb.exe所有窗体的代码, 最好加上注释

目的:隐藏执行bb.exe,不显示任何窗体(表达能力不好,反正意思就是不在桌面有任何显示)

(可行的话 一定追加分数)

序的具体编制操作如下：
1. 在VB6.0编程环境中，新建一个工程Project1。
2. 在Project1中添加模块Modulel，在工程属性中将工程名称改为HiddenMen，应用程序标题也改为HiddenMen（以下程序都经过实际运行测试，可以原样复制使用）。
在模块Module1中加入如下声明：
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
’在系统中注册当前进程ID函数的声明
3. 在Project1中新建一个窗体Form1，设置Form1的属性：
form1.Visible=False
form1.ShowInTaskBar=False
在代码窗口添加如下代码：
Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
’获得当前驱动器类型函数的声明
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer