找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 点击对应控件并执行指定程序，求解
返回列表 发新帖
查看: 7403|回复: 7

[系统综合] 点击对应控件并执行指定程序，求解

 火 [复制链接]
wsfda
发表于 2011-6-11 13:38:21 | 显示全部楼层 |阅读模式
悬赏100金钱已解决
本帖最后由 wsfda 于 2011-6-11 17:14 编辑 


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

Opt("GUIOnEventMode", 1) ; 开启 Event 模式

Global $H_info = 5,$Tab,$T[20] ;$H_Iinfo = 说明的高度 ,...,...$Tab = 分页标签的数量
Global $b_DB = TimerInit();双击事件
$Tab = IniReadSectionNames("menu.ini")
$F = GUICreate("",550,90,200,210)


GUISetOnEvent($GUI_EVENT_CLOSE, "main")


$TB = GUICtrlCreateTab(0, 0, 565, 90)
GUICtrlSetState(-1, 8)

For $I = 1 To $Tab[0]
        
        
     $T[$I] = GUICtrlCreateTabItem($Tab[$I]);根据配置文件内的字段数量创建相应数量的分页标签
         
              $Command = IniReadSection("menu.ini", $Tab[$I])
           
                 For $L = 1 To $Command[0][0]
                   
                       $Command[$L][0] = GUICtrlCreateButton($Command[$L][0], $H_info + ($L - 1) * 70, 25, 65, 60)
                           
                        
                          _GUICtrlButton_SetImageList(-1, _GetImageListHandle($Command[$L][1], 0, True), 2, -1, 5)
                       GUICtrlSetCursor(-1, 0) ;鼠标样式
                           GUICtrlSetOnEvent($Command[$L][0], "Command")
                        
                Next
        
        
Next

GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW)                         


While 1
        If GUIGetMsg() <> -3 Then _WinHide($F);自动隐藏
                $hw = _WinAPI_GetForegroundWindow();置顶 Start
                If $hw <> $F Then
                        _WinAPI_SetWindowPos($hw, -2, 0, 0, 0, 0, 3)
                EndIf
                _WinAPI_SetWindowPos($F, -1, 0, 0, 0, 0, 3);置顶 End
                
                GetPos()
        Sleep(15)
WEnd

Func Command()
                
                
                
           For $L = 1 To UBound($Command, 1) - 1
                   If @GUI_CtrlId = $Command[$L][0] Then ShellExecute($Command[$L][1])
           Next
           
           

EndFunc  

