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

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

第一个
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

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

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个命令按钮 第一个是禁用 第二个是恢复
'整理很辛苦了 望采纳