请各位指教 我在编写一个上网计时的程序,在判断机器是否和因特网连接,我用InternetCheckConnection函数,每秒检查一次,但我觉的这方法并不是最好,是否有更好的办法呢?向各位高手请教。(我是用ADSL拨号上网) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是否可以用InternetGetConnectedState,如果可以,请介绍一下具体的用法 这里有相关的代码,不过是BCB的: 五种查询Internet连接状态[含IP]的方法 四处收集 + 加工整理 = “原创”,呵呵。姑且不理会这些,大家喜欢就好。 1.Powersock 控件法: 这种方法最简单,利用FastNet页的 Powersock控件的LocalIP属性即可判断: if(Powersock1->LocalIP=="127.0.0.1"):在线 else:离线 特点:[1]判断连接状态,[2]获得本地IP。 2.使用URL.DLL的InetIsOffline(0) 函数: Win2K:URL.DLL存放在\SYSTEM32\; Win9x:URL.DLL存放在\SYSTEM\; 用GetSystemDirectory(...)得到系统目录。 InetIsOffline(0)返回值: TRUE: 离线; FALSE:在线。 特点:判断连接状态。 3.WinSock编程法:见程序 特点:[1]判断连接状态;[2]获得本地IP和主机名。 4.WinInet.DLL的InternetGetConnectedState(&dwFlag,0)函数: 注意:为使用该函数,须在项目文件中加入:USELIB("WinInet.LIB") 特点:获得较详的连接描述! 5.RASAPI32.DLL的RasEnumConnections函数: 要使用该“枚举所有活动连接”函数,必须: #include "ras.h"。 若连接数>0:本机当前已连入Internet; 否则: 本机当前未连入Internet;源码如下,在[BCB5 + WIN2K + 拨号上网]下通过(N字头的为菜单项):-------------Powersock控件法-----------------------------------------void __fastcall TForm1::N11Click(TObject *Sender) { if(Powersock1->LocalIP=="127.0.0.1") ShowMessage("未连接:"+Powersock1->LocalIP); else ShowMessage("已连接:"+Powersock1->LocalIP);}-------------URL.DLL的InetIsOffline函数法----------------------------HINSTANCE hDLL;typedef bool __stdcall(*FUN)(int); 定义DLL函数指针FUNFUN isOffLine; void __fastcall TForm1::N21Click(TObject *Sender){ char Buffer[MAX_PATH]; GetSystemDirectory(Buffer,MAX_PATH); hDLL=LoadLibrary((AnsiString(Buffer)+"\\URL.DLL").c_str()); if(hDLL==NULL){ ShowMessage("Cannot load URL.DLL! Return... "); return; } isOffLine=(FUN)GetProcAddress(hDLL,"InetIsOffline"); if(isOffLine==NULL){ ShowMessage("Cannot load InetIsOffline(int), Return..."); return; } if(!isOffLine(0)) ShowMessage("已连接"); else ShowMessage("未连接"); FreeLibrary(hDLL);}------------WinSock法------------------------------------------------void __fastcall TForm1::N31Click(TObject *Sender) { WORD wVersionRequested; WSADATA wsaData; wVersionRequested=MAKEWORD(1,1); Start up WinSock WSAStartup(wVersionRequested,&wsaData); ----------------------------------------- hostent *p; char *p2; char s[128]; gethostname(s,128); Get the computer name p=gethostbyname(s); p2=inet_ntoa(*((in_addr *)p->h_addr)); Get the IpAddress ----------------------------------------- AnsiString LocationIP=p2; if(LocationIP=="127.0.0.1") ShowMessage("未连接:"+LocationIP); else ShowMessage("已连接:"+LocationIP); WSACleanup();}-----------WinInet.DLL的InternetGetConnectedState函数法----------------void __fastcall TForm1::N41Click(TObject *Sender) { StaticText1->Caption=""; StaticText2->Caption=""; StaticText3->Caption=""; StaticText4->Caption=""; StaticText5->Caption=""; StaticText6->Caption=""; StaticText7->Caption=""; DWORD dwFlag; InternetGetConnectedState(&dwFlag,0); if(dwFlag & INTERNET_CONNECTION_MODEM) StaticText1->Caption="Yes"; MODEM连接 else StaticText1->Caption="No"; if(dwFlag & INTERNET_CONNECTION_LAN) StaticText2->Caption="Yes"; LAN连接 else StaticText2->Caption="No"; if(dwFlag & INTERNET_CONNECTION_PROXY) StaticText3->Caption="Yes"; 代理连接 else StaticText3->Caption="No"; ---------检查是否连接------------------------------------------- if(InternetGetConnectedState(NULL,0)) StaticText4->Caption="Yes"; 在线 else StaticText4->Caption="No"; if(dwFlag & INTERNET_CONNECTION_OFFLINE) StaticText5->Caption="Yes";//离线。注:不好用! else StaticText5->Caption="No"; ---------------------------------------------------------------- if(dwFlag & INTERNET_RAS_INSTALLED) StaticText6->Caption="Yes"; else StaticText6->Caption="No"; if(dwFlag & INTERNET_CONNECTION_CONFIGURED) StaticText7->Caption="Yes"; else StaticText7->Caption="No";}----------RASAPI32.DLL的RasEnumConnections函数法---------------------------#include "ras.h"void __fastcall TForm1::N51Click(TObject *Sender) { RASCONN RASconn[256]; 活动连接数组 DWORD BuffSize; 数组所占内存大小; DWORD ConnNum; 活动连接数目 RASconn[0].dwSize=sizeof(RASCONN); 必须指定一个连接[数组元素]的内存大小; BuffSize=sizeof(RASCONN)*256; DWORD dwReturn=RasEnumConnections(RASconn,&BuffSize,&ConnNum); if(dwReturn==0) { if(ConnNum>0) ShowMessage("已连接。当前激活连接数:"+AnsiString(ConnNum)); else ShowMessage("未连接。当前激活连接数:"+AnsiString(ConnNum)); } else ShowMessage("RasEnumConnections函数失败!");}--------------------------------------------------------------------------- 对Array Of PChar赋值的问题 求助,如何后台发送鼠标点击image? 怎么让cxGrid表格里的数据可修改 但不修改数据库里的记录 关于控件的问题!!!!!!!!!! 报表不能使用 哪有<<Oracle与的PowerBuilder实战演练>>的电子版?我想看看那个商场管理例子. 学习C/S结构的编程,最好选用哪种数据库? 过几天要去谈一个小项目,各位给点建议,谢谢! 如何在程序,控制其它程序的文本录入框的输入法显示 随机数的问题 一个关于dbchart的给分题,可我不会啊 如何为listview加背景图,并且item要透明?
这种方法最简单,利用FastNet页的 Powersock控件的LocalIP属性即可判断:
if(Powersock1->LocalIP=="127.0.0.1"):在线
else:离线
特点:[1]判断连接状态,[2]获得本地IP。
2.使用URL.DLL的InetIsOffline(0) 函数:
Win2K:URL.DLL存放在\SYSTEM32\;
Win9x:URL.DLL存放在\SYSTEM\;
用GetSystemDirectory(...)得到系统目录。
InetIsOffline(0)返回值:
TRUE: 离线; FALSE:在线。
特点:判断连接状态。
3.WinSock编程法:见程序
特点:[1]判断连接状态;[2]获得本地IP和主机名。
4.WinInet.DLL的InternetGetConnectedState(&dwFlag,0)函数:
注意:为使用该函数,须在项目文件中加入:USELIB("WinInet.LIB")
特点:获得较详的连接描述!
5.RASAPI32.DLL的RasEnumConnections函数:
要使用该“枚举所有活动连接”函数,必须:
#include "ras.h"。
若连接数>0:本机当前已连入Internet;
否则: 本机当前未连入Internet;源码如下,在[BCB5 + WIN2K + 拨号上网]下通过(N字头的为菜单项):
-------------Powersock控件法-----------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
if(Powersock1->LocalIP=="127.0.0.1")
ShowMessage("未连接:"+Powersock1->LocalIP);
else ShowMessage("已连接:"+Powersock1->LocalIP);
}
-------------URL.DLL的InetIsOffline函数法----------------------------
HINSTANCE hDLL;
typedef bool __stdcall(*FUN)(int); 定义DLL函数指针FUN
FUN isOffLine;
void __fastcall TForm1::N21Click(TObject *Sender)
{
char Buffer[MAX_PATH];
GetSystemDirectory(Buffer,MAX_PATH);
hDLL=LoadLibrary((AnsiString(Buffer)+"\\URL.DLL").c_str());
if(hDLL==NULL){ ShowMessage("Cannot load URL.DLL! Return... "); return; }
isOffLine=(FUN)GetProcAddress(hDLL,"InetIsOffline");
if(isOffLine==NULL){ ShowMessage("Cannot load InetIsOffline(int), Return..."); return; }
if(!isOffLine(0)) ShowMessage("已连接");
else ShowMessage("未连接");
FreeLibrary(hDLL);
}
------------WinSock法------------------------------------------------
void __fastcall TForm1::N31Click(TObject *Sender)
{
WORD wVersionRequested;
WSADATA wsaData;
wVersionRequested=MAKEWORD(1,1); Start up WinSock
WSAStartup(wVersionRequested,&wsaData);
-----------------------------------------
hostent *p; char *p2; char s[128];
gethostname(s,128); Get the computer name
p=gethostbyname(s);
p2=inet_ntoa(*((in_addr *)p->h_addr)); Get the IpAddress
-----------------------------------------
AnsiString LocationIP=p2;
if(LocationIP=="127.0.0.1")
ShowMessage("未连接:"+LocationIP);
else ShowMessage("已连接:"+LocationIP);
WSACleanup();
}
-----------WinInet.DLL的InternetGetConnectedState函数法----------------
void __fastcall TForm1::N41Click(TObject *Sender)
{
StaticText1->Caption=""; StaticText2->Caption=""; StaticText3->Caption="";
StaticText4->Caption=""; StaticText5->Caption=""; StaticText6->Caption="";
StaticText7->Caption="";
DWORD dwFlag;
InternetGetConnectedState(&dwFlag,0);
if(dwFlag & INTERNET_CONNECTION_MODEM) StaticText1->Caption="Yes"; MODEM连接
else StaticText1->Caption="No";
if(dwFlag & INTERNET_CONNECTION_LAN) StaticText2->Caption="Yes"; LAN连接
else StaticText2->Caption="No";
if(dwFlag & INTERNET_CONNECTION_PROXY) StaticText3->Caption="Yes"; 代理连接
else StaticText3->Caption="No";
---------检查是否连接-------------------------------------------
if(InternetGetConnectedState(NULL,0)) StaticText4->Caption="Yes"; 在线
else StaticText4->Caption="No";
if(dwFlag & INTERNET_CONNECTION_OFFLINE) StaticText5->Caption="Yes";//离线。注:不好用!
else StaticText5->Caption="No";
----------------------------------------------------------------
if(dwFlag & INTERNET_RAS_INSTALLED) StaticText6->Caption="Yes";
else StaticText6->Caption="No";
if(dwFlag & INTERNET_CONNECTION_CONFIGURED) StaticText7->Caption="Yes";
else StaticText7->Caption="No";
}
----------RASAPI32.DLL的RasEnumConnections函数法---------------------------
#include "ras.h"
void __fastcall TForm1::N51Click(TObject *Sender)
{
RASCONN RASconn[256]; 活动连接数组
DWORD BuffSize; 数组所占内存大小;
DWORD ConnNum; 活动连接数目
RASconn[0].dwSize=sizeof(RASCONN); 必须指定一个连接[数组元素]的内存大小;
BuffSize=sizeof(RASCONN)*256;
DWORD dwReturn=RasEnumConnections(RASconn,&BuffSize,&ConnNum);
if(dwReturn==0)
{
if(ConnNum>0) ShowMessage("已连接。当前激活连接数:"+AnsiString(ConnNum));
else ShowMessage("未连接。当前激活连接数:"+AnsiString(ConnNum));
}
else ShowMessage("RasEnumConnections函数失败!");
}
---------------------------------------------------------------------------