Access调用外部程序无响应时处理求助

qtz_2001

公司在access里写了点程序用来调用外部程序群发工资短信，设定发送每条短信等待10秒是足够的，但偶尔会出现发送响应慢，超过10秒的情况，这时AppActivate "G3 eWalk"语句会执行错误，从而程序终止执行。现在我希望将标红语句处加条判断，如果AppActivate "G3 eWalk"执行错误，则再等待30秒，这个if语句如何写，望高人帮助！！
程序代码如下：
Private Sub btnSMSSendSalaryTWS_Click()
    Dim MyDB As Database, MyQuery As QueryDef, MyData As Recordset
    Dim StartTime, EndTime
    Const MB_OK = 0, MB_OKCANCEL = 1    ' Define buttons.
    Const MB_YESNOCANCEL = 3, MB_YESNO = 4
    Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32   ' Define icons.
    Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
    Const MB_DEFBUTTON2 = 256, IDYES = 6, IDNo = 7   ' Define other.
    Set MyDB = CurrentDb()   
    Set MyData = MyDB.OpenRecordset("HRA_TWS_SMS_Base_SendThisTime", DB_OPEN_SNAPSHOT)
   
    MyData.MoveFirst
    Title = "MsgBox"
    msg = "This operation will send SMS salary bill to each mobile phone user by Wireless Manager - Status."
    msg = msg & " Do you want to continue?"
    DgDef = MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2   ' Describe dialog box.
    RESPONSE = MsgBox(msg, DgDef, Title)    ' Get user response.
    If RESPONSE = IDYES Then    ' Evaluate response
        msg = "Please open Wireless Manager - Status, and turn on radio."
        msg = msg & "Then press OK button."
        RESPONSE = MsgBox(msg)      
        Do Until MyData.EOF
                    
            AppActivate "G3 eWalk"
            
            SendKeys "^n", True
            SendKeys MyData![MPhoneNo], True
            SendKeys "{Tab}", True
            SendKeys MyData![SalaryDetail], True
            SendKeys "%s", True
            SendKeys "{Enter}", True
                    
            MyData.MoveNext
            
            StartTime = Timer
            EndTime = Timer
            
            Do While EndTime - StartTime <= 10
                EndTime = Timer
            Loop
            
        Loop
               
        MyData.Close
               
    End If
   
    AppActivate "Microsoft Access"
    MsgBox "Send successfully!"
End Sub

Renco

你应当是用sendkey方式来模拟键盘操作，这个方式不会有返回任何返回信息的作为判断
但从API角度来说，也有可能的，但需要看这个程序有什么发送前或发送后的变化，
举个例子：如有些软件你在发送时，这个窗口标题会改成："sending"或者"正在发送中"
等发送完之后会恢复常态的其他标题，这时，我们可以通过API来抓取窗口标题的变化，如10秒后，窗口恢复常态标题
就继续发送新的短信，否则再等10秒，

第二种方式，也要用到API，去抓取那个"G3 eWalk"的窗口的按钮句柄，因为大多点击发送时，这个按钮是变为灰色的(enabled=false)，当发送完之后，又会变为可用状态，所以需通过API去抓取这个按钮的状态变化，通过状态变化来判断是否已发送完成

至于API的用法，TZ可以在网上搜一下关于API抓相关窗口句柄的贴子，需要TZ自已多加测试哦

qtz_2001

非常感谢你的指点，我继续研究研究{:soso_e100:}