PDA

View Full Version : VB Code



shanes
10-28-2002, 01:55 PM
Here is the code I am using

Global Const productcode = "{063A27BB-E54C-4D1A-B246-636E8AE2B7D1}"
Dim pAgent As Object

Sub AppUpdate()

Set pAgent = CreateObject("DWUpdateService.Agent")
pAgent.AppUpdate productcode, AppMenu


End Sub


This update screen shows no updates. But if I run --
"C:\Program Files\Common Files\InstallShield\UpdateService\agent.exe" -au{063A27BB-E54C-4D1A-B246-636E8AE2B7D1} -AppMenu

from the commandline it works perfectly.

Is this part of the timeout issue? Please advise

leykun
10-31-2002, 05:15 PM
shanes,
Did you get any errors? If so, could you please attach a screen shot?

I have attached a sample VB app that uses your code to check for your product update. Please try the sample app and let me know the results.

Thank you very much.
Leykun M.
InstallShield Technical Support

Sunny's
10-31-2002, 05:30 PM
This is what I tried :

- Cut and paste above code in a Standard EXE file in VB
- Included from Project -> References -> DwUpdate Service 1.0 Type Library.
- Registered Version 6.0 with the agent.
- Called AppUpdate from Form_Load

I was able to see updates, I am not sure if there seems to be any thing wrong with the code provided. Please check if problem is around this code.

Looking forward to your reply.

shanes
11-01-2002, 09:13 AM
I was forgetting the reference. Thanks for the help.