[VBS] Uso di funzioni API nei file .vbs

[mvent]

salve a tutti!
è possibile mettere API all'interno dei file di VBscript (cioè i file .vbs)?
col classico modo in cui le dichiaro in visual basic 6, nei file .vbs non funziona..
si può fare?
come?

grazie in anticipo
saluti
mauro v.
===========================

[br1]

Forse e' meglio nel forum VB

[oregon]

Originariamente inviato da mvent
salve a tutti!
è possibile mettere API all'interno dei file di VBscript (cioè i file .vbs)?
col classico modo in cui le dichiaro in visual basic 6, nei file .vbs non funziona..
si può fare?
come?

grazie in anticipo
saluti
mauro v.
===========================

No ... ma dipende da cosa ti serve si puo' fare con qualche activex ...

Oppure puoi scrivere il tuo activex in VB che usa le API e istanziarlo nello script ...

[mvent]

nno...
mi serve il programma in un unico file, che sarebbe il .vbs, senza file esterni.
altrimenti mi conviene fare un exe....
ma mi serve il .vbs perchè così ho sempre possibilità di modificare il programma, modificando il .vbs;
invece con l'exe o l'ocx, dovrei stare ogni volta a ricompilare il file col vb.
quindi mi dici che non c'è modo di farlo in un unico file .vbs?
dannate api....

[oregon]

Pero' non hai risposto ... quali API ti servono ... ?

[mvent]

ah scusa, avevo capito che non si poteva fare....
ecco le api che mi servono:

Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Public Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal fnWeight As Long, ByVal fdwItalic As Boolean, ByVal fdwUnderline As Boolean, ByVal fdwStrikeOut As Boolean, ByVal fdwCharSet As Long, ByVal fdwOutputPrecision As Long, ByVal fdwClipPrecision As Long, ByVal fdwQuality As Long, ByVal fdwPitchAndFamily As Long, ByVal lpszFace As String) As Long
Public Declare Function MulDiv Lib "kernel32" (ByVal nNumber As Long, ByVal nNumerator As Long, ByVal nDenominator As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32.dll" () As Long

[oregon]

E avevi capito bene ... non si puo'.

Volevo capire se le API che usi potevano essere rimpiazzate con oggetti di classi disponibili ...

Pero', dato il tipo di API che devi usare, uno script non e' la miglior soluzione ...

Cosa deve fare il tuo programma ...? Perche' deve essere uno script ?

[mvent]

Originariamente inviato da oregon
Cosa deve fare il tuo programma ...? Perche' deve essere uno script ?

deve essere uno script perchè devo avere la possibilità di modificarlo senza avere il VB per ricompilarlo.
in altre parole mi serve che rimanga a codice aperto ed eseguibile.

[oregon]

Non si puo' ...