腳本問題

yangfengwait 发表于 2005-12-7 11:57:58

'$include "PcmConst.sbh"

Option Compare Text
Option Base 0

'logon on pcm with account (strname,strpass)
Function logon% (strName$ , strPass$)
   Dim iSqa1 as integer

On Error goto errLb
   logon = 1

   iSqa1 = SQAFindObject("\;Name=frmLogin")
   IFiSqa1 <> SQASuccess THEN
         goto errLb
   END IF

   Window SetContext, "Name=frmLogin", ""
   Window MoveTo, "", "Coords=247,0"
   EditBox Left_Drag, "Name=txtAccount", "Coords=2,12,89,11"
   InputKeys strName
   EditBox Left_Drag, "Name=txtPassword", "Coords=3,14,169,7"
   InputKeys strPass
   PushButton Click, "Name=cmdOK"

   Exit Function
errLb:
   logon = 0
End Function

Function OpenPcm%(strName$ , strPass$)
   dim iSqa%
   dim iCall%

On Error goto errLb
   OpenPcm=1

   iSqa = SQAFindObject("\;Name=frmNConsole")

   IF iSqa <> SQASuccessTHEN
         SQAShellExecute "C:\Program Files\PCmain\Console\PCMConsole.exe","",""

         iSqa = SQAWaitForObject("\;Name=frmNConsole",20000)
         IF iSqa <>SQASuccess THEN
            SQALogMessage sqaFail, "無法開啟pcmconsole", "初始化"
            Goto errLb
         END IF

         Window SetContext, "Name=frmNConsole", ""
         Window SetPosition, "", "Coords=0,0,247,553;Status=NORMAL"
         TreeView Click, "Name=TreeView1;\;ItemText=vantech->a", ""

   ELSE
         iSqa = SQAFindObject("\;Name=frmLogin")
         IF iSqa <> SQASuccess THEN
            Window SetContext, "Name=frmNConsole", ""
            Window SetPosition, "", "Coords=0,0,247,553;Status=NORMAL"
            Window MoveTo, "", "Coords=4,0"
            TreeView Click, "Name=TreeView1;\;ItemText=vantech->a", ""

            iSqa = SQAFindObject("\;Name=frmLogin")

            IF iSqa <> SQASuccess THEN
               Window SetContext, "Name=frmNConsole", ""
               Window SetPosition, "", "Coords=0,0,247,553;Status=NORMAL"
               Window MoveTo, "", "Coords=4,0"
               MenuSelect "工具(T)->重新登入(G)"
            end if
         end if
   end if

   iCall = logon(strName, strPass)
   if iCall =0 then Goto errLb

   Exit Function

errLb:
   OpenPcm=0

END FUNCTION

以上代碼我將他做成了一個lib,用來在腳本中調用,我的腳本是這樣子的

Sub Main
Dim Result As Integer

'Initially Recorded: 2005/11/15上午 10:19:25
'Script Name: PCM06-01

result=openpcm("a","a")
if result=0 then
exit sub
end if

end sub

執行後總是失敗

qingchunjun 发表于 2005-12-9 13:26:33

有什么错误提示吗？

ilovejolly 发表于 2005-12-9 14:08:22

你的环境别人也模仿不出来，建议你首先把框架写出来，就调用一个简单的方法，看有没有问题。

页: [1]

51Testing软件测试论坛 's Archiver

腳本問題