بدست آوردن اطلاعات نرم افزار

[matriks]

سلام
میخواستم بپرسم چه طور میتونم با vb یه نرم افزاری مثل فتوشاپ یا هر نرم افزار دیگه ای رو اطلاعاتش مثل نسخه.نام کامل نرم افزار .سایت پشتیبان یا مثل این چیزا رو به دست بیارم.

[vbhamed]

سلام
اكثر نرم افزارهاي معروف مشخصاتشون تو رجيستري ويندوز هست كه مي‌تونيد بخونيد، مثلا چند تا آدرس رو اينجا ميزارم، نمونه كار با رجيستري هم كه تو سايت زياده

[HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office]
[HKEY_LOCAL_MACHINE\SOFTWARE\Yahoo\pager]
[HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox]
[HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info]
[HKEY_LOCAL_MACHINE\SOFTWARE\Corel\CorelDRAW]

البته از روش OLE هم براي بعضي نرم افزارها ميشه ولي روش بالا بهتر و سريعتر هست چون در روش زير برنامه مورد نظر يكبار در حافظه اجرا مي‌شود و در مواردي مثل فتوشاپ هم كلا روي صفحه مياد
Dim c, p, w, a, e

Set c = CreateObject("CorelDRAW.Application")
Set w = CreateObject("Word.Application")
Set a = CreateObject("Access.Application")
Set e = CreateObject("Excel.Application")
Set p = CreateObject("Photoshop.Application")

Me.AutoRedraw = True
Print "Corel : " & c.Version
Print "Pshop : " & p.Version
Print "Word : " & w.Version
Print "Excel : " & e.Version
Print "Access : " & a.Version

Set c = Nothing
Set w = Nothing
Set e = Nothing
Set a = Nothing