求帮忙将vb转为vbs

437153

1. Option Explicit
   
2. Private Declare Function cvt_FihoCodec Lib "fihocodec.dll" ( _
   
3.                 ByVal Source As String, _
   
4.                 ByVal SourceCodec As Integer, _
   
5.                 ByVal Target As String, _
   
6.                 ByVal DestCodec As Integer) As Integer
   
7. 
   
8. Private Declare Function cvt_GetConvertProgress Lib "fihocodec.dll" () As Long
   
9. Private Declare Function cvt_StopConvert Lib "fihocodec.dll" () As Long
   
10. 
    
11. 
    
12. Private Sub Command1_Click()
    
13. On Error Resume Next
    
14.     Dim SourceFile As String
    
15.     Dim TargetFile As String
    
16.     Dim n As Integer
    
17.     Dim BeginTime As Date
    
18.    
    
19.     SourceFile = App.Path + "\test.NTC"
    
20.     TargetFile = App.Path + "\Target" + Format(Now, "yyyyMMddHHmmss") + ".Wav"
    
21.    
    
22.     '' test.ntc => wav
    
23.     If Dir(SourceFile) <> "" Then
    
24.         BeginTime = Now
    
25.         cvt_FihoCodec SourceFile, 3, TargetFile, 0
    
26.         
    
27.         Do While n < 100 And DateDiff("s", BeginTime, Now) <= 120
    
28.             DoEvents
    
29.             n = cvt_GetConvertProgress
    
30.             Label1 = CStr(n) + "%"
    
31.         Loop
    
32.         
    
33.         cvt_StopConvert
    
34.         MsgBox "complete"
    
35.     End If
    
36. 
    
37. End Sub

复制代码

这个代码调用dll，将NTC转换为wav。是一个图形界面的，我想转为vbs,因为从未接触过，所以只好请大家帮帮忙了！

437153

或者用批处理也行，顺便还能看看批处理调用dll的代码。

czjt1234

vbs不支持api，要调用第三方组件的

vb可以去掉图形界面啊，也可以直接运行程序，不需要点什么运行

你百度下或去vb吧问下

437153

回复 3# czjt1234


    哦，原来是这样啊。