'1.限制鼠标活动范围，就是只能在指定窗口内活动！
'2.禁止使用任务管理器！
'3.窗口总是在前 

Option Explicit
Private Const lBorder As Long = 4
Dim R As RECT
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
Private Declare Function ClipCursorByNum Lib "user32" Alias "ClipCursor" (lpRect As Long) As Long
Private Declare Function SetRect Lib "user32

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const SC_CLOSE = &HF060&
Private Const MF_REMOVE = &H1000&

Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE
End Sub

Dim s As Boolean
Private Sub Command1_Click()
s = False
Randomize
WebBrowser1.Navigate "https://passport.baidu.com/?reg&"
Do While s = False
DoEvents
Loop
For Each a In WebBrowser1.Document.getelementsbytagname("input")
Select Case a.Name
Case "username"
a.Value = "vip" & CLng(Rnd * 12345 + 12345)
temp = "用户名" & a.Value & Chr(

Function FileExists(FileName As String) As Boolean
'On Error Resume Next
FileExists = Dir$(FileName, 16) <> ""

End Function

由于Excel具有自己的对象库，在Visual Basic工程中可以加以引用，通过对Excel使用OLE自动化，可以创建一些外观整洁的报表，然后打印输出。这样实现了Visual Basi应用程序对Excel的控制。本文将针对一个具体实例，阐述基于VB和EXCEL的报表设计及打印过程。

　1）创建Excel对象

　　Excel对象模型包括了128个不同的对象，从矩形、文本框等简单的对象到透视表，图表等复杂的对象。下面简单介绍一下其中最重要，也是用得最多的五个对象。