易语言 怎么让自己的程序一个帐号只能同时一台机器在线?

写了个小程序....想让他有帐号密码功能..[无需注册,帐号密码我直接给别人]....
问题是。别人有几台电脑.我想让一个帐号同一时间只能在一个电脑登录,,,,【本来想一个小网站程序的注册功能来做的,但是对网站那些不怎么熟悉..加上空间不好的话就无法验证了.......请教大家网络验证的方法
[本地验证无需考虑]
我要的功能是不想让一个帐号同时登录2台电脑 [帐号我直接发给别人,无需注册...一个帐号我让他绑定多台电脑]

第1个回答  2012-08-16
可以给你个思路:
在数据库中加入一个记录登录信息的字段
客户登陆后每隔一段时间写一次数据库,写入当前时间,这样登录的时候可以验证相同客户登录是否超过了间隔时间,如果没有超过就不能登录。追问

感谢你的热心 能提供下先关例程吗?

第2个回答  2012-08-16
办法都是人想出来的,就看你是否充分利用
我到是有个办法,就是有些麻烦

1、在启动窗口上放服务器和客户组件,服务器端口=0
2、运行时,客户连接服务器(可以用域名),连接的端口1
3、如果连接成功,说明已经有人登陆。如果连接失败,就更新域名的IP地址为本机外网IP。
这样,当你登录别人的时候,别人也就不能登陆了。

望您采纳!追问

感谢你的热心 试着做了 但是做不出来。。能提供下先关例程吗?

追答

大概的源码如下:

.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 域名, 文本型
服务器1.端口 = 11
.判断开始 (客户1.连接 (域名, 33) = 真)
信息框 (“帐号已在别处登陆!”, 0, )
.默认
服务器1.端口 = 33
更新域名(域名,取本机外网IP())' 易语言支持库中没有这个子程序
.判断结束

程序运行后,服务器端口为11,客户连接 域名指向IP 端口为11

如连接成功,提示已登录

如连接失败,改服务器端口为33,并更新域名指向为本机IP

这样你登陆后,别人在运行时,也就会提示已登录

本回答被提问者和网友采纳
第3个回答  2012-08-16
以前写过的聊天软件我是这样做的:用数组来记录登入的帐号名,其中包括客户句柄,用来判断断开的时候清楚登入记录账户,当一个帐号要登入的时候检测数组之内是不是有这个帐号,有就发送重复登入命令并断开客户端!很简单的
第4个回答  2012-08-16
- -