易語言千千靜聽定時播放源碼

系統結構:開啟千千靜聽,關閉千千靜聽,FindWindow,PostMessage,GetWindowThreadProcessId,OpenProcess,TerminateProcess,CloseHandle,

======窗口程序集1
           |  |
           |  |------ __啟動窗口_創建完畢
           |  |
           |  |------ __啟動窗口_尺寸被改變
           |  |
           |  |------ _時鐘1_周期事件
           |  |
           |  |------ 開啟千千靜聽
           |  |
           |  |------ 關閉千千靜聽
           |  |
           |  |------ _按鈕1_被單擊
           |  |
           |  |
======調用的Dll
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   TerminateProcess
           |  |
           |  |---[dll]------   CloseHandle

調用的DLL命令:

.DLL命令 FindWindow, 整數型, "user32", "FindWindowA", , 尋找窗口列表中第一個符合指定條件的頂級窗口（在vb里使用：FindWindow最常見的一個用途是獲得ThunderRTMain類的隱藏窗口的句柄；該類是所有運行中vb執行程序的一部分。獲得句柄后，可用api函數GetWindowText取得這個窗口的名稱；該名也是應用程序的標題）　找到窗口的句柄。如未找到相符窗口，則返回零。會設置GetLastError
    .參數 lpClassName, 文本型, , 指向包含了窗口類名的空中止（C語言）字串的指針；或設為零，表示接收任何類
    .參數 lpWindowName, 文本型, , 指向包含了窗口文本（或標簽）的空中止（C語言）字串的指針；或設為零，表示接收任何窗口標題  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";

.DLL命令 PostMessage, 整數型, "user32", "PostMessageA", , 將一條消息投遞到指定窗口的消息隊列。投遞的消息會在Windows事件處理過程中得到處理。在那個時候，會隨同投遞的消息調用指定窗口的窗口函數。特別適合那些不需要立即處理的窗口消息的發送　如消息投遞成功，則返回TRUE（非零）。會設置GetLastError
    .參數 hwnd, 整數型, , 接收消息的那個窗口的句柄。如設為HWND_BROADCAST，表示投遞給系統中的所有頂級窗口。如設為零，表示投遞一條線程消息（參考PostThreadMessage）
    .參數 wMsg, 整數型, , 消息標識符
    .參數 wParam, 整數型, , 具體由消息決定
    .參數 lParam, 整數型, , 具體由消息決定;

.DLL命令 GetWindowThreadProcessId, 整數型, "user32", "GetWindowThreadProcessId", ,  ;    獲取與指定窗口關聯在一起的一個進程和線程標識符　擁有窗口的線程的標識符
    .參數 hwnd, 整數型, , 指定一個變量，用于裝載擁有那個窗口的一個進程的標識符
    .參數 lpdwProcessId, 整數型, 傳址, 指定窗口句柄;

.DLL命令 OpenProcess, 整數型, "kernel32", "OpenProcess", , 將句柄返回給過程對象　
    .參數 dwDesiredAccess, 整數型
    .參數 bInheritHandle, 整數型
    .參數 dwProcessId, 整數型

.DLL命令 TerminateProcess, 整數型, "kernel32", "TerminateProcess", ,  結束一個進程　非零表示成功，零表示失敗。會設置GetLastError
    .參數 hProcess, 整數型, , 指定要中斷的一個進程的句柄
    .參數 uExitCode, 整數型, , 進程的一個退出代碼;

.DLL命令 CloseHandle, 整數型, "kernel32", "CloseHandle", , 關閉一個內核對象。其中包括文件、文件映射、進程、線程、security和同步對象等。涉及文件處理時，這個函數通常與vb的close命令相似。應盡可能的使用close，因為它支持vb的差錯控制。注意這個函數使用的文件句柄與vb的文件編號是完全不同的　非零表示成功，零表示失敗。會設置GetLastError
    .參數 hObject, 整數型, , 欲關閉的一個對象的句柄;