Página 1 de 1
MYRUN não funciona no WIN98
Enviado: 27 Set 2007 10:06
por Reginaldo
Olá pessoal,
A função MYRUN() não funciona do WIN98...
Dá o seguinte erro:
Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Arguments: ( [ 1] = Type: C Val: WScript.Shell)
Esse erro dá na linha do:
oShell := CreateObject( "WScript.Shell" )
Se alguém tiver alguma solução, favor postar aqui, com certeza será útil pra outros companheiros...
Obrigado!
Enviado: 27 Set 2007 10:32
por sygecom
Eu uso normal no win98 , post como esta usando, e sua função myrun()
Enviado: 27 Set 2007 13:04
por Reginaldo
Caro Leonardo,
Tô usando assim:
Código: Selecionar todos
FUNCTION MYRUN(cComando,nStyle,lWait,lShowResult)
LOCAL oShell, RET
IF valtype( nStyle ) != "N"
nStyle := 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
RET := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )
IF lShowResult .AND. RET > 0 .and. RET <= 32
MSG_BOX("Erro Win_Run(): "+ltrim(Str( RET )))
ENDIF
oShell := NIL
*
RETURN IIF( RET = 0, .T., .F. )
Mas na linha do
WScript.Shell dá o erro!
Obrigado,
Enviado: 27 Set 2007 14:20
por sygecom
Eu uso assim e funciona:
Código: Selecionar todos
*********************
FUNC MYRUN( cComando )
**********************
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )
Enviado: 27 Set 2007 15:39
por Reginaldo
Caro Leonardo,
isso não resolve, pois a linha onde está dando o erro é igual, tanto na minha função quanto na sua...
Obs: Tenho uma máquina aqui com WIN98 que não ocorre o erro, porém na do cliente, o erro acontece....
Enviado: 27 Set 2007 16:34
por sygecom
Bom não sei o que pode c, mas se na sua funciona e lah não, ja sabe qeu o problema esta no micro dele....manda entra no DOS e dar um Format c: ....hehehe
Boa Sorte
MyRun em Win98
Enviado: 09 Nov 2007 09:29
por leandrolinauer
Bom dia Reginaldo.
Eu estou usando assim e não obtive problemas a não ser a lentidão para abrir a calculadora do Windows em Win98, já em Xp é mais rápido pode ser por causa da velocidade da máquina, também encontrei o problema de que a calculadora não deixa voltar a tela anterior sem fechar ela, não testei ainda para ver qual o problema disto.
Código: Selecionar todos
Function MyRun
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )
Estive olhando o fórum e encontrei um tópico para usar o MyRun em Win98, um pouco diferente do de cima, mas com a mesma finalidade, embora que para funcionar tem que executar o comando abaixo.
"- Configurações"
"- Painel de controle"
"- Adicionar/remover programas"
"- Instalação do windows"
"- Acessórios"
"- Detalhes"
"- Marque a opção: [X] Windows scripting Host"
"- Execute este programa novamente"
Estes passos fariam teóricamente funcionar, visto que não precisei executar ainda.
o link abaixo fala sobre isto
https://pctoledo.org/forum/viewto ... a82ceae8c2
Espero que eu tenha ajudado.
Um abraço :xau
Enviado: 10 Nov 2007 20:22
por rochinha
Amiguinho
Provavelmente o recurso de leitura de scripts possa não esar instalado ou desativado por motivos de segurança.
Faça~uma pesquisa no GOOGLE sobre Windows Script Download, baixe a versão correspondente para o 98 e o instale ou verifique nos componentes Windows se este recurso foi instalado.
Por segurança este recurso pode estar desativado para evitar a execução não autorizada de scripts .VBS e .HTA que geralmente são introduzidos em nossas maquinas por hacker ou sites preparados.