（已解决，结贴）打开无数个IE（代码问题）
本帖最后由 feicuiboy 于 2010-6-30 19:52 编辑代码如下：
#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=e:\整理资料\3.study\3.1学习au3\文件列表器\ytt\复件 目录册生成器.kxf
$Form1_1 = GUICreate(" ",693, 399, 233, 304,-1)
GUISetBkColor(0x808000)
$Pic1 = GUICtrlCreatePic("D:\Document And Settings2\feicuiboy\Desktop\b.jpg", 504, 8, 124, 60, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip($Pic1,"点击访问")
$Label2 = GUICtrlCreateLabel("点击访问", 520, 80, 100, 17)
GUICtrlSetTip($Pic1,"点击访问")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case$Pic1
ShellExecute ("iexplore.exe", "http://126.com")
case$Label2
ShellExecute ("iexplore.exe", "http://126.com")
EndSwitch
WEnd
打开后会弹出无数个IE，这是为什么？指导下
你这样的消息循环模式不对。改成onevent模式就可以了
或者你抓取鼠标坐标，检测鼠标点击下的控件是PIC1，才进行弹出否则不弹出IE 回复 2# lanfengc
用
onevent模式该怎么修改啊？？ #include <inet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1);程序生成模式为事件模式
InetGet("http://www.baidu.com/img/baidu_logo.gif","logo.gif",1,0);下载百度的LOGo
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 342, 174, 192, 114)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") ;注册程序窗体关闭事件，函数为Form1Close
$Pic1 = GUICtrlCreatePic("", 48, 24, 209, 89)
GUICtrlSetOnEvent(-1, "Pic1Click");注册图片点击事件，函数为Pic1Click
GUICtrlSetCursor($Pic1,0) ;设置图片上的鼠标格式为 手形
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetImage($Pic1,"logo.gif");设置图片控件上显示的图片
While 1
Sleep(10000)
WEnd
Func Form1Close()
Exit
EndFunc
Func Pic1Click()
Run(@ProgramFilesDir&"\Internet Explorer\IEXPLORE.EXE"&" http://www.baidu.com")
EndFunc 已解决，请版主结贴，谢谢
页:
[1]