【初心者】Webサーるのは？ (ID:114870)

名前

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

本文 Wininet.dllを利用したサンプルを書いてみます。へたっぴですが、よろしくお願いします(^^;。 Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal Agent As String, ByVal AccessType As Long, ByVal ProxyName As String, ByVal ProxyBypass As String, ByVal Flags As Long) As Long Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternet As Long, ByVal Url As String, ByVal Headers As Long, ByVal HeadersSize As Long, ByVal Flags As Long, ByVal Context As Long) As Long Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternet As Long) As Long Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0 Const INTERNET_FLAG_RELOAD As Long = &H80000000 Sub Test() Dim hInternet As Long, hInetUrl As Long hInternet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) hInetUrl = InternetOpenUrl(hInternet, "http://www.xxx.oo.jp/", 0, 0, INTERNET_FLAG_RELOAD, 0) If hInetUrl <> 0 Then MsgBox "稼動してます(^^;" Else MsgBox "稼動してません(ToT)" EndIf InternetCloseHandle hInetUrl InternetCloseHandle hInternet End Sub