Func _WinHide($Hwnd)
        $Wp = WinGetPos($F)
        $Mp = MouseGetPos()
        Select
                Case $Wp[1] <= 3
                        If ($Mp[0] < $Wp[0] Or $Mp[0] > $Wp[0] + $Wp[2] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", $Wp[0], 3 - $Wp[3], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", $Wp[0], 3, $Wp[2], $Wp[3], 1)
                        EndIf
                Case $Wp[0] >= (@DesktopWidth - $Wp[2] + 3)
                        If ($Mp[0] < $Wp[0] Or $Mp[1] < $Wp[1] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", @DesktopWidth - 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", @DesktopWidth - $Wp[2] + 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        EndIf
        EndSelect
EndFunc



Func main()

        Switch @GUI_CtrlId ; 根据宏 @GUI_CtrlId 来判断消息

                                Case $GUI_EVENT_CLOSE
                                
                                ;For $I = 1 To $Tab[0]
                                ;If GUICtrlRead ($Tb) = 0  Then  
                                ;MsgBox(0,"",$Tab[1])
                                ;ExitLoop
                            ;ElseIf GUICtrlRead ($Tb) = $I Then 

                            ;MsgBox(0,"",$Tab[$I+1])
                                ;EndIf
                        
                        ;Next
         
         Exit

        EndSwitch
EndFunc   ;==>main



Func _GetImageListHandle($sFile, $nIconID = 0, $fLarge = False);添加图标
        Local $iSize = 16
        If $fLarge Then $iSize = 32
        Local $hImage = _GUIImageList_Create($iSize, $iSize, 5, 3)
        If StringUpper(StringMid($sFile, StringLen($sFile) - 2)) = "BMP" Then
                _GUIImageList_AddBitmap($hImage, $sFile)
        Else
                _GUIImageList_AddIcon($hImage, $sFile, $nIconID, $fLarge)
        EndIf
        Return $hImage
EndFunc   ;==>_GetImageListHandle
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

Opt("GUIOnEventMode", 1) ; 开启 Event 模式

Global $H_info = 5,$Tab,$T[20] ;$H_Iinfo = 说明的高度 ,...,...$Tab = 分页标签的数量
Global $b_DB = TimerInit();双击事件
$Tab = IniReadSectionNames("menu.ini")
$F = GUICreate("",550,90,200,210)


GUISetOnEvent($GUI_EVENT_CLOSE, "main")


$TB = GUICtrlCreateTab(0, 0, 565, 90)
GUICtrlSetState(-1, 8)

For $I = 1 To $Tab[0]
        
        
     $T[$I] = GUICtrlCreateTabItem($Tab[$I]);根据配置文件内的字段数量创建相应数量的分页标签
         
              $Command = IniReadSection("menu.ini", $Tab[$I])
           
                 For $L = 1 To $Command[0][0]
                   
                       $Command[$L][0] = GUICtrlCreateButton($Command[$L][0], $H_info + ($L - 1) * 70, 25, 65, 60)
                           
                        
                          _GUICtrlButton_SetImageList(-1, _GetImageListHandle($Command[$L][1], 0, True), 2, -1, 5)
                       GUICtrlSetCursor(-1, 0) ;鼠标样式
                           GUICtrlSetOnEvent($Command[$L][0], "Command")
                        
                Next
        
        
Next

GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW)                         


While 1
        If GUIGetMsg() <> -3 Then _WinHide($F);自动隐藏
                $hw = _WinAPI_GetForegroundWindow();置顶 Start
                If $hw <> $F Then
                        _WinAPI_SetWindowPos($hw, -2, 0, 0, 0, 0, 3)
                EndIf
                _WinAPI_SetWindowPos($F, -1, 0, 0, 0, 0, 3);置顶 End
                
                GetPos()
        Sleep(15)
WEnd

Func Command()
                
                
                
           For $L = 1 To UBound($Command, 1) - 1
                   If @GUI_CtrlId = $Command[$L][0] Then ShellExecute($Command[$L][1])
           Next
           
           

EndFunc  

