1

私は次のようなことをしたい:

http://i.stack.imgur.com/CVKCq.png

このコードは、トレイ通知アイコン ウィンドウを開きます。

Dim Shell_TrayWnd As IntPtr = FindWindow("Shell_TrayWnd", "")
Dim TrayNotifyWnd As IntPtr = FindWindowEx(Shell_TrayWnd, 0, "TrayNotifyWnd", "")
Dim TrayNotifyButtonWnd As IntPtr = FindWindowEx(TrayNotifyWnd, 0, "Button", "")

Dim BM_CLICK As Integer = &HF5
SendMessage(TrayNotifyButtonWnd, BM_CLICK, 0, 0)

今、私は次のようなことをしたい:

RightMouseClick(SkypetrayIcon)
ClickOnOption(SkypetrayIconMenuHandle,0)

どうすればそのようなことができますか?別の方法があるかもしれません(簡単な方法)

4

0 に答える 0