01.Imports System.Drawing
02.
03.Module MyModule
04.
05.
06.
07.
08.Sub Main()
09.
10.
11. Dim argv As String()
12. Dim save_path As String
13.
14. Dim base_x As Integer
15. Dim base_y As Integer
16. Dim base_width As Integer
17. Dim base_height As Integer
18. Dim target_width As Integer
19. Dim target_height As Integer
20.
21.
22. argv = System.Environment.GetCommandLineArgs()
23.
24.
25. if System.Environment.GetCommandLineArgs.Length = 8 then
26. save_path = argv(1)
27. base_x = Integer.Parse(argv(2))
28. base_y = Integer.Parse(argv(3))
29. base_width = Integer.Parse(argv(4))
30. base_height = Integer.Parse(argv(5))
31. target_width = Integer.Parse(argv(6))
32. target_height = Integer.Parse(argv(7))
33. else
34. Console.WriteLine("引数 : 保存するパス 取得開始位置x 取得開始位置y 幅 高さ 保存幅 保存高さ")
35. Return
36. end if
37.
38. Dim bmp As New Bitmap(base_width, base_height)
39. Dim gra As Graphics = Graphics.FromImage(bmp)
40.
41.
42. gra.CopyFromScreen(New Point(base_x, base_y), New Point(0, 0), bmp.Size)
43.
44.
45. Dim thumbnail As Bitmap = New Bitmap(bmp, target_width, target_height)
46.
47.
48. thumbnail.Save(save_path+".jpg", Imaging.ImageFormat.Jpeg )
49.
50. thumbnail.Dispose()
51. gra.Dispose()
52. bmp.Dispose()
53.
54.End Sub
55.
56.End Module
