Question

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

我想做一个VB窗体,
1只要打开这个窗体,该窗体就会在桌面上快速无规律性的移动
2只要打开这个窗体,刚无法开启任务管理器,即:按ctrl+alt+delete无反应
请各手大哥给指点一二,感激不尽

Answer 1

第一个
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Dim X As Integer
X = Int(Rnd * 10000) + 1
Dim Y As Integer
Y = Int(Rnd * 10000) + 1
Form1.Left = X
Form1.Top = Y
End Sub

先画一个Timer控件，上面Timer1.Interval = 20这句的20是变换速度。

第二个
Dim s As String
s = Environ("windir")
s = s + "\system32\taskmgr.exe"
Open s For Random Lock Read As #1

我的比上面的内容简单多了呵呵。

Answer 2

'按理说这种邪恶的代码我是不写的 今天就随便弄几句
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\taskmgr.exe" For Binary As #1
Dim hLong As Long
Dim hwnd As Long

hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hLong = FindWindowEx(hwnd, 0, "Button", vbNullString)
ShowWindow hLong, SW_HIDE
End Sub

Private Sub Command2_Click()
Close #1
Dim hLong As Long
Dim hwnd As Long

hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hLong = FindWindowEx(hwnd, 0, "Button", vbNullString)
ShowWindow hLong, SW_SHOW
End Sub

'2个命令按钮 第一个是禁用 第二个是恢复

'整理很辛苦了 望采纳

Answer 3

2的举动类似于病毒