大家好，我是Crazy_Thief 不好意思，第一次做，有点紧张！

混了hack58这么久了，想进论坛混混，希望各位版主给个
 这个东西 邀请注册码《——就是它了，各位版主！
偶想得很啊！！！！先谢过了

大家都因该知道vb在win98下要想屏避掉任务管理器是很简单的一件事

但是到了nt下就不行了

但是今天我要教大家用一种比较特殊的方式来解决掉它

好，下面开始！！！

新建一个exe，把下面的代码粘贴进去！我再给大家解释

然后改form的3个属性
大家看好

特别是最后一个一定要改成max这个，它是让窗体打开后就是全屏

SetWindowPos这个api是用来调整窗体在屏幕上的z顺序的，其实窗体也是3维的

Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)具体调用就在这个

然后在窗体上放上2个控件

timer是用来定时调用上面的setwindowpos函数的

label是给我们自己留下后路的，免得我们自己运行了，就退不出来！

下面运行一下看看，晕！！！！

大家应该都看见了！不论想做什么，都是不行的！即使你想关机都使不行的！！！！

好了，代码就在下面！大家多看看，好好利用！！！！！

我的   邀请注册码  各位版主送一个吧！！！！！

好教程就在这里！！！谢谢大家！

代码如下:
Option Explicit

Private 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 Long
Dim xc As Long
Private Sub Form_Load()

App.TaskVisible = False
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Label1_Click()
Unload Form1
End Sub

Private Sub Timer1_Timer()
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
xc = xc Mod 16
Select Case (xc)
Case 0
 Form1.BackColor = QBColor(0)
 Label1.BackColor = QBColor(0)
Case 1
 Form1.BackColor = QBColor(1)
 Label1.BackColor = QBColor(1)
Case 2
 Form1.BackColor = QBColor(2)
 Label1.BackColor = QBColor(2)
Case 3
 Form1.BackColor = QBColor(3)
 Label1.BackColor = QBColor(3)
Case 4
 Form1.BackColor = QBColor(4)
 Label1.BackColor = QBColor(4)
Case 5
 Form1.BackColor = QBColor(5)
 Label1.BackColor = QBColor(5)
Case 6
 Form1.BackColor = QBColor(6)
 Label1.BackColor = QBColor(6)
Case 7
 Form1.BackColor = QBColor(7)
 Label1.BackColor = QBColor(7)
Case 8
 Form1.BackColor = QBColor(8)
 Label1.BackColor = QBColor(8)
Case 9
 Form1.BackColor = QBColor(9)
 Label1.BackColor = QBColor(9)
Case 10
 Form1.BackColor = QBColor(10)
 Label1.BackColor = QBColor(10)
Case 11
 Form1.BackColor = QBColor(11)
 Label1.BackColor = QBColor(11)
Case 12
 Form1.BackColor = QBColor(12)
 Label1.BackColor = QBColor(12)
Case 13
 Form1.BackColor = QBColor(13)
 Label1.BackColor = QBColor(13)
Case 14
 Form1.BackColor = QBColor(14)
 Label1.BackColor = QBColor(14)
Case 15
 Form1.BackColor = QBColor(15)
 Label1.BackColor = QBColor(15)
End Select
xc = xc + 1
End Sub