uses ActiveX;

initialization
OleInitialize(nil);
finalization
try
    OleUninitialize;
except
end;

2.EmptyParam

EmptyParam是一个公用的Variant空变量，不要对它赋值
var
t:OleVariant;
begin
webbrowser1.Navigate(edit1.text,t,t,t,t);
{这句可以写成webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);}
end;

3.命令操作

常用的命令操作用ExecWB方法即可完成
pro

看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand "editMode"）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。

这儿我想提到的是关于MSHTML.HTMLDocument

引用Microsoft HTML OBject Library

Rem ＃窗体代码＃

Dim WithEvents M_Dom As MSHTML.HTMLDocument

Private Function M

WebBrowser.ExecWB(1,1) 打开
WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
WebBrowser.ExecWB(4,1) 保存网页
WebBro

一、WinSock简介
       Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准，即Windows Socket规范，简称WinSock。

VB编写网络程序主要有两种方式：1.winsock控件 2.winsockAPI

二、WinSock控件的使用

vb6.0 中没有鼠标离开事件，经常要在几个控件上使用mouseMove事件，才能起到鼠标离开事件。 这个是从网上找来的程序。首先要求的是控件必须有hWnd属性

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean

'判断当前鼠标位置是否在Object1上

原文链接：http://hi.baidu.com/ecentury/blog/item/292611d55a7e65c251da4b8d.html

新加内容：
提交表单form1：
Private Sub Command1_Click()
WebBrowser1.Document.Forms("form1").submit
End Sub

将form1中的名为u的属性设为不可用：
Private Sub Command2_Click()
WebBrow

Doky的话：懒了很久了，其实这个版本的功能很久以前基本上就已经做出来了，一方面是有时候确实很忙没时间，另一方面是由于懒惰，直到前几天听朋友说有人居然在卖老版本的那个公测版，才又想起该发布新版本了。其实已经许久不玩猫游了，只是偶尔上线看看，一些新功能都是应朋友要求加入的。这里要特别感谢一下小猪，帮忙测试了程序，还主动请缨要求写攻略，呵呵，是个好同志，里面的表情功能和定时提醒功能也是小猪同学提供的创意，再次表示感谢，呱唧呱唧，^_^，下面有请小猪版攻略隆