|
楼主 |
发表于 2012-11-30 13:47:38
|
显示全部楼层
回复 6# smartzbs
还是不行,我把我程序代码贴出来。
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt('MustDeclareVars', 1)
#NoTrayIcon
Dim $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
Dim $GUI_Button_Home, $msg
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("文件共享测试版", 890, 600)
GUISetBkColor(0x00E0FFFF)
$GUIActiveX = GUICtrlCreateObj ($oIE, -1, 50, 890, 600)
$GUI_Button_Back = GUICtrlCreateButton("后退", 53, 8, 70, 28)
$GUI_Button_Forward = GUICtrlCreateButton("前进", 148, 8, 70, 28)
$GUI_Button_Home = GUICtrlCreateButton("主页", 246, 8, 70, 28)
MsgBox(64,"温馨提示", "如果要求输入用户名的话呢"& @CRLF & @CRLF &"输入administrator按回车键试试吧")
$oIE.navigate("\\172.21.3.8")
GUISetState(-1,8)
GUISetState
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $GUI_Button_Home
$oIE.navigate("\\172.21.3.8")
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
EndSelect
WEnd
然后在里面点击右键的时候就会弹出安全提醒了!求解决! |
|