現役美容外科医が往く【院長自身が行った手術写真をリアルタイムに公開】

Keyword Search

▼キーワード検索

Profile

ｄｒ

フォローする

Favorite Blog

まだ登録されていません

Comments

乗らない騎手@ ちょっとは木馬隠せｗあのー、三角木馬が家にあるってどん…

お猿@ やっちまったなぁ！ http://feti.findeath.net/9vtib7-/ ちょ…

チリチリ@ 次は庭で全裸予定ｗ http://kuri.backblack.net/0ebfsi6/ ち○…

まさーしー@ なんぞコレなんぞぉ！！ぬオォォーーー！！ w(゜д゜；w(゜д゜)w…

通な俺@ 愛液ごちそうたまでしたｗ http://hiru.kamerock.net/grxq9i3/ フ○…

Freepage List

< 新しい記事

新着記事一覧(全369件)

過去の記事 >

2006/02/16

2/16　ネットワークプログラミング　Part2

カテゴリ：カテゴリ未分類

昨日の続きです。

一応、直接サーバーからホームページの

取得するプログラムができたので公開します。

WinInet API,VBです。

Dim lngInetHandle As Long
Dim lngUrlHandle As Long
Dim intRet As Long
Dim bytArray() As Byte
Dim strUrl As String

strUrl = "www.sbc-fujisawa.com"

lngInetHandle = InternetOpen(scUserAgent, _
INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, _
vbNullString, _

lngUrlHandle = InternetOpenUrl(lngInetHandle, _
strUrl, _
vbNullString, _
0, _
INTERNET_FLAG_RELOAD, _
0)

bytArray(lngTotalRead), _
WI_READ_READSIZE, _
lngReadSize)

InternetCloseHandle (lngUrlHandle)

InternetCloseHandle (lngInetHandle)

Debug.Print txtRecvDate

WinInet APIの宣言文は

Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long

Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hInternetSession As Long, _
ByVal sUrl As String, _
ByVal sHeaders As String, _
ByVal lHeadersLength As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long

Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, _
ByRef lpBuffer As Any, _
ByVal lNumBytesToRead As Long, _
ByRef lNumberOfBytesRead As Long) As Integer

です。

かなり省略して書いていますが

大筋はこんな感じです。

これで、湘南美容外科のHPを直接サーバーから

取得することができました。

次は、IDとパスワードが必要なHPの取得ですが

InternetConnect,HttpOpenRequest,HttpSendRequestの理解が

必要となります。

また暗号化されたコードもあるので

解読が必要そうです。

0000 00 10 db 77 61 10 00 30 1b b8 5e db 08 00 45 00
0010 04 6c 5d 18 40 00 80 06 21 ef c0 a8 03 33 cb d8
0020 e7 d0 06 f0 00 50 db 0a b5 f0 9c d9 e0 53 50 18
0030 ff ff 7b e3 00 00 47 45 54 20 2f 71 3f 73 3d 38
0040 36 39 39 26 64 3d 76 31 26 6b 3d 63 33 26 68 3d
0050 6f 6e 26 7a 3d 6d 20 48 54 54 50 2f 31 2e 31 0d
0060 0a 41 63 63 65 70 74 3a 20 69 6d 61 67 65 2f 67
0070 69 66 2c 20 69 6d 61 67 65 2f 78 2d 78 62 69 74
0080 6d 61 70 2c 20 69 6d 61 67 65 2f 6a 70 65 67 2c
0090 20 69 6d 61 67 65 2f 70 6a 70 65 67 2c 20 61 70
00a0 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 73 68 6f 63
00b0 6b 77 61 76 65 2d 66 6c 61 73 68 2c 20 61 70 70
00c0 6c 69 63 61 74 69 6f 6e 2f 76 6e 64 2e 6d 73 2d
00d0 65 78 63 65 6c 2c 20 61 70 70 6c 69 63 61 74 69
00e0 6f 6e 2f 76 6e 64 2e 6d 73 2d 70 6f 77 65 72 70
00f0 6f 69 6e 74 2c 20 61 70 70 6c 69 63 61 74 69 6f
0100 6e 2f 6d 73 77 6f 72 64 2c 20 2a 2f 2a 0d 0a 52
　　　　　　　　　　　　・
　　　　　　　　　　　　・
　　　　　　　　　　　　・
ぶったおれそうですが、根性で頑張りたいと思います。

お気に入りの記事を「いいね！」で応援しよう