xp或win7系统下，VBS如何实现循环间歇性屏幕截图并以指定格式命名保存到指定目录下

ygqiang

xp或win7系统环境下，VBS定时截屏，并保存到指定目录下。如何实现？
比如定时3秒钟全屏截屏，所有截屏文件全部保存到c:\test目录下。
文件名中命名规则是：20160802-061840（年代日期-时间）

设置变量：jiang（以秒计数）
设置变量：mulu（截屏图片保存目录）
截屏代码参考
http://www.bathome.net/redirect. ... 4369&ptid=37237

yu2n

推荐使用第三方命令行截图软件。

CmdCapture 命令行截图软件：http://www.bathome.net/thread-41237-1-1.html

pcl_test

1. Set ws = CreateObject("Wscript.Shell")
   
2. Set dict = WSH.CreateObject("Scripting.Dictionary")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. 
   
5. dstFolder = "."    '指定截图保存目录，默认为当前目录下
   
6. ext = "jpg"    '指定截图文件格式，支持jpg/gif/png/bmp
   
7. interval = 1000    '指定截屏间歇时间(毫秒)
   
8. 
   
9. If Left(ext, 1) = "." Then ext = Right(ext, 3)
   
10. If Right(dstFolder, 1) <> "" Then dstFolder=dstFolder&""
    
11. arr = Split(dstFolder, "")
    
12. arrFolder = arr(0)
    
13. For i = 1 To UBound(arr) -1
    
14.     arrFolder = arrFolder & "" & arr(i)
    
15.     If Not fso.FolderExists(arrFolder) Then fso.CreateFolder(arrFolder)
    
16. Next
    
17. 
    
18. dict.Add "jpg", "ImageFormat.Jpeg"
    
19. dict.Add "gif", "ImageFormat.Gif"
    
20. dict.Add "png", "ImageFormat.Png"
    
21. dict.Add "bmp", "ImageFormat.Bmp"
    
22. 
    
23. Set tmp = fso.GetSpecialFolder(2)
    
24. Set systemroot = fso.GetSpecialFolder(0)
    
25. net = systemroot&"\Microsoft.NET\Framework"
    
26. Call CreateCs
    
27. Set SubFolders = fso.GetFolder(net).SubFolders
    
28. For Each Folder In SubFolders
    
29.     If fso.FileExists(Folder&"\csc.exe") Then
    
30.         cscpath = Folder&"\csc.exe"
    
31.         Exit For
    
32.     End If
    
33. Next
    
34. 
    
35. If cscpath = "" Then
    
36.     Msgbox "未安装Microsoft .NET Framework 2.0及以上版本组件或是相关程序缺失！"
    
37.     WSH.Quit
    
38. Else
    
39.     '调用csc.exe编译cs文件
    
40.     ws.Run cscpath&" /out:"""&tmp&"\$PrtSc.exe"" """&tmp&"\$PrtSc.cs""", 0, True
    
41. End If
    
42. 
    
43. Do
    
44.     ws.Run tmp&"\$PrtSc.exe", 0, True    '执行截屏
    
45.     WSH.Sleep interval
    
46. Loop   '退出程序需从任务管理器结束wscript.exe进程
    
47. 
    
48. Function CreateCs
    
49.     Set cs = fso.CreateTextFile(tmp&"\$PrtSc.cs", 2)
    
50.     cs.Write _
    
51.     "using System.Drawing;using System.Drawing.Imaging;using System.Windows.Forms;" & vbCrLf & _
    
52.     "public class MyClass{" & vbCrLf & _
    
53.     "   public static void Main(){" & vbCrLf & _
    
54.     "        Image img = new Bitmap(Screen.AllScreens[0].Bounds.Width, Screen.AllScreens[0].Bounds.Height);" & vbCrLf & _
    
55.     "        Graphics g = Graphics.FromImage(img);" & vbCrLf & _
    
56.     "        g.CopyFromScreen(new Point(0, 0), new Point(0, 0), Screen.AllScreens[0].Bounds.Size);" & vbCrLf & _
    
57.     "        string dt = System.DateTime.Now.ToString(""yyyyMMddHHmmss-fff"");" & vbCrLf & _
    
58.     "        img.Save("""&replace(fso.GetFolder(dstFolder).Path,"","\")&"\""+dt+""."&Lcase(ext)&""", "&dict.Item(Lcase(ext))&");}}"
    
59. End Function

复制代码