Printable View
سلام
ما تو همون صفحه اول به دوستمون گفتیم که باید در VB6 تست کنید
همه اعتراض کردند که چرا حرف از وی بی 6 میزنی
دوستان گفتند که دیگه شان ما اجل از وی بی 6 است
خلاصه الان چهار صفحه تاپیک طولانی شده
تازه حالا همه میفرمایند باید با یه چیزی که پایش رو Framework نیست اونو چک کرد (حالا کلاس رو بالا بردند و میگن مثلا با C++ !!!!!!)
خوب دیگه ....
نیلوفر خانم ، VB6 نمرده ،مشکل اینجاست دوستان برای اینکه مثلا کلاس برنامه هاشون پایین نیاد میگن VB مرده ، ولی همیشه راحتترین راه رو رانتخاب کردن بهتر از انتخاب سختترین راه است .
موفق باشید
سلامنقل قول:
نوشته شده توسط meandyouwith2003
دقیقا...
#include <stdio.h>
#include <tchar.h>
#include <windows.h>
// In case the machine this is compiled on does not have the most recent platform SDK
// with these values defined, define them here
#ifndef SM_TABLETPC
#define SM_TABLETPC 86
#endif
#ifndef SM_MEDIACENTER
#define SM_MEDIACENTER 87
#endif
// Constants that represent registry key names and value names
// to use for detection
const TCHAR *g_szNetfx10RegKeyName = _T("Software\\Microsoft\\.NETFramework\\Policy\\v1 .0");
const TCHAR *g_szNetfx10RegKeyValue = _T("3705");
const TCHAR *g_szNetfx10SPxMSIRegKeyName = _T("Software\\Microsoft\\Active Setup\\Installed Components\\{78705f0d-e8db-4b2d-8193-982bdda15ecd}");
const TCHAR *g_szNetfx10SPxOCMRegKeyName = _T("Software\\Microsoft\\Active Setup\\Installed Components\\{FDC11A6F-17D1-48f9-9EA3-9051954BAA24}");
const TCHAR *g_szNetfx10SPxRegValueName = _T("Version");
const TCHAR *g_szNetfx11RegKeyName = _T("Software\\Microsoft\\NET Framework Setup\\NDP\\v1.1.4322");
const TCHAR *g_szNetfx20RegKeyName = _T("Software\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727");
const TCHAR *g_szNetfx11PlusRegValueName = _T("Install");
const TCHAR *g_szNetfx11PlusSPxRegValueName = _T("SP");
// Function prototypes
int GetNetfx10SPLevel();
int GetNetfx11SPLevel();
int GetNetfx20SPLevel();
bool IsCurrentOSTabletMedCenter();
bool IsNetfx10Installed();
bool IsNetfx11Installed();
bool IsNetfx20Installed();
bool RegistryGetValue(HKEY, const TCHAR*, const TCHAR*, DWORD, LPBYTE, DWORD);
/************************************************** ****************
Function Name: IsNetfx10Installed
Description: Uses the detection method recommended at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetdep/html/dotnetfxref.asp
to determine whether the .NET Framework 1.0 is
installed on the machine
Inputs: NONE
Results: true if the .NET Framework 1.0 is installed
false otherwise
************************************************** ****************/
bool IsNetfx10Installed()
{
TCHAR szRegValue[MAX_PATH];
return (RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx10RegKeyName, g_szNetfx10RegKeyValue, NULL, (LPBYTE)szRegValue, MAX_PATH));
}
/************************************************** ****************
Function Name: IsNetfx11Installed
Description: Uses the detection method recommended at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetdep/html/redistdeploy1_1.asp
to determine whether the .NET Framework 1.1 is
installed on the machine
Inputs: NONE
Results: true if the .NET Framework 1.1 is installed
false otherwise
************************************************** ****************/
bool IsNetfx11Installed()
{
bool bRetValue = false;
DWORD dwRegValue=0;
if (RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx11RegKeyName, g_szNetfx11PlusRegValueName, NULL, (LPBYTE)&dwRegValue, sizeof(DWORD)))
{
if (1 == dwRegValue)
bRetValue = true;
}
return bRetValue;
}
/************************************************** ****************
Function Name: IsNetfx20Installed
Description: Uses the detection method recommended at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetdep/html/redistdeploy1_1.asp
to determine whether the .NET Framework 2.0 is
installed on the machine
Inputs: NONE
Results: true if the .NET Framework 2.0 is installed
false otherwise
************************************************** ****************/
bool IsNetfx20Installed()
{
bool bRetValue = false;
DWORD dwRegValue=0;
if (RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx20RegKeyName, g_szNetfx11PlusRegValueName, NULL, (LPBYTE)&dwRegValue, sizeof(DWORD)))
{
if (1 == dwRegValue)
bRetValue = true;
}
return bRetValue;
}
/************************************************** ****************
Function Name: GetNetfx10SPLevel
Description: Uses the detection method recommended at
http://blogs.msdn.com/astebner/archive/2004/09/14/229802.aspx
to determine what service pack for the
.NET Framework 1.0 is installed on the machine
Inputs: NONE
Results: integer representing SP level for .NET Framework 1.0
************************************************** ****************/
int GetNetfx10SPLevel()
{
TCHAR szRegValue[MAX_PATH];
TCHAR *pszSPLevel = NULL;
int iRetValue = -1;
bool bRegistryRetVal = false;
// TODO - Need to detect what OS we are running on so we know what
// registry key to use to look up the SP level
if (IsCurrentOSTabletMedCenter())
bRegistryRetVal = RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx10SPxOCMRegKeyName, g_szNetfx10SPxRegValueName, NULL, (LPBYTE)szRegValue, MAX_PATH);
else
bRegistryRetVal = RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx10SPxMSIRegKeyName, g_szNetfx10SPxRegValueName, NULL, (LPBYTE)szRegValue, MAX_PATH);
if (bRegistryRetVal)
{
// This registry value should be of the format
// #,#,#####,# where the last # is the SP level
// Try to parse off the last # here
pszSPLevel = _tcsrchr(szRegValue, _T(','));
if (NULL != pszSPLevel)
{
// Increment the pointer to skip the comma
pszSPLevel++;
// Convert the remaining value to an integer
iRetValue = _tstoi(pszSPLevel);
}
}
return iRetValue;
}
/************************************************** ****************
Function Name: GetNetfx11SPLevel
Description: Uses the detection method recommended at
http://blogs.msdn.com/astebner/archive/2004/09/14/229574.aspx
to determine what service pack for the
.NET Framework 1.1 is installed on the machine
Inputs: NONE
Results: integer representing SP level for .NET Framework 1.1
************************************************** ****************/
int GetNetfx11SPLevel()
{
DWORD dwRegValue=0;
if (RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx11RegKeyName, g_szNetfx11PlusSPxRegValueName, NULL, (LPBYTE)&dwRegValue, sizeof(DWORD)))
{
return (int)dwRegValue;
}
// We can only get here if the .NET Framework 1.1 is not
// installed or there was some kind of error retrieving
// the data from the registry
return -1;
}
/************************************************** ****************
Function Name: GetNetfx20SPLevel
Description: Uses the detection method recommended at
http://blogs.msdn.com/astebner/archive/2004/09/14/229574.aspx
to determine what service pack for the
.NET Framework 2.0 is installed on the machine
Inputs: NONE
Results: integer representing SP level for .NET Framework 2.0
************************************************** ****************/
int GetNetfx20SPLevel()
{
DWORD dwRegValue=0;
if (RegistryGetValue(HKEY_LOCAL_MACHINE, g_szNetfx20RegKeyName, g_szNetfx11PlusSPxRegValueName, NULL, (LPBYTE)&dwRegValue, sizeof(DWORD)))
{
return (int)dwRegValue;
}
// We can only get here if the .NET Framework 2.0 is not
// installed or there was some kind of error retrieving
// the data from the registry
return -1;
}
bool IsCurrentOSTabletMedCenter()
{
// Use GetSystemMetrics to detect if we are on a Tablet PC or Media Center OS
return ( (GetSystemMetrics(SM_TABLETPC) != 0) || (GetSystemMetrics(SM_MEDIACENTER) != 0) );
}
/************************************************** ****************
Function Name: RegistryGetValue
Description: Get the value of a reg key
Inputs: HKEY hk - The hk of the key to retrieve
TCHAR *pszKey - Name of the key to retrieve
TCHAR *pszValue - The value that will be retrieved
DWORD dwType - The type of the value that will be retrieved
LPBYTE data - A buffer to save the retrieved data
DWORD dwSize - The size of the data retrieved
Results: true if successful, false otherwise
************************************************** ****************/
bool RegistryGetValue(HKEY hk, const TCHAR * pszKey, const TCHAR * pszValue, DWORD dwType, LPBYTE data, DWORD dwSize)
{
HKEY hkOpened;
// Try to open the key
if (RegOpenKeyEx(hk, pszKey, 0, KEY_READ, &hkOpened) != ERROR_SUCCESS)
{
return false;
}
// If the key was opened, try to retrieve the value
if (RegQueryValueEx(hkOpened, pszValue, 0, &dwType, (LPBYTE)data, &dwSize) != ERROR_SUCCESS)
{
RegCloseKey(hkOpened);
return false;
}
// Clean up
RegCloseKey(hkOpened);
return true;
}
int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)
{
int iNetfx10SPLevel = -1;
int iNetfx11SPLevel = -1;
int iNetfx20SPLevel = -1;
TCHAR szMessage[MAX_PATH];
// Determine whether or not the .NET Framework
// 1.0, 1.1 or 2.0 are installed
bool bNetfx10Installed = IsNetfx10Installed();
bool bNetfx11Installed = IsNetfx11Installed();
bool bNetfx20Installed = IsNetfx20Installed();
// If .NET Framework 1.0 is installed, get the
// service pack level
if (bNetfx10Installed)
{
iNetfx10SPLevel = GetNetfx10SPLevel();
if (iNetfx10SPLevel > 0)
_stprintf(szMessage, _T(".NET Framework 1.0 service pack %i is installed."), iNetfx10SPLevel);
else
_stprintf(szMessage, _T(".NET Framework 1.0 is installed with no service packs."));
MessageBox(NULL, szMessage, _T(".NET Framework 1.0"), MB_OK | MB_ICONINFORMATION);
}
else
{
MessageBox(NULL, _T(".NET Framework 1.0 is not installed."), _T(".NET Framework 1.0"), MB_OK | MB_ICONINFORMATION);
}
// If .NET Framework 1.1 is installed, get the
// service pack level
if (bNetfx11Installed)
{
iNetfx11SPLevel = GetNetfx11SPLevel();
if (iNetfx11SPLevel > 0)
_stprintf(szMessage, _T(".NET Framework 1.1 service pack %i is installed."), iNetfx11SPLevel);
else
_stprintf(szMessage, _T(".NET Framework 1.1 is installed with no service packs."));
MessageBox(NULL, szMessage, _T(".NET Framework 1.1"), MB_OK | MB_ICONINFORMATION);
}
else
{
MessageBox(NULL, _T(".NET Framework 1.1 is not installed."), _T(".NET Framework 1.1"), MB_OK | MB_ICONINFORMATION);
}
// If .NET Framework 2.0 is installed, get the
// service pack level
if (bNetfx20Installed)
{
iNetfx20SPLevel = GetNetfx20SPLevel();
if (iNetfx20SPLevel > 0)
_stprintf(szMessage, _T(".NET Framework 2.0 service pack %i is installed."), iNetfx11SPLevel);
else
_stprintf(szMessage, _T(".NET Framework 2.0 is installed with no service packs."));
MessageBox(NULL, szMessage, _T(".NET Framework 2.0"), MB_OK | MB_ICONINFORMATION);
}
else
{
MessageBox(NULL, _T(".NET Framework 2.0 is not installed."), _T(".NET Framework 2.0"), MB_OK | MB_ICONINFORMATION);
}
return 0;
}
این کد کاملا صحیحه و کار میکنه .
حالا باید چیکار کنیم ؟
به نظر شما با خود برنامه های دات نت میشه تشخیص داد که دات نت نصب یا نه ؟
البته تو یک تاپیک دیدم که نوشته بودن اگر فایلهای DLL مورد نیاز برنامه رو کنارش کپی کنید و اصلا فریم ورک نصب نشه برنامه کار میکنه ( من درستی این مطلب رو تائید یا رد نمیکنم ) اما به نظر شما میشه که با کمک این کار حتی اگر برنامه کار هم نکنه یک خطا ایجاد کنه که با کمک اون بشه یک فایل اجرائی را اجرا کرد که دات نت نصب بشه.
Namespace My
' The following events are availble for MyApplication:
'
' Startup: Raised when the application starts, before the startup form is created.
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
' UnhandledException: Raised if the application encounters an unhandled exception.
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
Partial Friend Class MyApplication
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.Unhandle dExceptionEventArgs) Handles Me.UnhandledException
End Sub
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupE ventArgs) Handles Me.Startup
End Sub
End Class
End Namespace
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttr ibute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.Applicatio nServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.S hutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttr ibute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.WindowsApplication1.Form1
End Sub
End Class
End Namespace
اگر کسی سیستمی داره که دات نت دو نداره من این دو قسمت بالا رو هندل کنم و فایلش رو بفرستم تا روی اون سیستم تست کنه و جوابش بذاره همین جا
استاد سلام . من می تونم تستش کنم .
hamed_bostan@yahoo.com
دقیقا باید چیکار کنم؟
سلام منم میتونم تست کنم فقط باید تمام مراحل رو کامل بگید من آشنایی زیادی ندارم
معضرت میخوام.
شما خودتونو درگیر مسائل پیچیده ای میکنید که به راحتی قابل حل است.
به راحتی میشه یه فایل .js نوشت که رجیستری رو چک کنه. اگه کلید گفته شده در رجیستری وجود نداشت فایل نصب dotnetframework رو از پوشه جاری اجرا کنه.
اسم این فایل میتونه RunMeFirst.js باشه که کاربر را موضف میکنید اول این فایل رو اجرا کنه.
همونطور که میدونید اینها فایل های اوپن سورس Windows Script Host هستند که بدون کامپایل و هیچ نوع دنگ و فنگ دیگه اجرا میشن.
پیشنهاد میکنم با WSH و فایل های .reg و .inf حتما آشنا بشید. چون خیلی کارها رو خیلی راحت با این نوع فایل ها میتونید انجام بدید.
برنامه های Installer نیز این کار را خود به طور خودکار می کنند.
نقل قول:
نوشته شده توسط taherbaghal
مشکل چیه . شما خیلی راحت میتونین در instalshield مشخص کنید که چه prerequest هایی دارین و اونم در هنگام ساخت ستاپ همه اونها رو package میکنه و در هنگام نصب در صورت نصب نبودن اونها ، اونها رو نصب میکنه . مشکل چی؟؟؟
نقل قول:
نوشته شده توسط taherbaghal
دوست عزیز من منظور شما رو متوجه نمیشم . منظورت اینه که مراحل و پینه هایی که باید پیمود تا این عمل انجام بشه رو میخوای؟
شما حرف منو تایید می کنی که میدونی میشه اما بعد میگی مشکل این هست که پزور میشه این کار رو کرد!!! منظورت ای«ه که از کدوم قسمت تو اینستالشیلذد باید این کار رو کرد؟
یاد آوری :
یه را ه حل عمومی و مناسب برای شروع برنامه های دات نت و هربرنامه ای که دنگ و فنگ خاص داشتن فریم ورک رو طلب میکنه استفاده از برنامه ای هست که بدون هیچ مقدماتی اگزکویت میشن بصورتی که مقدمات اجرای برنامه های شما رو چک میکنن و اگر لزوم به نصب پکیج خاصی هست یا باید یه چیزی تو ویندوز قبلش کانفیگ بشه اونو برای شما انجام میدن و بعد که همه چیز اوکی بود برنامه شما رو ران میکنن .
راه حل : ساخت یه فایل خیلی ساده بدون و اینترفیس تو نرم افزارهایی مثل اتوپلی مدیا استودیو و اینجور برنامه هاست. من که هیچ وقت هیچ جا مشکلی بخاطر فریم ورک پیدا نکردم.
البته راه حلهای دیگه ای ام هست ولی اینم یه یادآوری بود.
نقل قول:
نوشته شده توسط niloufar
بهتره توی ستاپ تون dotnetframework رو بزارید و تمام....
راستی اگه Norton Gost رو روی سیستمی که دات نت فریم ورک نداره نصب کنید اجرا میشه و پیغام صحیح رو میده!!!
بهترین راه اینه
اگه توی شاخه ی Windows فلدری به نام Microsoft.Net باشه می شه گفت 99 درصد دات نت روی اون سیستم نسبه
ببخشید نصبه اشتباه لپی بود دیگه !!!!!!!!
اولا سلام.
دوما ،،،، چرا دعوا می کنید؟؟؟؟؟
سوما این کدش توی c :
--------------------------------------------------------------//
#include "DetectDotNet.h"
// . . .
CDetectDotNet detect;
vector<string> CLRVersions;
cout << "Is .NET present : "
<< (detect.IsDotNetPresent() ? "Yes" : "No") << endl;
TCHAR szPath[300];
cout << "Root Path : "
<< (detect.GetInstallRootPath(szPath, 299) ? szPath : "") << endl;
cout << "Number of CLRs detected : "
<< (int)detect.EnumerateCLRVersions(CLRVersions) << endl;
cout << "CLR versions available :-" << endl;
for(vector<string>::iterator it = CLRVersions.begin();
it < CLRVersions.end(); it++)
{
cout << *it << endl;
}
cout << "Press any key..." << endl;
getch();
کلید حل این مشکل پیش منه. دیگه هم نمی خواد جایی بگردی. بیا خودم هم برنامه و هم سورس رو بهتون میدم. یادتون هم می دم که چی به چیه. یه برنامه کوشولو تو سی شارپ. exe تحت ویندوز. تو همه ویندوزها هم کار می کنه. فکر نکنید چون کاربر جدید هستم، سرکاریا..... ایمیل من اینه:
ImanAmico@yahoo.com
اگه فایل mscoree.dll توی محل نصب ویندوز بود net. نصب هستش