*/
第1種編程語言_Delphi7_Borland_源代碼:
第2種編程語言_Visual C++ 6.0_Microsoft_源代碼:
第3種編程語言_AutoHotkey_源代碼:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;=== AutoHotkey.ahk 熱鍵腳本語言文件 AutoHotkey.ini.ahk ===
;定義全局熱鍵 ` 打開本地磁盤文件搜索軟件 MasterSeeker_1.2_by_DxCK AHK 快捷鍵腳本
;自定義快捷鍵 ` 即 ~ 鍵位於 Esc 退出鍵正下方,位於 Tab 製表鍵正上方,共5步操做
`:: ; 第1步 , 判斷可執行程序文件是否存在
窗口標題=MasterSeeker 1.2 by DxCK
IfNotExist,MasterSeeker\MasterSeeker.exe
{
MsgBox,文件 MasterSeeker\MasterSeeker.exe 不存在
return
}
IfWinNotExist,%窗口標題% ; 第2步 , 若是程序未運行那麼運行程序
{
Run,MasterSeeker\MasterSeeker.exe,,max
}
WinGet,Style1 ,Style,%窗口標題% ; 第3步 , 激活並最大化窗口或者隱藏窗口
; 判斷窗口是否包含WS_VISIBLE樣式,就是窗口是否可見
If ((Style1&0x10000000) and (WinActive("MasterSeeker 1.2 by DxCK")))
{
WinMinimize,%窗口標題%
WinHide,%窗口標題%
ToolTip
return
}
Else
{
ReDllCall_WindowsAPI_SwitchToThisWindow_Again_To_ActiveWindow:
SetWinDelay, 10
SetTitleMatchMode,2
DetectHiddenWindows, On
; 激活窗口(即把窗口放到前臺,設置爲頂層窗口)
WinShow,%窗口標題%
WinActivate,%窗口標題%
WinGet, winid, ID,%窗口標題%
DllCall("SwitchToThisWindow", "UInt", winid, "UInt", 1)
;最大化窗口
WinMaximize,%窗口標題%
;檢查判斷激活窗口是否完成,若是激活窗口失敗那麼從新嘗試激活。
IfWinNotActive ,%窗口標題%
{
;跳轉到激活窗口的標籤並繼續從新嘗試激活目標窗口。
Goto , ReDllCall_WindowsAPI_SwitchToThisWindow_Again_To_ActiveWindow
} ; 第4步 、選中搜索輸入框,使輸入框得到焦點
;能夠經過窗口句柄窗口信息顯示工具來取得並測試窗口的信息
;Spy++ Lite V2.4 ; 或者用 ViewWizard 2.8.0 ;或者用 句柄精靈 3.0
;當設置 Control 參數爲空或省略,目標窗口的頂端控件將被使用。
;而後經過 Send,{TAB} 跳轉到目標控件
ControlFocus,Filename,%窗口標題%
Send,{End}
Send,+{home} ;第5步、操做完成,提示用戶輸入搜索關鍵字
Send,{Shift Up}
ToolTip, 請輸入須要搜索的文件名,100,50
;啓動定時器,在3秒鐘後清空 提示 ToolTip 的提示窗口內容
SetTimer, RemoveToolTip, 3000
return ;千萬不要忘記 return 結束熱鍵執行代碼塊定義
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return ; 2014年4月 曉亮原創
}
;文件: D:\Personal\AutoHotkey\MasterSeeker\MasterSeeker.exe Hash MD5 校驗和 信息
; MasterSeeker _ 1.2 _ by _ DxCK.EXE MD5: 0F75 SHA1: 6DB1 CRC32: 2207
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
第4種編程語言_AAuto快手_一鶴軟件_源代碼:
/*
//http://www.aau.cn/
//http://bbs.aau.cn/doc/
import process.popen
//打開命令行,隱藏命令行窗口
prcs = process.popen("cmd.exe")
cmd = /*
dir c:\amd\*.* >> c:\aabb.txt
*/
prcs.write(cmd)
result = prcs.peekTo(">");
prcs.write('exit\n')
//顯示結果
io.open()
io.print( result )
//execute("pause") //按任意鍵繼續
io.close();//關閉控制檯
;=== AutoHotkey.ahk 熱鍵腳本語言文件 AutoHotkey.ini.ahk ===
;定義全局熱鍵 ` 打開本地磁盤文件搜索軟件 MasterSeeker_1.2_by_DxCK AHK 快捷鍵腳本
;自定義快捷鍵 ` 即 ~ 鍵位於 Esc 退出鍵正下方,位於 Tab 製表鍵正上方,共5步操做
`:: ; 第1步 , 判斷可執行程序文件是否
存在
窗口標題=MasterSeeker 1.2 by DxCK
IfNotExist,MasterSeeker\MasterSeeker.exe
{
MsgBox,文件 MasterSeeker\MasterSeeker.exe 不存在
return
}
IfWinNotExist,%窗口標題% ; 第2步 , 若是程序未運行那麼運行程序
{
Run,MasterSeeker\MasterSeeker.exe,,max
}
WinGet,Style1 ,Style,%窗口標題% ; 第3步 , 激活並最大化窗口或者隱藏窗口
; 判斷窗口是否包含WS_VISIBLE樣式,就是窗口是否可見
If ((Style1&0x10000000) and (WinActive("MasterSeeker 1.2 by DxCK")))
{
WinMinimize,%窗口標題%
WinHide,%窗口標題%
ToolTip
return
}
Else
{
ReDllCall_WindowsAPI_SwitchToThisWindow_Again_To_ActiveWindow:
SetWinDelay, 10
SetTitleMatchMode,2
DetectHiddenWindows, On
; 激活窗口(即把窗口放到前臺,設置爲頂層窗口)
WinShow,%窗口標題%
WinActivate,%窗口標題%
WinGet, winid, ID,%窗口標題%
DllCall("SwitchToThisWindow", "UInt", winid, "UInt", 1)
;最大化窗口
WinMaximize,%窗口標題%
;檢查判斷激活窗口是否完成,若是激活窗口失敗那麼從新嘗試激活。
IfWinNotActive ,%窗口標題%
{
;跳轉到激活窗口的標籤並繼續從新嘗試激活目標窗口。
Goto , ReDllCall_WindowsAPI_SwitchToThisWindow_Again_To_ActiveWindow
} ; 第4步 、選中搜索輸入框,使輸入框獲
得焦點
;能夠經過窗口句柄窗口信息顯示工具來取得並測試窗口的信息
;Spy++ Lite V2.4 ; 或者用 ViewWizard 2.8.0 ;或者用 句柄精靈 3.0
;當設置 Control 參數爲空或省略,目標窗口的頂端控件將被使用。
;而後經過 Send,{TAB} 跳轉到目標控件
ControlFocus,Filename,%窗口標題%
Send,{End}
Send,+{home} ;第5步、操做完成,提示用戶輸入搜索關鍵字
Send,{Shift Up}
ToolTip, 請輸入須要搜索的文件名,100,50
;啓動定時器,在3秒鐘後清空 提示 ToolTip 的提示窗口內容
SetTimer, RemoveToolTip, 3000
return ;千萬不要忘記 return 結束熱鍵執行代碼塊定義
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return ; 2014年4月 曉亮原創
}
;文件: D:\Personal\AutoHotkey\MasterSeeker\MasterSeeker.exe Hash MD5 校驗和 信息
; MasterSeeker _ 1.2 _ by _ DxCK.EXE MD5: 0F75 SHA1: 6DB1 CRC32: 2207
*/
第5種編程語言_AutoIt3_autoitscript_源代碼:
第6種編程語言_C_源代碼:
第7種編程語言_VB6.0_Microsoft_源代碼:
第8種編程語言_VBS_微軟_源代碼:
第9種編程語言_彙編_源代碼:
第10種編程語言_易語言_大有吳濤_源代碼: