vbs의 예법의 13

1281 단어 COMVC++vbsvs2010

개요


vbs의 예법을 조사해 봤습니다.
vc++로com 서버를 만들어 보았습니다.

사진.



컨디션


windows vista
visual studio 2010

절차.


MFC 애플리케이션 제작
고급 기능의 자동화를 선택합니다.(중요)
클래스 보기에서 VCOdeIPLlibrary를 선택하고 메서드를 추가합니다.
BYTE에서 반환된 ok와 void에서 반환된 매개변수는 BSTR의 TEXT1을 생성합니다.
함수의 내용을 쓰다.
BYTE COhicompo1DlgAutoProxy::ok(void)
{
    AFX_MANAGE_STATE(AfxGetAppModuleState());
    // TODO: ここにディスパッチ ハンドラー コードを追加してください。
    return m_pDialog->flg;
}
void COhicompo1DlgAutoProxy::text1(LPCTSTR str)
{
    AFX_MANAGE_STATE(AfxGetAppModuleState());
    // TODO: ここにディスパッチ ハンドラー コードを追加してください。
    CString s;
    s.Format(_T("%s"), (LPCTSTR) str);
    ((CEdit *) m_pDialog->GetDlgItem(IDC_EDIT1))->SetWindowText(s);
}
등록표에 등록하다.
완료된 EXE는 관리자가 수행합니다.

테스트 코드


vbs로 해봐.
Dim App
Dim flg
Set App = Createobject("Ohicompo1.Application")
App.text1("こんにちわ せかい")
flg = 3
Do
    WScript.Sleep(200)
    if App.ok() = 1 then 
        flg = 0
    end if
Loop until flg = 0
Set App = Nothing

이상.

좋은 웹페이지 즐겨찾기