Denso号查找算法

Posted 2023-02-19 islinyoubiao

Denso有个软件比较难的，只有写个程序找一下：

使用软件如下：

 

代码如下：

counter = 811220
Rem Start
TracePrint "-----"
 
MoveTo 973, 409 '输入框
LeftClick 1
 
KeyPress "BackSpace", 20
 
 
K1C = 0'0 -> 48
K2C = 0'0 -> 48
K3C = 0'0 -> 48
K4C = 0'0 -> 48
 
K1C = counter mod 36
K2C = (counter \\ 36) mod 36
K3C = ((counter \\ 36) \\ 36)  mod 36
K4C = (((counter \\ 36) \\ 36)  \\ 36) mod 36
 
	TracePrint K1C
	TracePrint K2C
	TracePrint K3C
	TracePrint K4C
 
If K1C > 9 Then 
	K1C = K1C + 55 '65-90 A-Z
Else 
	K1C = K1C + 48 '48-57 0-9
End If
 
If K2C > 9 Then 
	K2C = K2C + 55 '65-90 A-Z
Else 
	K2C = K2C + 48 '48-57 0-9
End If
 
If K3C > 9 Then 
	K3C = K3C + 55 '65-90 A-Z
Else 
	K3C = K3C + 48 '48-57 0-9
End If
 
If K4C > 9 Then 
	K4C = K4C + 55 '65-90 A-Z
Else 
	K4C = K4C + 48 '48-57 0-9
End If
 
K1 = Chr(K1C)
K2 = Chr(K2C)
K3 = Chr(K3C)
K4 = Chr(K4C)
 
'WCDJ-3ZAR-52MY
KeyPress "W", 1
KeyPress "C", 1
KeyPress "D", 1
KeyPress "J", 1
KeyPress "-", 1
KeyPress "3", 1
KeyPress "Z", 1
KeyPress "A", 1
KeyPress "R", 1
KeyPress "-", 1
KeyPress "5", 1
KeyPress "2", 1
KeyPress "M", 1
KeyPress "Y", 1
KeyPress "-" , 1
KeyPress K1, 1
KeyPress K2, 1
KeyPress K3, 1
KeyPress K4, 1
 
MoveTo 1128, 407'追加按钮
LeftClick 1
 
'MoveTo 976, 352
Delay 300
'GetColor = GetPixelColor(976, 352)
 
'TracePrint GetColor
'If GetColor = "F0F0F0" Then 
If True Then
	'TracePrint "NG"
	MoveTo 921, 470
	LeftClick 1
	TracePrint counter
	'TracePrint K1
	'TracePrint K2
	'TracePrint K3
	'TracePrint K4
	counter = counter + 1
	If counter < 1679616 Then 
		Goto Start
	End If
	
Else 
	TracePrint "OK"
	TracePrint counter
	TracePrint K1
	TracePrint K2
	TracePrint K3
	TracePrint K4
	TracePrint counter
End If
————————————————
版权声明：本文为CSDN博主「islinyoubiao」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/islinyoubiao/article/details/119938303

运行过程

 

结果如下：