Inet1のプロパティとPerlの環境変数について (ID:79421)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士様 できました。やっとExecute で送信要求を発行して 受信電文を取得できました。感激です。ご指導ありがとうございました。 でもここで問題が・・・・・。一歩前進したと思ったら、またつまずい ちゃいました。 Private Sub Command1_Click() Dim STRURL As String STRURL = "http://vvv.xxx.yyy.zzz/TEST_DIR/TEST.cgi" Inet1.Execute STRURL, "GET", , "LOGON_CHECK: MyUSER" & vbCrLf End Sub '----------------------------------------------------------------- 'Execute で送信要求を発行します。 'CGI側で$ENV{'HTTP_LOGON_CHECK'}が"MyUSER"以外はHTMLを送信しない ように作っています。 $ENV{'HTTP_LOGON_CHECK'}が"MyUSER"の場合、許可された人からの要求 だと判断して<BR>で分割されるHTMLを300行送信します。（１行最大200 バイト程度です＜可変長＞） '----------------------------------------------------------------- Private Sub Inet1_StateChanged(ByVal State As Integer) Dim RX_DATA As Variant Dim LINE_DATA() As String Dim CNT As Integer If State = 12 Then RX_DATA = Inet1.GetChunk(60000, icString) LINE_DATA = Split(RX_DATA, "<BR>") For CNT = 0 To 300 Debug.Print "NO." & CNT & LINE_DATA(CNT) Next CNT End If End Sub '------------------------------------------------------------------ '受信したデータを編集して表示します。 'この時サイズは200バイト ×300件なので60000としました。 イミーデント表示は、 NO.235 からしか表示しません。サイズの問題なのでしょうか？ つまづきながら一歩ずつ前進（？）しているような・・・・？ 結果がでなければ前進も意味ないような。複雑な心境なのです。