FiveTech Software tech support forums

... this:
PROCEDURE CreateLNKShortcut(cLnkPath, cURL)
LOCAL oShell, oShortcut

// Initialize COM (if not already done)
IF !Empty(GetActiveObject("WScript.Shell"))
oShell := CreateObject("WScript.Shell")
ELSE
? "COM initialization failed."
RETURN
ENDIF

// Create the shortcut
oShortcut ...

Try using WScript

lc_oShell := tOleAuto():New( "WScript.Shell" )
lc_oShell:SendKeys("^V")


Thanks. This is working for me.

This is my test:
#include "fivewin.ch"

#define WM_PASTE 770

function Main()

local oDlg, oBar, oGet
local cText := Space( 100 )

SetGetColorFocus()
DEFINE DIALOG oDlg ...

Try using WScript

... ExecQuery("Select * from Win32_Process Where Name = 'winword.exe'")

For Each objProcess In colProcesses
Set objOwner = objProcess.GetOwner()
WScript.Echo "Process ID: " & objProcess.ProcessId
WScript.Echo "Owner: " & objOwner.User
Next
```

This may not directly give you the ID of the ...

... VBA, etc

Simplemente usa esto desde FWH en un bucle:

ShellExecute( 0, "open", StrTran( "whatsapp://send?phone=" + cTelefono + "&text=" + cMensaje ), " ", "%20" ) )
SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien
CreateObject( "WScript.Shell" ):SendKeys( "~" )

Hola João,

Ya estaba probando con WScript.Shell, veremos hasta donde llego.

De momento voy avanzando, creo que me servirá.

Para enviar pocos whatsapp seguramente servirá, para muchos (*).. veremos como se los come y como reacciona la pantalla web; deberé jugar con Sleep() en la rutina de envío para ...

... cCommand + "body=" + Chr(34) + cBody + Chr(34) + ","
cCommand = cCommand + "attachment=" + Chr(34) + cAtach1 + Chr(34)
oShell:=CreateObject("WScript.Shell")
WinExec( cCommand, 0 )

Lo envia sin problema, pero como adjunto 2 o mas archivos al mismo correo ?, ya lo intente comprimiendo en ZIP ...

Thanks, ADutheil !

To prevent the Powershell shell window from appearing, the script must be run through Wscript and cmd.exe .
Of course, I made a flag DBF, where each launching application locks its own line.
But it seemed to me that by viewing all processes through WMI, you can find out the name ...

... do.bat"....)

Me genera todo menos la impresion del vale. He probado TODAS las combinaciones de nMode y nada de nada.
Alguna idea o tip por donde ir...

hasta probe

oShell := CreateObject( "WScript.Shell" )
oShell:Run( "%comspec% /c start do.bat", 0, .T.)

.....sin resultados.


Desde Chile
Saludos

... 0
ENDIF

IF ValType( lWait ) != "L"
lWait := .T.
ENDIF

IF ValType( lShowResult ) != "L"
lShowResult := .F.
ENDIF

oShell := CreateObject( "WScript.Shell" )

IF !GetEnv( "OS" ) == "Windows_NT"
cComando += "start " + cComando
ENDIF

TRY
nRetorno := oShell:Run( "%comspec% /c " + cComando, nStyle ...

... ENDIF

IF ValType( lWait ) != "L"
lWait := .T.
ENDIF

IF ValType( lShowResult ) != "L"
lShowResult := .F.
ENDIF

oShell := CreateObject( "WScript.Shell" )

IF !GetEnv( "OS" ) == "Windows_NT"
cComando += "start " + cComando
ENDIF

TRY
nRetorno := oShell:Run( "%comspec% /c " + cComando ...

... Function Whatsapp(cDe, cPara, cmsg)
Local clink := "wppredirect.tk/go/?p=55"+cPara+"&m=Envio"+cDe // 55 brasil

oShell := CreateObject( "WScript.Shell" )
oShell:run(uRegPath+"\chrome\chrome.exe "+clink )
syswait(5)
oShell:SendKeys("~")
syswait(2)
oShell:SendKeys("Ola mundo")
oShell ...

Thank you my friend...Works great.

... to utilize this object to manipulate VM's on my server. I am starting simple:

Function TestCreateShortCut()
Local WshShell := CreateObject("Wscript.shell")
Local cSpecialFolder := WshShell:SpecialFolders("Desktop")
MsgInfo( cSpecialFolder,"Special Folder" )
Return nil

This Errors on the ...