Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Alternative to WinHTTP for Windows 98 ???

Status
Not open for further replies.

dcdogxx

IS-IT--Management
Feb 14, 2002
17
US
Good Morning everyone,

I am new to VB but am learning fast. We have a VB contractor that has written all of our current applications but he does not know how to accomplish what we need done. I am turning to all of you to see if you can let me know if what we need done is possible.

We have a VB application that goes out to the web, posts some information to a secure web site, and returns a response. This is for Credit Card Authorization. The program was written for us by our contract programmer, and works fine on Windows NT or greater. (Win2000, WinXP) The problem is, it does NOT work on a Windows 98 machine. I have done some research and found that winhttp5.dll is ONLY supported on Windows NT, Windows 2000, and Windows XP.

Is there any way to accomplish this for Windows 98? (My VB guy told me to make the customers upgrade. He said they should upgrade anyways since Window 98 is an old Dinosaur) I tried to tell the customer to upgrade, but that did not go over to well. I don't mind MAKING them upgrade if that is the ONLY way for it to work.

Thanks to anyone with some insight,

Darryl

Below is some of the code:

' Currently using "Microsoft WinHTTP Services, version 5.0" (winhttp5.dll)

Set objHttp = New WinHttp.WinHttpRequest
objHttp.Open "POST", " False
objHttp.SetRequestHeader "Content-Type", "application/x-
' build the request string
vPostData = "x_login=" & mstrLogin
vPostData = vPostData & "&x_password=" & mstrPassword
vPostData = vPostData & "&x_card_num =" & mstrCreditCardNumber
vPostData = vPostData & "&x_exp_date=" & mstrCreditCardExpDate
vPostData = vPostData & "&x_amount=" & mdblTransactionAmount
vPostData = vPostData & "&x_first_name=" & mstrFirstName
vPostData = vPostData & "&x_last_name=" & mstrLastName
vPostData = vPostData & "&x_Method=CC"

objHttp.Send (vPostData)

(returns authorization number if OK, or error code if problem)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top