---
tags: 按鍵精靈 2014.6
---
[YouTube]()
# 168ROO爱如初见 半自动主线
一、[按鍵精靈 2014.6 雷電模擬器 Windows10(簡體) 說明與載點](https://hackmd.io/@1MgXZJtMQgOudU366MROaw/BkGb8UvF0)

[General]
SyntaxVersion=2
BeginHotkey=97
BeginHotkeyMod=0
PauseHotkey=98
PauseHotkeyMod=0
StopHotkey=99
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=f8882b3e-975f-4761-99e8-cdeb8b051245
Description=ROO_Mainline
Enable=0
AutoRun=0
[Repeat]
Type=1
Number=1
[SetupUI]
Type=1
QUI=Form1
[Relative]
SetupOCXFile=
[Comment]

[UIPackage]
UEsDBBQAAgAIAKx2cVk792XvaQMAAAgkAAAJABEAVUlQYWNrYWdlVVQNAAeCAzpnggM6Z4IDOmftWctOU1EUXbfl0RZoC0LB8rCo+JjpyIkhESIJCT5CqwMSTSpWJZZCLmhw5q841oEmfoAfYKJzJzrwF5hJXec+7CmBcB4Xb5p0k82BS89dZ7/3PiTh0/dvwz/ffSr+wiGaRxIHzTT6pGdOwB7lgUTw+0Gz2QwfN7vUUfSH3BPYUNi6l9xPTpNT5Ax5iDxAHiRnfdMjF+w56Kqwo2kVW/zaRQm30eDq4g10qECPCd/lnPDZL/MfikM3fjhJ/vw25T97gGVcgzml4DghfuIE3HCV/7aIClYsTpAJ8MeD2NHFr1Df26jhLqrY5KpLI0h4+MNB7lXd1xOsYQzHzV2Kh5a23E2L8IPYf91ivwM7st1vS58/fv1tI79GyJ7KftO808p/ibaeT9VmYa4UVaeKJ6gbniHL/DcQ9Cmq+Akp/z3EBnbIpifIG8iflPBXiVrFU9yjHuqatTfM/4PBO1XxeyT8CvH3WPct7O/oyt8r2X+R3Ued7BqeZNQAv0+Sv4W/QDus46U+vtcv5zT033/I/uuW+hf9eUoDPwW/h5fpEYNiH51H/THj7x+tc68s3SmXytXGTqlcczeenRL+3PvHVvvXmHlc5p8av5uQyL9jQUyp+l9a8v8Vxp5+1LX7fz54nyp+5sj4L/McL6gHvWo4wfg/A5GH1fEHJPxb7P63vRrgkhs8g14VKlD+NPy5XBV/UMJfouwNu/yjXf9Evrr5T/46q+9znkHovWGS/7Xxs232r1L/uzyD0MOCZ4ewErR843i6Qv0X0Lr3UsHPSfgL3vv9+FPBO8L/nFFN/LyEb5s/bPtPW6psbNZc2/0WDXynzy8Vev6u1/uaeJ+Xf7Tjb1jyv/vE3yN6nV24CWUN8EcO4Yv+6xXlNrmFmTDAl+/L/fsncwfM0INC7OIxn/kf90868ot6Gfb/ccyfIl+G/9eIYv4scT0H9fo7hkjnT2eW6yUN/AIinT8x6cWBOv444p0/2+Mvmvnzsob8E4h0/nSmuF7UwD8r4duSbf+QTvj14CpXkywYd/1MxoxvO39Gcf9wnuu0hv8V0bp/iGD+1M7/k4h2/pwLYkoVfwqRzp/a+W8akc6fmOF6QUP+GcQ7f4paHc6fyx668L7XlL+ujT9igF+S5F+mxoUGzLpvs/l3FtHl/7jnvy7Z0V9QSwECFwsUAAIACACsdnFZO/dl72kDAAAIJAAACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAeCAzpnUEsFBgAAAAABAAEAQAAAAKEDAAAAAA==


[Script]
Hwnd = Plugin.Window.Find("LDPlayerMainFrame", "3")
Call Plugin.Window.Size(Hwnd, 480,281)
sRect = Plugin.Window.GetClientRect(Hwnd)
dim MyArray   
MyArray = Split(sRect, "|")   
//下面这句将字符串转换成数值   
L = Clng(MyArray(0)): T = Clng(MyArray(1))   
R = Clng(MyArray(2)) : B = Clng(MyArray(3))

Dim AA
AA = AA + 1
If AA = 1 Then 
	BeginThread A001
End If
//全自动
FindColorEx L+395,T+105,L+395,T+105,"FDFDFD",0,0.9,intX,intY
If intX > 0 And intY > 0 Then 
	//捡
	FindColorEx L+281,T+161,L+301,T+186,"FFF2E2",0,0.8,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		LeftClick 1
		Delay 3500
	Else 
		//主线
		FindColorEx L+21,T+115,L+38,T+140,"52B4E0",0,0.7,intX,intY
		If intX > 0 And intY > 0 Then 
			MoveTo intX, intY
			LeftClick 1
			Delay 1500
		End If
	End If
	//取
	FindColorEx L+345,T+218,L+345,T+218,"D0694F",0,0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		LeftClick 1
	Else 
		//主线
		FindColorEx L+21,T+115,L+38,T+140,"52B4E0",0,0.7,intX,intY
		If intX > 0 And intY > 0 Then 
			MoveTo intX, intY
			LeftClick 1
			Delay 1500
		End If
	End If
Else 
	//取消
	FindColorEx L+396,T+105,L+396,T+105,"FEFEFE",0,0.9,intX,intY
	If intX > 0 And intY > 0 Then 
	Else 
		//对话
		MoveTo L+331,T+197
		LeftClick 1
		
		//右上角
		MoveTo L+436,T+35
		LeftClick 1
	End If
	//跳过
	FindColorEx L+406,T+45,L+406,T+45,"FEFAF6",0,0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		LeftClick 1
	End If
End If


Sub A001()
	Form1.Timer1.Enabled = True
	Form1.Timer1.Interval = 10000
End Sub

Event Form1.Timer1.Timer
	Hwnd = Plugin.Window.Find("LDPlayerMainFrame", "3")
	Call Plugin.Window.Size(Hwnd, 480,281)
	sRect = Plugin.Window.GetClientRect(Hwnd)
	dim MyArray   
	MyArray = Split(sRect, "|")   
	//下面这句将字符串转换成数值   
	L = Clng(MyArray(0)): T = Clng(MyArray(1))   
	R = Clng(MyArray(2)) : B = Clng(MyArray(3))
	
	//主线
	FindColorEx L+21,T+115,L+38,T+140,"52B4E0",0,0.7,intX,intY
	If intX > 0 And intY > 0 Then 
		TracePrint "Timer1"
		MoveTo intX, intY
		LeftClick 1
	End If
End Event