Mensajes

si podrias especificar mas seria genial.
fijate si son las variables que estan vacias. aunque veo el formato que estas poniendo, creo que te conviene mas poner en vez de todo eso, usar la funcion "now()"

salu2

La funcion se declara asi:

Código [Seleccionar] Expandir

Declare Function SetPriorityClass Lib "kernel32" Alias "SetPriorityClass" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long

soy del pensamiento homerista: "menos palabras y mas accion" 

en fin.... se lo que se siente encontrar todo en c++, y poco y nada en vb.

salu1 salu2

1) El code no anda.
2) Que se supone que hace? Un Sleep a mi propio proceso?
3) Crashoverwrite, eso es lo q hace el code, crashea. jaja.

salu!

En primer lugar, no detecto nada extraño o fuera de lugar en el code, asi q al parecer, el problema es de la conexion. asegurate de q se conecta bien a la otra maquina, de q el text2.text no este vacio, de q el programa q estes ejecutando exista, si le pones el "on error resume next" sacaselo asi te marcara el error.

bueno, como dije, a mi parecer, el problema es de la conexion.

intenta poner un Msgbox "hola" en una macro, y saltaran 500 mil mensajes de "se ha detectado un virus", "posible codigo dañino", o "no se recomienda ejecutar la macro". 

decididamente algo esta mal en esa funcion, ya q LShiftWord me devuelve un integer, y eso jamas puede ser, xq el valor tiene q ser long, y aunque yo se lo cambie a long, el valor q me devuelve siempre es un numero entero.

la funcion cuando le paso el valor &H8305 me devuelve 0!!!!

no se porque en c++ funciona correctisimamente, y en VB no  :'(

nimporta, ya lo arreglare.

suban ese ddk, q yo ni sabia q existia 

q rayos es el ddk? 

a lo q me refiero es justamente a esa funcion, como la puedo pasar, xq no la entiendo, ahorita no la tengo aki, pero se q esta en un include del vc++.

cuando pase de vuelta, la posteo, a ver si me ayudan.

salu2

alguien sabe como pasar este code:

Código [Seleccionar] Expandir

#define DDD      (ULONG) CTL_CODE( 0x00008305, 0x00, METHOD_BUFFERED, FILE_ANY_ACCESS )


a codigo VB ?? agradeceria cualquier ayuda.

salu2.

Para abrir una carpeta puedes poner:

Código [Seleccionar] Expandir

Set objShell = CreateObject("Shell.Application")
objShell.open "C:\"


salu2