易语言千千静听定时播放源码
系统结构:开启千千静听,关闭千千静听,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, 整数型, , 欲关闭的一个对象的句柄;
易语言类QQ窗口源码,类QQ窗口...
易语言电子蚊香源码,beep...
易语言歌词秀源码,排序LRC时间内容,MCI控制...
易语言会打字就会弹钢琴码重发正传源码,设置编辑框只读状态,构造乐谱列表,取常量中的每分钟拍数,取常量中的乐谱,置MIDI组件,演奏音符,停止演奏音符,处理按下某键,处理放开某键,构造...
易语言摄像头演示源码,capCreateCaptureWindow,SendMessageStr,SendMessage...
排序LRC时间内容,MCI控制...
简易MP3播放器源码...
设置编辑框只读状态,构造乐谱列表,取常量中的每分钟拍数,取常量中的乐谱,置MIDI组件,演奏音符,停止演奏音符,处理按下某键,处理放开某键,构造音符对照表,添加键代码音符对,添加字符音符对,查询键代码对应音符,播放乐谱,计算音符播放时间,停止播放乐谱...
出题,标签显示,提示,音乐程序...