|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Get a handle to an application window.
+ }7 F, A! z, B/ @( X9 yDeclare Auto Function FindWindow Lib "USER32.DLL" ( _
0 U. t) e V3 ~0 Z, E6 k" g0 r! CByVal lpClassName As String, _ ) f: C% o$ g$ L# b* K4 Y
ByVal lpWindowName As String) As IntPtr 0 U* _ g/ C x
, X0 Q5 @) R$ O' m w1 w' Activate an application window.
3 _$ I' n+ y2 _9 Y$ B. WDeclare Auto Function SetForegroundWindow Lib "USER32.DLL" _
8 y4 l5 C( G: K- a(ByVal hWnd As IntPtr) As Boolean . u5 | F/ N3 _! [: X
/ F# X; C$ v8 d0 u* M$ ?6 y' Send a series of key presses to the Calculator application.
' K, O h2 w0 |3 uPrivate Sub button1_Click(ByVal sender As Object, _ ) j/ B Z& `5 d$ `2 \
ByVal e As EventArgs) Handles button1.Click 0 J) \$ }1 S% I5 Z3 W: o
% N, D7 }: ]+ c4 t6 Q9 Y
' Get a handle to the Calculator application. The window class ; U, }3 j3 I! F5 |
' and window name were obtained using the Spy++ tool.
$ P: F; q1 ^8 {- ?Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Calculator")
$ l8 z. H$ {0 t+ p) R
) n3 H1 |" P$ {0 I a& v" w& t* Q( A' Verify that Calculator is a running process.
0 r# @# ~6 b" xIf calculatorHandle = IntPtr.Zero Then 6 d+ M7 I D9 I& a
MsgBox("Calculator is not running.")
5 V. t5 `/ @/ s- P$ w/ N; R) G9 U. KReturn
/ Z G; f3 u# HEnd If 4 ]) p( A8 }: [* _$ L- w' j
1 I' ~) f# `7 R5 e6 P1 c, U+ x- k* v[ 本帖最后由 zhaojianhong 于 2009-7-8 11:26 编辑 ] |
评分
-
查看全部评分
|
发表于 2009-7-7 19:52:32