TODAY: YESTERDAY: Last Update 2002/8/7キリ番報告はこちらまで　
今回の一言
MENU
ＶＢ関連
VBTIPS7/14
VB Q＆A掲示板
VisualBasic講座6/13
VBサンプル公開7/29
ＢＢＳ
HEPPOKO-BOARD
ソフトリクエスト掲示板
フリーソフト
フリーソフト公開7/31
ダウンロード数
その他
日記7/31
PROFILE7/31
厳選!!VBLINK7/31
2002/8/29

久しぶりの更新です。

夏休みの宿題の進行状況がやばかったので^^;

やっと「メールチェッカを作ろう」が完成したので

公開します。実はこれを学校の技術の課題とし

て提出する予定なのです。ずーっと連ねて書い

てあるので少し重いかも・・。

これみて自分だけのメールチェッカ作ったよという

人はぜひメールください。

こちら
更新状況
VB 今週のコード　7/31
毎週新しいコードを載せます。
くだらないものから少し使えるものまで。

Inetをひとつ、Commandbuttonを１つ貼り付けてください。
後は↓のコードを貼り付けるだけです。ボタンを押すとHTMLファイルを指定位置に保存してくれます。
実用度40％


Option Explicit

Private Sub cmdGO_Click()

Dim b() As Byte
Dim strURL As String
Dim strFilename As String

strURL = "http://heppokokun.cool.ne.jp/index.html"
strFilename = "C:\Test.htm"

' 処理中
Screen.MousePointer = vbHourglass

' 前回の操作が終わっていない場合はキャンセル
Inet1.Cancel


Inet1.Protocol = icHTTP


Inet1.URL = strURL

b() = Inet1.OpenURL(, icByteArray)

' 取得したデータをファイルに書き出す
Open strFilename For Binary Access Write As #1
Put #1, , b()
Close #1

Screen.MousePointer = vbDefault

' 処理完了メッセージを表示する
MsgBox strURL & " を " & strFilename & " に保存しました。"

End Sub

-------------------------------------------------------------------------------------------------

管理者　Heppoko
E-mail　heppoko@ares.eonet.ne.jp
Banner


Counter TODAY
YESTERDAY
TOTAL