能够将以下代码改为事件模式?

newuser

msconfig怎么就不响应 ?

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\Documents and Settings\Administrator\桌面\testtray.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include "ModernMenuRaw.au3" ;没有它就没有Tray ICON的建立
#include "SystemTools.au3"  ;系统工具菜单功能由改文件实现


$nTrayIcon1                = _TrayIconCreate("托盘菜单示例", "shell32.dll", -40);创建托盘图标
_TrayIconSetClick(-1, 16) ;是设置托盘右键单击显示菜单吗？
$bUseAdvTrayMenu = FALSE;菜单样式（可取值 TRUE 和 False），托盘显示风格不同啊！

$nTrayMenu1                = _TrayCreateContextMenu() ;创建托盘上下文菜单，即右键点击托盘图标显示的菜单
$nSideItem3                = _CreateSideMenu($nTrayMenu1)  ; 在上下文菜单上建立侧面菜单
_SetSideMenuText($nSideItem3, "我的菜单");设置侧面菜单文本即左边竖条显示的文字
_SetSideMenuColor($nSideItem3, 0xFFFFFF) ;设置侧面菜单文字颜色
_SetSideMenuBkColor($nSideItem3, 0x802222);设置侧面菜单文字背景开始颜色
_SetSideMenuBkGradColor($nSideItem3, 0x4477AA) ;设置侧面菜单文字背景结束颜色

$FrequtentlyTroubleFixed  = _TrayCreateMenu("常见故障解决");创建托盘菜单
        _TrayItemSetIcon($FrequtentlyTroubleFixed, @WindowsDir&"\regedit.exe", 0);设置托盘菜单图标
        $DieMachine=_TrayCreateItem("假死机", $FrequtentlyTroubleFixed, -1, 1) ;创建托盘菜单“常见故障解决”下的托盘菜单项
        _TrayItemSetIcon($DieMachine, "shell32.dll", -24) ;创建菜单项的图标，图标库都来源于系统自带 的shell32.dll
        ;_TrayItemSetIcon($DieMachine, "", 0) ;创建菜单项的图标
     _TrayCreateItem("") ;创建与下一个托盘菜单（项）的分隔线
$CleanVirus=_TrayCreateItem("清理病毒")
        _TrayItemSetIcon($CleanVirus, "shell32.dll", -164)
$PatchsManager=_TrayCreateItem("补丁管理")
        _TrayItemSetIcon($PatchsManager, "shell32.dll", -165)
$SecurityTools=_TrayCreateMenu("安全工具")
        _TrayItemSetIcon($SecurityTools, "shell32.dll", -166)
                _TrayCreateItem("") 
$SystemOptimization=_TrayCreateMenu("系统优化")
        _TrayItemSetIcon($SystemOptimization, "shell32.dll", -167)
                _TrayCreateItem("") 
$SEP=_TrayCreateMenu("SEP问题解决集锦")
        _TrayItemSetIcon($SEP, "shell32.dll", -168)
                _TrayCreateItem("") 
$SystemTools=_TrayCreateMenu("系统工具")
        _TrayItemSetIcon($SystemTools, "shell32.dll", -169)
                
                $Msconfig=_TrayCreateItem("系统配置实用程序",$SystemTools,-1,1)
                
                GUICtrlSetOnEvent($Msconfig,"_SystemToolsEvent")
                _TrayItemSetIcon($Msconfig,"shell32.dll",-2)
                $MSTSC=_TrayCreateItem(" 远程登陆",$SystemTools,-1,1)
                _TrayItemSetIcon($MSTSC,"shell32.dll",-3)
                $TaskManager=_TrayCreateItem("任务管理器",$SystemTools,-1,1)
                _TrayItemSetIcon($TaskManager,"shell32.dll",-4)
                $DiskClean=_TrayCreateItem("磁盘清理",$SystemTools,-1,1)
                _TrayItemSetIcon($DiskClean,"shell32.dll",-5)
                $Defrag=_TrayCreateItem("磁盘碎片整理",$SystemTools,-1,1)
                _TrayItemSetIcon($Defrag,"shell32.dll",-6)
                $SystemAttribute=_TrayCreateItem("系统属性",$systemtools,-1,1)
                _TrayItemSetIcon($SystemAttribute,"shell32.dll",-7)
                $SystemInfo=_TrayCreateItem("系统信息",$SystemTools,-1,1)
                _TrayItemSetIcon($SystemInfo,"shell32.dll",-8)
                $UserAccount=_TrayCreateItem("用户帐户",$systemtools,-1,1)
                _TrayItemSetIcon($UserAccount,"shell32.dll",-9)
                $LocalSecuritySetting=_TrayCreateItem("本地安全设置",$systemtools,-1,1)
                _TrayItemSetIcon($LocalSecuritySetting,"shell32.dll",-10)
                $AreaAndLanguageOption=_TrayCreateItem("区域和语言选项",$systemtools,-1,1)
                _TrayItemSetIcon($AreaAndLanguageOption,"shell32.dll",-11)
                $ShareFolder=_TrayCreateItem("共享文件夹",$systemtools,-1,1)
                _TrayItemSetIcon($ShareFolder,"shell32.dll",-12)
                $AddAndDeleteProgram=_TrayCreateItem("添加和删除程序",$systemtools,-1,1)
                _TrayItemSetIcon($AddAndDeleteProgram,"shell32.dll",-13)
                _TrayCreateItem("") 
$AboutWebs=_TrayCreateMenu("相关网站")
        _TrayItemSetIcon($AboutWebs, "shell32.dll", -170)
                _TrayCreateItem("") 
