用VB编程序怎样把窗口完全隐藏
在一些系统，为了特定目的，经常要求程序隐藏起来运行，例如DCS（集散控制系统）中的后台监控系统、木马控制程序、源码防拷贝等，以减少被发现、截杀和反汇编的风险。
这种功能模块要求程序在运行期间不仅不会在桌面出现，也不允许被操作者从任务管理器列表中发现。
程序隐形的原理对于一个隐形程序而言，最基本的要求是： 1. 不在桌面出现界面； 2. 不在任务栏出现图标； 3. 程序名从任务管理器名单中消失。
对于上述第一点，可以将Form的Visible属性设为False。
要将图标从任务栏中屏蔽掉，可以把Form的ShowInTaskBar改为False。
在Windows环境下，可以调用WIN API函数中的RegisterviceProcess来实现第三个要求。
上述功能，不论用VC、Delphi、VB，还是PB等任何一种高级编程语言都是比较容易实现的。
隐形功能多用于木马程序，但木马程序在许多国家和地区是不合法的，为便于理解，本文用VB结合一个程序防拷贝的实例来讲解。
通过获取软件安装路径所在磁盘序列号（磁盘ID），用做对合法用户的判断。
以下程序的目的是用于讲解隐形程序的编制和应用，对程序防拷贝内容作了一定程度的简化。
程序隐形的示例 程序的具体编制操作如下： 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 As String, ByVal nFileSystemNameSize As Long) As Long '获得当前驱动器信息函数的声明 Private Sub Form_Load() Dim drive_no As Long, drive_flag As Long Dim drive_chr As String, drive_disk As String Dim serial_no As Long, kkk As Long Dim stemp3 As String, dflag As Boolean Dim strlabel As String, strtype As String,strc As Long RegisterServiceProcess GetCurrentProcessId, 1 ' 从系统中取消当前进程 strlabel = String(255, Chr(0)) strtype = String(255, Chr(0)) stemp3 = “172498135” '这是作者C盘的序列号（十进制），读者可根据自己情况更改。
dflag = False For drive_no = 0 To 25 drive_disk = Chr(drive_no + 67) drive_chr = drive_disk & “:\” drive_flag = GetDriveType(drive_chr) If drive_flag = 3 Then kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype, Len(strtype)） '通过GetVolumeInformation获得磁盘序列号 Select Case drive_no Case 0 strc = serial_no End Select If serial_no = stemp3 Then dflag = True Exit For End If End If Next drive_no If drive_no = 26 And dflag = False Then '非法用户 GoTo err: End If MsgBox (“HI，合法用户！”) Exit Sub err: MsgBox （“错误！你的C：盘ID号是” & strc） End Sub Private Sub Form_Unload(Cancel As Integer) RegisterServiceProcess GetCurrentProcessId, 0 '从系统中取消当前程序的进程 End Sub 将上述程序代码编译后运行，在出现类似“错误！你的C盘ID号是172498135”对话框时，按下Ctrl+Alt+Del键，看看程序名叫“HiddenMen”是否在任务管理器名单列表里。
如果把上述程序稍加改动，可以加到自己特定的程序中去。
该程序在隐形运行之中，不知不觉就完成了预定功能。
以上程序在简体中文Windows 98和VB 6.0环境中调试通过。
VB获取软件窗口句柄问题
使用api函数 SetWindowPos 可以很容易的作到。
顾名思义， SetWindowPos 就是完成设置窗口位置和状态（pos=position）的功能。
源代码如下： Option Explicit Pivate Declae Function SetWindowPos Li ＂use32＂ (ByVal hwnd As Long, ByVal hWndInsetAfte As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Pivate Const HWND_TOPMOST& = -1 ' 将窗口置于列表顶部，并位于任何最顶部窗口的前面 Pivate Const SWP_NOSIZE& = &H1 ' 保持窗口大小 Pivate Const SWP_NOMOVE& = &H2 ' 保持窗口位置 Pivate Su Fom_Load() SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE O SWP_NOSIZE ' 将窗口设为总在最前 End Su
vb程序设计 窗口自动调整
只要有这个程序的窗体文件（也就是 *.frm）就可以了，你直接在你现在那个VB的程序里点添加文件就可以了，如果没有 以前的窗体文件，那恐怕有点困难了，实在不行你可以试下用shell函数。
找到你的以前编好的那个程序，复制它的绝对路径，然后给一个按钮上写上代码Private Sub Command1_Click() shell ＂这个程序的绝对路径＂ End Sub 把代码里的 这个程序的绝对路径 换成你那个程序的绝对路径就可以了 使用VB附带的WebBrowser控件，可以非常简单地设计出一个实用的浏览器。
首先，加载“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。
然后，设计好界面。
在Web浏览器里定义URL 现在，已经建立了浏览器里所需的一些控件，怎么让用户导航呢？ 我们可使用WebBrowser控件的Navigate方法。
接下来看一看这种方法。
例如：Web浏览器首次加载时，可以通过这种方法去导航Microsoft Web页（注意在Intenet Explorroe可定义带或不带“HTTP://”）: private sub form_load() vigate 〃 〃 … end sub 当然也可以使用户能够导航新的URL，这通常使用组合框Combo1。
首先通过显示当前的URL来启动Combo1工作将其加载到组合框的下拉列表中： private sub form_load() vigate〃 〃 combo1.text=〃 〃 combo1.AddItedm combo1.text end sub 用户可以从组合框下拉列表里选择过去的URLS ，当通过这种方法选择了一个URL时，相应的Click事件就产生了，用这种方法能够导航最新选择的URL: private sub combo1_load() vigate combo1.text end sub 另外，用户可以在组合框里定义一个新的URL 并按Enter键，正如他们能够在商业浏览器里所作的一样。
当按下Enter键时，就可以直接从Keypress事件处理器中简单地调用Combo1—Click事件处理器导航到这个新的URL: private sub combo1_keypress(keyascii as integer) if keyascii=vbkeyreturn then combo1—click end if end sub 最后，当下载过程结束时，WebBrowse控件激活了Downloadcomplet事件，此时就能够在浏览器的标题栏内显示当前的URL，正如任一商业浏览器一样。
为此，必须从其Locationname属性中得到浏览器的当前URL: private sub webbrowser1_downloadcompiete() ption=webbrowser1.locationname … end sub 还有，通过以下方法可以把URL加载到组合框列表的上层： private sub wnloadcomplete() ption=webbrowser1.locationname dltem cationURL,0 end sub 现在，已经建立了Web浏览器并且用户可以通过组合框里键入URLS进行导航。
这里将会为浏览器增加Back和 Forward按钮。
这比想像的恐怕还容易一些——使用浏览器的Goback或Goforward方法即可。
可以照这样去做。
通过检测那些按钮的键来决定工具条中的按钮是否被按下： private sub toolbar1_buttonclick(byval button as button ) select case y case 〃back〃 webbrowser1.goback case 〃forwdrd〃 webbrowser1.goforward end select end sub 这就是所有要做的——用户可以在浏览器的记录中进行下一步和上一步的导航了。
现在已经加载了Back和Forword按钮。
给Web浏览器加载Refresh、 Home 和Stop按钮 前面，已经建立了可以用用户键入和选择URLS组合框Web浏览器，如Back 和Forward按钮，让用户通过导航穿梭于浏览器的记录之中。
然而，这里还有很多能实现其功能的按钮：Refresh、Home和Stop按钮。
用户可以用Web浏览器的Refresh、Gohome和Stop方法分别实现这些按钮的功能。
这里分别给出Refresh、Home和Stop 三个按钮的名称“Refresh”、“Home”和“Stop”，当匹配的按钮被按下时，调用响应的Web浏览器方法（注意用户按下Stop按钮，也可以使用Web浏览器的Locationname属性更新当前显示在浏览器标题栏里的URL）: private sub toolbar1_buttonclick(byval button as button select case y case 〃back〃 webbrowser1.goback case 〃forward〃 webbrowse1.goforward case 〃refresh〃 fresh case 〃home〃 webbrowser.gohome case 〃stop〃 op ption=webbrowser1.locationname end select end sub 现在用户能够使用这些新按钮：Refresh、Home和Stop。
VB编的程序问题？用VB编的程序,有很多个窗口,但是每一个窗口都 ...
'添加一个timer控件，然后一直运行它即可Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SetWindowPos Lib ＂user32＂ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Const HWND_NOTOPMOST = -2Private Const HWND_BOTTOM = 1Private Const SWP_NOSIZE = &H1Private Const SWP_HIDEWINDOW = &H80Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Dim hwnd As Longhwnd = FindWindow(vbNullString， ＂屏幕广播窗口＂)If hwnd 0 ThenSetWindowPos hwnd, 0, 0, 0, 0, 0, HWND_NOTOPMOST Or HWND_BOTTOM Or SWP_NOSIZE Or SWP_HIDEWINDOWMsgBox ＂发现并已隐藏目标窗口＂End IfEnd Sub
