用vb做的一个登陆器问题~~ 急！！！！
Private Sub Command2_Click()
Call Shell("F:\资料\qq\Bin\QQ.exe", vbNormalFocus)
For i = 1 To 10000
For j = 1 To 100
DoEvents
Next
Next
SendKeys "{Tab 8}"
SendKeys "QQ号码"
DoEvents
SendKeys "{Tab}"
DoEvents
SendKeys "QQ密码"
DoEvents
SendKeys "{Enter}"
End Sub
能不能说下这里哪里错了 为什么点了启动后 只弹出QQ.exe的登陆器 下来就没有任何反应了
好象
For i = 1 To 10000
For j = 1 To 100
DoEvents
Next
Next
SendKeys "{Tab 8}"
SendKeys "QQ号码"
DoEvents
SendKeys "{Tab}"
DoEvents
SendKeys "QQ密码"
DoEvents
SendKeys "{Enter}"
这些代码它就没有执行一样
能不能给我说下哪里错了
QQ使用SendKeys / 一般的Hook 都是无效的,腾讯做了处理的.
以下代码保存为ModSSendKeys.bas:
VB code:
Option Explicit
'*************************************************************************
'**模 块 名：ModSSendKeys
'**说 明：模拟按键(直接发按键消息到输入队列,多数情况下与直接按键盘效果相等)
'**创 建 人：嗷嗷叫的老马
'**日 期：2006年5月10日
'**描 述：网上收集,更改了部分�
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
