剪贴板操作

ie.menubar=0 '不显示IE对象菜单栏 
ie.AddressBar=0 '不显示IE对象地址栏 
ie.ToolBar=0 '不显示IE对象工具栏 
ie.StatusBar=0 '不显示IE对象状态栏 
ie.FullScreen=1 '全屏化IE对象 
ie.Width=800 '设置IE对象宽度 
ie.Height=600 '设置IE对象高度 
ie.Resizable=0 '设置IE对象大小是否可以被改动 
ie.visible=1 '设置是否可见 
ie.Navigate "http://www.jb51.net" '设置IE对象默认指向的页面 


''剪贴板访问
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate("about:blank")
IE.Document.ParentWindow.ClipboardData.SetData "text","123" ''写操作
IE.Document.ParentWindow.ClipboardData.GetData ''读操作