GroupSession
GroupSession2.5.0を使用させて頂いております。VB2008で社内システムを構築しているのですが、GroupSessionに登録しているスケジュール情報を、WebAPIで取得して、VB上で表示させたいと思っています。どなたかVBで、GroupSessionのWebAPIにアクセスするサンプルコードをご提示頂ければ助かるのですが...。すみませんが、宜しくお願いいたします。
下記リンクの内容が参考になると思います。GS2APIではUserAgentを指定しないとエラー(404だったかな?)が返りますので、ご注意ください。その他詳細は、WebAPI仕様書をご参照ください。・Wrbrequestでページを要求http://www.atmarkit.co.jp/fdotnet/dotnettips/311webreqres/webreqres.html・認証が必要なページをダウンロードhttp://dobon.net/vb/dotnet/internet/usecredentials.html前バージョンでは一部仕様通りではない箇所がありました。2.5.1では修正の有無を確認していないので、ご自身でご確認ください。http://www.gs.sjts.co.jp/wbs/bulletin/bbs080.do?bbs010forumSid=2&threadSid=696
スケジュールまでではなくて、WebAPI経由でXML形式でユーザID取得のソースを記載します。ゲットしたXMLデータを解析してID切り抜いて、そのIDのスケジュールをWebAPIにアクセスしてゲットして、ゲットしたXMLを解析してスケジュールを切り抜いて、任意の方法で出力する方法は自分で考えてください。 Dim url As String Dim clsWebClient As New WebClient url = "http://xxxxxxx/gsession2/api/user/whoami.do?" ' A URL that will accept a POST clsWebClient.Headers.Add("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)") clsWebClient.Credentials = New NetworkCredential("ユーザ名", "パスワード") Dim pageData As [Byte]() = clsWebClient.DownloadData(url) Dim pageHtml As String = Encoding.UTF8.GetString(pageData) 'Debug.Print(pageHtml) Dim xmlDoc As XmlDocument = New XmlDocument xmlDoc.LoadXml(pageHtml)
konさん、おっさんホイホイさんとても助かりました。本当にありがとうございました。
TOP