Will GetLastError ever work properly in VFP8.0?

Calvin Hsia s WebLog Will GetLastError ever work properly in VFP8 0 | Insomnia Cure

Sat, 13 Jun 2009 08:19:09 GMT

PingBack from http://insomniacuresite.info/story.php?id=2168

Calvin Hsia s WebLog Will GetLastError ever work properly in VFP8 0 | Paid Surveys

Fri, 29 May 2009 19:13:32 GMT

PingBack from http://paidsurveyshub.info/story.php?title=calvin-hsia-s-weblog-will-getlasterror-ever-work-properly-in-vfp8-0

re: Will GetLastError ever work properly in VFP8.0?

Rodd Harris — Thu, 04 May 2006 16:30:12 GMT

Hello again Calvin,

Okay, i ran the code you had listed and was able to determine why my code wasn't working. It still doesn't make sense to me, but I found it just the same.

If I run the exact code that I posted but replace this line:

cPass = inputbox("Password:")

with this one:

cPass = "12345"

Then I get the proper results. What confuses me though is that inputbox runs BEFORE the LongonUser function but it seems like running the InputBox function before LogonUser causes the results of LogonUser to be wiped out.

Any ideas on why this is happening?

What API calls reset GetLastError between Declare DLL calls in VFP8?

Calvin Hsia's WebLog — Wed, 03 May 2006 21:32:22 GMT

I received a comment on this post: Will GetLastError ever work properly in VFP8.0?. &nbsp;I was consistently...

re: Will GetLastError ever work properly in VFP8.0?

Rodd Harris — Wed, 03 May 2006 17:40:56 GMT

Calvin,

Thanks for taking time to answer my question ... and I appologize for not posting any code for you .

I'm a little stumped though as to how you got things to work in VFP 8.

Here is the code I'm running. I've tried this both from a command window as well as from a prg executed from the command window:

DECLARE integer GetLastError IN kernel32
DECLARE integer CloseHandle IN kernel32 integer hObject
DECLARE integer LogonUser IN advapi32 string lpzUser, string lpzDomain, string lpzPass, integer dwLogonType, integer dwLogonProvider, integer @phToken

nToken = 0
cPass = INPUTBOX("Password:")

IF LogonUser("username","domain",cPass,3,0,@nToken) = 0
lnResult = GetLastError()
= MESSAGEBOX(lnResult)
ELSE
= MESSAGEBOX("Success!!")
= CloseHandle(nToken)
ENDIF

RELEASE ALL
CLEAR DLLS

RETURN

When I run this code with a valid password, great! However, if I run with an invalid password, I consistently get a 0 in lnResult.

Is there something I'm doing wrong? I don't see anything that should be clearing the value of GetLastError before I'm storing it. For the most part, the code you posted and what I'm doing are almost identical.

Any ideas?

DECLARE DLL performance questions

Calvin Hsia's WebLog — Tue, 25 Apr 2006 01:14:24 GMT

I was writing a sample about DECLARE DLL to show some of its features which I implemented about 12 years...