튜토리얼

.NET 개발환경에서 팝빌 SDK를 추가하여 단문 문자 메시지 전송 (SendSMS) 함수를 구현하는 예시입니다.

1. POPBiLL SDK 추가

① 팝빌 연동자료실에서 VB.NET SDK 예제코드 다운로드 후 압축을 해제합니다.

② 다운받은 SDK 예제코드의 Linkhub/, Popbill/ 폴더를 SDK를 적용할 프로젝트 경로에 복사하고. Linkhub.csproj, Popbill.csproj를 각각 기존 프로젝트로 추가합니다.

③ Popbill 프로젝트를 적용할 프로젝트의 참조로 추가합니다.

2. POPBiLL SDK 설정

연동환경 설정값, 문자 서비스 클래스를 선언하고 Form1_Load() 함수에 서비스 클래스 초기화 코드를 추가합니다.

Public Class Form1
  '링크아이디
  Private Const LinkID As String = "TESTER"

  '비밀키
  Private SecretKey As String = "SwWxqU+0TErBXy/9TVjIPEnI0VTUMMSQZtJf3Ed8q3I="

  '문자 서비스 객체 선언
  Private messageService As MessageService

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '문자 서비스 객체 초기화
    messageService = New MessageService(LinkID, SecretKey)

    '연동환경 설정, true-테스트, false-운영(Production), (기본값:false)
    messageService.IsTest = True

    '인증토큰 IP 검증 설정, true-사용, false-미사용, (기본값:true)
    messageService.IPRestrictOnOff = True

    '통신 IP 고정, true-사용, false-미사용, (기본값:false)
    messageService.UseStaticIP = false;

    '로컬시스템 시간 사용여부, true-사용, false-미사용, (기본값:false)
    messageService.UseLocalTimeYN = False

  End Sub
End Class

3. SendSMS 기능 구현

Windows Form에 버튼을 생성하고 버튼의 Click Event 코드에 문자 전송 (sendSMS) 함수 호출 코드를 추가합니다.

Public Class Form1

    Private Sub btnSendSMS_one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendSMS_one.Click

        '발신번호
        Dim sendNum As String = ""

        '발신자명
        Dim sendName As String = "발신자명"

        '수신번호
        Dim receiveNum As String = ""

        '수신자명
        Dim receiveName As String = "수신자명칭"

        '메시지 내용
        Dim contents As String = "단문 문자메시지 내용, 각 메시지마다 개별설정 가능."

        ' 전송요청번호
        ' 팝빌이 접수 단위를 식별할 수 있도록 파트너가 할당하는 식별번호.
        ' 1~36자리로 구성. 영문, 숫자, 하이픈(-), 언더바(_)를 조합하여 팝빌 회원별로 중복되지 않도록 할당.
        Dim requestNum = ""

        ' 광고성 메시지 여부 ( true , false 중 택 1)
        ' └ true = 광고 , false = 일반
        ' - 미입력 시 기본값 false 처리
        Dim adsYN As Boolean = False

        Try

            Dim receiptNum As String = messageService.SendSMS(txtCorpNum.Text, sendNum, sendName, receiveNum, receiveName, contents, getReserveDT(), txtUserId.Text, requestNum, adsYN)

            MsgBox("접수번호 : " + receiptNum)
            txtReceiptNum.Text = receiptNum

        Catch ex As PopbillException
            MsgBox("code(응답코드) : " + ex.code.ToString + vbCrLf + "message(응답메시지) : " + ex.Message)
        End Try
    End Sub
End Class

4. 결과 확인

함수 호출 반환 결과는 아래와 같습니다.
- 성공 : ReceiptNum(접수번호) 18자리 문자열 반환
- 실패 : PopbillException 음의 정수 8자리 숫자값 오류코드와 오류메시지 반환 [오류코드]