TP驱动易语言源码

Read_通信结构 (通信参数, 缓冲区, 12)

录音机源码

录音机源码

超酷放大镜

.版本 2 移动 (取鼠标水平位置 () － 101, 取鼠标垂直位置 () － 101, , ) 置外形图片 (#背景, ) 窗口样式值 ＝ 取窗口样式 (_启动窗口.取窗口句柄 (), -20) 窗口样式值 ＝ 窗口样式值 ＋ 524288 设置窗口样式 (_启动窗口.取窗口句柄 (), -20, 窗口样式值) 设置窗口透明 (_启动窗口.取窗口句柄 (), 0, 255, 2) 圆形区域句柄 ＝ 创建椭圆区域 (0, 0, 192, 192) 设置新外形 (镜片标签.取窗口句柄 (), 圆形区域句柄, 真) 镜片场景 ＝ 取场景 (镜片标签.取窗口句柄 ())

模拟鼠标移动

.版本 2 .局部变量 鼠标垂直坐标, 整数型 鼠标水平坐标 ＝ 取随机数 (0, 800) 鼠标垂直坐标 ＝ 取随机数 (0, 150) SetCursorPos (鼠标水平坐标, 鼠标垂直坐标) SetCursorPos (鼠标水平坐标 ＋ 取随机数 (0, 10) － 取随机数 (0, 10), 鼠标垂直坐标 ＋ 取随机数 (0, 10) － 取随机数 (0, 10)) 延时 (50) SetCursorPos (鼠标水平坐标 ＋ 取随机数 (0, 10) － 取随机数 (0, 10), 鼠标垂直坐标 ＋ 取随机数 (0, 10) － 取随机数 (0, 10))