DOBON.NET DOBON.NETプログラミング掲示板過去ログ

広告カットにつきまして

環境/言語:[環境(Windows 2000)、使用言語(VB6.0)]
分類:[VB6以前]

お世話になります。

Windowsの画面最下右部(現在時刻側)に広告が一時表示されます。
それを広告カットしたく広告カットソフトにしました。
実際広告が表示されますとText1にハンドル表示されますが終了されませんでした。
テストとしてウィンドウ名"xxxxxxxx"のwindowsを作り広告カットソフトにより終了することを確認しました。
広告カットされない事で何か考えられることはありませんでしょうか。
ご教示願えませんでしょうか。宜しくお願い致します。


Private Sub Timer_Timer()
  ハンドル = FindWindow(vbNullString, "xxxxxxxx")
  If ハンドル <> 0 Then
  RETC = PostMessage(ハンドル, &H10, 0, 0)
  Text1 = ハンドル
  End If
End Sub
■No24895に返信(saさんの記事)
> Windowsの画面最下右部(現在時刻側)に広告が一時表示されます。
通常の環境では、そういった広告は表示されませんよね。

自作広告アプリのon/off制御をしたいという意味でも無さそうですし、
状況がよく分かりませんでした。その広告とは、どういった物でしょうか?

# 起動された広告アプリを強制的に閉じたいという話であれば、そもそも
# 広告アプリを入れなければ良いのではないか、という気も…。

> 実際広告が表示されますとText1にハンドル表示されますが終了されませんでした。
> RETC = PostMessage(ハンドル, &H10, 0, 0)
&H10 とは、WM_CLOSE の事ですね。
http://eternalwindows.jp/winbase/window/window05.html

WM_CLOSE を受け付けないのだとしたら、強制終了させるため、
WMI の生成イベント(__InstanceCreationEvent)を拾うようにして、
Win32_Process.Terminate メソッドを呼び出してみるとか。

http://msdn.microsoft.com/en-us/library/aa393907.aspx
http://www.wmifun.net/sample/win32_processc.html
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200811/08110018.txt
魔界の仮面弁士 様

返答下さいましてありがとうがざいました。

遅れて申し訳ありませんでした。
>その広告とは、どういった物でしょうか?
無料で試せる総合セキュリティ対策ソフト
キングソフトインターネットセキュリティ2007です。
無料ですので広告が表示されます。
>&H10 とは、WM_CLOSE の事ですね。
はい、そうです。
Timerの時間を100(0.1秒)にしてハンドル取得回数表示も設け
(0.1秒毎にカウントされています)試してみましたが
広告はカットできませんでした。
一定時間(数十秒間)表示続けているものと思いました。
そうでありましたら広告表示させないようにすることは無理と判断しました?。
勝手で大変申し訳ありませんが誤っているかも知りませんが流し続ける広告の
カットは無理と判断しましたので解決済みとさせてもらいました。
お手数をお掛けしました。
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板