用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日
'**描 述：网上收集,更改了部分�
相关问答：
帮我改改 我总觉得有问题
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 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
