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

名前

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

本文 実際に実行してみて少々不具合があってびっくりm(_ _)m 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 DoEvents 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>") On Error Resume Next For CNT = 0 To 300 'この処理は<BR>が常に300個ないとERROR Debug.Print "NO." & CNT & RX_DATA(CNT) Next CNT Err.Clear End If End Sub DoEventsをいれただけですけど...