Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Inet Control
Message
De
18/12/1998 11:14:02
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Titre:
Divers
Thread ID:
00168454
Message ID:
00168876
Vues:
21
Rick,

Thanks for taking the time to reply. I still couldn't get the Inet control to work, so have decided to try your shareware. So far it has proved very good. However, one of the things I'm trying to do is to write an application that would poll my internet email accounts at regular intervals and inform me if there is new mail. When doing this, I still seem to be experiencing problems requesting a page using the HTTPGetEx method ( It works using the HTTPGet if I've already logged on).

Heres the code that I've written. Is there anything obviously wrong?

LOCAL loWWIPStuff, lnBufferSize, lcPage, lnStatus

loWWIPStuff = CREATEOBJECT( "WWIPStuff")

*-- Set the connection Proxy, Port etc
lnStatus = loWWIPStuff.SetProxy()
IF lnStatus > 0
RETURN lnStatus
ENDIF

*-- Connect To Hotmail Site
lnStatus = loWWIPStuff.HTTPConnect( "http://mskeels:myfirewallpass@www.hotmail.com/")
IF lnStatus > 0
RETURN lnStatus
ENDIF

*-- Add the username
lnStatus = loWWIPStuff.AddPostKey( "login", "MSkeels")

*-- Add the password
lnStatus = loWWIPStuff.AddPostKey( "passwd", "myhotmailpass")

*-- Get the URL
lnBufferSize = 16384

*-- Get the page
lnStatus = loWWIPStuff.HTTPGetEx( "/cgi-bin/start?disk=207.82.250.167_d187&login=mskeels", lcPage, lnBufferSize)
IF lnStatus > 0
RETURN lnStatus
ENDIF

*-- Close the connection
= loWWIPStuff.HTTPClose()
IF lnStatus > 0
RETURN lnStatus
ENDIF

RETURN 0
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform