asked on

Compile VB Program files to exe file

Hello Everyone,

Recently we are migrated or website to a new server.
The website has some VB Classic program that are run on the server every morning.

We are getting an error while running those program, the main functionality of those programs are read a txt file and download some images from other websites.

The download image part is giving us an error "429 ActiveX component can't create object".

I can try to change the program, but I am not familiar with on how to compile the files to make an exe file.

The file that in the directory are:
CONFIG.INI,DealerSpecial.csi,DealerSpecial.exe,DealerSpecial.lvw,DealerSpecial.vbp,DealerSpecial.vbw,Globals.bas,clsVinDecoder.cls,clsVinDecoder20.cls,cShellExecute.cls,frmDisplay.frm.

Please help me on how to compile these files into the exe files or what software will I need to do so.

RobSampson

It looks like program would be a VB6 program. If you have Visual Basic 6, open the vbp file, then make changes, and compile the EXE with VB6.

Regards,

Rob.

sonu19

ASKER

Where can I download VB 6, since all I see is VS 2005 which I already have doesn't work.

RobSampson

It's old technology, but must be purchased. I'm not aware of any trial version you can download.

However, I'm not sure this is a problem with that EXE program in question....can you post the line of code that is getting the "cannot create object" error? This looks like you'd have a line such as:
Set objObject = Server.CreateObject("something.something")

Perhaps that object isn't registered properly on the server....

Regards,

Rob.

sonu19

ASKER

I think you are right here is that code

Private Function GetImage(sUrl As String, iCarID As Long) As Boolean
'NOT USED

GetImage = True
Dim objHTTP As Object

Set objHTTP = CreateObject("ASPHTTP.Conn")
WriteLog "Created Image objects"

objHTTP.Url = sUrl
objHTTP.FollowRedirects = False
objHTTP.RequestMethod = "GET"
objHTTP.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
objHTTP.SaveFileTo = G_ProgramDefaults.g_UsedCarsPath & iCarID & "_large." & Right(sUrl, 3)
objHTTP.GetURL
WriteLog "Storing Image for Car:" & G_ProgramDefaults.g_UsedCarsPath & iCarID & "_large." & Right(sUrl, 3)

Set objHTTP = Nothing

End Function

ASKER CERTIFIED SOLUTION

RobSampson

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

sonu19

ASKER

Thanks Rob,

My Activex error is resolved.

RobSampson

Exellent. Glad to help.

Rob.