VFP让电脑只能运行你的程序
让电脑只能运行你的程序
呵呵,这样说可能有点夸张了,其实目的就是在一些特殊的工作环境中有时候为了不让操作员随意动电脑上的其它东西而是让操作员只能操作自己的程序,这样的工作环境很多,比如财务、销售内勤、银行职员等等,我这里实现这个功能的只要途径就是摧毁桌面操作和禁止使用任务管理器。我这里只是做个简单的示例,在实际应用的时候程序关闭代码、防错代码应该都要考虑到这段代码的存在~ VFP CODE:
Public _Form1
_Form1=CreateObject("Form1")
_Form1.show
RETURN
DEFINE CLASS Form1 AS form
AutoCenter=.T.
Caption = "让电脑只能运行你的程序"
MinButton = .T.
BackColor =RGB( 221,177,226)
PROCEDURE Init
this.AddObject("Timer1","_classname1") this.AddObject("label1","_classname2") DECLARE INTEGER FindWindow IN user32;
STRING lpClassName,;
STRING lpWindowName
DECLARE INTEGER GetWindow IN user32;
INTEGER hwnd,;
INTEGER wFlag
DECLARE SHORT PostMessage IN user32;
INTEGER hWnd,;
INTEGER Msg,;
STRING @ wParam,;
INTEGER lParam
this.MinButton=.F.
wHwnd = FindWindow('ProgMan',NULL) postMessage(wHwnd,0x12,0,0)
thisform.label1.caption=' 这时候,系统的其它任何程序都不能没轻易执行了,'+0h0D0A+;
'所以你必须在自己的程序里加上适当的防错代码,并且在你的'+0h0D0A+;
'程序退出代码里加上关机代码~'
ENDPROC
ENDDEFINE
DEFINE CLASS _classname1 AS timer Visible=.T.
Top = 12
Left = 12
Height = 23
Width = 23
Interval = 100 PROCEDURE Timer tHwnd=FindWindow('#32770','Windows 任务管理器')
IF tHwnd>0
postMessage(tHwnd,0x12,0,0)
endi
ENDPROC
ENDDEFINE
DEFINE CLASS _classname2 AS label
Visible=.T.
AutoSize = .F. FontSize = 10 BackStyle = 0 Height = 96
Left = 36
Top = 36
Width = 324
ENDDEFINE
本文档为【VFP让电脑只能运行你的程序】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。