Credito by LC
2005
View your remaining credit with a click!
This simple program allows starting with a single click the browser and opening the web page showing your remaining credit: just write the URL of the web page into c:\documents\credito.ini on your cellphone, and connect the program to your favourite shortcut, and that's all!
Program is freeware, is written in OPL, should run on all UIQ phones (tested on Motorola a1000 51.14.15), and you got also the sources!
Italian link: http://portale3.tre.it/sc/.homePage.enterMyTopup
English link: http://mobile.three.co.uk/837_sc/postPayFreeUnits.do
Please let me know if this program works for you! Write me at cassioliATiolDOTit
Il sorgente del programma:
include "const.oph"
include "system.oxh"
const KUID_Credito&=&10200eb6
APP Credito,KUID_Credito&
FLAGS KFlagsAppFileBased%
ICON "Credito.mbm"
CAPTION "Credito", KLangItalian%
ENDA
PROC credito:
local t&,prev&
local r%,h%,f%,x%,addr&,a&,b$(255)
gsetwin 0,25,208,275
addr&=addr(a&)
f%=syfilesize&:("c:\documents\credito.ini")
r%=ioopen(h%,"c:\documents\credito.ini",kioopenmodeopen%)
x%=1
while x%<=f%
r%=ioread(h%,addr&,1)
x%=x%+1
b$=b$+chr$(a&)
endwh
t&=syrunapp&:("qweb.app",b$,"",0)
ENDP