WSH, puedo usarlos en VB??
Publicado por srfloopy (17 intervenciones) el 09/02/2004 13:45:05
Buenas, y gracias de antemano.
Estoy realizando un proyecto con un Analyzador BT y tengo que controlarlo con VB, el fabricante me da un manual de API's donde solo tengo Windows Scripts Host, como puedo utilizar estos en VB?? se pueden utilizar??
Un ejemplo de WSH que me da el fabricante es :
HRESULT GetVersion (
[in] EAnalyzerVersionType version_type,
[out, retval] WORD* analyzer_version );
Retrieves the current version of specified subsystem
Parameters
version_type - subsystem which version is requested;
EAnalyzerVersionType enumerator has the following values:
ANALYZERVERSION_SOFTWARE ( 0 ) – software
ANALYZERVERSION_BUSENGINE ( 1 ) – bus engine
ANALYZERVERSION_FIRMWARE ( 2 ) – firmware
analyzer_version - current version of subsystem requested
Return values
ANALYZERCOMERROR_INVALIDVERSIONTYPE – specified version type is invalid
ANALYZERCOMERROR_ANALYZERNOTCONNECTED - analyzer device is not connected
Remarks
Example
WSH:
CurrentDir = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName,
"\"))
Set Analyzer = WScript.CreateObject("CATC.Merlin")
SwVersion = Analyzer.GetVersion(0)
BEVersion = Analyzer.GetVersion(1)
FwVersion = Analyzer.GetVersion(2)
MsgBox "Software" & SwVersion & "BusEngine" & BEVersion & "Firmware" &
FwVersion
Estoy realizando un proyecto con un Analyzador BT y tengo que controlarlo con VB, el fabricante me da un manual de API's donde solo tengo Windows Scripts Host, como puedo utilizar estos en VB?? se pueden utilizar??
Un ejemplo de WSH que me da el fabricante es :
HRESULT GetVersion (
[in] EAnalyzerVersionType version_type,
[out, retval] WORD* analyzer_version );
Retrieves the current version of specified subsystem
Parameters
version_type - subsystem which version is requested;
EAnalyzerVersionType enumerator has the following values:
ANALYZERVERSION_SOFTWARE ( 0 ) – software
ANALYZERVERSION_BUSENGINE ( 1 ) – bus engine
ANALYZERVERSION_FIRMWARE ( 2 ) – firmware
analyzer_version - current version of subsystem requested
Return values
ANALYZERCOMERROR_INVALIDVERSIONTYPE – specified version type is invalid
ANALYZERCOMERROR_ANALYZERNOTCONNECTED - analyzer device is not connected
Remarks
Example
WSH:
CurrentDir = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName,
"\"))
Set Analyzer = WScript.CreateObject("CATC.Merlin")
SwVersion = Analyzer.GetVersion(0)
BEVersion = Analyzer.GetVersion(1)
FwVersion = Analyzer.GetVersion(2)
MsgBox "Software" & SwVersion & "BusEngine" & BEVersion & "Firmware" &
FwVersion
Valora esta pregunta


0