FiveTech Support Forums

   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE,; // WS_CLIPSIBLINGS
                      If( lBorder, If( l2007, 0, WS_BORDER ), 0 ),;
                      If( lBorder .and. ;
                      ! Upper( oWnd:ClassName() ) $ "TBAR;TOUTLOOK;TXBROWSE", WS_TABSTOP, 0 ),;
                      If( ( ! lBorder ) .and. oWnd:IsKindOf( "TDIALOG" ), WS_TABSTOP, 0 ) )

#include "FiveWin.ch"

function Main()

   local oDlg, cPassw := Space( 10 )

   DEFINE DIALOG oDlg TITLE "Rimanta's Test" ;
      SIZE 400, 200

   @ 1, 2 SAY "User:"

   @ 1, 5 GET cPassw PASSWORD

   @ 50, 40 BTNBMP PROMPT "Ok" SIZE 40, 15 NOBORDER ACTION oDlg:End()

   @ 50, 110 BTNBMP PROMPT "Cancel" SIZE 40, 15 NOBORDER ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

CINI = 
C_OUTPUTFOLDER = 
DEFFILE = 
INCLUDEFOLDERS = 
LAUTORUN = 
LDEBUG = .F.
LGUI = .T.
LIBFOLDERS = 
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE = 
MYC_FLAGS = 
MYDEFINES = 
MYLINK_FLAGS = 
MYPRG_FLAGS = 
MYRC_FLAGS = 
MYSLY_FLAGS = 
OUTPUTFOLDER = 
PRG_OUTPUTFOLDER = 
RC_OUTPUTFOLDER = 
RUNARGUMENTS = 
SLY_OUTPUTFOLDER = 
STARTIN = 
TARGETFOLDER = 

[test.prg]
MYC_FLAGS = 
MYDEFINES = 
MYPRG_FLAGS = 

[mem32.lib]

[send32.lib]

[LIBCMT.LIB]

[libcpmt.lib]

[png.lib]

******************************************************************************
*                                                                            *
*   Program : IPADRES.PRG                                                    *
*   Author  : DRIESSEN Michel                                                *
*   Date    : 24/11/2011 - Ipadres - xHarbour                                *
*                                                                            *
*   Goal    : Looking for internal en external IP-address                    *
*                                                                            *
******************************************************************************
#INCLUDE "FIVEWIN.CH"
#DEFINE DEFAULT(xVar,xVal) xVar=IF(xVar=NIL,xVal,xVar)
******************************************************************************

FUNCTION IP_ADRES(nSec)

   LOCAL oHttp

   LOCAL cVar1     := ""
   LOCAL cVar2     := ""
   LOCAL cSec      := 0

   LOCAL cIPADRES1 := "www.dnsstuff.com/docs/ipall"
   LOCAL cIPADRES2 := "Your IP Address: <strong>"
   LOCAL cIPADRES3 := "</strong>"

   DEFAULT(nSec,"0")

   cSec := VAL(nSec)

   WsaStartUp()
   cVar1 := GetHostByName(GetHostName())
   WsaCleanUp()

   oHttp := CreateObject("winhttp.winhttprequest.5.1")
   oHttp:Open("GET","http://"+ALLTRIM(cIPADRES1),.f.)
   oHttp:Send()
   cVar2 := oHttp:ResponseText()
   cVar2 := StrExtract(cVar2,ALLTRIM(cIPADRES2),ALLTRIM(cIPADRES3))

   IF cSec = 0
      MsgAlert(IF(!EMPTY(cVar1),"Your current internal IP-address is : "+ALLTRIM(cVar1)+IF(!EMPTY(cVAR2),CHR(13)+CHR(13),""),"") + IF(!EMPTY(cVar2),"Your current external IP-address is : "+ALLTRIM(cVar2),""),"Take care")
   ELSE
      MsgWait(IF(!EMPTY(cVar1),"Your current internal IP-address is : "+ALLTRIM(cVar1)+IF(!EMPTY(cVAR2),"       -       ",""),"") + IF(!EMPTY(cVar2),"Your current external IP-address is : "+ALLTRIM(cVar2),""),"Take care",cSec)
   ENDIF

   QUIT

RETURN(.T.)

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

STATIC FUNCTION StrExtract(cText,cAfter,cBefore)

   LOCAL cRet := SUBSTR(cText,AT(cAfter,cText) + LEN(cAfter))
   LOCAL n

   IF (n := AT(cBefore,cRet)) > 0
      cRet := LEFT(cRet,n - 1)
   ENDIF

RETURN(cRet)

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

FUNCTION OleInvoke(hObj,cMethod,uParam)

#IFNDEF __XHARBOUR__
   RETURN __ObjSendMsg(TOleAuto():New(hObj),cMethod,uParam)
#ELSE
   LOCAL aParams := hb_aParams()
   aParams[1] := TOleAuto():New(hObj)
   RETURN hb_execFromArray(@__ObjSendMsg(),aParams)
#ENDIF

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

FUNCTION OleSetProperty(hObj,cPropName,uValue)

RETURN __ObjSendMsg(TOleAuto():New(hObj),"_" + cPropName,uValue)

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

FUNCTION OleGetProperty(hObj,cPropName)

RETURN __ObjSendMsg(TOleAuto():New(hObj),cPropName)

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

CINI = 
C_OUTPUTFOLDER = 
DEFFILE = 
INCLUDEFOLDERS = C:\FWH\INCLUDE
LAUTORUN = .F.
LDEBUG = .F.
LGUI = .F.
LIBFOLDERS = C:\FWH\LIB
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE = 
MYC_FLAGS = 
MYDEFINES = 
MYLINK_FLAGS = 
MYPRG_FLAGS = 
MYRC_FLAGS = 
MYSLY_FLAGS = 
OUTPUTFOLDER = OBJ
PRG_OUTPUTFOLDER = 
RC_OUTPUTFOLDER = 
RUNARGUMENTS = 
SLY_OUTPUTFOLDER = 
STARTIN = 
TARGETFOLDER = 

[PRG\IPADRES.PRG]
MYC_FLAGS = 
MYDEFINES = 
MYPRG_FLAGS = 

[C:\FWH-Obj\xhb.obj]

[C:\FWH-Lib\libcmt.lib]

[C:\FWH-Lib\libpcmt.lib]

[C:\FWH-Lib\mem32.lib]

[C:\FWH-Lib\png.lib]

[C:\FWH-Lib\send32.lib]