Board logo

标题: [问题求助] 求帮忙将vb转为vbs [打印本页]

作者: 437153    时间: 2015-5-25 19:21     标题: 求帮忙将vb转为vbs

  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. Private Declare Function cvt_GetConvertProgress Lib "fihocodec.dll" () As Long
  8. Private Declare Function cvt_StopConvert Lib "fihocodec.dll" () As Long
  9. Private Sub Command1_Click()
  10. On Error Resume Next
  11.     Dim SourceFile As String
  12.     Dim TargetFile As String
  13.     Dim n As Integer
  14.     Dim BeginTime As Date
  15.    
  16.     SourceFile = App.Path + "\test.NTC"
  17.     TargetFile = App.Path + "\Target" + Format(Now, "yyyyMMddHHmmss") + ".Wav"
  18.    
  19.     '' test.ntc => wav
  20.     If Dir(SourceFile) <> "" Then
  21.         BeginTime = Now
  22.         cvt_FihoCodec SourceFile, 3, TargetFile, 0
  23.         
  24.         Do While n < 100 And DateDiff("s", BeginTime, Now) <= 120
  25.             DoEvents
  26.             n = cvt_GetConvertProgress
  27.             Label1 = CStr(n) + "%"
  28.         Loop
  29.         
  30.         cvt_StopConvert
  31.         MsgBox "complete"
  32.     End If
  33. End Sub
复制代码
这个代码调用dll,将NTC转换为wav。是一个图形界面的,我想转为vbs,因为从未接触过,所以只好请大家帮帮忙了!
作者: 437153    时间: 2015-5-25 19:23

或者用批处理也行,顺便还能看看批处理调用dll的代码。
作者: czjt1234    时间: 2015-5-26 09:40

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

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

你百度下或去vb吧问下
作者: 437153    时间: 2015-5-26 16:29

回复 3# czjt1234


    哦,原来是这样啊。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2