资源描述:
《dnf自动收材料》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划dnf自动收材料 //================================================================================ //MessageBox"正在初始话请稍等" Call("正在加载方案…") DqTime=lib.网络.获取网络时间() //获取网络时间,得到的时间格式为:XX-1-112:00:00 zzsj="XX-11-123
2、:59:59" //zzsj=终止时间终止时间为脚本使用限定的最后时间! IfCDate(DqTime)cdate("XX-10-24") 'Delay100 'MsgBox"使用期限已到,请从任务管理器关闭程序" 'EndScript 'endif //使用期限检测脚本 DimEnvshuliang,time1,time2,time3,time4,ktjc,feyjy Dimhwnd,hwnd1,hwnd2 DimEnvkaiguan kaiguan=0目的-通过该培训员工可对保安行业有初步了解,并
3、感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 hwnd= x=(hwnd,0,0) 'Delay1000 time1=//获取脚本运行时系统初始时间 'ktjc=1 'setws=createobject("") '"c:",5,ture 'Delay500 'hwnd2= 'y=(hwnd2,0,480) gosub站街自动喊话 Remkaitou
4、 Sub站街自动喊话//站街喊话脚本 //下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量 UserVarfdys=15"防掉线设置" MoveTo603,439 gosub检查是否有交易 time3= Ifint(time3-time1)>fdys*60*1000then//15分钟后开启防掉线,只支持站街的时候 gosub防掉线目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场
5、安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 EndIf KeyPressS"Enter",1 Delay200 NUM=(60,398,92,407,"AADDEE",1)//查找喊话窗口是否存在IfNUM>0Then Goto喊话 Rem喊话 EndIf UserVarszhhjs=5"设置喊话句数(最多五句)" Ifszhhjs=1Then KeyPressS"B",1 Delay20 KeyPressS"A",1 Delay20 KeyPressS"1",
6、1 Delay20 KeyPressS"Enter",1 Delay1200 ElseIfszhhjs=2Then KeyPressS"B",1 Delay20 KeyPressS"A",1目的-通过该培训员工可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 Delay20 KeyPressS"1",1 Delay20 KeyPres
7、sS"Enter",1 Delay3200 KeyPressS"B",2 Delay20 KeyPressS"1",1 Delay20 KeyPressS"Enter",1 Delay1200 ElseIfszhhjs=3Then KeyPressS"B",1 Delay20 KeyPressS"A",1 Delay20 KeyPressS"1",1 Delay20 KeyPressS"Enter",1 Delay3200 KeyPressS"B",2 Delay20目的-通过该培训员工
8、可对保安行业有初步了解,并感受到安保行业的发展的巨大潜力,可提升其的专业水平,并确保其在这个行业的安全感。为了适应公司新战略的发展,保障停车场安保新项目的正常、顺利开展,特制定安保从业人员的业务技能及个人素质的培训计划 KeyPressS"1",1 Delay20 KeyPressS"Enter"