くだすれ．NET（超初� ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
215:デフォルトの名無しさん 08/01/15 02:31:04 Else '取得データが無い場合 MyHead = "GET /" & MyBordKey & "/dat/" & MyBordNunber & ".dat HTTP/1.0" & vbCrLf & "Host: " & MyHost & vbCrLf & "User-Agent: Monazilla/1.00" & vbCrLf & "Connection: close" '送受信 MyWrite.WriteLine(MyHead) MyWrite.WriteLine("") Mydat = MyReader.ReadToEnd MySocket.Close() 'レスポンス判定 If Mydat.Substring(9, 3) = 200 Then 'dat保存 Dim MyLasttime As String MyLasttime = 1 RichTextBox1.Text = Mydat TextFlag = Mydat.IndexOf(vbCrLf + vbCrLf) + 4 Mydat = Mydat.Substring(TextFlag, Mydat.Length - TextFlag) Dim MydatWrite As New StreamWriter(CurDir & "\" & MyBordNunber & ".dat") MydatWrite.Write(Mydat) MydatWrite.Close() Else RichTextBox1.Text = "見つかりません" End If End If

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4675日前に更新/234 KB
担当:undef