何かのプログラム

Private Declare Function URLDownloadToFile Lib "urlmon" _
　　Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
　　ByVal szURL As String, ByVal szFileName As String, _
　　ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Sub Form_Load()
　　Dim SaveFileName As String
　　Dim DownloadFile As String
　　Dim Ret As Long
　　For i = 1 To 99
　　　　If False Then
　　　　　　SaveFileName = App.Path & "\" & i & ".html"
　　　　　　DownloadFile = URL ' URL:URLを入力

　　　　　　Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)
　　　　End If

　　　　Open App.Path & "\" & i & ".html" For Input As #1
　　　　　　Line Input #1, dat
　　　　　　If InStr(dat, Kensaku) <> 0 Then Stop ' Kensaku:検索ワードを入力
　　　　Close #1

　　Next i
End Sub

こんな感じのをいつも作ってます^^;
何か面倒くさいことをやりたいときにVisual Basicをちょいと使うと結構役立つんです。

今日は太田イーオンまでいってきました。
まあ、送迎のついでなんですが、ゲームセンタでいつのまにやら１８００円ほど消費…。
そしてその戦利品は、うまい棒２０本。
なんとまぁ高いうまい棒だこと…。