VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/05/03(Wed) 14:13
投稿者： JN
Ｅメール：
ＵＲＬ：
タイトル： Re: 回答ではありません

花ちゃん様
ご返答頂きましてお礼を申します。
Webサイト、Webページ、ホームページ等のIT用語を紹介してもらいましてありがとうございました。
過去を振り替えてみますと区別つかずにIT用語を使用していた事がありました。
今後は掲示板を利用する前にはIT用語を確認してから行って行きたいと思っています。

目的につきましてはトップページ(ホームページ)でHTMLに埋め込まれた画像や音声、動画などから
構成されるRGB値をマウスカーソルを使用しないで一個でもRGB値(255, 0, 0)が含まれてあれば
終了したいと思っています。もし参考になりますものがありましたら宜しくお願い致します。


下記はマウスカーソルを使用してスクリーン座標に赤色のRGB値(255, 0, 0)が
含まれているかを確認しました。

  ColorMe = GetPixel(Hand , Pos.x, Pos.y)
    rgbRed = Abs(ColorMe Mod &H100)
    ColorMe = Abs(ColorMe \ &H100)
    rgbGreen = Abs(ColorMe Mod &H100)
    ColorMe = Abs(ColorMe \ &H100)
    rgbBlue = Abs(ColorMe Mod &H100)
    ColorMe = RGB(rgbBlue, rgbGreen, rgbRed)
    
If &HFF0000 = ColorMe Then print "赤色含む":stop　　'RGB(255, 0, 0)赤色

判りにくく誤説明の箇所がありましたら訂正を致しますのでご指摘いただければ、と思います。
ハンドルネームにつきましては今後十分気を付けて行きます。ご迷惑をお掛け致しました。
よろしくお願い致します。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -