上位机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
源代码下载地址:
上位机VC MFC程序开发精典实例大全源码与视频讲解配套下载408例 经历1年的编程与录制点击进入查看
如果您认可,可联系功能定制! 如果您着急,充值会员可直接联系发您资料!
|