VC 下MSCOMM与RS-232的问题

环境是VC6.0我想做一个键盘的演示程序模拟一次取款的交易流程。串口已经调试成功了，命令可以发下去。
但是我实在想不出怎么去写控制流程来模拟完这次交易过程void CLabel2::OnDo() 
{
    // TODO: Add your control notification handler code here
    //欢迎语
    m_receive = "";
    CByteArray hexdata;
    m_send = "1B 56 ";
    int len = Str2Hex( m_send, hexdata );
    m_ctrlComm.SetOutput( COleVariant(hexdata) );
    OnCloseRadio();    Sleep(3000);
    CString nRecAcc;
    GetDlgItemText(IDC_EDIT1, nRecAcc); //读取文本编辑框里面的内容
    
    //输入账号
    int AccountNum;
    CString str;
    ::GetProfileInt("AccountInfo","AccountNum",0);    if(nRecAcc != AccountNum)
    {
        m_name = ::GetPrivateProfileString("AccountInfo","Name","Error",str.GetBuffer(20),20,".\\TEST.INI");
        m_ctrlComm.SetPortOpen(TRUE);
        m_receive = "";
        CByteArray hexdata;
        m_send = "1B 5B ";
        int len = Str2Hex( m_send, hexdata );
        m_ctrlComm.SetOutput( COleVariant(hexdata) );
        OnCloseRadio();
    }
    else
    {
        AfxMessageBox("账号输入错误,请重新输入");
        UpdateData(TRUE);
    }    int Password;
    ::GetProfileInt("AccoutInfo","Password",0);    if(m_receive != Password)
    {
        m_ctrlComm.SetPortOpen(TRUE);
        m_receive = "";
        CByteArray hexdata;
        m_send = "1B 43";
        int len = Str2Hex( m_send, hexdata );
        m_ctrlComm.SetOutput( COleVariant(hexdata) );
        OnCloseRadio();
    }
    
}这是我在button下写的控制流程，但是总觉得思路不对，希望有高手能够指点。小弟谢谢了。在线等、