شبكه و يه ريزه كاري هاي ويژه

به نام خدا
سلام
{indy+ado+ sql sever}
در اين تاپيك از دوستان مي خوام (ماركو كانتو ها ي عزيز)كمك كن تا يه كار هاي جديد(لااقل براي من)انجام بديم
{لطفاً تا آخرخش بخونيد}
من دارم يه برامه تحت شبكه مينويسم مه با indy,ado+sqlserverكار مي كنه
اين برنامه جهت مديريت كافينت هاست(فقرار نكنيد يه خورده فرق فكوله)
فرقش اينه كه امكانات بسياري داره و به صورت كاملاً اتوماتيك كار ميكنه
من مي خوام:
1.وقتي كاربر نمي خواد با اينترنت كار كنه (يعني اين گزينه رو انتخاب ميكنه)نتونه به اينترنت وصل بشه يعني نتوه با اكانت توي كنترل پنل هم وصل بشه.
2.وقتي تحت هر برنامه اي پرينت ميگيره سرور و كلاينت هردو متوجه بشن و هزينه اش در نظر بگيره
3.وقتي كاربر دكمه پايان رو زد اتصال به اينترنت قطع بشه
4.indy تو شبكه هاي اتوماتيكالي هم كار كنه
5.كاربر نتونه از زير برنامه جا خالي بره يعني از task maneger نتونه استفاده كنه،از alt+tab , ... برنامه رو ببنده يا ازش عبور كنه
حلا :
{از دوستان ميخوام كمك كنن و من راهنمايي كنن كه چه طور اين امكانات توش بگنجونم}
**********

از همتون واقعاً ممنونم كه كمك ميكنيد.
زكات علم ياد دادن است(پيامبر اكرم {ص})
پس بياييد اونايي كه علمش داريد زكاتش بديد(تقاضاً)

دوستان عزيز لطف كنيد يه راهنمايي ما بفرمائيد
soljer جان،مرد مباح و بقه فاميلا په كجائيد تا حالا 8تا از دوستان (طي4-5ساعت)به تاپيك مراجعه كردن اونا هم علاقه مندند
لطفاً راهنمايي كنيد فكر كنم اين تاپيك جاي خوبي باشه كه همه دوستان با هم ديگر كار كنند و مسائل برنامه نويسي شبكه و غير شبكه رو باهم قاطي كنن تا دست همه بيشتر تو كارهاي شبكه بيشتر وا بشه
لطفاً نيايد و بريد(حالا اگه اومديد ور فتيد هم خوبه)

سلام

اسم تاپيك را بايد اينطور انتخاب مي كرديد :

ريزه كاري هاي ويژه و يكم شبكه

چرا ميرويد دنبال برنامه هايي كه اينقدر سنگين است؟ همين مورد 5 خودش يك بحث مفصل داره.
قسمتها را جداگانه شروع كنيد، مثلا نحوه جلوگيري از اتصال به اينترنت، مانيتور كردن پرينتر و ...
بهتره خودتان شروع كنيد كه نوشتن برنامه و مشكلات را اينجا مطرح كنيد(مشكل و نه صورت مساله) چون اينجا كسي كد آماده دراختيار شما قرار نميدهد.

با پيشنهاد دوست عزيز noneforce شروع كردم
مشكل من اينجاست كه نميدونم چه جوري از اتصال به اينترنت جلوگيري كنم.
لطفاً ياري كنيد

منظور از جلوگيري كردن از استفاده از اينترنت اينه كه
سرور و شبكه به ايترنت وصله ولي اين كلاينت خاص نتونه از اينترنت استفاده كنه
يه راه حل به ذهنم خورد كه چندتا ايراد داشت
اينكه نرم افزارهايي كه به اينترنت وصل ميشن رو قفل كنيم ولي كاربر مي تونه يه برنامه ديگر نصب كنه
و ايراد ديگه اين كه اينتذنت اكسپلورر رو با كد نويسي قفل ميكنم (چهر بايت آخرش به اول منتقل ميكنم )ولي دوباره سازي ميشه
لطفاً كمك كنيد

از آنجایی که این برنامه رو می خواهی برای کافینت بنویسی همان طور که NoneForce جان گفتن هر یک از گزینه هایی که معرفی کردی هر کدام یک بحث جداگانه است

1 ) منظورت از این گزینه چی هست ؟
یعنی می خواهی سیستم به اینترنت وصل باشه ولی نتونه از اینترنت استفاده کنه ؟ یا چیزه دیگه ای است ؟ کمی در این باره توضیح بده

2 ) فکر کنم برای این کار باید از Hook استفاده کنی یعنی توابعی رو hook کنی و اگر کاربر از این توابع استفاده کرد برنامه شما تشخیص بده و کاری رو که می خواهید انجام بده

3 ) برای این کار شما دو راه دارید ( به نظر من )
1 : کامپیوتر رو از شبکه خارج کنید که فکر نکنم این رو خواسته باشید
2 : کاری کنید که دیگه هیچ برنامه ای نتونه باز بشه چه برنامه های مربوط به اینترنت و چه برنامه های مربوط به خود ویندوز
کمی بیشتر توضیح بده

4 ) این رو نمی دونم

5 ) به نظر من بهتر است که شما از کامپوننت dWin_lock_with_crack استفاده کنید برای این گزینه و گزینه های دیگه می تونه خیلی مفید باشه

منظور من از گزينه 1 :
یعنی می خواهم سیستم به اینترنت وصل باشه ولی نتونه از اینترنت استفاده کنه

بيشتر از اين نمي تونم منظورم را برسانم
گزينه 2:
دوست عزيز من درباره hook كردن اطلاعاتي ندارم(آخه تازه كارم ) لطفاً يه خورده بيشتر توضيح بده ممنون
3. قبلاً تو مباحث ديده بودم كه نحويه اتصال به اينترنت چه طوره(با دلفي) الآن من مي خواهم بر عكس عمل كنم(يعني disconnect)
5.از تون متشكر ميشوم اگه اين كامپوننت را برام بذاري(لينكش) اگه براي دلفي 2009 باشه كه خيلي بهتر اگه نه هر نسخه اي باشه ممنونم

سلام دوست عزيز.
نميدونم چطوري شده كه برنامه به اين سنگيني به شما پيشنهاد شده و عجيبتر اينكه شما قبولش كردي . ولي :

من از آخر يك چيزايي بگم.
اگه كاربرات خيلي حرفه اي نيستند (دعا كن) و خودتم دنبال دردسر و كد نويسي و بحثهايي در سطح بالا (مغز در بيار) نميگردي از كد ساده زير استفاده كن.

کد:

---

MainForm.Hide;

---

كجا استفادش كني رو نميگم كه يك كمي دنبالش بگردي و ياد بگيري كه كجا ميتوني ازش استفاده كني.

بحث Hook چندين بار در اين فروم انجام شده و ميتوني سرچ كني. ولي خيلي كار سختي پيش رو داري.
فكر نكنم نياز زيادي به Indy داشته باشي. براي اينكه شما اطلاعات رو از طريق برنامت جابجا نميكني. بايد با توابع سطح پائينتري اين كارو بكني كه به Events خود ويندوز متصل باشي كه در واقع همون Hook ميشه.

به نظرم فعلا روي يك يا دوتا از اين كارا فكوس كن و برو جلو و هرجا به مشكل خوردي بگو تا اگه ميدونستيم كمك كنيم وگرنه خودمونم ميگرديم تا به جايي برسيم.

موفق باشي

من از آخر يك چيزايي بگم.
اگه كاربرات خيلي حرفه اي نيستند (دعا كن) و خودتم دنبال دردسر و كد نويسي و بحثهايي در سطح بالا (مغز در بيار) نميگردي از كد ساده زير استفاده كن.

کد:

---

MainForm.Hide;

---

كجا استفادش كني رو نميگم كه يك كمي دنبالش بگردي و ياد بگيري كه كجا ميتوني ازش استفاده كني.

