https://www.coreldraw.com/cdgs2021extras

ខ្ញុំបានសាកល្បងជំហានទាំងនេះនៅលើកុំព្យូទ័រចំនួនបី (កុំព្យូទ័រលើតុ 2 និងកុំព្យូទ័រយួរដៃ 1) 
ជាមួយនឹងប្រព័ន្ធប្រតិបត្តិការ Windows 11 
(ខ្ញុំសង្ឃឹមថាវាដំណើរការផងដែរនៅក្នុង Windows 10) 
ហើយអ្វីគ្រប់យ៉ាងកំពុងដំណើរការ (កុំបិទនៅពេលបើកកម្មវិធី): 
1. ចាប់ផ្តើម XFORCE Keygen 
ជ្រើសរើសផលិតផល ចុចលេខស៊េរី ដើម្បីបង្កើតលេខស៊េរីរបស់អ្នក។ 
(កុំបិទ XF KEYGEN) 
2. ផ្តាច់អ៊ីនធឺណិត! 
3. ដំឡើងកម្មវិធី! 
4. ដំឡើងបច្ចុប្បន្នភាព! 
5. ចម្លងជួរទាំងនេះ៖
0.0.0.0 apps.corel.com 
0.0.0.0 mc.corel.com 
0.0.0.0 origin-mc.corel.com 
0.0.0.0 iws.corel.com 
0.0.0.0 mc.corel.com 
0.0.0.0 apps0.com.0.c. 
0.0.0.0 iws.corel.com 
0.0.0.0 compute-1.amazonaws.com 
0.0.0.0 ipm.corel.com 
0.0.0.0 dev1.ipm.corel.public.corel.net 
បើក "C:\Windows\System32\Drivers\etc\hosts" ថតឯកសារ 
C:\Windows\System32\Drivers\etc\hosts 
បិទភ្ជាប់ជួរដែលបានចម្លងពីមុនទៅវា ហើយរក្សាទុកឯកសារ។
 6. បើកដំណើរការកម្មវិធី! 
7. នៅពេលដែលបង្អួចចូលលេចឡើងសូមចុចដើម្បីរំលង! 
8. នៅពេលដែលកម្មវិធីត្រូវបានផ្ទុក 
សូមប្តូរត្រលប់ទៅ XForce Keygen 
ហើយចុច Activation Code។ 
9. ប្រសិនបើអ្វីៗដំណើរការល្អ ប្រអប់សារនឹងលេចឡើង៖ 
ផលិតផលត្រូវបានដំណើរការដោយជោគជ័យ។ 
អ្នកអាចបិទ Keygen ។ 
10. បិទកម្មវិធី 
11. ភ្ជាប់អ៊ីនធឺណិតឡើងវិញ 
12. ដំណើរការកម្មវិធីម្តងទៀត។ 
យើងស្នើឱ្យបិទកម្មវិធីនៅក្នុងជញ្ជាំងភ្លើងរបស់អ្នក
 ដើម្បីជៀសវាងសារដែលឆោតល្ងង់អំពីការទិញ
 ប៉ុន្តែវានឹងនៅតែដំណើរការដូចដែលបានចុះឈ្មោះ
នៅក្នុងករណីណាមួយ។ នោះហើយជាវា សូមរីករាយជាមួយវា។

 Option Explicit ' VBA ពន្លាឯកសារ ZIP RAR and FIle

Sub Test1()
    Dim PathFile As String
    Dim NameArhiv As String
    Dim NameCDR As String
    
    Dim FSO As Object
    
    
        PathFile = "C:\Users\khmer\Downloads\New folder (11)\"
        NameArhiv = "Untitled-1_TIFs.zip"
        NameCDR = "Untitled-1.cdr"
        
        
     Set FSO = CreateObject("Scripting.FileSystemObject")
     
     With FSO
       .CopyFile (PathFile & NameCDR), (PathFile & NameArhiv)
     End With
     
     
        With CreateObject("Shell.Application")
            .Namespace((PathFile)).CopyHere (PathFile & NameArhiv) & "\previews\" & "thumbnail.png"
        End With
        
'        With CreateObject("Shell.Application")
'            .Namespace((PathFile)).CopyHere .Namespace((PathFile & NameArhiv)).Items
'        End With
        
        FSO.DeleteFile (PathFile & NameArhiv)
    
End Sub