Page 2 of 2

Re: xBase Command Interpreter

Posted: Mon Mar 10, 2014 10:46 am
by esgici
Rathinagiri wrote:Wow. It is a very nice work. Great achievement. Thanks a lot for sharing MeneAle.
+1

Viva HMG :D

Re: xBase Command Interpreter

Posted: Thu Mar 13, 2014 1:33 am
by meneale
Thanks :D

.facp samples:
youip.facp // Get your IP from http://www.ip-adress.com" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

Code: Select all

var('oHttp')
var('x')
oHttp:=TipClientHttp():New("http://www.ip-adress.com/")
oHttp:Open()
x:=oHttp:ReadAll()
x:=substr(x,at("Your IP address is: ",x)+20)
x:=substr(x,0,at("<",x)-1)
msgbox(x)
To Execute it:
load_fromfile('yourip.facp')
Or Drag and Drop

chrome.facp // Turns Google Chrome or Opera into half transparent

Code: Select all

echo('Turns Google Chrome or Opera into half transparent')
var('hWndChr',findwindow('Chrome_WidgetWin_1',nil))
SetWindowTransparent (getparent(hWndChr), 128)
To Execute it:
load_fromfile('chrome.facp')
Or Drag and Drop

Re: xBase Command Interpreter

Posted: Thu Mar 27, 2014 8:59 pm
by srvet_claudio
Rathinagiri wrote:Wow. It is a very nice work. Great achievement. Thanks a lot for sharing MeneAle.
+1