مرد مباح من كه گفتم ميشه گفت (تازه كارم) لطف كن بگو بدونيم كجا استفاده كنم
در ضمن از indy بر اي عضويت و ورود كاربر (كاربر دفتر حساب دار ه و تخفيف هاي پله اي برا در نظر گرفته ميشه) استفاده ميكنم
كار با indy رو تا يه حدودي بلدم ولي كافينت ها از شبكه اتوماتيكالي استفاده ميكنن و server آي پي نداره و مشكل من همين نداشتن آي پي مي باپد
لطف كنيد (دوستان) راهنمايي كنيد

توي پيتت گفته بودي كه تقريبا مبتدي هستي.
منم براي همين گفتم بگردي كه فكرت باز بشه.
توي OnCreate و OnShow نميتوني از اين فرمان استفاده كني به دلايلي.
البته راههاي ديگه هم داره كه بتوني تو اونا استفاده اي مشابه بكني.

من كد رو دادم و ميخوام يك كمي بگردي توي دلفي و با كامپوننتاش سرو كله بزني و ببيني با كدومش ميتوني اون كد رو استفاده كني.
يك كمي ور برو و نتايجي كه گرفتي رو هم بنويس و اگه به نتيجه اي نرسيده بود اون موقع بهت ميگم چي كار كني.

ok فكر كنم فهميدم
وقتي مين فورم هايد ميكنيم تو taskmanger نشون نمي ده و لي تو سربرگ processes نشون مي ده

خوبه پس به نتيجه رسيدي.
در مورد نشون ندادن توي Process بايد درباره Inject سرچ كني.
اولش بهت گفتم بحث خفن پيش مياد. من نوشته بودم اگه راه راحت رو ميخواي اينه.
اگه كار ديگه ميخواي بكني ، من حال و حوصله و دانشم قد نميده :46:

ضمنا اگه بازم كاري از دستم بر ميومد بهم بگو.
راستي خوشحال ميشم اگه بگي از چه روشي و كجا استفاده كردي از اين فرمان.

موفق باشي.

يه روش ديگه اينه كه برا فرم اصلي كمپشن نذاري و بعد visible =false اونوقت همون نتيجه رو ميده

درباره hook for print يه تاپيك خارجكي پيدا كردم لطف كنيد اگه چيزي فهميديد به ما هم بگيد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

يه پكيج هم داره برا همين كارا

سلام

madCollection توابع هوك داره، ولي نسخه هاي كه توي اينترنت هست هيچكدام قابليت هوك كردن توابع براي مخفي كردن برنامه را ندارد(توضيحات بيشتر : مراجعه شود به سايت madshi.net)
پس براي مخفي كردن نميتونيد از اين كامپوننت استفاده كنيد، ولي براي هوك كردن پرينتر و ... مي تونيد.

دوستان اگه ممكنه كسي در مورد indy تو شبكه هاي اتوماتيكالي توضيح بده

يه خورده با هاش ور رفتم تا يه مطالبي رو فهميدم به شرح زير
1.تو شبكه هاي اتوماتيكالي هم خود كامپيوتر يه ipرايگان انتخاب مي كنه پس مي تونيم اون بدست بياريم و ازش استفاده كنيم
2.بر اي جلوگيري از استفاده(جا خالي داد ن ها) چند تا تابع پيدا كردم كه الآن همرام نيست(چون تو كافي نت هستم) كه حتي اگه برنامه رو ببنديم با زهم بسته نميشه(پشت پرده كار ميكنه) و براي جلو گيري از استفاده از اينترنت مي تونيم از توابعي كه ساير پنجره ها رو ميبند استفاده كنيم و براي اينكه برنامه خودمون بسته نشه يك عنوان خاص براي برنامه مي ذاريم و يه ifساده
و..
اطلاعات كامل بعدً در يك فرصت مناسب
من مشكلم رو حل كردم بعدا راه حلا رو توضيح ميدم اگه كسي سوال خاصي در اين باره (بحث هاي اين تاپيك) داره در خدمتش هستم

بحث Inject‌به كجا رسيد؟

Inject و اما براي مخفي كردن برنامه از پروس...ر
taskmaneger فايل زير كا گشا مي باشد

نقل قول:

---

کد:

---

http://rapidshare.com/files/193078056/Hide_Program_From_Taskbar.zip.html

---

---

ببخشيد تو پست قبلي يه مشكلي پيش آومد(لپي)ويرايش نكردم شايد بعضي از دوستان نياز داشته باشند

لينك اصلي اينه

نقل قول:

---

کد:

---

http://rapidshare.com/files/194270675/inject1.rar.html

---

---

طبق درخواست دوست عزيز picher_s از فردا به شرط زندگي مي خوام توابع و روشها يي كه تو اين برنامه استفاده كردم رو بذارم
البته اگه سوالي بود هم به روي چشم حافظ ايذه اي(خودمو ميگم)

سلام عزیزان.
اون برنامه ای رو که گذاشتید مربوط به پنهان کردن Application هست نه پروسز!!
برنامه دوم فقط تو taskManager دیده نمیشه!!! با یه کد ساده دلفی قابل روت و بسته شدنه.
اگر میخواهید برنامه ای بنویسید که پروسزش دیده نشه و منم نتونم ببندمش (شوخی کردم) شما باید یه درایور بنویسید.
ویروس Sality از چنین روشی استفاده کرده. و فکر میکنم هیچ ربطی هم به Injection نداشته باشه!!!
موفق و پیروز باشید.

picher_s جان خوب بيشتر توضيح بده

با سلام
دوستان من کارایی رو که تو این برنامه کردم رو میذارم اگه استاندارد نبود ببخشید و کمک کنید که با هم درستشون کنیم اگه سوالی هم بود بگید تا اونجا که بتونم(بلد باشم) جواب میدم.

1.هرچی زور زدم نه ،تونستم (البته تو ایران هرکی میره کافی نت برا اینترنته نه چیزه دیگه). این قسمت و با قسمت سوم یکجا توضیح میدم.
2.کامپوننت زیر رو دانلود کنید(اينترنمت گيره انشالله پست بعدي)

کامپوننت ها بالا یکی از ویژگی هاش مانیتورینگ پرینتراست. یعنی از تو هر برنامه ای دستور پرینت بدی توابع به کار رفته در این کامپوننت ها می فهمند(از دستورات هوک استفاده می کنن).

معمولاً تو کافی نت ها یک پرینتر دارند و اون هم shereمیشه(اگه هر سیستم هم یکی داشته باشه فرق چی؟نمی کنه) ،پس کاربر بعد از دستور پرینت والبته بعد از تائید موفقیت آمیز بودن پرینت هزینه ای را به جان می خرد .
برای اطمینان از موفقیت آمیز بودن پرینت از دستور زیر استفاده میشود (که در دموی کامپوننت گذاشته شده وجود دارد
\Program Files\madCollection\madCodeHook\Demos\system wide\PrintMonitor)



دستور
uses madCodeHook;

type
// this is what we our dll sends us
TPrintNotification = record
process : array [0..MAX_PATH] of char;
api : array [0..MAX_PATH] of char;
params : array [0..MAX_PATH] of char;
result : array [0..MAX_PATH] of char;
end;

procedure TFPrintMonitor.HandlePrintNotification(var Message: TMessage);
// you got mail! add the received message to our listview
begin
// was it really a message from our dll?
if Message.lParam = $777 then
// yes it was, so extract the information and add it to our listview
with TPrintNotification(pointer(Message.wParam)^), LogLV.Items.Add do begin
Caption := TimeToStr(Now);
SubItems.Add(ExtractFileName(process));
SubItems.Add(api); //شرح مراحل عمليات شروع ،پايان و ...
SubItems.Add(params); //مشخصات پرينتري که جهت پرينت ازش استفاده شده
SubItems.Add(result); //که معلومه جهت اعلام نتيجه عمليات پرينت
MakeVisible(false); //اينو نمي دونم
end;
end;
خوب اگه نتیجه result=succses بود یعنی اینکه پرینت با موفقیت انجام شد
برای اینکه ببینیم چند برگ پرینت گرفته تعداد دفعات succsesها رو می شماریم.
و بعد با indy به سرور تعداد پرینت ها رو خبر میدیم.
خوب فعلاً اگه سوالی بود بگید و گرنه که برم سراغ بعدی.....

