Search found 37 matches: wscript

Return to advanced search

Re: ID of the new process

... * 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 ...
by Antonio Linares
Tue Nov 14, 2023 2:06 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: ID of the new process
Replies: 2
Views: 291

Re: enviar mensajes a whatsapp, ¿posible solucion?

... ), " ", "%20" ) ) SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien CreateObject( "WScript.Shell" ):SendKeys( "~" )
by Antonio Linares
Thu Oct 12, 2023 11:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: enviar mensajes a whatsapp, ¿posible solucion?
Replies: 55
Views: 3683

Re: Envió de teclas/pulsaciones a una aplicación externa.

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 ...
by FiveWiDi
Thu Jun 01, 2023 7:05 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Envió de teclas/pulsaciones a una aplicación externa.
Replies: 2
Views: 226

Envio de Correo con Archivos adjuntos

... + 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 ...
by servicomver
Thu Mar 03, 2022 11:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Envio de Correo con Archivos adjuntos
Replies: 3
Views: 316

Re: Name of the user

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 ...
by Natter
Thu Dec 09, 2021 4:39 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Name of the user
Replies: 3
Views: 490

Ejecutar llamada a servicio.

... 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
by Adolfo
Thu Aug 20, 2020 2:17 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ejecutar llamada a servicio.
Replies: 16
Views: 1528

Re: shellexec or winexec

... 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( ...
by MGA
Fri Dec 06, 2019 11:32 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: shellexec or winexec
Replies: 5
Views: 864

Re: Acceso denegado

... 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( ...
by MGA
Wed Dec 04, 2019 8:14 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Acceso denegado (SOLUCIONADO)
Replies: 2
Views: 517

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

... 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 ...
by Sistem
Tue Jun 11, 2019 6:44 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Replies: 38
Views: 7308

Re: Wscript.shell

Thank you my friend...Works great.
by byron.hopp
Sat Nov 17, 2018 5:32 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Wscript.shell
Replies: 2
Views: 577

Re: Wscript.shell

Code: Select all  Expand view
? WshShell:SpecialFolders:Item("Desktop")
by nageswaragunupudi
Sat Nov 17, 2018 4:51 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Wscript.shell
Replies: 2
Views: 577

Wscript.shell

... 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 ...
by byron.hopp
Sat Nov 17, 2018 1:05 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Wscript.shell
Replies: 2
Views: 577

Re: Ver PDF dentro de la aplicación

Aqui tenemos un ejemplo de como usar wscript.shell desde Harbour:

viewtopic.php?p=50307

Code: Select all  Expand view
oRemoteShell:=CreateObject("WScript.Shell")
oRemoteShell:Run("ShutDown -s -m \\NombrePC",0,.F.)
oRemoteShell:=nil
by Antonio Linares
Wed Jun 08, 2016 8:15 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ver PDF dentro de la aplicación
Replies: 60
Views: 20157

Re: Ver PDF dentro de la aplicación

... I found the easiest way is to do this: set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 400 WshShell.sendkeys "URL HERE" WshShell.sendkeys ...
by Antonio Linares
Wed Jun 08, 2016 8:09 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ver PDF dentro de la aplicación
Replies: 60
Views: 20157

Re: Saber Metodos de un CREATEOBJECT

Inspeccionando "WScript.Network"

STDCALL virtual FUNC HRESULT AddWindowsPrinterConnection( [in] BSTR, [defaultvalue] BSTR, [defaultvalue] BSTR )
by Antonio Linares
Mon May 13, 2013 5:55 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Saber Metodos de un CREATEOBJECT
Replies: 62
Views: 32039
Next

Return to advanced search