Dim url As String = "http://サーバ名/ログイン.do" Dim wc As New System.Net.WebClient 'NameValueCollectionの作成 Dim ps As New System.Collections.Specialized.NameValueCollection '送信するデータを追加 ps.Add("ユーザID", "myouji.namae") ps.Add("ユーザパスワード", "password") ps.Add("コマンド", "login") 'ログインし、トップページを受信 Dim resData As Byte() = wc.UploadValues(url, ps) '新着件数の表記のあるフレームを読み出す Dim st As Stream = wc.OpenRead("http://サーバ名/メインフレーム.do") Dim enc As Encoding = Encoding.UTF8 Dim sr As StreamReader = New StreamReader(st, enc) Dim html As String = sr.ReadToEnd() sr.Close() st.Close() TextBox1.Text = html wc.Dispose()