خوب مبحث بعدی 1و2و3
قرار بود از استفاده کردن کاربر از اینترنت جلوگیری کنیم،اینترنت و قطع و وصل کنیم(شبکه)و....
خوب اول یه آموزش کوتاه
برای دسترسی به این منابع(شبکه در ویندوز و شاید هم سایر منابع که من نمی دونم اگه کسی سایر دونست بگه ما هم استفاده کنیم) چندتا dll بیل گیتس تو سیستم 32 قرار داده که می توان از آن ها استفده کرد
Shell32.dll
hnetcfg.dll

وقته اینا رو به دلفی اضافه کرده چندتا کامپوننت به قرار زیر بهتون میده
NetSharingManager
ShellFolderItem
PassportClientServices
FileSearchBand
ShellLinkObject
ShellDispatchInproc
ShellFolderView
SearchCommand
Shell
اگه تو نصب مشکل داشنید بگید تا آموزش بدم(اگه! به حرفه ای هاش برنخوره)

خوب با این کامپوننت ها هرچی دلتون می خواد با شبکه و ...می تونید ور برید(من فقط با شبکه ش کار کردم اگه کسی سر در آورد به ما هم بگه باشه!)

حالا بریم سر یه تابع جهت قطع و صل کردن شبکه (loca area connection)

که از منابع shell32 استفاده شده

function TForm2.ToggleLAN(const ConnectionName: string): Boolean;
const
EnableVerb = 'En&able';
DisableVerb = 'Disa&ble';
LANEnable: Boolean = True;
var
ShellApp: Shell32_tlb.Shell;
ControlPanel: Shell32_tlb.Folder;
FolderItem: Shell32_tlb.FolderItem;
NetworkFolder: Shell32_tlb.Folder;
LANConnection: Shell32_tlb.FolderItem;
EnableVerbItem, DisableVerbItem, Verb : Shell32_tlb.FolderItemVerb;
I,K: Integer;
begin
Result := False;
ShellApp := CoShell.Create;
ControlPanel := ShellApp.NameSpace(ssfCONTROLS);
// test := ConnectionName;
for I := 0 to ControlPanel.Items.Count - 1 do
begin
FolderItem := ControlPanel.Items.Item(I);
// ShowMessage(FolderItem.Name);
if (FolderItem.Name = 'Network Connections') or
(FolderItem.Name = 'Network and Dial-up Connections') or
(FolderItem.Name = 'Network and Sharing Center') then
begin
NetworkFolder := FolderItem.GetFolder as Folder;
Break;
end;
end;
if NetworkFolder = nil then
begin
Result := False;
Exit;
end;
for I := 0 to NetworkFolder.Items.Count - 1 do
begin
FolderItem := NetworkFolder.Items.Item(I);
// ShowMessage(FolderItem.Name);
if FolderItem.Name = ConnectionName then
begin
LANConnection := FolderItem;
Break;
end;
end;

if LANConnection = nil then
begin
Result := False;
Exit;
end;

for I := 0 to LANConnection.Verbs.Count - 1 do
begin
if LANConnection.Verbs.Item(I).Name = EnableVerb then
begin
EnableVerbItem := LANConnection.Verbs.Item(I);
EnableVerbItem.DoIt;
Result := true;
//ShellApp._Release;
// ControlPanel._Release;
// FolderItem._Release;
// NetworkFolder._Release;
//LANConnection._Release;

Exit;
end;

end;

end;

البته بگم می تونید با dialup , .. ور برید

اون قسمتی رو که با رنگ قرمز نشون دادمه:

if LANConnection.Verbs.Item(I).Name = EnableVerb then

اگه EnableVerb کنیم شبکه وصل میشود (اگه قطع باشه)
اگه DisableVerbکنیم شبکه قطع میشه (اگه وصل باشه)

خوب طریق فراخوانی
ToggleLAN('Local Area Connection');

مشکل همش تو همین بود(حل شد نه؟) حالا اگه بخوایم جلوگیری کنیم از استفاده می زاریمش تو یه تایمر که مدام چک کنه

خوب اینم همون تابع بالا برا ویندوز ویستا(چون ویستا نداشتم امتحان نکردم بگم 100% کار میکنه)

