找回密码
 加入
搜索
查看: 1634|回复: 3

单击后。怎么调用。怎么写代码.

[复制链接]
发表于 2008-10-31 11:04:24 | 显示全部楼层 |阅读模式
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("                                                                     David专用工具(限科大科技园专用)", 633, 448, 192, 124)
$MenuItem4 = GUICtrlCreateMenu("Tools")
$MenuItem11 = GUICtrlCreateMenuItem("我的电脑", $MenuItem4)
$MenuItem12 = GUICtrlCreateMenuItem("控制面板", $MenuItem4)
$MenuItem10 = GUICtrlCreateMenuItem("检查网关", $MenuItem4)
$MenuItem9 = GUICtrlCreateMenuItem("检查外网", $MenuItem4)
$MenuItem8 = GUICtrlCreateMenuItem("显示本机IP", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenu("Swith")
$MenuItem6 = GUICtrlCreateMenuItem("检查线路", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("查看MAC", $MenuItem3)
$MenuItem13 = GUICtrlCreateMenuItem("清除MAC", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("Router")
$MenuItem14 = GUICtrlCreateMenuItem("检查线路", $MenuItem2)
$MenuItem15 = GUICtrlCreateMenuItem("连接路由", $MenuItem2)
$MenuItem16 = GUICtrlCreateMenu("Quit")
$MenuItem1 = GUICtrlCreateMenu("Help")
$MenuItem5 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        case $MenuItem4
                        Run(@ComSpec & " /c " & 'ping 10.1.40.1', "", @SW_MAXIMIZE );打开ping
                        case $MenuItem9
        case $MenuItem4
                ;检查外网
                        $var = Ping("www.baidu.com",250)
                If $var Then; also possible: If @error = 0 Then ...
                      Msgbox(64,"Status","Online, roundtrip was:" & $var)
                Else
                     Msgbox(64,"Status","An error occured with number: " & @error)
                EndIf
        EndSwitch
WEnd
发表于 2008-10-31 11:35:58 | 显示全部楼层
Case $MenuItem11
                        Run("explorer.exe   ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}");我的电脑
                Case $MenuItem12
                        Run("rundll32.exe shell32.dll,Control_RunDLL");控制面板
 楼主| 发表于 2008-10-31 16:10:22 | 显示全部楼层
只调用:$MenuItem11  
不用去管("我的电脑", $MenuItem4)中的 “$MenuItem4”这个是吗?
发表于 2008-11-2 00:21:06 | 显示全部楼层
是的。
GUICtrlCreateMenuItem("我的电脑", $MenuItem4)
是表示:在GUI上创建一个菜单项目控件。详细说明参考帮助文档。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-6-26 08:51 , Processed in 0.088920 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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