DECLARE INTEGER WNetConnectionDialog IN WIN32API ;

INTEGER hWnd, ;

INTEGER nResourceType



DECLARE INTEGER GetActiveWindow IN WIN32API



IF WNetConnectionDialog(GetActiveWindow(),1) = 0

    =messagebox("La conexión establecida")

ELSE

   =messagebox("Nno fue posible la conexión")

ENDIF

#Define
WSADATA_SIZE 398

#Define
WS_VERSION 514

#Define
HOSTBUFFER_SIZE 256

#Define
HOSTENT_STRUCT_SIZE 16

Do DeclareAPIs

Local lcBuffer, lnResult, lcHostname,
lcMessage, lcHostentStruct

lcBuffer  = SPACE(WSADATA_SIZE)

lnResult  = WSAStartup(WS_VERSION, @lcBuffer)

lcMessage = ""




If lnResult = 0

   
lcBuffer = Replicate(CHR(0),HOSTBUFFER_SIZE)

   
lnResult = gethostname(@lcBuffer,HOSTBUFFER_SIZE)



   
If
lnResult = 0

       
lcHostname = STRTRAN(lcBuffer,CHR(0),"")

       
lcMessage = "HOST: "
+ lcHostname +
Chr(13)

       
lnResult = gethostbyname(lcHostname)



       
If
lnResult != 0

           
lcHostentStruct = MemoryBuffer(lnResult, HOSTENT_STRUCT_SIZE)

           
lnResult = buf2dword(Substr(lcHostentStruct,
13,4))



           
If
lnResult != 0

               
lcMessage = lcMessage +
"LOCAL IP ADDRESS: "
+ IPPortion(lnResult)

       
    Endif

       
