菜鸟请教获取程序入口的问题
代码如下: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
怎么连接不上 ,请问问题出在哪? 《龙魂》(封测)0.80 100121.2370(Jan 20 2010 14:27:23)
图片中好像有点不同吧0.80后面有个小数点 用窗口信息工具获得标题看行不!! 还是感谢楼上2位的提醒。将0.80后面的小数点补上同样显示连接失败:
"《龙魂》(封测)0.80.100121.2370(Jan 20 2010 14:27:23)")
我觉得有可能是《龙魂》中的《》符号问题,因为不知道英文输入下这个符号怎么打。我用的是搜狗输入法打的。 用进程名获取!
FindWindow("GameClient_Release",vbNullString) 内容看帖是学习,回帖更是礼貌!!!
页:
[1]