电脑联网，

我是学生，用的是学校的网络，用客户端的那种啊！但是有一个同学的联不了网，他就用我的上网接口联网，结果不行。问题来了：他走后，我的帐户也用不了了！我的以前明明可以用的啊，而且他也试了别人的，百试百灵，全部都没有用了！ 高手进啊！

每当上网一小时提示一下 检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数 InternetCheckConnection来实现； 这个函数的功能是检查是否能够建立 Internet 连接。 它的实现是在 %SystemRoot%\System32\wininet.dll 中，Delphi 调用声明在 WinInet.pas 中， 其 API 声明如下： BOOL InternetCheckConnection( IN LPCSTR lpszUrl, IN DWORD dwFlags, IN DWORD dwReserved ); 参数的意义是： lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空； dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）； dwReserved： 目前只能为 0。 调用的说明： 如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。 如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，Windows 就从这条纪录中解析出 Host 名然后 Ping 它。 如果能够成功的连接返回 True，否则返回 False； 以下是一个判断当前计算机是否联网的例子： procedure TForm1.Button1Click(Sender: TObject); begin if InternetCheckConnection(' http://www.yahoo.com/', 1, 0) then edit1.text:= 'Connected' else edit1.text:= 'Disconnected'; end; 通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。 这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测； 这个函数的功能是查询指定 Internet 句柄的状态、选项。 其 API 声明如下： BOOL InternetQueryOption( IN HINTERNET hInternet, IN DWORD dwOption, OUT LPVOID lpBuffer, IN OUT LPDWORD lpdwBufferLength ); 参数的意义是： hInternet：查询对象的 Internet 句柄（全局查询时为 nil）， dwOption：查询的项目； lpBuffer：返回的查询结果； lpdwBufferLength：查询结果的字节
原文来源: http://www.shop114.info/

哈哈，不是老师关了，就是md的问题