恳求大神帮我将源码转成COM插件

fdk3r6b

1. Set objArgs = WScript.Arguments
   
2.        For I = 0 To objArgs.Count - 1
   
3.          FileUrl = objArgs(I)
   
4.          Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode")
   
5.        Next
   
6. Function ReadFile(FileUrl, CharSet)
   
7. Dim Str
   
8. Set stm = CreateObject("Adodb.Stream")
   
9. stm.Type = 2
   
10. stm.mode = 3
    
11. stm.charset = CharSet
    
12. stm.Open
    
13. stm.loadfromfile FileUrl
    
14. Str = stm.readtext
    
15. stm.Close
    
16. Set stm = Nothing
    
17. ReadFile = Str
    
18. End Function
    
19. 
    
20. Function WriteToFile (FileUrl, Str, CharSet)
    
21. Set stm = CreateObject("Adodb.Stream")
    
22. stm.Type = 2
    
23. stm.mode = 3
    
24. stm.charset = CharSet
    
25. stm.Open
    
26. stm.WriteText Str
    
27. stm.SaveToFile FileUrl, 2
    
28. stm.flush
    
29. stm.Close
    
30. Set stm = Nothing
    
31. End Function

复制代码

由于一些因素，需要转换编码这是网站上抓的 (http://younglab.blog.51cto.com/416652/252990)
他需要另外用BAT调用
恳求大神会VB的，帮个忙转成DLL调用

拜托拜托

slz336

支持下,必须顶啦`