论坛 › 已解决问题区 › 请教我的脚本问题

jchang 发表于 2008-9-2 21:34:58

请教我的脚本问题

脚本如下：

#Include <GuiMenu.au3>
HotKeySet("!1", "ShowMessage");Alt-1

while 1
WEnd

Func ShowMessage()
    Local $hWnd, $hMain, $hFile
    $text = WinGetTitle("")
    $hWnd = WinGetHandle($text)
        $hMain = _GUICtrlMenu_GetMenu($hWnd)
        $hFile = _GUICtrlMenu_GetItemSubMenu($hMain, 0)       
        $sText=_GUICtrlMenu_GetItemText($hFile, 2)
        MsgBox(0,"nihi11",$Text)
        MsgBox(0,"nihi",$sText)
        Run("Notepad.exe")
        Writeln("Open item text: " & _GUICtrlMenu_GetItemText($hFile, 2))
        _GUICtrlMenu_SetItemText($hFile, 1, "&Closed")
        Writeln("Open item text: " & _GUICtrlMenu_GetItemText($hFile, 1))
EndFunc
    Func Writeln($sText)
        ControlSend("", "", "Edit1", $sText & @CR)
EndFunc   ;==>Writeln


问题：
1.Writeln($sText)函数没有执行，应如何修改？
2.MsgBox(0,"nihi11",$Text)以及MsgBox(0,"nihi",$sText)在记事本中可执行，但是在excel表中不执行，应如何修改？

我是初学者，请各位多多指教！

[ 本帖最后由 jchang 于 2008-9-4 22:10 编辑 ]

jchang 发表于 2008-9-4 12:17:36

难道就没人回复吗，难道问题不值得回答！！

pcbar 发表于 2008-9-4 20:07:44

1,Run("Notepad.exe")下面加一行:WinWaitActive("无标题")
2,excel为非标准菜单控件,属于工具条一类的

jchang 发表于 2008-9-4 20:51:29

多谢指教，对于初学者，你的回复是我们继续学习的最大动力

查看完整版本: 请教我的脚本问题