Форум: "Потрепаться";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Вниз

Отключение модема по времени.   Найти похожие ветки 

← →
mfender   (2003-12-17 20:06) [0]

Есть ли какая-то программулинка, которой можно регулировать время пребывания в Интернете, например 1 час в сутки? Или как это реализовать на Дельфи?
Жена моя бесконтрольно общается с миром в ущерб семье. Ничего не замечая. Ребенок пускается на самотек. Ладно, когда я дома - могу его проконтролировать, а когда я на работе? Представляю, что тут с ребенком твориться. Потому он со мной такой тихий и радостный, недавно вдвоем с ним четыре дня бичевали, пока супруга в отъезде была., так он ни разу не всхлипнул даже, гулял по два раза на дню со мной, вовремя питался, всегда был чистенький и все было постирано и убрано. Когда я на работе - ребенок не кормленый, не гуляный, штанов сухих и чистых нет, посуда не мытая, в хате срач. Спасите! Как бороться с такими женами, которые пытаются охватить общением весь глобус? Один из наших провайдеров развелся: "Надоело под стук клавы засыпать и просыпаться". Я еще не дошел до кондиции развода. Надо что-то предпринять.

---

← →
k-man   (2003-12-17 21:05) [1]

Я считаю тут выход один просто убрать сеть из дома. А жена которая предпочитает интернет ребенку. В общем тебе нужно вернуть ее к жизни...
Искренне желаю разрешение такой щекотливой ситуации

---

← →
panov   (2003-12-17 21:16) [2]

Может быть, провайдер такой сервис предоставит?

---

← →
Ломброзо   (2003-12-17 21:16) [3]

Сервис + RasEnumConnections + RasGetConnectionStatistics + лог (или база)

В общем, функции RAS_... и Internet.._ (см. MSDN)

---

← →
Ломброзо   (2003-12-17 21:18) [4]

Лично я бы пароли поотнимал или все порты, кроме почтовых, закрыл (TCP/IP filtering в настройках сетевых интерфейсов)

---

← →
mfender   (2003-12-19 07:28) [5]

Спасибо за советы и пожелания. Сеть из дома убрать не могу, пароли и порты отнять рука не поднимется (деспот и мещанин! подавись своим интернетом!). А вот с остальным недопонял, но попробую разобраться.
Кстати, сегодня ночью она намекнула, что неплохо бы еще MS Messenger поставить. Для более глобального общения. Ей icq с полусотенным контакт-листом уже мало.
Надо что-то предпринять.

---

← →
copyr25   (2003-12-20 11:29) [6]

"Зачем, ну зачем в милицию!?
Идём прямо к прокурору, в самом деле!"

тов. Саахов. "Кавказская пленница".

Засекаете время начала работы, а потом, ну, скажем, через час:

var
hToken : THandle;
tkp, ptkp : TTokenPrivileges;
i : dword;

begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
hToken);
LookupPrivilegeValue(NiL, "SE_SHUTDOWN_NAME", tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,FALSE,tkp,0,ptkp,i);
GetLastError;
ExitWindowsEx(EWX_REBOOT, 0);
end;

---

← →
AndreyS   (2003-12-20 14:26) [7]

Я конечно извиняюсь, но может решение проблемы в другом. Я так понимаю
жена не работает и на домашнем хозяйстве. Так скучно ей же -вот она по сети
общается. А сеть отнимешь- как бы других способов скуку развеять не нашлосьбы.
Потом будешь думать, что лучше уж сеть была. В общем может на работу ее
устроить раз в смысле домохозяйства все-равно толку не много. Она скучать
не будет и будет чувствовать себя самореализовавшейся. Только
тактично предложить. В отпуск вместе съездить тоже выход.

---

← →
k-man   (2003-12-20 14:37) [8]

Что-то у нас передача Окна получается, только с одним отличиему накс - правда

---

← →
k-man   (2003-12-20 14:38) [9]

> отличиему накс - правда

читать как: у нас - правда

---

← →
mfender   (2003-12-21 09:19) [10]

> AndreyS (20.12.03 14:26) [7]
> Я конечно извиняюсь, но может решение проблемы в другом.
> Я так понимаю
> жена не работает и на домашнем хозяйстве. Так скучно ей
> же -вот она по сети
> общается. А сеть отнимешь- как бы других способов скуку
> развеять не нашлосьбы.
> Потом будешь думать, что лучше уж сеть была. В общем может
> на работу ее
> устроить раз в смысле домохозяйства все-равно толку не много.
> Она скучать
> не будет и будет чувствовать себя самореализовавшейся. Только
>
> тактично предложить. В отпуск вместе съездить тоже выход.


Отсутствием общения она и мотивирует. Но, пардон, уж у кого общение отсуствует с друзьями и внешним миром, так это у меня. К ней ежедневно приходят сестры, мамы, подруги, на редких прогулках она всегда общается с подругами. Чего еще надо? Я вот, к примеру, своего друга последний раз видел месяца четыре назад, хоть живем в трехстах метрах друг от друга. Мы просто заняты. Нет времени посидеть пообчаться. Работаем, причем в разное время. Вот это я понимаю - недостаток общения.

