用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日
'**描 述：网上收集,更改了部分�
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
点击按钮后弹出进度条窗口，要在30%的时候停顿1秒 40%停顿2秒，然后走完进度条后提示保存成功！
请问如何写？
进度条用那个VB6自带的progressbar控件,定时用timer
我在本站找了这几个帖,估计够你用
http://topic ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
