VB のバックアップ(No.4)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
VB へ行く。
- 1 (2008-05-02 (金) 10:26:22)
- 2 (2008-11-28 (金) 13:33:21)
- 3 (2008-12-10 (水) 18:28:42)
- 4 (2009-02-25 (水) 19:25:51)

VB

TIPS

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
Sub doDownload()
 Dim lngRet As Long
 Dim DownURL As String
 Dim SaveFile As String
 DownURL = "http://localhost/test.txt"
 SaveFile = "C:\test.txt"
 lngRet = URLDownloadToFile(0, DownURL, SaveFile, 0, 0)
 If lngRet = 0 Then
   MsgBox "OK" 
 Else 
   MsgBox "NG"
 End If
End Sub

↑

WebControl?

For inti = 0 To inti < wb.Document.Forms(frmCount).elements.Length
     Debug.Print wb.Document.Forms(frmCount).elements(inti).Name
Next inti

intElementLen = wb.Document.links.Length
For inti = 0 To intElementLen - 1
 Debug.Print (wb.Document.links.Item(inti).innerHtml)
Next inti

wb.Document.Forms(frmCount).elements("radio")(0).Checked = True

```
WebBrowser1.Silent=True
```

↑

#comment