MS Paint(페인트 프로그램)저장으로 용량이 줄어 들었다.

shint의 이미지





[팁]


윈도우10 MS Paint(페인트 프로그램)'로 저장하니. 용량이 2MB 에서 751KB 로 줄어든 경우가 있다.


 


화질이 5% 정도 떨어진다. ㅇ_ㅇ;; 눈에는 잘 띄지 않지만...


꿀불 뷰어와 알씨 뷰어로도 변환이 되는데. 8%정도 화질이 떨어진다.
 



1. 윈도우10 MS Paint(페인트 프로그램)로 JPG 저장할 경우. 품질이 손실 없이. 화질이 거의 비슷하다.


거의. 1/2 정도 용량이 줄어든다.


2. PNG 로 저장하는 경우도 용량을 많이 줄이는 경우가 있었다.


3. 이미지변환에서 DPI 갯수를 늘려서. 용량을 줄이는 방법도 있었다.


 


 


 



 


 


 


사용해보니. 폴더 이름에 한글 띄어쓰기가 있는 경우는 명령어의 인자값으로 인식하지 못했다. 띄어쓰기가 없는 폴더로 파일을 이동해서. 사용하도록 하자.




상당히 느리고. 오래 걸리며. 실행시. 마우스 클릭도 하기 어려우니. 적은 파일로 먼저. 테스트 해보고 하면 좋다.






-----------------------------------------------------


VBScript 스크립트로 jpg 이미지 파일을 MS Paint 페인트로 불러와서. 저장하는 방법


MS Paint 페인트 프로그램으로 저장하면 이미지 용량을 1/2 절반으로 줄일 수 있다.


-----------------------------------------------------


이 예제는 MS Paint 페인트 프로그램에서 불러올 이미지 파일이름을 1.jpg 로 파일이름을 강제로 지정한 경우 입니다.
-----------------------------------------------------


set Wshshell = WScript.CreateObject("WScript.Shell")




Wshshell.Run "mspaint 1.jpg"
WScript.Sleep 500




WshShell.AppActivate "Paint"
WScript.Sleep 500




WshShell.sendkeys "^(s)"
WScript.Sleep 500




WshShell.sendkeys"%{F4}"
WScript.Sleep 500




Set WshShell=Nothing
WScript.Quit








-----------------------------------------------------


폴더에 있는 모든 .jpg 이미지 파일을 MS Paint 페인트로 불러와서 저장하는 VBScript 스크립트


사용방법 도스명령어 예제 (스크립트 뒤에 폴더 경로명 입력)>a.vbs C:\스크린샷


Sleep 수치를 너무 낮게 100정도로 잡으면. 프로그램이 많이 떠서 컴퓨터가 재부팅 될 위험이 있습니다.


300 10 10 100 10 정도면 무난합니다.


-----------------------------------------------------




on Error Resume Next


set Wshshell = WScript.CreateObject("WScript.Shell")




strFolder = Wscript.Arguments(0)
saveFile = strFolder & "\FileList.txt"
ForWriting = 2




Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)




For Each objItem in objFolder.Items
If objItem.isFolder Then
strFolds = strFolds & "[" & objItem.Name & "]" & vbCrLf
Else





Wshshell.Run "mspaint " & strFolder & "\" & objItem.Name
WScript.Sleep 500




WshShell.AppActivate "Paint"
WScript.Sleep 500




WshShell.sendkeys "^(s)"
WScript.Sleep 500




WshShell.sendkeys"%{F4}"
WScript.Sleep 500




strFiles = strFiles & objItem.Name & vbCrLf




End If
Next
strLists = strFolds & vbCrLf & strFiles




Set fs = CreateObject ("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile (saveFile, ForWriting, True)
ts.Write strLists: ts.Close





Set WshShell=Nothing
WScript.Quit



 


 



 



 


 



 


-----------------------------------------------------


VBScript에서 폴더 목록 얻는 방법은. 여기서 알 수 있다.


http://egloos.zum.com/nazelm/v/938927


 


 


 

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.