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

名前

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

本文 もう少しですね。 ここからはご自分で答えを見つけるのは困難だと思いますので 見本になるかどうかあやしいですけど 参考程度にコーディングしてみました 完全ではないので改良してください。 Private Sub Inet1_StateChanged(ByVal State As Integer) If State = 12 Then Dim mBool As Boolean Dim RX_DATA As Variant Dim CNT As Integer RX_DATA = Inet1.GetChunk(1024, icByteArray) mBool = False Do RX_DATA = RX_DATA & Inet1.GetChunk(1024, icByteArray) If LenB(Inet1.GetChunk(1024, icByteArray)) = 0 Then mBool = True Loop While mBool = False RX_DATA = StrConv(RX_DATA, vbUnicode) 'バイナリからUnicodeへ RX_DATA = Split(RX_DATA, "<BR>") For CNT = 0 To 300 'この処理は<BR>が常に300個ないとERROR Debug.Print "NO." & CNT & RX_DATA(CNT) Next CNT End If End Sub