---

← →
Думкин   (2003-12-21 10:44) [11]

> [10] mfender © (21.12.03 09:19)

Извини, может и не надо бы, но тему ты поднял.
От безделья она страдает и бессмысленности. Я много раз наблюдал как домохозяйки с ума едут. Одни хоть в детей переключаются - правда, детям зачастую не позавидуешь, все свое начинают впихивать в бедное детское существо, и 2 музыкалки и 5 языков и 6 кружков и т.п. В итоге детства нет. Иные в шмотки и т.п.
Тут и думать надо. А так бедой все может выйти. Да и решать тебе - у меня все.

---

← →
Бином Ньютоныч   (2003-12-21 13:31) [12]

Может это как поможет

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RasUnit, ExtCtrls;

const
UM_START = WM_USER + 999;

type
TForm4 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FEvent: THandle;
FOutOfLimit: boolean;
FStartTime: Cardinal;
procedure UMStartMsg(var Message: TMessage); message UM_START;
function GetConnectionsCount: integer;
procedure CheckLimit;
procedure CloseRasConnections;
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.CheckLimit;
var
n: integer;
begin
if GetConnectionsCount > 0 then
begin
if FOutOfLimit then
begin
CloseRasConnections;
MessageBox(Application.Handle,
"Лимит времени исчерпан. Пойди займись ребенком!", "Хватит ужо!",
MB_ICONWARNING or MB_SYSTEMMODAL);
Exit;
end;
if Timer1.Enabled then Exit;
FStartTime:=GetTickCount;
Timer1.Enabled:=true;
end
else
begin
if Timer1.Enabled then
begin
Timer1.Enabled:=false;
n:=integer(Timer1.Interval - (GetTickCount - FStartTime));
if n < 0 then n:=0;
FOutOfLimit:= n = 0;
Timer1.Interval:=n;
end
end;
end;

procedure TForm4.CloseRasConnections;
var
Connections: array[0..15] of TRasConn;
Size, Count, Res, n: integer;
Status: TRasConnStatus;
begin
Connections[0].dwSize:=SizeOf(TRasConn);
Size:=SizeOf(Connections);
Res:=RasEnumConnections(@Connections, Size, Count);
if (Res = 0) or (Res = ERROR_BUFFER_TOO_SMALL) then
begin
for n:=0 to Pred(Count) do
begin
Status.dwSize:=SizeOf(Status);
if RasHangUp(Connections[n].hrasconn) = 0 then
while
RasGetConnectStatus(Connections[n].hrasconn, Status) <> ERROR_INVALID_HANDLE
do
Sleep(0)
end;
if Res = ERROR_BUFFER_TOO_SMALL then CloseRasConnections;
end;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
Timer1.Interval:=3600000;
FEvent:=CreateEvent(nil, false, false, nil);
RasConnectionNotification(integer(INVALID_HANDLE_VALUE), FEvent, RASCN_Connection or RASCN_Disconnection);
PostMessage(Handle, UM_START, 0, 0);
end;

function TForm4.GetConnectionsCount: integer;
var
Conn: TRasConn;
Size, Res: integer;
begin
Conn.dwSize:=SizeOf(Conn);
Size:=Conn.dwSize;
Res:=RasEnumConnections(@Conn, Size, Result);
if
(Res <> 0) and
(Res <> ERROR_BUFFER_TOO_SMALL)
then
Result:=0;
end;

procedure TForm4.UMStartMsg(var Message: TMessage);
begin
repeat
case MsgWaitForMultipleObjects(1, FEvent, false, INFINITE, QS_ALLEVENTS) of
WAIT_OBJECT_0: CheckLimit;
WAIT_OBJECT_0 + 1: Application.ProcessMessages;
end;
until Application.Terminated;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
FOutOfLimit:=true;
Timer1.Enabled:=false;
CheckLimit;
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
CloseHandle(FEvent);
end;

end.


---

← →
DrPass   (2003-12-21 14:33) [13]

На самом деле проблема решается не программным, а аппаратным путем.
Ты должен:
а) Любить жену утром
б) Любить жену днем
в) Сильно любить жену вечером.
Тогда у нее просто не будет сил доползти до компьютера

---

← →
mfender   (2003-12-22 08:42) [14]

> DrPass © (21.12.03 14:33) [13]
> На самом деле проблема решается не программным, а аппаратным
> путем.
> Ты должен:
> а) Любить жену утром
> б) Любить жену днем
> в) Сильно любить жену вечером.
> Тогда у нее просто не будет сил доползти до компьютера


Тогда у меня не будет сил зарабатывать на эту любовь. Знаешь, сколько энергии уходит? Почитай, где-то написано.

Бином Ньютоныч (21.12.03 13:31) [12] Спасибо. Попробую вечерком.

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.5 MB
Время: 0.008 c