再请教关于用IE打开图片的问题~！

sxgaobo

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
.Visible = 1
.MenuBar = 0
.Toolbar = 0
.StatusBar = 0
.navigate “D:\TP888\ZJDJ032-1412250002\722.jpg”
End With
Set IE = Nothing

上面是在坛子里向高手们学到的可以用IE打开指定位置图片的代码，可以屏蔽掉菜单栏、命令栏、状态栏等，如何可以屏蔽掉右键的菜单（主要是防止别人使用“图片另存为”）和抬头处的标题里的内容（不想让别人知道图片的存放位置，只显示指定的文字即可）

盗梦

你是否会写 html和js代码？ 会的话，就写一个html页，打开指定的图片并设置标题。用js屏蔽右键等

sxgaobo

盗梦 发表于 2014-12-29 17:14
你是否会写 html和js代码？ 会的话，就写一个html页，打开指定的图片并设置标题。用js屏蔽右键等

不好意思！不会啊，您会吗？

盗梦

sxgaobo 发表于 2014-12-29 17:19
不好意思！不会啊，您会吗？

百度一下就有了，很多

admin

只是 如果他知道图片的路径（如看标题上的路径）还是可以直接复制文件的。
最好还是要用IIS

roych

那样还不如用webbrowser，或者直接用单个窗体屏蔽掉右击，不就好了？
真要复制的话，那么多截屏软件都可以截下来啦。
经测试，这个是基于默认浏览器的。像俺习惯用360，不仅看不到图片，还会出错。——楼主非要强奸民意吗？^_^

sxgaobo

谢谢各位的关注！！！看来真得动大手术了啊！

sxgaobo

用网上搜索到的办法解决了屏蔽右键的办法：
屏蔽：
  Dim hKey As Long
  RegCreateKey HKEY_CURRENT_USER, _
  "Software\Policies\Microsoft\Internet Explorer\restrictions", hKey
  Dim bArr(0 To 4) As Byte
  bArr(0) = &O1: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
  RegSetValueEx hKey, "NoBrowserConTextMenu", 0, REG_BINARY, bArr(0), 4
  RegCloseKey hKey

恢复：
  Dim hKey As Long
  RegCreateKey HKEY_CURRENT_USER, _
  "Software\Policies\Microsoft\Internet Explorer\restrictions", hKey
  Dim bArr(0 To 4) As Byte
  bArr(0) = &O0: bArr(1) = &H0: bArr(2) = &H0: bArr(3) = &H0
  RegSetValueEx hKey, "nobrowsercontextmenu", 0, REG_BINARY, bArr(0), 4
  RegCloseKey hKey

第2个问题怎么解决，即如何使IE的状态栏里不显示照片的位置，显示自定义的内容或只显示“Windows Internet Explorer”
那位朋友帮忙解决下！！！

roych

sxgaobo 发表于 2015-1-9 21:52
用网上搜索到的办法解决了屏蔽右键的办法：
屏蔽：
  Dim hKey As Long

用js设置状态栏文字。例如：
window.status="我的状态栏文字"