Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Inet Control
Message
From
18/12/1998 11:14:02
 
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00168454
Message ID:
00168876
Views:
29
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform