投稿者 eigyou  (社会人) 投稿日時 2020/6/9 18:37:21

魔界の仮面弁士様
るきお様

ご返信ありがとうございます。
WebClientには、スクリプト実行できないとのこと
んんこれは、私の実力では無理っぽいです

新着件数が表記されているフレームのアドレスが判ったので、

ブラウザで、ログインして、該当フレームのアドレスを入力して
表示させると、ソースが見えました


<a href="../ショートメール.do?smlViewAccount=2"><span class="text_r2">&nbsp;&nbsp;・&nbsp;山田&nbsp;太郎: 1件 </span></a>

てな感じでありました

で、試しで読み込みやってみましたが、やっぱダメでした

ログインは、エラーが返ってこないので、ログインできているようには思えますが
続いて、新着表記のあるフレームを読み込むと、不正アクセスですと宣われます。
認証をどこで、保持されているのか判ってないので、なんともです
セッションが新しいセッションと判断されてしまうのか??


 	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()