3-7-2 VisualBasic.Netのプログラム例

本サービスをサービス参照に「ServiceRef.UdkConnect」として定義した場合のプログラム例です。

Public Class Sample
    ' UDK for WebServiceのSample(VB.NET版)
    ' 定数
    Private LANG As String = LANG = "ja"  ' 言語
    Private USERNAME As String = "test"  ' テスト用のアカウント
    Private PASSWORD As String = ""  'パスワード

    ' UDKサービス
    Private udkConnect As ServiceRef.UdkConnect.UdkPortTypeClient

    ' メイン
    Sub Main()
        ' サンプルを生成
        Dim sample As New Sample()
        ' サンプルを実行
        sample.Execute()
    End Sub

    ' コンストラクタ
    Sub Sample()
        ' Udkサービスを生成
        udkConnect = New ServiceRef.UdkConnect.UdkPortTypeClient()
    End Sub

    ' サンプル実行
    ' (ログイン、ユーザー情報の取得と表示、ログアウト)
    Sub Execute()
        ' ログインの実行
        udkConnect.Login(USERNAME, PASSWORD, LANG)

        ' ユーザー情報の取得
        Dim ui As ServiceRef.UdkConnect.userInfo = udkConnect.GetUserInfo()
        ' 取得したユーザー情報を表示
        Console.WriteLine("ユーザー名:" & ui.name)
        Console.WriteLine("説明:" & ui.explanation)
        Console.WriteLine("ユーザーグループ名:")
        Dim groups As String() = ui.userGroupNames
        For i As Integer = 0 To groups.Length - 1
            Console.WriteLine(" " & (i + 1) & "->" & groups(i))
        Next i
        ' ログアウト
        udkConnect.Logout()
    End Sub

End Class