daluyan 发表于 2004-11-12 16:04:04

我也是刚学！

Sub Main
    Dim Result As Integer
   
    dim Res

    'Initially Recorded: 2004-11-1110:45:03
    'Script Name: 前缀1
   
    StartApplication "C:\WINNT\system32\notepad.exe"
   
    Window SetContext, "Caption=未定标题 - 记事本", ""
    InputKeys "hello"
    MenuSelect "文件(F)->保存(S)"
   
    Window SetContext, "Caption=另存为", ""
    ComboEditBox Left_Drag, "ObjectIndex=3", "Coords=5,6,-25,3"
    InputKeys "hello"
    PushButton Click, "Text=保存(S)"
   
    Window SetContext, "Caption=hello.txt - 记事本", ""
    MenuSelect "文件(F)->退出(X)"
   
    Window SetContext, "Class=Shell_TrayWnd", ""
    TabControl Click, "ObjectIndex=1;\;ItemIndex=0", ""
   
    Result = FileVP (Exists, "Name=C:\Documents and Settings\ABC\桌面\hello0.txt", "VP=File Existence")
   
    If Result<>0 Then
         Res="不等于0"
   Else
         Res="等于0"
    End If
   
    Open "C:\result.txt" For append As #1
    Write #1, Res
   
    Close #1

End Sub

daluyan 发表于 2004-11-12 16:04:31

你看看对你有没有启发！

hongtang 发表于 2004-11-12 16:30:34

最好提供脚本注释～和说明～还有常用的语法和函数～光脚本就算了吧

whldb 发表于 2004-11-14 16:42:29

光脚本让人家看的多累啊！
希望楼主能够有些注解说明之类的吧~要不然像我们这样的新手看起来很累的。

weiping2000 发表于 2004-11-23 12:09:18

是啊，我也有同感，我也是新手，希望以后有更多关于新手学习的资料。
本人在此先谢谢了！

TestTest 发表于 2004-11-23 22:27:44

大家不要这么懒,看帮助不就可以了吗

谢谢搂住给了这么多我以前没有用过的函数。
页: [1]
查看完整版本: 我也是刚学！