Gracias Antonio lo tu respesta , en TestNet.prg hay ejemplos pero ninguno se adpata, la idea era usar directo la api y ventana que usa windows, pero bueno por las dudas si alguien necesita la soluci贸n es la siguiente:
1) Crear un funci贸n que solicite Usuario y Pass (Esto es necesario porque pueder que cada terminal use su propia clave de loquea al recurso y no es conveniente dejarla dentro de la aplicaci贸n o, se puede hacer un archivo de cadena de conexi贸n incluyendo , ruta, o unidad virtual, usuario y pass, pero para nuestro caso no sirve esta opci贸n,
2) Crear el logueo mediante,
聽 聽 聽 聽 聽 聽 聽 聽 聽a_res:=toma_login()
聽 聽 聽 聽 聽 聽 聽 聽 聽IF a_res[1]
聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽聽 聽 WNetAddConnection2(cc_ruta,ALLTRIM(a_res[3]),ALLTRIM(a_res[2]),LEFT(ud,2))
聽 聽 聽 聽 聽聽 聽聽 聽 IF FILE(ud+"\GRW232\DATA\GR2_000.DBF")
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽RETURN(.T.)
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ELSE
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽RETURN(.F.)
聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽 聽ENDIF
聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽聽 聽 ELSE
聽 聽 聽 聽 聽 聽 聽 聽 聽聽 聽聽 聽 RETURN(.F.)
聽 聽 聽 聽 聽 聽 聽 聽 聽ENDIF
Saludos,
http://www.prediger.com.ar/downloads/login.jpg
