Private Sub 自动登录(ByVal 账号 As String, ByVal 密码 As String, ByVal 服务器 As String)
Dim hwnd As Long
Dim hWnd1 As Long
Shell "D:\地下城与勇士\start\DNFchina.exe" '运行游戏
delay(5000)’自己做了个延时程序，这里延时5s,无问题
Do
delay(500)
hwnd = FindWindow(vbNullString, "地下城与勇士")  '这个找游戏启动句柄
  If hwnd > 0 Then
  dm.Delay 100
  hWnd1 = FindWindowEx(hwnd, 0, "BUTTON", "西北区") '找到启动界面上的一个按键
  'SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE’这个没用
Loop Until hWnd1 > 0，到这里跳出了
Call 左键单击(866, 622, 100) '左键单击，这里单击就可以进入游戏账号密码输入界面了。这里单击没有问题
delay(5000)
Call 左键单击(715, 465, 100)'这里的单击是账号输入栏，一般游戏输入的时候都要在账号栏单击下，让光标显示出来，
问题在这里，。这段鼠标单击不会显示光标，单击位置没有问题，单击的会后会感觉程序卡下，然后在点击处不会出现光标。
；
；下面程序不写了
；
end
Private Function 左键单击(ByVal x As Long, ByVal y As Long, ByVal yanshi As Long)‘左键单击的程序贴出来看看
 SetCursorPos x, y  '移动鼠标到x,y
 Delaytime (5000)
Delaytime (延时)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Delaytime (延时)
End Function

帮帮忙呀哥哥们，我刚学习编程，。是不是问题有点不清楚呀