$OnlineUpdate=_TrayCreateMenu("在线更新")
        _TrayItemSetIcon($OnlineUpdate, "shell32.dll", -171)
                _TrayCreateItem("") 
$AboutMe=_TrayCreateItem("关于")
        _TrayItemSetIcon($AboutMe, "shell32.dll", -172)
                _TrayCreateItem("") 
$TrayExit=_TrayCreateItem("退出")
        _TrayItemSetIcon($TrayExit, "shell32.dll", -173)
_TrayItemSetIcon(-1, "shell32.dll", -28)
_TrayIconSetState(); 显示托盘图标，就是$nTrayIcon1 所代表的图标

While 1
        Sleep(2000)
WEnd

Func _SystemToolsEvent()
        Local $nMsg=@GUI_CtrlId
        Select 
                Case $nMsg=$TrayExit ;根据捕获的信息进行响应操作，如捕获的是$TrayExit=_TrayCreateItem("退出")执行它相关语句
                        Exit
                Case $nMsg=$AboutMe
                        Msgbox(64,"关于","托盘菜单示例")
                                Case $nMsg=$Msconfig ;以下是完成“系统工具”菜单下的各个功能
                                        _Msconfig()
                        Case $nMsg=$MSTSC
                                 _Mstsc()
                        Case $nMsg=$TaskManager
                                _TaskManager()
                        Case $nMsg=$DiskClean
                                 _DiskClean()
                        Case $nMsg=$Defrag
                                 _DiskDfrag()
                                Case $nMsg=$SystemAttribute
                                 _DiskAttribute()
                        Case $nMsg=$SystemInfo
                                _SystemInfo()
                                Case $nMsg=$UserAccount
                                _UserAccount()
                        Case $nMsg=$LocalSecuritySetting
                                 _LocalSecuritySetting()
                        Case $nMsg=$AreaAndLanguageOption
                                _AreaAndLagurage()
                        Case $nMsg=$ShareFolder
                                _ShareFolder()
                        Case $nMsg=$AddAndDeleteProgram
                                 _AddAndDelete() ;结束“系统工具”菜单下的各个功能                
                         EndSelect
EndFunc
_TrayIconDelete($nTrayIcon1);退出菜单

lynfr8

#include "ModernMenuRaw.au3"
#include "SystemTools.au3"
建议楼主将所需UDF补上，方便解答者测试

newuser

回复 2# lynfr8
不好意思!我正在学习TRAY菜单,这个程序还没有完全理清思路.
第一个:systemtools.au3,]

#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon=                                                                                 ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile=                                                                        ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe                                                        ;文件类型
#AutoIt3Wrapper_Compression=4                                                                ;压缩等级
#AutoIt3Wrapper_UseUpx=y                                                                         ;使用压缩
#AutoIt3Wrapper_Res_Comment=                                                                 ;注释
#AutoIt3Wrapper_Res_Description=                                                        ;详细信息
#AutoIt3Wrapper_Res_Fileversion=                                                        ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p                                ;自动更新版本  
#AutoIt3Wrapper_Res_LegalCopyright=                                                 ;版权
#AutoIt3Wrapper_Change2CUI=N                                                   ;修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%                ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                                                   ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=                                                      ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=                                                                 ;语法检查
;#AutoIt3Wrapper_Run_Before=                                                                 ;运行前
;#AutoIt3Wrapper_Run_After=                                                                        ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 Au3 版本:TraySystemTools
 脚本作者: zougk
        Email: 
        QQ/TM: 
 脚本版本: 
 脚本功能: TrayOptimize辅助

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include-once

;----------------------------------系统配置实用程序--------------------------
Func _Msconfig()
        Run(@WindowsDir & "\pchealth\helpctr\binaries\Msconfig.exe") ;msconfig命令不在\system32目录下
EndFunc
;----------------------------------远程登陆--------------------------
Func _Mstsc()
        ShellExecute(@SystemDir & "\mstsc.exe")
EndFunc
;----------------------------------任务管理器--------------------------
Func _TaskManager()
        ShellExecute(@SystemDir & "\taskmgr.exe")
EndFunc
;----------------------------------磁盘清理--------------------------
Func _DiskClean()
        ShellExecute(@SystemDir & "\cleanmgr.exe")
EndFunc
;----------------------------------磁盘碎片整理--------------------------
Func _DiskDfrag()
        ShellExecute(@SystemDir & "\dfrg.msc")
EndFunc
;----------------------------------系统属性--------------------------
Func _DiskAttribute()
        Run("control sysdm.cpl")
EndFunc
;----------------------------------系统信息--------------------------
Func _SystemInfo()
        Run(@SystemDir & "\winmsd.exe")
EndFunc
;----------------------------------用户帐户--------------------------
Func _UserAccount()
        Run("control userpasswords2") 
EndFunc
;----------------------------------本地安全设置--------------------------
Func _LocalSecuritySetting()
        ShellExecute(@SystemDir & "\secpol.msc")
EndFunc
;----------------------------------区域和语言选项--------------------------
Func _AreaAndLagurage()
        Run("control intl.cpl")
EndFunc
;----------------------------------共享文件夹-------------------------
Func _ShareFolder()
        ShellExecute(@SystemDir & "\fsmgmt.msc")
EndFunc
;----------------------------------添加/删除程序-------------------------
Func _AddAndDelete()
        Run("control appwiz.cpl")
EndFunc
        

newuser

回复 2# lynfr8
第2个上半部分