function EnabelNetworkCard(cardName : String) : integer;
var Retvar : integer;
oBindObj : IDispatch;
oNetAdapters,oNetAdapter,
oIpAddress,oGateWay,
oWMIService,oSubnetMask : OleVariant;
i,iValue : longword;
oEnum : IEnumvariant;
oCtx : IBindCtx;
oMk : IMoniker;
sFileObj : widestring;
begin
Retvar := 0;
sFileObj := 'winmgmts:\.\root\cimv2';

// Connect to WMI - Emulate API GetObject()
OleCheck(CreateBindCtx(0,oCtx));
OleCheck(MkParseDisplayNameEx(oCtx,PWideChar(sFile Obj),i,oMk));
OleCheck(oMk.BindToObject(oCtx,nil,IUnknown,oBindO bj));
oWMIService := oBindObj;

oNetAdapters := oWMIService.ExecQuery('Select * from ' +
'Win32_NetworkAdapter ' +
'where Description = ' + '''' +
CardName + '''');
oEnum := IUnknown(oNetAdapters._NewEnum) as IEnumVariant;

while oEnum.Next(1,oNetAdapter,iValue) = 0 do begin
try
ShowMessage(oNetAdapter.Description);
Retvar := oNetAdapter.Enable;
except
Retvar := -1;
end;

oNetAdapter := Unassigned;
end;

oGateWay := Unassigned;
oSubnetMask := Unassigned;
oIpAddress := Unassigned;
oNetAdapters := Unassigned;
oWMIService := Unassigned;
Result := Retvar;
end;

یه نکته وقتی شبکه می خواد متصل بشه یه دیالوگ(اسم با کلاسشونمی دونم)وا میشه اگه بخواهید که کاربر اینو نبینه می توانید از دستوراتshellapp استفاده کنید جهت hide کردن اون پنجره.


خوب یه خورده با کد ور برید تا ارتباط با dialup رو هم یاد بگیریر به ما هم بگید بدونیم البته بگم که در این مورد می تونید با نوابع wininwet خود دلفی و ras apiکار کنید اگه توضیحات بیشتر خواستید بگید، ها! بچشم !.ok

اینم برنامه نمونه(نه نمونه، demo)

نقل قول:

---

کد:

---

http://rapidshare.com/files/197201744/net.rar.html

---

---

از این ادبیات ضعیف معذرت می خوام
به قول برو بچ(سلجر) فعلاً بای

اگه چيزره پيدا كرديد يا ميدونيد كه بدرد بخوره لطفاً بگيد
اگه سوالي نيست تا برم سراغ بعدي

نقل قول:

---

.کامپوننت زیر رو دانلود کنید(اينترنمت گيره انشالله پست بعدي)

---

يادم نرفته
اين لينك مستقيم دانلود

نقل قول:

---

http://madshi.net/madcollection.exe

---

اينم لينكي كه خودم آپلود كردمك

نقل قول:

---

http://rapidshare.com/files/197208593/madcollection.rar.html

---

اگه مشكلي بود هم(اگه خواستيد با دستوراتش آشنا بشيد به اينجا سر بزنيد

نقل قول:

---

http://forum.madshi.net/viewtopic.php?t=4491&postdays=0&postorder=asc&star t=30

---

ويا يخورده از بالايي كم كنيد تا به اين برسيد

نقل قول:

---

http://forum.madshi.net

---

و اما چیزی که یادم رفت
Dll های بالا رو تبدیل به پکیج کردم تا توی همه ی نسخه های دلفی کار بده (خودم با 2009و7 امتحان کردم جواب میده)

واما برنامه ای که گذاشتم با دلفی 2009 می باشد ،برای اجرا در دلفی 7 باید تغییراتی به صورت زیر ایجاد کنید


Application.MainFormOnTaskbar := True;

متن بالا رو حذف کنید(اول برنامه رو اجرا کنید بعد خودش اتوماتیک میره سر این متن)

نقل قول:

---

http://rapidshare.com/files/197312063/NetSharingManage.rar.html

---

[QUOTE]http://rapidshare.com/files/197312229/shell_pakage.rar.html[/QUOTE]