C# と VB.NET の質問掲示板

■No60841 (Yuka さん) に返信
> 多分、インストールされているIEのUser Agentと同じではないかと思うのですが、どうでしょうか？
UserAgent は変更される可能性もありますよ。


> どうすれば知ることができますか？


Private Const URLMON_OPTION_USERAGENT As Integer = &H10000001
Private Const URLMON_OPTION_USERAGENT_REFRESH As Integer = &H10000002

Private Declare Ansi Function UrlMkGetSessionOption Lib "urlmon" _
    (ByVal dwOption As Integer _
    , ByVal pBuffer As StringBuilder _
    , ByVal dwBufferLength As Integer _
    , ByRef pdwBufferLengthOut As Integer _
    , ByVal dwReserved As Integer _
    ) As Integer

Public Function GetUserAgent() As String
    Dim userAgent As New StringBuilder()
    userAgent.Append(" "c, 1024)
    Dim length As Integer = 0
    UrlMkGetSessionOption(URLMON_OPTION_USERAGENT, userAgent, userAgent.Length, length, 0)
    Return userAgent.ToString()
End Function