cDir =
GETENV("userprofile")+"\Configuración
local\Application Data\Microsoft\CD Burning\"

cFile = "c:\DatosXP.txt"

Copy File (cFile)
to
(cDir+JustFname(cFile))

Set Safety Off

Create Cursor Tabla1 (Txt C(10))


Insert Into Tabla1
Values
("XXXXXXXXXX")


Insert Into Tabla1
Values
("YYYYYYYYYY")


Insert Into Tabla1
Values
("WWWWWWWWWW")

Create Report Reporte1
From
Tabla1


Report Form Reporte1
Preview Nowait

Create Cursor Tabla2 (Txt C(10))


Insert Into Tabla2
Values
("AAAAAAAA")


Insert Into Tabla2
Values
("BBBBBBBB")


Insert Into Tabla2
Values
("CCCCCCCC")

Create Report Reporte2
From
Tabla2


Report Form Reporte2
Preview Nowait

lEx = IsExclusive("Tabla")

? Iif(lEx,
"Exclusiva",
"Compartida")

#DEFINE
ImpRangoPag 4

cPaginas =
"1,3,6-12"

oWord = CreateObject("Word.Application")

oWord.Documents.Open(GetFile("DOC"))

oWord.ActivePrinter =
GetPrinter()

oWord.ActiveDocument.Printout(.T.,,ImpRangoPag,,,,,1,cPaginas)

 

 

oInet = Create("InetCtls.Inet")

oInet.RemotePort =
"8080"


oInet.RequestTimeOut = 1000

* En caso de necesitar Proxy

* oInet.proxy = "192.168.6.3"

cUrl = "http://www.davphantom.net/img/log2.png"

oDatos = oInet.OpenURL(cUrl, 1)

nHF = Fcreate("log2.png")

For i = 1
To Alen(oDatos)

    Fwrite(nHF,
Chr(oDatos[i]))


EndFor

FClose(nHF)


 

Lo único que debes hacer presionar las teclas:
Ctrl + C cuando te muestre el MessageBox y ya tendrás en el portapapeles el
mensaje que se mostraba.

oIE = CreateObject("InternetExplorer.Application")

oIE.Navigate("http://yahoo.com")

DO WHILE oIe.ReadyState = 1

    WAIT WINDOW
"Procesando...."
Nowait

ENDDO

oIEdocument = oIE.Document

?oIEdocument.body.innerhtml

cDirDest = "c:\Mis
Documentos\"


cFileACopiar = "Mi
Archivo de Ayer.txt"


Copy File (cFileACopiar)
To
(cDirDest+cFileACopia)






 

#Define
VK_LWIN 0x5B

#Define
VK_RWIN 0x5C

#Define
KEYEVENTF_KEYUP 0x2

Declare keybd_event
In
Win32API ;

    SHORT
bVk,
SHORT
bScan, ;

    Integer
dwFlags, Integer
deExtraInfo

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

 


* Ahora veremos como mostrarlo esperar

* unos segundos y luego ocultarlo

#Define
VK_LWIN 0x5B

#Define
VK_RWIN 0x5C

#Define
KEYEVENTF_KEYUP 0x2

Declare keybd_event
In
Win32API ;

    SHORT
bVk,
SHORT
bScan, ;

    Integer
dwFlags, Integer
deExtraInfo

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

=Inkey(.3)
* Espera 3 segundos

keybd_event(VK_LWIN,0x5B,0,0)

keybd_event(VK_LWIN,0x5B,KEYEVENTF_KEYUP,0)

Declare Integer FindWindow
In
WIN32API;


String
cNull,
String
cWinName

nOk = FindWindow("XLMAIN",
0)

? "Excel"+Iif(nOk
> 0,"","
no está")+"
ejecutándose"

DBSetProp("MiBaseDatos","Database","DBCEvents",.F.)

Para volver a activarlos:

DBSetProp("MiBaseDatos","Database","DBCEvents",.T.)

?(Left(Ttoc(Datetime()),14)
+ Right(Ttoc(Datetime()),2))

Close
Databases All

Use Home(2)+"Northwind\northwind.dbc"
In
0
Alias Dbc Noupdate

Select T.ObjectName
Table,I.ObjectName
Tag From Dbc
T ;

   
Join Dbc
I
On
T.ObjectId = I.ParentId ;

   
WHERE
T.objecttype ==
"Table"
;

   
And I.objecttype ==
"Index"





 

Declare INTEGER FindWindowEx
IN
user32.dll
;

    Long,
Long,
string,
String

Declare INTEGER EnableWindow
in
user32.dll
Long,
Long

* Deshablitado = 0

* Hablitado = 1

nEnable = 0 

* Deshabilitado

lHwnd = FindWindowEx(0, 0,
"Shell_TrayWnd",
.NULL.)

lHwnd = FindWindowEx(lHwnd, 0,
"Button",
.NULL.)

=EnableWindow(lHwnd, nEnable)







 

 

Ejemplos:

* Probando con Date( )


? Date(2006,3,13)
+ 2

* Devolverá: 2006.03.15

* Pero con un DateTime


? DateTime(2006,3,13,
8,10,4) + 2

* Devolverá: 2006.03.13
08:10:06 AM

Una solución es la siguiente, multiplicar el
número de días a sumar por 86400 que es el número de segundos que tiene un día.



Resultado:

? DateTime(2006,3,13,
8,10,4) + (2 * 86400)

* Devolverá: 2006.03.15
08:10:04 AM