鼠标配合-工作

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
StringCaseSense Off

Include 鍏叡.ahk

vsPath:="C:Program Files (x86)Microsoft Visual Studio 14.0Common7IDEdevenv.exe"

fileMapping:={} ;閿槸缁撳熬閮ㄥ垎鐨勮矾寰?鍊兼槸鍖归厤鐨勫叏璺緞鏁扮粍

^!F12::
WinGet, processName, ProcessName, A
WinGetActiveTitle, winTitle
if(ProcessName="chrome.exe" || ProcessName="iexplore.exe") ;=鎬绘槸蹇界暐澶у皬鍐?{
	if(InStr(winTitle,"[Code Map]")>0)
	{
		send ^c
		sleep 30
		if(FileExist(Clipboard))
			run %vsPath% /edit %Clipboard%
		else
			SoundBeep
	}
	else
	{
		if(ProcessName="iexplore.exe")
		{
			ControlGetText, Clipboard, Edit1, A
			if(StrLen(Clipboard)==0)
				ControlGetText, Clipboard, Edit2, A
		}
		else
		{
			send !d
			sleep 30
			send ^c
			sleep 30
		}
		; 鎻愬彇鐩稿璺緞
		p:=0
		StringGetPos, p1, Clipboard, loanspq.localhost
		if(p1>-1)
		{
			p:=p1
			StringGetPos, p, Clipboard, /, L3
			p:=p+1
			filePath:="website" SubStr(Clipboard, p)
			Goto, foundPath
		}

		StringGetPos, p1, Clipboard, beta.loanspq.com
		if(p1>-1)
		{
			p:=p1
			StringGetPos, p, Clipboard, /, L3
			p:=p+1
			filePath:="website" SubStr(Clipboard, p)
			Goto, foundPath
		}

		StringGetPos, p1, Clipboard, svn.loanspq.com
		if(p1>-1)
		{
			StringGetPos, p1, Clipboard, Trunk/LoansPQ2
			p:=p1+14+2
			filePath:=SubStr(Clipboard, p)
			Goto, foundPath
		}
		else
			return

		foundPath:
		;MsgBox %filePath%

		; 鍘绘帀#
		StringGetPos, p, filePath, #
		if(p>-1)
			filePath:= SubStr(filePath, 1, p)

		; 鍘绘帀?鏌ヨ瀛楃
		StringGetPos, p2, filePath, ?
		if(p2>-1)
			filePath:= "C:LoansPQ2" SubStr(filePath, 1, p2)
		else
			filePath:= "C:LoansPQ2" filePath
		if(FileExist(filePath))
			run %vsPath% /edit %filePath%
		else
			SoundBeep 
	}
}
else
{
	send ^c
	sleep 30
	partialPath:=Clipboard
	
	StringGetPos, p, partialPath, /
	if(p==-1) ;鏄嚜瀹氫箟鎺т欢
	{
		extension:=partialPath ".vb"
	}
	else
	{
		StringGetPos, p, partialPath, ~
		if(p==0)
			partialPath:= SubStr(partialPath, 2)
		StringReplace, partialPath, partialPath, /, , All
		StringGetPos, p, partialPath, , R
		extension:=SubStr(partialPath, p+2)
	}

	arr:=fileMapping[partialPath]
	if(arr)
	{
		TrayTip, Found in cache, %partialPath%, 1
		For index,value in arr
		{
			;debugValue:=SubStr(value,30)
			;ListVars
			;pause
			;SoundBeep 
			run %vsPath% /edit %value%
		}
		return
	}
	
	fileMapping[partialPath]:={}
	
	TrayTip, Searching..., Searching..., 1
	Loop, C:LoansPQ2*%extension%, 0, 1
	{
		StringGetPos, p, A_LoopFileFullPath, %partialPath%
		if(p>-1)
		{
			; MsgBox, 4, , Open %A_LoopFileFullPath% ?
			; IfMsgBox, Yes
			; {
				fileMapping[partialPath].Insert(A_LoopFileFullPath)
				run %vsPath% /edit %A_LoopFileFullPath%
				TrayTip, Send to VS, %A_LoopFileFullPath%, 1
				;CursorHandle := DllCall( "LoadCursor", Uint,0, Int,32512) 
				;return
			; }
		}
	}
	;ListVars
	;MsgBox, No more findings.
	; CursorHandle := DllCall( "LoadCursor", Uint,0, Int,32512)
}
return
 

^l::
send ^`;
send {Backspace}
send ^[
send ^s
send {down}
return