Question

VB调用外部程序

有一个软件 输入框有 用户名和密码
如果用户名不正确 会返回 “用户名不存在”
如果密码不正确 会返回 “用户名不存在或密码错误”

现在想编一个程序 随即生成用户名 格式是12位数字 如200610430111
生成密码 密码是连续日期函数 如20070901

让他自动验证 若返回“用户名不存在” 则更换用户名
若返回“用户名不存在或密码错误” 则更换密码
直到用户名和密码均正确 并把所有正确的 用户名和密码导出生成一个文本文件。

请高手帮忙。
外部程序是 神州数码的一个登陆程序 我想搞一个类似猜解机的程序

Answer 1

kankan看看教材上怎么说的

Answer 2

DO
FOR I = 1 TO 12
J = INT(RND * 9)
T$ = T$ + CHR$(48 + J)
NEXT I
FOR I = 1 TO 12
J = INT(RND * 9)
S$ = S$ + CHR$(48 + J)
NEXT I
LOOP UNTIL S$ = T$
SENDKEYS "^S"
END

Answer 3

“有一个软件 输入框有 用户名和密码 ”？？？
你用VB 和“有一个软件”编辑一个程序，如果你说的“有一个软件”是*.exe程序，是不能够实现的。
如果“有一个软件”是VB程序代码，那么是可以的。
将你的程序代码给我，我给你完成。

Answer 4

自动上Q啊。如果只要输入密码,用下面的代码

shell "qq路径和完整文件名.exe" '调出QQ
appactive "qq用户登录" '激活QQ窗口
sendkeys "123456" '模拟键盘输入密码

还要输入Q号的话就用这个

shell "qq路径和完整文件名.exe" '调出QQ
appactive "qq用户登录" '激活QQ窗口
sendkeys "{TAB}" '使QQ号的输入框被激活
sendkeys "123456" '模拟键盘输入密码

用这个代码的时候，卡把会提示发现威胁，允许他才能用！！！，