![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
IEでクリックしてアドレスにジャンプする文字は、
一般的に、未読は青、既読は紫となっていますが、
プログラム(VBA)でその色を知りたいのです。
ウェブブラウザコンポーネント(WebBrowser)を使い
VBAで以下のコーディングをすれば、
ホームページの文字を取得することができます。
知りたいのは文字でなく文字の色なのです。
また、スタイルと言うプロパティで色の設定はできますが、
取得ができません。
特に色でなくても既読か、未読かが分かればかまいません。
アンカーエレメントに ForeColor みたいなプロパティは
ないのでしょうか? 以上、よろしくお願いします。
For iix = 0 To pDisp.Document.All.length - 1
Debug.Print pDisp.Document.All.Item(iix).innerText
Next
No.3ベストアンサー
- 回答日時:
#1,#2だ。
すんなりいく方法があるかどうかわからんけれども。
訪問済みってURLで判断しているよね、多分。
ってことで
FindFirstUrlCacheEntry API
FindNextUrlCacheEntry API
FindCloseUrlCache APIを使った
ここのGetCacheURLList関数をパクる
(このコードではFormモジュールでList1.Addしているが,Publicにして標準モジュール持ってって適当に改造。)
http://vbnet.mvps.org/index.html?code/internet/f …
#ただ、手元でVBAで実験してみたら,ItemDataとかがないとか言われてエラーが出た。
Formの方では
Dim hoge As Object
Dim MyURL As String
Dim i As Integer
Dim j As Integer
GetCacheURLList (&H200000)
WebBrowser1.Navigate "http://www.yahoo.co.jp"
Do While Not (WebBrowser1.ReadyState = READYSTATE_COMPLETE)
DoEvents
Loop
hoge = WebBrowser1.Document.getElementsByTagName("a")
For i = 0 To hoge.Length - 1
MyURL = hoge.Item(i).getAttribute("href", 2)
For j = 0 To List1.ListCount - 1
If "Visited: Administrator@" & MyURL = List1.List(j) Then
MsgBox ("発見" & vbCrLf & _
"Visited: Administrator@" & MyURL & vbCrLf & _
List1.List(j)) '実際にはAdministratorじゃなくてユーザー名が入る。別途調べて欲しい。
End If
Next j
Next i
・・・・ってな感じで地道にループ回して調べるとか(笑)
DOM と言うキーワードと, queryURL 等で検索し、
JavaScript を用いると出来るそうなので、
アプローチを変えてみます。
いろいろありがとうございました。
No.1
- 回答日時:
この回答への補足
英文の資料を読んでみましたが、
ハイパーリンクのデフォルトカラーが取得できるようです。
レジストリでは設定がわかるだけで、
現在のリンクが、青になっているか、紫になってるかは、
識別できないようです。
デフォルトカラーなら pDisp.Document.All.Item(iix) の
上のレベル pDisp.Document あたりでわかるのですが、
既読か未読かの色設定がわかるのであって、
現在のリンクが、既読か未読かどちらの状態にあるかは、
わからないのです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- その他(コンピューター・テクノロジー) 「筝?罩i?絎???」文字化け解読できる方の力を求めております 2 2023/05/09 17:51
- Windows 10 ノートパソコンが起動しなくなり気とは仕方を教えてください 6 2022/06/25 15:19
- Safari(サファリ) iPhoneでgooや各種ウェブサイトの文字色を濃くできますか? 1 2023/04/25 10:18
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) エクセルで隣(右or左)のセルと同じ文字色にしたい 2 2022/12/13 11:33
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) エクセルで文字列と数字が混在する列に書式設定したい。 3 2022/12/19 09:11
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブウインドウから親ウインド...
-
window.onloadでのfunction
-
Linux バイナリ実行できない "...
-
awk内でsystem関数を使用しfunc...
-
VB.NETで変数の型は自作...
-
サンプルによく出てくるhogehog...
-
window.onload=の関数呼出で()...
-
-(ハイフン)_(アンダーバー)の...
-
ASP+アクセスでのSQLコメントに...
-
同じ型【ハイフンと数字】だけ...
-
IEで文字の色が取得したい
-
Excel VBA の ChangeFileAccess
-
「オブジェクトが必要です。」...
-
Perlから送信するメールのヘッ...
-
エクセルでブラウザへのフォー...
-
『名前空間』の意味を教えてく...
-
Option Strictと構造体とArrayL...
-
Vb.netのグローバル変数の宣言...
-
引数付きコンストラクタでコン...
-
C#で、変数の値から「”」を取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Boolean型配列中のTrueの有無を...
-
Linux バイナリ実行できない "...
-
ASP+アクセスでのSQLコメントに...
-
ボタンをクリックすると数が増...
-
【正規表現】【javascript】CR...
-
【Jquery】changeイベント毎にa...
-
「オブジェクトが必要です。」...
-
Excel VBA の ChangeFileAccess
-
Vb.netのグローバル変数の宣言...
-
MFCのキャプション変更
-
onclick指定関数の引数へローカ...
-
同じ型【ハイフンと数字】だけ...
-
static constメンバ変数(配列)...
-
javascriptで文字挿入でtoggle...
-
サブウインドウから親ウインド...
-
URLの一部をコピーできるブック...
-
window.onloadでのfunction
-
Javascriptグローバル変数の値...
-
複数ファイルで使うグローバル...
-
全部のアクセスを指定したペー...
おすすめ情報