（已解决，结贴）打开无数个IE（代码问题）

feicuiboy · 发表于 2010-5-23 00:10:41

本帖最后由 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，这是为什么？指导下

lanfengc · 发表于 2010-5-23 09:09:00

你这样的消息循环模式不对。改成onevent模式就可以了
或者你抓取鼠标坐标，检测鼠标点击下的控件是PIC1，才进行弹出否则不弹出IE

feicuiboy · 发表于 2010-5-23 12:52:23

回复 2# lanfengc
用
onevent模式该怎么修改啊？？

lanfengc · 发表于 2010-5-23 13:38:45

#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"&" [url]http://www.baidu.com[/url]")
EndFunc

feicuiboy · 发表于 2010-6-30 19:55:15

已解决，请版主结贴，谢谢

		自动登录	找回密码
密码			加入

[AU3基础] （已解决，结贴）打开无数个IE（代码问题）

本帖子中包含更多资源

评分

评分