上位机MFC局域网FTP资源探测器源代码 - 工控编程吧

上传

点击文件名下载附件
实例运行时界面如上图。
可以点击开始搜索按钮，
在指定的搜索IP范围内开始搜索信息。
例程具有一定的参考价值。
======================MFC使用方法============================================================
CString CPageApp::OSVer()
{
OSVERSIONINFOEX os;
::ZeroMemory(&os,sizeof(os));
os.dwOSVersionInfoSize=sizeof(os);
::GetVersionEx(reinterpret_cast<LPOSVERSIONINFO>(&os));

if(os.dwPlatformId==VER_PLATFORM_WIN32_NT && os.dwMajorVersion >=5)
{
if(os.dwMinorVersion==0)
return "Win2000";
else
return "WinXP";
}

if(os.dwPlatformId ==VER_PLATFORM_WIN32_WINDOWS)
return "Win9x";
}

void CDDlg::OnButton1()
{
if(this->OSVer()!="WinXP")
{
typedef BOOL (WINAPI *pClassXP)(HWND,BOOL);
HINSTANCE hInst=NULL;
hInst=:

oadLibrary("ClassXP.dll");
if (hInst)
{
pClassXP pFunc= (pClassXP)GetProcAddress (hInst,"ClassXP");
pFunc(NULL,TRUE);
}
}

}

================================VB使用方法==================================================
Private Declare Function ClassXP Lib "ClassXP.dll" (ByVal hWnd As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
ClassXP 0, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
ClassXP 0, 0 ' 如果是 CXPW_THREAD 方式，
请确保推出之前要 Disable 掉 ClassXP
End Sub

源代码下载地址：
(, 下载次数: 0)