Валяем radmin проблемка...
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Валяем radmin проблемка... - 2007-06-03 23:34:58.053333
|
|
|
ya_Mag
Сообщений: 3
Оценки: 0
Присоединился: 2007-01-04 09:54:04.630000
|
на диске в исходнике клиента проблемка!!! в место нормального unit1.pas файла фаил с белебирдой!!!
если смотреть на него через блокнот то получаетсячто то вроде
ъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъ
ъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъъ уважаемая редакция будте так добрв и выложите исходник сюда… ни или хотябы сам этот файлик!
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-04 11:53:16.803333
|
|
|
M0r1arty
Сообщений: 39
Оценки: 0
Присоединился: 2007-02-16 13:20:35.186666
|
Такую херню можно без проблем написать даже не читая статью и тем более не втыкая в чужие исходники
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-04 14:26:34.490000
|
|
|
saimon 2metra
Сообщений: 4281
Оценки: 0
Присоединился: 2007-01-26 10:56:51.426666
|
Скачай TightVNC - это полноценный радмин опенсорс. Стабильный, но можно доработать напильником
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-06 22:50:32.813333
|
|
|
Free_BSD
Сообщений: 26
Оценки: 0
Присоединился: 2005-07-19 19:34:41
|
У меня тоже В папке Client все файлы с таким содержимым.
Я понимаю, если бы можно было дописать самому, исходя из статьи в журнале, но в версии на диске есть некоторые полезные процедуры, которые не описаны в статье
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-07 11:42:03.406666
|
|
|
_Mak_
Сообщений: 166
Оценки: 0
Присоединился: 2007-01-31 20:41:35.160000
|
quote:
ORIGINAL: M0r1arty
Такую херню можно без проблем написать даже не читая статью и тем более не втыкая в чужие исходники
Бля, без проблем можно написать всё что угодно, только времени тратить на ненужную (читай за которую не дадут денег =)) прогу лень.
Я бы тоже взглянул на исходнички. Так что, господа - исправляйтеся…
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-09 11:12:31.503333
|
|
|
HOBO
Сообщений: 12
Оценки: 0
Присоединился: 2007-05-08 18:40:39.050000
|
А у меня если прочитать через блокнот вообще пустота!
че за херня!:@
Они че этот диск задницей делали!!!!!!!!!18D
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-09 16:55:24.280000
|
|
|
Makcmamont
Сообщений: 128
Оценки: 0
Присоединился: 2006-09-17 23:23:02.606666
|
А? Что? Я чё-то не в теме… а вы может не в тех кодировках открываете? Ведь блокнот UTF-8 очень говёненько понимает…[>:]
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-12 19:05:04.180000
|
|
|
amizent
Сообщений: 1
Оценки: 0
Присоединился: 2007-06-11 20:20:51.140000
|
Пробовал всеми кодировками открывать, нифига не получается
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-13 05:53:40.470000
|
|
|
ZwE
Сообщений: 76
Оценки: 10
Присоединился: 2006-10-24 10:58:28.273333
|
Люди аможет быть кто-нибудь знает как на MASM'e написать драйвер, который бы следил за действиями пользователя в системе.
Ведь, на мой взгляд, так оно не заметнее будет.
Сам-то уже 3-й день сижу… :@
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-06-14 12:10:24.073333
|
|
|
Night Wolffff
Сообщений: 3
Оценки: 0
Присоединился: 2007-06-14 11:52:57.783333
|
Во - первых файл не открывается потому что он битый и дело тут не в диске (у меня он тоже не открывается и он вообще не у кого не откроется потому что это файл такой). Во - вторых зачем это на MASM можно и на Delphi неплохо написать ведь это же будет сложнее намного да и не знаю на счёт функциональности. В delphi можно отключить ненужные модули и прога заметно уменьшиться в размерах да и если говорить про нужные ведь их же открыть можно и если что нить шаришь вытащить отттуда только то что нужно тогда программка будет маленькой и без тормозов! С уважением Night Wolf!
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-07-11 06:31:29.686666
|
|
|
cyber$nake
Сообщений: 3
Оценки: 0
Присоединился: 2007-05-24 12:29:00.643333
|
Дык все таки выложит кто-нить сорцы этого модуля, интересно посмотреть
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-07-12 03:39:58.566666
|
|
|
SteamLock
Сообщений: 73
Оценки: 0
Присоединился: 2006-09-24 14:27:19.240000
|
Работал в Delphi 7/
Это CLIENT:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, ExtCtrls, pngimage, IdAntiFreezeBase, IdAntiFreeze, ComCtrls,
DBCtrls, XPMan; //XPMan чтоб всё по экспишному выглядело
type
TForm1 = class(TForm)
IdTCPClient1: TIdTCPClient;
Button1: TButton;
ViewBut: TButton;
ViewerExBut: TButton;
Button4: TButton;
CheckBox1: TCheckBox;
Viewer: TTimer;
ViewerEx: TTimer;
Image1: TImage;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
IPadress: TEdit;
PortNumber: TEdit;
Label3: TLabel;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ViewButClick(Sender: TObject);
procedure ViewerTimer(Sender: TObject);
procedure ViewerExButClick(Sender: TObject);
procedure ViewerExTimer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure connectToServer;
end;
var
Form1: TForm1;
youmustwork: boolean;
MouseMowed, MouseDouwned, RightDown, LeftDown:Boolean;
Xpos,Ypos, OldFormHeight, OldFormWidth, OldFormTop, OldFormLeft: integer;
implementation
{$R *.dfm}
procedure TForm1.connectToServer;
begin
IdTCPClient1.Host:=IPadress.Text;
IdTCPClient1.Port:=StrToInt(PortNumber.Text);
IdTCPClient1.Connect(0);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
S: TFilestream;
Bitmap: TBitmap;
PNG: TPNGObject;
begin
connectToServer;
IdTCPClient1.WriteLn('GETSCREEN');
with IdTCPClient1 do
begin
if FileExists('C:\s.png') then DeleteFile('C:\s.png');
s:=TFileStream.Create('C:\s.png',fmCreate);
While connected do
ReadStream(s, -1, true);
FreeAndNil(s);
Disconnect;
Image1.Picture:=nil;
PNG:=TPNGObject.Create;
Bitmap:=TBitmap.Create;
try
PNG.LoadFromFile('C:\s.png');
Bitmap.Assign(PNG);
Image1.Picture.Bitmap.Assign(Bitmap);
finally
PNG.Free;
Bitmap.Free;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image2.Picture.LoadFromFile('asia_sockerBlack.bmp');
end;
procedure TForm1.ViewButClick(Sender: TObject);
begin
If Viewer.Enabled=False then
begin
Button1.Enabled:=False;
ViewerExBut.Enabled:=False;
Viewer.Enabled:=True;
ViewBut.Caption:='Выключить просмотр';
Image2.Picture.LoadFromFile('asia_socker.bmp');
end
else
begin
Button1.Enabled:=True;
ViewerExBut.Enabled:=True;
Viewer.Enabled:=False;
ViewBut.Caption:='Включить просмотр';
Image2.Picture.LoadFromFile('asia_sockerBlack.bmp');
end;
end;
procedure TForm1.ViewerTimer(Sender: TObject);
Var
S: TFilestream;
Bitmap: TBitmap;
PNG: TPNGObject;
begin
connectToServer;
IdTCPClient1.WriteLn('GETSCREEN');
with IdTCPClient1 do
begin
if FileExists('C:\s.png') then DeleteFile('C:\s.png');
s:=TFileStream.Create('C:\s.png',fmCreate);
While connected do
ReadStream(s, -1, true);
FreeAndNil(s);
Disconnect;
Image1.Picture:=nil;
PNG:=TPNGObject.Create;
Bitmap:=TBitmap.Create;
try
PNG.LoadFromFile('C:\s.png');
Bitmap.Assign(PNG);
Image1.Picture.Bitmap.Assign(Bitmap);
finally
PNG.Free;
Bitmap.Free;
end;
end;
end;
procedure TForm1.ViewerExButClick(Sender: TObject);
begin
If ViewerEx.Enabled=False then
begin
Button1.Enabled:=False;
ViewBut.Enabled:=False;
ViewerEx.Enabled:=True;
ViewerExBut.Caption:='Выключить управление';
Image2.Picture.LoadFromFile('asia_socker.bmp');
end
else
begin
Button1.Enabled:=True;
ViewBut.Enabled:=True;
ViewerEx.Enabled:=False;
ViewerExBut.Caption:='Включить управление';
Image2.Picture.LoadFromFile('asia_sockerBlack.bmp');
end;
end;
procedure TForm1.ViewerExTimer(Sender: TObject);
Var
S: TFilestream;
Bitmap: TBitmap;
PNG: TPNGObject;
begin
connectToServer;
IdTCPClient1.WriteLn('GETSCREEN');
with IdTCPClient1 do
begin
if FileExists('C:\s.png') then DeleteFile('C:\s.png');
s:=TFileStream.Create('C:\s.png',fmCreate);
While connected do
ReadStream(s, -1, true);
FreeAndNil(s);
Disconnect;
Image1.Picture:=nil;
PNG:=TPNGObject.Create;
Bitmap:=TBitmap.Create;
try
PNG.LoadFromFile('C:\s.png');
Bitmap.Assign(PNG);
Image1.Picture.Bitmap.Assign(Bitmap);
finally
PNG.Free;
Bitmap.Free;
end;
end;
connectToServer;
if MouseMowed=true then
begin
IdTCPClient1.WriteLn('mouse_move ');
IdTCPClient1.WriteLn('mouse_x '+IntToStr(Xpos));
IdTCPClient1.WriteLn('mouse_y '+IntToStr(Ypos));
MouseMowed:=False;
end;
IdTCPClient1.Disconnect;
if MouseDouwned=true then
connectToServer;
begin
If LeftDown=True then
begin
IdTCPClient1.WriteLn('mouse_left ');
LeftDown:=False;
end;
If RightDown=True then
begin
IdTCPClient1.WriteLn('mouse_right ');
RightDown:=False;
end;
end;
IdTCPClient1.Disconnect;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
connectToServer;
IdTCPClient1.WriteLn('message_for_you ');
IdTCPClient1.Disconnect;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
MouseMowed:=True;
Xpos:=X;
Ypos:=Y;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MouseDouwned:=True;
if Button = mbLeft then LeftDown:=true;
if Button = mbRight then RightDown:=true;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked=True then
begin
OldFormHeight:=Form1.Height;
oldFormWidth:=Form1.Width;
OldFormTop:=Form1.Top;
OldFormLeft:=Form1.Left;
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
end
else
begin
Form1.BorderStyle:=bsSizeable;
Form1.WindowState:=wsNormal;
Form1.Height:=OldFormHeight;
Form1.Width:=OldFormWidth;
Form1.Top:=OldFormTop;
Form1.Left:=OldFormLeft;
end;
end;
end.
Не судите если что.
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-07-12 09:44:59.030000
|
|
|
IvanA
Сообщений: 1
Оценки: 0
Присоединился: 2007-07-12 09:27:20.396666
|
Благодарю SteamLock :)
Но вопрос тем не менее открыт: собирается редакция выложить таки исходники к клиентской части, или где?
Действительно любопытно посмотреть. Кстати, а в качестве извинений за ошибки с диском с удовольствием можно было бы принять от редакции доработанный вариант с учётом советов автора в конце статьи (-Несколько слов напоследок-).
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-07-20 14:50:41.710000
|
|
|
lAbbadonl
Сообщений: 2
Оценки: 0
Присоединился: 2007-07-20 14:38:59.670000
|
Возникла интересная проблема по поводу этой программы на некоторых компах по сети скрины приходят чисто белые(не чёрные как в случае просмотра кем то видео,а именно белые) причём специально проверял на разных компах и в данный момент на 3х скрины нормальные а на 2х белые (
если кто сталкивался или может сам автор кода скажет в чём проблема?
з.ы. на основе данной программы зделал неплохой аналог ProRat 1.9 ловится антивирусом пока только одна dll-ка которая отвечает за хук(и то времени нехватает переписать её).
заранее спс.
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-07-24 00:31:44.740000
|
|
|
lAbbadonl
Сообщений: 2
Оценки: 0
Присоединился: 2007-07-20 14:38:59.670000
|
ап
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-08-01 07:11:35.196666
|
|
|
ZwE
Сообщений: 76
Оценки: 10
Присоединился: 2006-10-24 10:58:28.273333
|
Спасиб За исходник :)
|
|
|
|
|
RE: Валяем radmin проблемка... - 2007-08-02 03:18:12.956666
|
|
|
Einstain
Сообщений: 11
Оценки: 0
Присоединился: 2007-04-25 22:54:04.030000
|
SteamLock, спасибо за исходничек, очень помог разобраться что к чему.
тока в процедуре
procedure TForm1.ViewerExTimer(Sender: TObject);
ошибка, там вроде вместо
if MouseDouwned=true then
connectToServer;
begin
If LeftDown=True then
begin
должно быть:
if MouseDouwned=true then
begin
connectToServer;
If LeftDown=True then
begin
а так, код рабочий, сам все проверил. еще раз спасибо :)
|
|
|
|
|
|
