'/* WININET‰Šϊ‰» */
hInternet = InternetOpen( _
"WININET Sample Program", _
INTERNET_OPEN_TYPE_DIRECT, _
vbNullString, _
vbNullString, _
0)

'/* ƒT[ƒo‚֐ڑ± */
hHttpSession = InternetConnect( _
hInternet, _
"www.yahoo.com", _
UrlComponents.nPort, _
vbNullString, _
vbNullString, _
INTERNET_SERVICE_HTTP, _
0, _
0)

'/* HTTP—v‹‚̍쐬 */
hHttpRequest = HttpOpenRequest( _
hHttpSession, _
"GET", _
"index.html", _
"HTTP/1.0", _
"http://www.yahoo.com/", _
vbNullString, _
0, _
0)