|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Get a handle to an application window. : V. ]% h4 w/ @% l6 t- {
Declare Auto Function FindWindow Lib "USER32.DLL" ( _ 3 r3 ^% R6 x5 P7 `) P
ByVal lpClassName As String, _ % e3 ?1 Y& y- a7 `
ByVal lpWindowName As String) As IntPtr
% t/ j, G# }! C- U( x$ `0 @" g' h) a
' Activate an application window.
7 ?) c6 m, F5 b( g V" xDeclare Auto Function SetForegroundWindow Lib "USER32.DLL" _
" L6 ]) `- @, P/ \(ByVal hWnd As IntPtr) As Boolean 0 V+ C1 z4 B% b' v7 F
: J- F2 p8 Q: \- v/ b
' Send a series of key presses to the Calculator application. 9 E* M {" i- o
Private Sub button1_Click(ByVal sender As Object, _
& j; S3 p0 X- GByVal e As EventArgs) Handles button1.Click
# L3 j1 O( B* F* C5 u4 u. P) t
# |. F; s) g9 y5 F7 }' Get a handle to the Calculator application. The window class I& V0 I( L- d
' and window name were obtained using the Spy++ tool.
5 U7 _2 W" P/ J DDim calculatorHandle As IntPtr = FindWindow("SciCalc", "Calculator") ! d& Q. `% d3 `! N% y. K
) P: {# V; |# V) Z4 s) B4 }" Q' Verify that Calculator is a running process.
& t- z; m' i0 L' u# tIf calculatorHandle = IntPtr.Zero Then # d: i1 W f: _/ h6 k! S: D D
MsgBox("Calculator is not running.") ' Z2 W7 q% ?; h$ U% F
Return $ }# g2 W/ c, J; H$ M
End If
3 }1 Z, E* N9 n. v/ ]
6 s2 M! M. z3 H2 ^' P[ 本帖最后由 zhaojianhong 于 2009-7-8 11:26 编辑 ] |
评分
-
查看全部评分
|
发表于 2009-7-7 19:52:32