Endif

   
Endif



   
If Empty(lcMessage)

       
lcMessage = "Lo se
pudo obtener Host - IP"

   
EndIf

   
Messagebox(lcMessage,64,"Local
Host & IP")

   
=WSACleanup()


Else

   
Messagebox("Error
: " +
Transform(lnResult))


ENDIF

**************************


PROCEDURE DeclareAPIs


**************************

   
Declare Integer
WSAStartup
In
wsock32;

    
Integer
wVerRq,
String
@lpWSAData

   
Declare Integer
WSACleanup
In
wsock32

   
Declare Integer
gethostname
In
wsock32;

    
String
@Name,
Integer
namelen

   
Declare Integer
gethostbyname
In
wsock32;

    
String HostName

   
Declare RtlMoveMemory
In
kernel32
As
Heap2Str;

    
String
@,
Integer,
Integer

Endproc

**************************


Function IPPortion(nPointer)


**************************

   
Local
lnAddress, lcResult

   
lnAddress = buf2dword(MemoryBuffer(nPointer, 4))

   
Return Iif(lnAddress
<> 0, JustIP(MemoryBuffer(lnAddress, 4)),
"")


Endfunc

**************************


Function JustIP(cBuffer)


**************************

   
Local
lcResult, lnCounter

   
lcResult = ""

   
For
lnCounter=1
To
4

       
lcResult = lcResult +
Ltrim(Str(Asc(Substr(cBuffer,
lnCounter)))) + Iif(lnCounter=4,    
"",".")

    Endfor

   
Return lcResult


Endfunc

**************************


Function buf2word (cBuffer)


**************************

    Return Asc(Substr(cBuffer,
1,1)) + Asc(Substr(cBuffer,
2,1)) * 256


Endfunc

**************************


Function buf2dword(cBuffer)


**************************

    Return Asc(Substr(cBuffer,
1,1)) + ;

       
BitLShift(Asc(Substr(cBuffer,
2,1)), 8) +;

       
BitLShift(Asc(Substr(cBuffer,
3,1)), 16) +;

       
BitLShift(Asc(Substr(cBuffer,
4,1)), 24)


Endfunc

**************************


Function MemoryBuffer(nAddress,
nBuffersize)


**************************

    Local
lcBuffer

   
lcBuffer = SPACE(nBuffersize)

   
= Heap2Str (@lcBuffer, nAddress, nBuffersize)

   
Return
lcBuffer


Endfunc

Local lcPath, hWindow, lcDelimiter,
lcFiles, lcMsgSubj

lcPath = Sys(5)
+ Sys(2003)

cDelimi = ";"


lcFiles =
"C:\Archivo1.exe" +
cDelimi +
"C:\tabla.dbf"


lcMsgSubj =
"Archivos adjuntos: Archivo1.exe, tabla.dbf"

nHwd = GetActiveWindow()



=MAPISendDocuments(nHwd, cDelimi, lcFiles, lcMsgSubj,0)

Set Default To (lcPath)

Procedure FindWindow

    Declare Integer
GetActiveWindow
In
user32

   
Declare Integer
MAPISendDocuments
In
mapi32;

       
INTEGER
ulUIParam,
String
lpszDelimChar,;

       
STRING
lpszFullPaths,
String
lpszFileNames,;

       
INTEGER
ulReserved


EndProc

#DEFINE
LOGOFF 0

#DEFINE SHUTDOWN
1

#DEFINE
REBOOT 2

#DEFINE FORCE
4

#DEFINE
POWEROFF 8

DECLARE SHORT ExitWindowsEx
IN
Win32API;

    SHORT
uFlags,
INTEGER
dwReserved

=ExitWindowsEx(SHUTDOWN,
0)

Declare integer BlockInput
in
user32.dll
Long

BlockInput(.T.) &&
Bloquea

BlockInput(.F.) &&
Desbloquea

Con esta función API podrás
conocer el estado actual de la memoria de tu PC.

Crea un PRG
y agrega el siguiente código:

Declare
GlobalMemoryStatus In kernel32 String @ lpBuffer



lpBuffer = Repli (Chr(0), 250)

= GlobalMemoryStatus (@lpBuffer)



= _display ("This buffer length, in bytes ..........:", 1)

= _display ("Memory in use, % ......................:", 5)

= _display ("Physical memory, in bytes .............:", 9)

= _display ("Physical memory available, in bytes ...:", 13)

= _display ("Committed memory limit, in bytes ......:", 17)

= _display ("Available memory to commit, in bytes ..:", 21)

= _display ("User mode portion..., in bytes ........:", 25)

= _display ("Unreserved/uncommitted memory .........:", 29)



Procedure _display (lcCaption, lnOffs)

       ? lcCaption +
Trans(buf2dword(Substr(lpBuffer,lnOffs,4)),;

           
"999,999,999,999,999,999")

Return



Function buf2dword (lcBuffer)

Return;

            
Asc(Substr(lcBuffer, 1,1)) + ;

             
Asc(Substr(lcBuffer, 2,1)) * 256 +;

             
Asc(Substr(lcBuffer, 3,1)) * 65536 +;

             
Asc(Substr(lcBuffer, 4,1)) * 16777216

Endfunc

 

Declare Integer IsThemeActive in "UxTheme.dll" () As Long
nRet = IsThemeActive()


? "Themes: " + Iif(nRet = 0, "No activos","Activos")
 

Declare Integer GetRTTAndHopCountIn Iphlpapi;
    INTEGER DestIpAddress, Long @HopCount,;
   INTEGER MaxHops, Long
@RTT

Declare Integer inet_addr In ws2_32 String cp

Local nDst, nHop, nRTT
Store 0 To nHop, nRTT

nDst = inet_addr("192.168.0.5")

If GetRTTAndHopCount(nDst, @nHop, 50, @nRTT) <> 0
   ? "# de intentos de contactar el destino:", nHop
   ? "Tiempo de respuesta, en millisegundos:", nRTT
Else
   ? "Error
Destino no se encuentra"
EndIf
 

RUN ping
"NOMBRE_PC"
> c:\PingIp.TXT

cTxt = FILETOSTR([c:\PingIp.TXT])

cTxt = SUBSTR(cTxt,AT("[",cTxt)+1)

? LEFT(cTxt,AT("]",cTxt)
-1)