看rar檔裡面的圖片

nwm310

Win10測試 OK

需要unrar64.dll
http://www.rarlab.com/rar/UnRARDLL.exe

把 unrar64.dll 、 rar檔 放到 ps1 旁邊
只會顯示第一個壓縮檔裡的圖片

全螢幕顯示圖片，點圖片會顯示下一張，可用 Alt + F4 關掉

1. $dllfile = gi unrar64.dll -ea stop
   
2. 
   
3. Add-Type -Type @"
   
4. using System;
   
5. using System.Runtime.InteropServices;
   
6. 
   
7. namespace PS
   
8. {
   
9.   public class Unrar
   
10.   {
    
11.         [StructLayout(LayoutKind.Sequential)]
    
12.                 public struct RAROpenArchiveDataEx
    
13.         {
    
14.                 [MarshalAs(UnmanagedType.LPStr)]
    
15.                 public string ArcName;
    
16. 
    
17.                 [MarshalAs(UnmanagedType.LPWStr)]
    
18.                 public string ArcNameW;
    
19. 
    
20.                 public uint OpenMode;
    
21.                 public uint OpenResult;
    
22. 
    
23.                 [MarshalAs(UnmanagedType.LPStr)]
    
24.                 public string CmtBuf;
    
25. 
    
26.                 public uint CmtBufSize;
    
27.                 public uint CmtSize;
    
28.                 public uint CmtState;
    
29.                 public uint Flags;
    
30. 
    
31.                 public UNRARCallback Callback;
    
32.                     public uint UserData;
    
33. 
    
34.                 [MarshalAs(UnmanagedType.ByValArray, SizeConst = 28)]
    
35.                 public uint[] Reserved;
    
36. 
    
37.         }
    
38. 
    
39. 
    
40.         [StructLayout(LayoutKind.Sequential, CharSet=CharSet.Unicode)]
    
41.                 public struct RARHeaderDataEx
    
42.         {
    
43.                 [MarshalAs(UnmanagedType.ByValTStr, SizeConst=512)]
    
44.                 public string ArcName;
    
45. 
    
46.                 [MarshalAs(UnmanagedType.ByValTStr, SizeConst=1024)]
    
47.                 public string ArcNameW;
    
48. 
    
49.                 [MarshalAs(UnmanagedType.ByValTStr, SizeConst=512)]
    
50.                 public string FileName;
    
51. 
    
52.                 [MarshalAs(UnmanagedType.ByValTStr, SizeConst=1024)]
    
53.                 public string FileNameW;
    
54. 
    
55.                 public uint Flags;
    
56.                 public uint PackSize;
    
57.                 public uint PackSizeHigh;
    
58.                 public uint UnpSize;
    
59.                 public uint UnpSizeHigh;
    
60.                 public uint HostOS;
    
61.                 public uint FileCRC;
    
62.                 public uint FileTime;
    
63.                 public uint UnpVer;
    
64.                 public uint Method;
    
65.                 public uint FileAttr;
    
66. 
    
67.                 [MarshalAs(UnmanagedType.LPStr)]
    
68.                 public string CmtBuf;
    
69. 
    
70.                 public uint CmtBufSize;
    
71.                 public uint CmtSize;
    
72.                 public uint CmtState;
    
73. 
    
74.                 public uint DictSize;
    
75.                 public uint HashType;
    
76. 
    
77.                 [MarshalAs(UnmanagedType.ByValTStr, SizeConst=16)]
    
78.                 public string Hash;
    
79. 
    
80.                 public uint RedirType;
    
81. 
    
82.                 [MarshalAs(UnmanagedType.LPWStr)]
    
83.                 public string RedirName;
    
84. 
    
85.                 public uint RedirNameSize;
    
86.                 public uint DirTarget;
    
87. 
    
88.                 [MarshalAs(UnmanagedType.ByValArray, SizeConst=994)]
    
89.                 public uint[] Reserved;
    
90.         }
    
91. 
    
92.         public delegate int UNRARCallback(uint msg, int UserData, IntPtr p1, int p2);
    
93. 
    
94.         //============================================================================================
    
95. 
    
96.         [DllImport(@"$dllfile")]
    
97.         public static extern IntPtr RAROpenArchiveEx(ref RAROpenArchiveDataEx archiveData);
    
98. 
    
99.         [DllImport(@"$dllfile")]
    
100.         public static extern int RARCloseArchive(IntPtr hArcData);
     
101. 
     
102.         [DllImport(@"$dllfile")]
     
103.         public static extern int RARReadHeaderEx(IntPtr hArcData, ref RARHeaderDataEx headerData);
     
104. 
     
105.         [DllImport(@"$dllfile")]
     
106.         public static extern int RARProcessFileW(IntPtr hArcData, int operation,
     
107.                         [MarshalAs(UnmanagedType.LPWStr)] string destPath,
     
108.                         [MarshalAs(UnmanagedType.LPWStr)] string destName );
     
109. 
     
110.   }
     
111. }
     
