用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日
'**描 述：网上收集,更改了部分�
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
我想把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
......
