Using Wndows API in VBScript

[AskMan]

Hi,

First, I'm sorry if my english is not very fluent ... )

I would like to use the Windows API in a script, but I already got errors.

If someone can help me.

Thanks

 

[sfriday]

Can you please detail the errors you are getting also example of code you are using.

Regards
Steve Friday

 

[AskMan]

By example, the following code works in a VB module, but I can't use it in a VBScript.
The error always occurs during the declaration of the API:
- Line : 3
- Caract : 17
- Code : 800A0401
- Source : Compilation Error

So, I don't know if I can use the Windows API

Thanks for your answer

--------------------------------------------------
Option Explicit

Private Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)


MsgBox(LireKeyIni("mySection","myKey","myFile&quot)

Public Function LireKeyIni(section$, key$, file$)

Dim N, valeur$
valeur = String(255, 0)

N = GetPrivateProfileString(section, key, "", valeur, 254, file)
If N > 1 Then
valeur = Left$(valeur, N)
End If

LireKeyIni = valeur
End Function
----------------------------------------------

 

[dilettante]

VBScript doesn't support API calls, you have to create an ActiveX component that does the actual calls. You may find several such scripting "helper" components on the web.

One place to start is

http://home.att.net/~wshvbs/index.htm

You can also create your own API-interface components using VB. VB5 Control Creation Edition is a great option for those who don't have VB5 or VB6. See

http://msdn.microsoft.com/vbasic/downloads/tools/cce/default.asp

if you want to explore this option.

 

[AskMan]

Thanks both of you for your help