看流星社区

 找回密码
 注册账号
查看: 3603|回复: 5

[VB] 菜鸟请教获取程序入口的问题

[复制链接]

该用户从未签到

发表于 2011-4-14 14:48:50 | 显示全部楼层 |阅读模式
代码如下:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
Dim cc As Long
cc = FindWindow(vbNullstrinng, "《龙魂》(封测)0.80 100121.2370(Jan 20 2010 14:27:23)")
If cc = 0 Then
Label1.Caption = "连接失败"
Else
Label1.Caption = "连接成功"
End If
End Sub

怎么连接不上 ,请问问题出在哪?

该用户从未签到

发表于 2011-4-14 14:48:59 | 显示全部楼层
《龙魂》(封测)0.80 100121.2370(Jan 20 2010 14:27:23)

图片中好像有点不同吧0.80后面有个小数点

该用户从未签到

发表于 2011-4-14 14:49:10 | 显示全部楼层
用窗口信息工具获得标题看行不!!

该用户从未签到

发表于 2011-4-14 14:49:17 | 显示全部楼层
还是感谢楼上2位的提醒。将0.80后面的小数点补上同样显示连接失败:
"《龙魂》(封测)0.80.100121.2370(Jan 20 2010 14:27:23)")  

我觉得有可能是《龙魂》中的《》符号问题,因为不知道英文输入下这个符号怎么打。我用的是搜狗输入法打的。

该用户从未签到

发表于 2011-4-14 14:49:28 | 显示全部楼层
用进程名获取!
FindWindow("GameClient_Release",vbNullString)

该用户从未签到

发表于 2012-11-10 11:34:59 | 显示全部楼层
内容看帖是学习,回帖更是礼貌!!!
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 18:17

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表