|
郁闷死 。。。 如果你的路径为本地路径, 则一切正常。。 如果是网络路径则提示安全提示。 请问这个安全提示如何去掉, 让他不弹出啊。。。。。 请指教
我在网上下的电影菜单 打开共享目录则没有这个提示。。 晕哦。。
源代码如下:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_Stop, $msg
$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
GUICreate("测试浏览-框架", 600, 400, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 300)
$GUI_Button_Back = GUICtrlCreateButton("网络路径", 10, 360, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("本地路径", 230, 360, 100, 30)
GUISetState() ;Show GUI
$oIE.navigate("\\192.168.1.118\autoit3") ;;;;如果是网络路径则出现安全提示
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
$oIE.navigate("d:") ;;;本地路径运行任何东西一切正常,无任何提示
Case $msg = $GUI_Button_Back
$oIE.navigate("\\192.168.1.118\autoit3") ;;;;如果是网络路径则出现安全提示
EndSelect
WEnd
GUIDelete()
EndFunc ;==>Example
如下图:
[ 本帖最后由 zhenglei 于 2009-4-10 14:33 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|