请教关于用ACC打开IE浏览器的问题！（有新问题请教各位）

sgrshh29

写了一段代码，可以最大化了。
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub shh()
Dim X As Long
Const SW_SHOWMAXIMIZED = 3
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
X = apiShowWindow(IE.hwnd, SW_SHOWMAXIMIZED)
Err.Clear
With IE
.navigate "About:Blank"
.Visible = 1
.MenuBar = 0
.Toolbar = 0
.StatusBar = 0
End With
Set IE = Nothing
End Sub

sxgaobo

谢谢sgrshh29 ！！！
漂亮，真乃高手！！！！！！

sxgaobo

再请教个问题，如何能将打开的网页中的右键功能屏蔽掉啊？就是在打开的网页上点右键时不弹出任何菜单。

sxgaobo

.? = 0
可以啊？

sxgaobo

自己顶！！！

sxgaobo

SOS!SOS

sxgaobo

求答案~~！

sxgaobo

帮忙啊！！！