Crea sito

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!

DOWNLOAD

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


Back to freeware home page