求DNF自动登录源码（按键精灵）(dnf纯脚本制作)

'=======================自定义设置
UserVar 游戏路径="D:\网络游戏\地下城与勇士\start\DNFchina.exe" "游戏路径"
UserVar 游戏地区="西北区" "游戏地区"
UserVar 服务器="西北1区" "服务器"
UserVar 帐号="49744774" "帐号"
UserVar 密码="12345678" "密码"
'=======================判断是否打开
返回 = Plugin.DBSoft.RunAppWithDelay(游戏路径, 0, 1)
If 返回 > 0 Then
TracePrint "游戏已出现!"
Delay 1000
else
msgbox "0表示失败或者程序已经关闭"
EndScript
End If
'=======================确保游戏已显示
hwnd=Plugin.DBSoft.FindHwndM(3,2,"地下城与勇士",0,0,"#32770",2,0,1,12,0,1,14,0)
If hwnd(0) = 1 Then
TracePrint hwnd(1)
句柄=hwnd(1)
Else
msgbox "游戏未出现!请重试!"
EndScript
End If

'=======================寻找区句柄

hwnd=Plugin.DBSoft.FindHwndM(3,2,游戏地区,0,0,"Button",2,0,1,12,0,1,14,0)
If hwnd(0) = 1 Then
TracePrint hwnd(1)
句柄 = hwnd(1)
Call Plugin.DBSoft.LeftClick(句柄,5,5)
Else
msgbox "未出现该地区选择!请重试!"
EndScript
End If
'=======================寻找服务器句柄
计数=1
rem 标记1
Delay 100
hwnd=Plugin.DBSoft.FindHwndM(3,2,服务器,0,0,"Button",2,0,1,12,0,1,14,0)
If hwnd(0) = 1 Then
TracePrint hwnd(1)
句柄 = hwnd(1)
Call Plugin.DBSoft.LeftClick(句柄,5,5)
Else
计数 = 计数 + 1
If 计数 = 20 Then
msgbox "2秒钟都没出现服务器选择,是否卡住了呢?请重试"
EndScript
Else
goto 标记1
End If
End If
'=======================确认选择
计数=1
rem 标记2
Delay 100
hwnd=Plugin.DBSoft.FindHwndM(0,2,"",0,0,"Button",2,0,147,22,0,56,23,0,1,12,0,1,14,0)
If UBound(hwnd) = 1 Then
'下面这行就是排序的代码
句柄2个=Plugin.DBSoft.ArrayWindows(hwnd,1)
确认句柄 = 句柄2个(1)
Call Plugin.DBSoft.LeftClick(确认句柄,5,5)
Else
计数 = 计数 + 1
If 计数 = 50 Then
msgbox "5秒钟都没出现服务器选择,是否卡住了呢?请重试"
EndScript
Else
goto 标记2
End If
End If

'=======================输入帐号密码
计数=1
rem 标记3
Delay 100
hwnd=Plugin.DBSoft.FindHwndM(0,2,"",0,0,"Edit",2,0,1,12,0,1,14,0,"地下城与勇士",8,0)
If UBound(hwnd) = 1 Then
'下面这行就是排序的代码
句柄2个=Plugin.DBSoft.ArrayWindows(hwnd,2)
帐号框句柄 = 句柄2个(0)
密码框句柄 = 句柄2个(1)

Call Plugin.DBSoft.LeftClick(帐号框句柄, 1000, 5)
Call Plugin.DBSoft.KeyPress(帐号框句柄,8)
Call Plugin.DBSoft.SendString(帐号框句柄, 帐号, 0, 0)
Call Plugin.DBSoft.SendString(密码框句柄,密码,0,0)

Else
计数 = 计数 + 1
If 计数 = 300 Then
msgbox "30秒钟都没出现帐号密码输入框,是否卡住了呢?请重试"
EndScript
Else
goto 标记3
End If
End If