Func _WinHide($Hwnd)
        $Wp = WinGetPos($F)
        $Mp = MouseGetPos()
        Select
                Case $Wp[1] <= 3
                        If ($Mp[0] < $Wp[0] Or $Mp[0] > $Wp[0] + $Wp[2] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", $Wp[0], 3 - $Wp[3], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", $Wp[0], 3, $Wp[2], $Wp[3], 1)
                        EndIf
                Case $Wp[0] >= (@DesktopWidth - $Wp[2] + 3)
                        If ($Mp[0] < $Wp[0] Or $Mp[1] < $Wp[1] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", @DesktopWidth - 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", @DesktopWidth - $Wp[2] + 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        EndIf
        EndSelect
EndFunc



Func main()

        Switch @GUI_CtrlId ; 根据宏 @GUI_CtrlId 来判断消息

                                Case $GUI_EVENT_CLOSE
                                
                                ;For $I = 1 To $Tab[0]
                                ;If GUICtrlRead ($Tb) = 0  Then  
                                ;MsgBox(0,"",$Tab[1])
                                ;ExitLoop
                            ;ElseIf GUICtrlRead ($Tb) = $I Then 

                            ;MsgBox(0,"",$Tab[$I+1])
                                ;EndIf
                        
                        ;Next
         
         Exit

        EndSwitch
EndFunc   ;==>main



Func _GetImageListHandle($sFile, $nIconID = 0, $fLarge = False);添加图标
        Local $iSize = 16
        If $fLarge Then $iSize = 32
        Local $hImage = _GUIImageList_Create($iSize, $iSize, 5, 3)
        If StringUpper(StringMid($sFile, StringLen($sFile) - 2)) = "BMP" Then
                _GUIImageList_AddBitmap($hImage, $sFile)
        Else
                _GUIImageList_AddIcon($hImage, $sFile, $nIconID, $fLarge)
        EndIf
        Return $hImage
EndFunc   ;==>_GetImageListHandle




代码如上：
如何做到点击按钮，执行指定程序

谢谢各位大哥帮忙


配置文件如下：
[默认分类]
随机音乐=D:\深蓝随机音乐台.exe
[编程应用]
key=C:\Users\make\Desktop\key.exe
[办公应用]
QQ=C:\Program Files\Tencent\QQ\Bin\QQ.exe
[command]
Mozilla Firefox=C:\Program Files\mozilla firefox\firefox.exe

最佳答案

漠北雪~狼

查看完整内容

回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
漠北雪~狼
发表于 2011-6-11 13:38:22 | 显示全部楼层 
;~ http://www.autoitx.com/forum.php?mod=viewthread&tid=25298&page=1&extra=#pid313974
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>

Opt("GUIOnEventMode", 1) ; 开启 Event 模式

Global $H_info = 5, $Tab, $T[20] ;$H_Iinfo = 说明的高度 ,...,...$Tab = 分页标签的数量
Global $b_DB = TimerInit();双击事件
Global $COMMAND_CTRL[1][1][2];#####################################

$Tab = IniReadSectionNames("menu.ini")
$F = GUICreate("", 550, 90, 200, 210)
GUISetOnEvent($GUI_EVENT_CLOSE, "main")
$TB = GUICtrlCreateTab(0, 0, 565, 90)
GUICtrlSetState(-1, 8)

For $I = 1 To $Tab[0]
        $T[$I] = GUICtrlCreateTabItem($Tab[$I]);根据配置文件内的字段数量创建相应数量的分页标签
        $Command = IniReadSection("menu.ini", $Tab[$I])
        ReDim $COMMAND_CTRL[$Tab[0]+ 1][$Command[0][0] + 1][2];#####################################
        For $L = 1 To $Command[0][0]
                $COMMAND_CTRL[$I][0][0] = $Command[0][0];#####################################
                $COMMAND_CTRL[$I][$L][0] = GUICtrlCreateButton($Command[$L][0], $H_info + ($L - 1) * 70, 25, 65, 60);#####################################
                $COMMAND_CTRL[$I][$L][1] = $Command[$L][1];#####################################
                _GUICtrlButton_SetImageList(-1, _GetImageListHandle($Command[$L][1], 0, True), 2, -1, 5)
                GUICtrlSetCursor(-1, 0) ;鼠标样式
                GUICtrlSetOnEvent($COMMAND_CTRL[$I][$L][0], "Command");#####################################
        Next
Next

GUICtrlCreateTabItem("")

GUISetState(@SW_SHOW)


While 1
        If GUIGetMsg() <> -3 Then _WinHide($F);自动隐藏
        $hw = _WinAPI_GetForegroundWindow();置顶 Start
        If $hw <> $F Then
                _WinAPI_SetWindowPos($hw, -2, 0, 0, 0, 0, 3)
        EndIf
        _WinAPI_SetWindowPos($F, -1, 0, 0, 0, 0, 3);置顶 End

;~                 GetPos()
        Sleep(15)
WEnd

Func Command()
        For $I = 1 To $Tab[0]
                For $L = 1 To $COMMAND_CTRL[$I][0][0];#####################################
                        If @GUI_CtrlId = $COMMAND_CTRL[$I][$L][0] Then Return MsgBox(0, 0, $COMMAND_CTRL[$I][$L][1]);ShellExecute($COMMAND_CTRL[$L][1]);#####################################
                Next
        Next
EndFunc   ;==>Command

Func _WinHide($Hwnd)
        $Wp = WinGetPos($F)
        $Mp = MouseGetPos()
        Select
                Case $Wp[1] <= 3
                        If ($Mp[0] < $Wp[0] Or $Mp[0] > $Wp[0] + $Wp[2] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", $Wp[0], 3 - $Wp[3], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", $Wp[0], 3, $Wp[2], $Wp[3], 1)
                        EndIf
                Case $Wp[0] >= (@DesktopWidth - $Wp[2] + 3)
                        If ($Mp[0] < $Wp[0] Or $Mp[1] < $Wp[1] Or $Mp[1] > $Wp[1] + $Wp[3]) Then
                                WinMove($Hwnd, "", @DesktopWidth - 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        Else
                                WinMove($Hwnd, "", @DesktopWidth - $Wp[2] + 3, $Wp[1], $Wp[2], $Wp[3], 1)
                        EndIf
        EndSelect
EndFunc   ;==>_WinHide

Func main()
        Switch @GUI_CtrlId ; 根据宏 @GUI_CtrlId 来判断消息
                Case $GUI_EVENT_CLOSE
                        ;For $I = 1 To $Tab[0]
                        ;If GUICtrlRead ($Tb) = 0  Then
                        ;MsgBox(0,"",$Tab[1])
                        ;ExitLoop
                        ;ElseIf GUICtrlRead ($Tb) = $I Then

                        ;MsgBox(0,"",$Tab[$I+1])
                        ;EndIf

                        ;Next

                        Exit
        EndSwitch
EndFunc   ;==>main

Func _GetImageListHandle($sFile, $nIconID = 0, $fLarge = False);添加图标
        Local $iSize = 16
        If $fLarge Then $iSize = 32
        Local $hImage = _GUIImageList_Create($iSize, $iSize, 5, 3)
        If StringUpper(StringMid($sFile, StringLen($sFile) - 2)) = "BMP" Then
                _GUIImageList_AddBitmap($hImage, $sFile)
        Else
                _GUIImageList_AddIcon($hImage, $sFile, $nIconID, $fLarge)
        EndIf
        Return $hImage
EndFunc   ;==>_GetImageListHandle

评分

参与人数 1金钱 +10 贡献 +5 收起 理由
wsfda + 10 + 5 谢谢，搞懂了

查看全部评分

回复

举报

wsfda
 楼主| 发表于 2011-6-11 14:05:51 | 显示全部楼层
在线等，.....
回复

举报

漠北雪~狼
发表于 2011-6-11 15:42:26 | 显示全部楼层
本帖最后由 漠北雪~狼 于 2011-6-11 16:01 编辑

楼主代码发重复了且GetPos函数不存在。

请参照http://www.autoitx.com/thread-5729-1-1.html中例1，问题自然迎刃而解。


哦，刚刚还没有看明白你的代码，帮你改好了，我标记了;#####################################的地方，是对你源代码有修改的地方
代码在5楼，其中需要用到一个三维数组，有不明白的地方请跟贴。

另外，第63行的return最好是不要省掉。
回复

举报

annybaby
发表于 2011-6-11 15:49:22 | 显示全部楼层
回复 1# wsfda


    楼主你这代码是借用别人的吧??明显重复包含了,而且里面的一些函数也没有,比如是getpos()
估计是wingetpos()
回复

举报

wsfda
 楼主| 发表于 2011-6-11 17:13:39 | 显示全部楼层
回复 5# 漠北雪~狼


    谢谢大哥帮忙，谢谢
回复

举报

dyd
发表于 2011-6-11 18:03:58 | 显示全部楼层
路过。。。
回复

举报

零度深蓝
发表于 2011-12-18 10:13:34 | 显示全部楼层
进来学习，又懂了一些
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2025-1-11 00:11 , Processed in 0.079287 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表