112. 
     
113. "@
     
114. 
     
115. #=======================================================================================
     
116. $sb={
     
117.         param(        [uint32]$msg,
     
118.                 [int32]$UserData,
     
119.                 [IntPtr]$p1,
     
120.                 [int32]$p2
     
121.         )
     
122. 
     
123.         switch ($msg)
     
124.         {
     
125.                 1{
     
126.                         [System.Runtime.InteropServices.Marshal]::Copy($p1,$buffer,$bufferPos,$p2)
     
127.                         $script:bufferPos+=$p2
     
128.                         return 1
     
129.                 }
     
130. 
     
131.                 3{
     
132.                         $fn = [System.Runtime.InteropServices.Marshal]::PtrToStringUni($p1)
     
133.                           if ($p2 -eq 0)  {write-host "沒找到 $fn";return -1}
     
134.                           if ($p2 -eq 1)  {write-host "找到 $fn";return 1}
     
135.                 }
     
136. 
     
137.                 4{       
     
138.                         $pass = read-host '請輸入密碼'
     
139.                         $pass = [System.Text.Encoding]::Unicode.GetBytes($pass)
     
140.                         [System.Runtime.InteropServices.Marshal]::Copy($pass,0,$p1,$pass.length)
     
141.                         return 1
     
142.                 }
     
143.         }
     
144. }
     
145. #=======================================================================================
     
146. [void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
     
147. 
     
148. $form = new-object Windows.Forms.Form
     
149. $form.FormBorderStyle = [Windows.Forms.FormBorderStyle]::None
     
150. $form.WindowState=[Windows.Forms.FormWindowState]::Maximized
     
151. 
     
152. 
     
153. $pictureBox = new-object Windows.Forms.PictureBox
     
154. $pictureBox.Dock="Fill"
     
155. $pictureBox.SizeMode = [Windows.Forms.PictureBoxSizeMode]::Zoom
     
156. 
     
157. $form.controls.add($pictureBox)
     
158. $form.Add_Shown( { $form.Activate() } )
     
159. #===============================================================
     
160. $file = @(dir *.rar)[0]
     
161. if ($file -eq $null) {write-host '沒找到 rar';pause;exit}
     
162. 
     
163. #設定 $open
     
164. $open=new-object PS.Unrar+RAROpenArchiveDataEx
     
165. $open.ArcNameW=$file
     
166. $open.OpenMode=1
     
167. $open.Reserved=@(0)*28
     
168. $open.Callback=$sb
     
169. 
     
170. #開始 open
     
171. $handle=[PS.Unrar]::RAROpenArchiveEx([ref]$open)
     
172. if ( $open.OpenResult){write-host 'ERROR open';pause;exit}
     
173. 
     
174. #==============================================================
     
175. $nextP={
     
176.         #讀取 header
     
177.         $header = new-object PS.Unrar+RARHeaderDataEx
     
178. 
     
179.         while ($true) {
     
180.                 $result = [PS.Unrar]::RARReadHeaderEx($handle,[ref]$header)
     
181.                 #header讀取錯誤 or 所有header都讀完了
     
182.                 if ( $result ){[PS.Unrar]::RARCloseArchive($handle);stop-process -Id $PID}
     
183. 
     
184.                 #找 jpg png bmp 。 如果不是，就跳到下一個header
     
185.                 if ($header.FileNameW -match '\.(jpg|png|bmp)$') { break} else {
     
186.                 [PS.Unrar]::RARProcessFileW($handle,0,$null,$null)}
     
187. 
     
188.         }
     
189. 
     
190. 
     
191.         #解壓縮到$buffer
     
192.         $script:buffer=new-object byte[]($header.UnpSize)
     
193.         $script:bufferPos=0
     
194.         $result=[PS.Unrar]::RARProcessFileW($handle,1,$null,$null)
     
195. 
     
196.         #解壓縮錯誤
     
197.         if ( $result ){[PS.Unrar]::RARCloseArchive($handle);stop-process -Id $PID}
     
198. 
     
199.        
     
200.         $ms=new-object IO.MemoryStream($buffer,0,$buffer.length)
     
201.         $img = [System.Drawing.Image]::FromStream($ms)
     
202.         $pictureBox.Image = $img
     
203.         $ms.close()
     
204. 
     
205. }
     
206. #===================================================================================
     
207. 
     
208. $pictureBox.Add_Click($nextP)
     
209. 
     
210. & $nextP
     
211. 
     
212. [void]$form.ShowDialog()
     
213. 
     

复制代码