WebBrowser UserAgent変更する機能 (ID:142986)

名前

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

本文 VB2008/IE8/WinXP にて動作確認 Private Declare Sub UrlMkSetSessionOption Lib "urlmon" _ (ByVal dwOption As Integer, ByVal pBuffer As String, _ ByVal dwBufferLength As Integer, _ ByVal dwReserved As Integer) Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Const URLMON_OPTION_USERAGENT As Integer = &H10000001 Dim userAgent As String = Now.ToString("yyyy/MM/dd HH:mm:ss.ffff") UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, userAgent, userAgent.Length, 0) End Sub