我是用ClientSocket和ServerSocket做网吧管理系统的,请问我怎么可以
控制机器上网,(实际就跟控制自己的机器的一样,请问怎么实现,)
例如:一个单击按纽,单击就可以上网,再单击就下网,并且 再不单机
此按纽的情况下,不能用其它方法上网?
控制机器上网,(实际就跟控制自己的机器的一样,请问怎么实现,)
例如:一个单击按纽,单击就可以上网,再单击就下网,并且 再不单机
此按纽的情况下,不能用其它方法上网?
解决方案 »
- dbgrideh.columns.buttonstyle:=cbsupdown的相关问题
- delphi 操作系统号验证问题
- 请教把VB代码改写为delphi代码,
- 大家请帮忙,如何在delphi中使用udl文件动态改变ado连接
- 问一下关于接口的代理是怎么定义的??
- TNMUDP控件发送了 简单文本 和 图片 如何接收?
- RMB求2个DELPHI SQL存储过程
- 散分5 ,今晚放假!恭祝大家新出快乐!
- 为什么这个问题提了三次竟然没有一个人能回答出来。。。?????
- 向大侠们请教一个问题--有关作聊天室方面的
- 假设一个表有n条纪录,我要从中随机抽取m条不重复的纪录,求助算法.(m<n)_2
- 关于locate,我用此函数提示错误。高手帮我!!小弟先行谢过了!!
第一个按钮 发送 不允许上网的信号,自己定义
client:
--- 在client的onread事件里
if clientsocket1.socket.recievetext('第一个按钮的信号') then
begin
调用api禁用网卡;
end
else
begin
启用网卡;
end;
----
笨办法,其他办法还在想.
调用api禁用网卡处代码如下:
mainform.Visible:=true;//显示出主窗体,窗体状态为最大化,上面你可以放一下edit用来输入密码
wantquit:=false;//不能用Alt+F4关闭窗体
setwindowpos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize or swp_noactivate);//显示在所有窗体前面
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);//禁用Ctrl+alt+del
//以下代码通过判断wantquit 的变量的值来决定是否可以结束本程序
procedure Tfrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if WantQuit then
begin
CanClose := True;
CloseSocket(s);
end
else
CanClose:= False;
end;
如果是后者你可以在代理服务器上动态设置权限