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

名前

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

本文 作ってみましたが、診断君で確認してもかわりません、ソース記入します。 フォーム内にブラウザを設置 のみです。 宜しくお願いします。 Public Class Form1 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 System.Object, ByVal e As System.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) MsgBox(userAgent) End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 'ブラウザ End Sub End Class