展开全部
我以前做过,不过是将网页放在vb窗体里,用鼠标点击窗体里的键盘输入的。
用一个时钟将焦点,时钟保持在网页的输入框中。看看是否对你有帮助
Private
Sub
Timer2_Timer()
On
Error
Resume
Next
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Or
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Then
If
UCase(CStr(doc.activeElement.Type))
=
"TEXT"
Or
UCase(CStr(doc.activeElement.Type))
=
"PASSWORD"
Then
YOUKB
End
If
End
If
If
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
UCase(CStr(doc.activeElement.Class))
=
"INPUT"
Then
YOUKB
End
If
End
If
Else
NOKB
End
If
End
Sub
用一个时钟将焦点,时钟保持在网页的输入框中。看看是否对你有帮助
Private
Sub
Timer2_Timer()
On
Error
Resume
Next
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Or
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
CStr(doc.activeElement.tagName)
=
"INPUT"
Then
If
UCase(CStr(doc.activeElement.Type))
=
"TEXT"
Or
UCase(CStr(doc.activeElement.Type))
=
"PASSWORD"
Then
YOUKB
End
If
End
If
If
CStr(doc.activeElement.tagName)
=
"IFRAME"
Then
If
UCase(CStr(doc.activeElement.Class))
=
"INPUT"
Then
YOUKB
End
If
End
If
Else
NOKB
End
If
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询