VB如何实现操作另外一个软件？ - 编程论坛

#2

Artless2012-06-28 22:18

以下是引用yuk_yu在2012-6-28 22:01:17的发言：

VB如何实现操作另外一个软件？例如：打开另外一个软件，输入用户密码等操作。例如:QQ, SAP

问题

#3

积善门徒2012-06-28 22:23

就是外挂的问题？
VB 很难做得精细
最好用C或易语言
VB比较容易实现的方法是调用API函数，
但功能很单一

#4

oncer2012-06-28 22:27

可以考虑用sendkey语句，但是可能会有延迟。
我之前做过QQ的，可以自动输入密码。明明输入的密码是正确的，但是提示密码错误，不知道哪里出了问题~

[ 本帖最后由 oncer 于 2012-6-28 22:29 编辑 ]

#5

yuk_yu2012-06-29 16:35

回复 2楼 Artless

我是想用VB或VBS打开程序，再实现登录，请参看GIF示例，谢谢。

只有本站会员才能查看附件，请登录

[ 本帖最后由 yuk_yu 于 2012-6-29 16:37 编辑 ]

#6

Artless2012-06-29 17:01

以下是引用yuk_yu在2012-6-29 16:35:59的发言：

我是想用VB或VBS打开程序，再实现登录，请参看GIF示例，谢谢。

https://bbs.bccn.net/thread-332242-1-1.html

#7

oncer2012-06-29 20:40

回复 5楼 yuk_yu

Hello!
我也是操作SAP系统的，其实你没有必要一定要从SAP的原始界面进去，那只是选择一个指定的服务器模块。你还可以使用你的SAP用户登录进去后点击SAP系统窗体界面右上角有个像箭头的图标，创建一个当前用户及模块的快捷方式到你的桌面，下次登录时直接通过它输入密码进去即可！这样就省了输入用户名，只需要在密码栏自动输入密码...

#8

yuk_yu2012-07-01 17:52

回复 7楼 oncer

你有代码吗？分享下！或者给个操作示意图！谢谢

[ 本帖最后由 yuk_yu 于 2012-7-1 17:56 编辑 ]

#9

oncer2012-07-02 22:26

Dim pl
Private Sub Form_Load()
pl = Shell("C:\Program Files\SAP\saplogon.exe", 1)
Timer1.Interval = 6000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

AppActivate pl
SendKeys "~", True
SendKeys a & "{u}{s}{e}{r}", True
SendKeys "{tab}", True
SendKeys a & "{1}{2}{3}{4}{5}{6}{7}{8}", True
'SendKeys "%{F4}", True ' 关闭
timer1.enabled = false
End

End Sub

[ 本帖最后由 oncer 于 2012-7-2 22:28 编辑 ]

#10

yuk_yu2012-07-02 22:30

回复 9楼 oncer

谢谢，我试试看！

#11

yuk_yu2012-07-03 09:44

回复 9楼 oncer

为何我的电脑找不到saplogon.exe文件？只有saplogon.ini 和SAP Logon Pad

#12

yuk_yu2012-07-03 10:07

回复 11楼 yuk_yu

可否传一个saplogon.exe给我试试看！谢谢
527474946@