VFP - API·WMI·ActiveX应用
关注
分享
扫一扫
文章平均质量分 81
十豆三
其他数据库开发 大版主
展开
-
当鼠标N秒内无操作时执行一个操作（如：执行屏保、返回首页等）
*--可以应用到公开查询系统等*--表单的Load事件加代码：Public gnMouseX,gnMouseY,gnTotalTimerStore 0 To gnMouseX,gnMouseY,gnTotalTimerDeclare Integer GetCursorPos In user32 String@ lpPoint *--表单的Unload事件加代码：Clear Dlls*--向转载 2007-07-06 16:53:00 · 4258 阅读 · 2 评论 -
WIN API-VFP取得任务栏的尺寸(宽度和高度)及位置
*!* 作者：dkfdtf(方法一)、十豆三(方法二、方法三)*!* 日期：2011-11-11*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)、Windows 7 32位(SP1)*-- 方法一：by dkfdtf*!* 取任务栏尺寸和位置可以直接用 SHAppBarMessage 函数来查询，*!*原创 2011-11-24 10:40:58 · 4794 阅读 · 0 评论 -
vfp9.0通过WebBrowser控件获取QQ新闻标题及链接
*!* vfp9.0通过WebBrowser控件获取QQ新闻标题及链接*!* -------------------------------------------*!* 作者：十豆三*!* 日期：2011-09-17*!* vfp版本：vfp9.0*!* 控件名称： Microsoft Web Browser(Microsoft Internet Cont原创 2011-09-19 14:48:25 · 8537 阅读 · 9 评论 -
通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息
*!* 作 者：十豆三*!* 日 期：2011-08-05*!* 说 明：通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息oWMI=Getobject('winmgmts:')&& vfp9.0m.cWin32C原创 2011-08-05 15:58:13 · 5590 阅读 · 4 评论 -
WIN API-VFP获取第三方窗体的控件信息(句柄,窗口ID,进程ID,类名,标题)
*十豆三 2010-02-09 *函数返回与指定字符创相匹配的窗口类名或窗口名的最顶层窗口的窗口句柄。这个函数不会查找子窗口。Declare Long FindWindow In WIN32API String lpClassName,String lpWindowName *函数获得一个窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口，从排在给定的子窗口后面的下一原创 2010-03-27 11:47:00 · 11029 阅读 · 4 评论 -
VFP实现网络校时
VFP实现网络校时 *客户机与校时服务器日期相同时可以校对时间，日期有差异时校时会失败 =Strtofile("@net Time /setsntp:210.72.145.44"+Chr(13)+Chr(10)+"@net stop w32time"+Chr(13)+Chr(10)+"@net start w32time"+Chr(13)+Chr(10)+"@w32tm /resync /re原创 2009-07-01 10:58:00 · 6256 阅读 · 9 评论 -
WIN API-VFP获得其他程序多个输入框的内容
WIN API-VFP获得其他程序多个输入框的内容*--------------------------------------先用SPY++得知其他程序（我测试的软件）的输入框类是Edit下面你启动测试的软件，在多个输入框中随意输入几个字符，然后用以下代码即可获得你在多个输入框中输入的字符。Declare Integer FindWindow In user32 String lpClass原创 2009-04-07 16:20:00 · 4069 阅读 · 2 评论 -
WIN-API方法向表单拖放文件,文件路径及名称显示到列表框中
出处：http://www.news2news.com/vfp/?function=-1&example=323环境支持：VFP9.0从Windows拖拽文件到表单,文件路径及名称将自动添加到列表框中 Local oForm As TFormoForm=Createobject("TForm")oForm.Visible=.T.Read Events* end of mainDefin转载 2008-12-09 15:29:00 · 2369 阅读 · 12 评论 -
WIN API-VFP获取系统内存信息
Declare GlobalMemoryStatus In kernel32 String @lpBufferlpBuffer=Replicate(Chr(0),250)=GlobalMemoryStatus(@lpBuffer)Clear=_display("缓冲区长度(字节) ...........................:", 1)=_display("目前内存管理系统的繁忙程序(1转载 2008-04-25 10:38:00 · 2630 阅读 · 2 评论 -
VFP9获得Windows虚拟内存(页面值)大小
?MyGetPageFileVal() Function MyGetPageFileVal lnPageFileVal=0 For I=67 To 90 &&循环C盘到Z盘 If Directory(Chr(I)+":/RECYCLED",1) &&如果存在回收站,说明此分区存在.此句要求是VFP9,VFP9以下没有第2个参数. lnFileNu原创 2008-04-24 17:31:00 · 2615 阅读 · 5 评论 -
WIN API-VFP更改Windows的区域选项:(长)日期格式(分隔符),时间格式(分隔符)[参考：控制面板-区域和语言选项-区域选项]
*!* 其实在VFP中，此方法可以说是多余的，因为VFP本身的命令SET DATE .../SET CENTURY .../Time()等*!* 即可完成程序内的转换及使用，可是个别开发工具转换起来并不轻易，甚至有些软件让用户手动改控制面板中设置。*!* 为了不让用户手动更改，所以找了找API函数，写成在VFP中实现对区域选项的更改。 *----------------------------原创 2008-04-29 11:54:00 · 6122 阅读 · 3 评论 -
WIN API-VFP枚举系统服务
*--转自：dkfdtf 大侠 #Define STANDARD_RIGHTS_REQUIRED 0x000F0000#Define SC_MANAGER_ENUMERATE_SERVICE 0x0004#Define SERVICE_WIN32 0x00000030#Define SERVICE_STATE_ALL 0x00000003#Define SERVICE_STOPPED 0x0转载 2008-03-25 11:18:00 · 2692 阅读 · 1 评论 -
WIN API-VFP枚举网络连接
*--首先感谢网友dkfdtf对GetTcpTable方法的编写，才使我轻意的写成了GetExtendedTcpTable*--API-GetTcpTable：结果含有远程地址为空的记录，但不含有PID(进程ID) Clear#Define ERROR_INSUFFICIENT_BUFFER 122Declare Long GetTcpTable In Iphlpapi String @pTc原创 2008-03-20 17:05:00 · 4243 阅读 · 1 评论 -
WIN API-VFP获取网络信息、流量等
*--VFP调用API：使用Iphlpapi.dll获取网络信息、网络流量（即发送字节和接收字节）等。*--效果等同于DOS命令netstat -eClear#Define ERROR_INSUFFICIENT_BUFFER 122Declare Integer GetIfTable In iphlpapi String @pIfTable,Long @pdwSize,Long BorderD原创 2008-03-22 17:24:00 · 4031 阅读 · 2 评论 -
VFP调用API实现代码模拟鼠标.键盘动作
*--VFP调用API实现代码模拟鼠标.键盘动作 *--模拟键盘协作，如 Ctrl+VDeclare keybd_event In Win32API Short bVk,Short bScan,Integer dwFlags, Integer deExtraInfokeybd_event(17, 0, 0, 0)keybd_event(Asc(V), 0, 0, 0)keybd_eve原创 2007-11-02 13:37:00 · 10069 阅读 · 2 评论 -
简体中文与繁体中文的互相转换
*以下所用控件的下载地址http://download.youkuaiyun.com/source/424247*--方法一：用gb2big.dllDeclare String GBtoBIG5 In gb2big.Dll StringDeclare String BIG5toGB In gb2big.Dll String *--简体转繁体，将GB内码转换为BIG5码。注意，此函数转换的是内码原创 2007-08-09 15:02:00 · 5612 阅读 · 0 评论 -
VFP调用API来控件USB摄像头，实现拍照或录像。
*--前提：VFP7.0以上;Windows 2K及以上*--定义：一般放到主程序或表单(集)的Load事件中Public WM_CAP_DRIVER_DISCONNECTPublic hwndc,WM_CAP_SAVEDIB,WM_CAP_FILE_SET_CAPTURE_FILEA,WM_CAP_SEQUENCE,WM_CAP_STOPDeclare Integer capCreateC转载 2007-08-09 16:14:00 · 12406 阅读 · 21 评论 -
VFP调用Windows Media Player控件播放音乐、视频等
*--VFP调用Windows Media Player控件播放音乐、视频等 *--控件名称：Windows Media Player*--控件文件名：wmp.dll*--控件ProgID：WMPlayer.OCX*--运行环境：VFP8及以上 *MyPlayer("F:/test.mp3") *MyPlayer("D:/test.rmvb") Procedure My转载 2007-07-09 14:48:00 · 7960 阅读 · 2 评论 -
WIN API-VFP提取文件中(图标资源)的图标
*!* 作者：十豆三*!* 日期：2010-06-10*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*!* 说明：部分代码为转帖内容(感谢原作者)，本人只对_GetFile过程等处稍加修改并加入生成图标文件模块。可惜由于所用 API 的限制生成的图标只能是16色的。*!* 由于本方法提取的图标不够完原创 2010-08-23 14:16:00 · 4019 阅读 · 0 评论