vbs定时截图.doc

将下面红色字体部分复制保存为VBS文件，可以在WIN7系统上利用画图板截图function getfolder() getfolder=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,)-1) end function 创建 FUNCTION 子程序，方便后面调用，相当于我们公司西门子PLC的子程序一样。Set ws = CreateObject(WScript.Shell)filespec=getfolder() 获取当前文件夹的路径，来及时关闭文件夹，因为在我测试的时候如果文件夹不关闭会一直确定截图子程序 Set fso = CreateObject(Scripting.FileSystemObject)创建文件夹操作脚本if ws.appactivate(filespec) = true then 如果当前文件夹存在那么关闭文件夹wscript.Sleep 500 ws.SendKeys %F4 end if以上全部程序用来解决此截图脚本的一个BUG，就是当在文件中操作这个VBS时候，会自动运行这个脚本，造成无休止的弹出，这个截图会终结这个文件夹的打开，jsDim jiange,num,jiange1jiange= InputBox(请输入截图间隔时间单位秒&Chr(13) + Chr(10)&3600秒就是默认1小时截图一次,杭州德联科技工程实施部,3600)num= InputBox(请输入自动截图的数量&Chr(13) + Chr(10)&默认截图24张,杭州德联科技工程实施部,24)jiange1=jiange*1000 将ms转为s，需要乘以1000Do while(num0)num=num-1 注意,这个脚本是无限循环的,请自己改成自己需要的,作为你自己的脚本的一部分dim I, capturepathI = 1Dim Y,Mon,D,W,h,m,s,shijian 上边这个脚本无限循环跳转标记Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday) 利用VBS函数获得当前系统的年,月,日,星期,并各自保存到变量中h=Hour(time):m=Minute(time):s=Second(time) /利用VBS函数获得当前系统的时,分,秒.并各自保存到变量中shijian=Y &年& Mon &月& D &号星期& W &-& h &点& m &分& s &秒wscript.Sleep 100Dim WshShell set WshShell = CreateObject(wscript.Shell) WshShell.RegWrite HKEY_CURRENT_USERSoftwareMicrosoftOffice11.0ExcelSecurityAccessVBOM,1,REG_DWORD WshShell.RegWrite HKEY_CURRENT_USERSoftwareMicrosoftOffice12.0ExcelSecurityAccessVBOM,1,REG_DWORD WshShell.RegWrite HKEY_CURRENT_USERSoftwareMicrosoftOffice14.0ExcelSecurityAccessVBOM,1,REG_DWORD Dim oExcel, oBook, oModule Set oExcel = CreateObject(excel.application) Set oBook = oExcel.Workbooks.AddSet oModule = obook.VBProject.VBComponents.Add(1) strCode = _ Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) & vbCr & _Sub pr() & vbCr & _Call keybd_event(vbKeySnapshot, 0, 0, 0) & vbCr & _ End Sub oModule.CodeModule.AddFromString strCode oExcel.Run proExcel.DisplayAlerts = False oBook.Close oExcel.Quit这个代码能用，但图片保存在了剪切板里Set ws = CreateObject(Wscript.Shell) Set fs = CreateObject(Scripting.FileSystemObject)ws.Run c:m.exews.displayalerts =falsews.Run c:windowssystem32mspaint.exe,1wscript.Sleep 500ws.Sendkeys vwscript.Sleep 500 注意如果电脑配置不高请将该时间加长ws.Sendkeys swscript.Sleep 300shijian=20&Y & Mon & D & h &m &sshijian=Y &-& Mon &- & D &- & h &-&m &-&swscript.Sleep 100ws.Sendkeys shijianwscript.Sleep 100ws.SendKeys ENTER wscript.Sleep 300ws.SendKeys ENTER wscript.Sleep 100 这几个时间不可以更改的更短，会操作失败，如果针对反应慢的电脑这几个时间需要加长Set ws =nothing 释放内存WScript.Quitwscript.Sleep 100Close_Process(mspaint.exe)wscript.Sleep jiange1Loop MsgBox(截图到此结束&Chr(13) + Chr(10)&德联科技)sub Close_Process(ProcessName)On Error Resume Next for each ps in getobject(winmgmts:.rootcimv2:win32_process).instances_ 循环搜寻进程，直到找到指定进程就用te