VB编程实用精典小技巧3例

首先，使用API获取窗口的标题

是否创建新的窗体1和按钮命令1？《刑法典》特别规定:

选项显式

私有声明函数Get WindowText Lib "us—

er32 "别名" Get WindowTextA"(ByVal hwnd As

Long，ByVal lpString作为字符串，ByVal cch作为

Long)一样长

在表单声明部分增加API函数“get windowtext”的描述。

该函数将要获取的表单标题加载到lpstring中。

私有子命令1_Click()

Di mreturncode As Long

将mcaptext定义为字符串

迪麦卡普兰一样长

captext =String$(100，0)

caplen =99

return code = Get window text(ByVal me。hwnd，

ByVal captext，ByVal caplen)

打印返回代码

打印验证码

打印镜头

End Sub