VB2005 から DLL を呼び出す

質問

VB 初心者です。

今、VB の練習ということで VB 2005 Express Edition を使って、個人用ブラウザをつくっています。Web ページの表示は Webbrowser コンポーネントを使っています。
その仕様で、閲覧先によって HTTP Proxy を変更するようになっています。（自分で決めたんですが）

いろいろ調べてみると、urlmon.dll の UrlMkSetSessionOption() を呼べば自分のアプリケーション限定で Proxy を変更できるようだ、ということがわかりました。

古い VB など（VB 6 とか？）では、

Private Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
(ByVal dwOption As Long, ByVal pBuffer As Any, _
ByVal dwBufferLength As Long, _
ByVal dwReserved As Long)

このような感じで宣言するとかあったんですが、VB2005 では Any がダメだとか、

Type INTERNET_PROXY_INFO
Dim dwAccessType As Long
Dim lpszProxy As String
Dim lpszProxyBypass As String
End Type

で Type はダメだとか、呼び出し側で、LenB を使おうとしたら使えないだとか、INTERNET_OPTION_PROXY の値がわからないなど、問題が山積みです。

上記 DLL を VB 2005 で使ったことがある人がいたら（またはわかる人）、使い方を教えてもらえないでしょうか？

回答No.1

noname#259269 · ベストアンサー

使った事はないので判る範囲で突っ込みを。

Long は、VB.NET では Integer または Int32。
Type は、VB.NET では Structure。
Any のところには、INTERNET_PROXY_INFO のポインタを渡すと思うので、ByRef pBuffer As INTERNET_PROXY_INFO 。
LenB は Marshal.SizeOf 。

たぶんこんな感じです。

<StructLayout(LayoutKind.Sequential)> _
Structure INTERNET_PROXY_INFO
Dim dwAccessType As Integer
<MarshalAs(UnmanagedType.LPTStr)> Dim lpszProxy As String
<MarshalAs(UnmanagedType.LPTStr)> Dim lpszProxyBypass As String
End Structure

Dim ipi As INTERNET_PROXY_INFO
ipi.dwAccessType = ...
ipi.lpszProxy = ...
ipi.lpszProxyBypass = ...
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Marshal.SizeOf(ipi), 0)

参考
http://msdn.microsoft.com/en-us/library/aa385148(VS.85).aspx
http://msdn.microsoft.com/en-us/library/aa385328(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms775125(VS.85).aspx

お礼

いろいろ調べた結果、以前の VB と VB.net が結構違うとか、いろいろわかってきました。

周りの人間にきくと .net を勧められますが、調べながらで時間がかかりそうなので、以前のバージョンで取り急ぎ作りました。

ということで .net の勉強を開始します。