\n

1\u3001<\/p>\n

Private Sub Form_Load()
\nWebBrowser1.navigate “http:\/\/01xj.net<\/a>”<\/p>\n

Do
\nDoEvents<\/p>\n

If Not WebBrowser1.Busy And WebBrowser1.LocationURL <> “http:\/\/01xj.net<\/a>” Then
\nMsgBox “OK”<\/p>\n

Exit Do<\/p>\n

End If<\/p>\n

Loop<\/p>\n

End Sub<\/p>\n

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)<\/p>\n

If (pDisp Is WebBrowser1.Object) Then
\nMsgBox WebBrowser1.LocationURL
\nEnd If<\/p>\n

End Sub<\/p>\n

\u00a02\u3001<\/p>\n

Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
\n‘\u83b7\u5f97\u7f51\u9875\u6807\u9898
\nIf Not WebBrowser.Busy Then ‘\u5224\u65ad\u7f51\u9875\u662f\u5426\u4e0b\u8f7d\u5b8c\u6bd5
\nDim strTitle As String
\nstrTitle = WebBrowser.Document.DocumentElement.InnerHtml
\nstrTitle = Mid(strTitle, 1, InStr(1, LCase(strTitle), “<\/title>”) – 1)
\nstrTitle = Mid(strTitle, InStr(1, LCase(strTitle), “<title>”) + 7)
\nMe.Caption = strTitle
\nEnd If
\nEnd Sub<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

1\u3001 Private Sub Form_Load() WebBrow...<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[],"class_list":["post-308","post","type-post","status-publish","format-standard","hentry","category-vb"],"_links":{"self":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/308","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=308"}],"version-history":[{"count":1,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/308\/revisions"}],"predecessor-version":[{"id":309,"href":"https:\/\/www.01xj.net\/index.php?rest_route=\/wp\/v2\/posts\/308\/revisions\/309"}],"wp:attachment":[{"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=308"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=308"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.01xj.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=308"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}