实现倒是可以实现,不过有些麻烦,我不知道你要用于哪方面,做了个例子给你看,简单的自动登陆代码.
Private
Declare
Function
GetAsyncKeyState
Lib
(ByVal
vKey
As
Long)
Integer
Sub
Command1_Click()
If
Text1.Text
=
"账号"
And
"密码"
Then
MsgBox
"登陆成功",
vbOKOnly,
"提示"
Else
"登陆失败",
End
Form_Load()
False
Timer1.Interval
Timer1_Timer()
GetAsyncKeyState(vbKeyF1)
True
Static
a
+
AppActivate
"用户登陆"
Text1.SetFocus
ElseIf
SendKeys
"{TAB}"
Call
Command1_Click
0
其它的也一样,比如QQ,先用shell
然后用appactevate
然后用我上面的sendkeys,其它的窗口也一样.
标签框的图标是一个大写的"A",名称为Label,作用：可以显示（输出）文本信息,但不能输入文本.标签属于控件,其前缀是lbl,名字举例：lblinput
控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件.
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用，就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！