Question

VB判断计算机是否在学校

我有很多用VB编写的程序，同学需要使用，但我不想让他们带回家，所以想在程序里加上一段代码判断计算机是否是学校的电脑（学校电脑都装有联想或方正的还原卡）。

我有以下思路：

1、搜索硬件，判断是否有还原卡。
2、搜索已安装软件，判断是否有还原卡。
3、判断该电脑上网的方式，是直接上网还是通过局域网共享上网
4、判断IP区域（假设接入公网，不到万不得已不要用）。
但是想不出具体方法，望高人帮助
关于判断IP范围：
有具体例子么？我家和学校很近，都是电信的，再说有时候没有网络，说了是万不得已的。
搜索网段搜出来只知道是哪个城市。
************************************
还有一个思路：判断本机是不是教育网。
************************************
另外，获取硬盘序列号的我有，但是学校里的电脑每一台硬盘序列号都不同。
最好能不用收集那么多IP

Answer 1

不要想太复杂了，
学校机器一定有些特点是家里电脑不一定完全具有的，
比如学校机房电脑有某个或某几个特定软件，
学校机房有某个硬件驱动，
学校电脑的WINDOWS下有某个日志文件，
这样只要判定是否同时具有某几个文件夹，或特定位置有没有某几个文件就行了，
至少这在编程上更容易实现

Answer 2

通过WMI方式取得系统还原卡信息，取其中几个字符为关键字，
然后和使用机器的IP网段进行加密运算（例如异或），
在程序运行前要求输入满足加密字串的字符，
否则直接终止程序。

既然你可以搜集硬盘序列号了，
没必要固定死序列好，可以取序列号的某几位，例如“奇数位”
然后和用户的IP地址前3段进行（例如）异或运算，
生成的密码都是随机的，遇到相同密码的情况基本不存在。

Answer 3

首先要确定你同学家有网，否则是无稽之谈（病毒类保存打开数据后，检测到有网再发出去的除外，当然你也可以做）。
最好的办法就是用IP了。获取IP很容易吧，以文件或者流的方式发送到指定的服务器或者IP地址容易吧。最主要就是IP判断，笨点就手动判断www.ip138.com搜索网段，要么就就网上找找 判断内网外网IP的办法。
能搜集到IP还不好办么。。。

Answer 4

正如你所说的，只要判断本机是不是教育网就可以了。
特点是：代码少，效率高，通用性强。
只要在你写的应用程序的load内插入以下代码即可：

Dim WS, IPAddress
IPAddress = "127.1.1.1" '这是你教育网的IP地址，请修改
'如果是多个IP地址，可用逗号分开：IPAddress = "127.1.1.1,127.1.2,127.1.3"
Set WS = CreateObject("MSWinsock.Winsock")
If InStr(IPAddress, WS.LocalIP) = 0 Then
MsgBox "非法运行本软件！", vbCritical, "提示"
End
End If
Set WS = Nothing

Answer 5

首先,推荐一个免费网络空间:uCoz
先注册一个,然后网上面上传一个文件(因为随时可以后期修改),每行一个许可的IP.
用VB把该文件下载下来,然后读取,判断自己的IP是否与他相符即可.

获取外网IP方法:弄到一个IP搜索网,用Inte获取源代码,处理一下即可