آموزش غیر فعال کردن دیواره آتش در دلفی

[mohammad-j]

سلام بر دوستان همیشه گلم
این اموزش غیر فعال کردن فایروال:
1- اول این روال رو تعریف می کنیم :



procedure Close_Firewal;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);

ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);

end;

2- بعد هر جای برنامه که خاستیم صدا می زنیم:



procedure TForm1.Button1Click(Sender: TObject);
begin
Close_Firewal;
end;

فکر کنم بیشتر به درد تروجان نویسا می خوره :چشمک:

حالا اگه گفتید چه جوری فعالش کنیم دوباره :خجالت: ؟

[Developer Programmer]

حالا اگه گفتید چه جوری فعالش کنیم دوباره


ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);

[mohammad-j]

این کد که بازم غیز فعال می کنه فکر نمی کنی یه مشکل کوچیک داره ؟

[Developer Programmer]

این کد که بازم غیز فعال می که
جدا" ؟ راست میگی؟

[mohammad-j]

من که غیر فعال شد

[Developer Programmer]

من که غیر فعال شد
پسر خوشگل، پرسیدی چطور فعال کنیم، من هم اون تکه ای رو که واسه فعال کردن لازمه، Copy Paste کردم.
وگرنه من هم میدونم معنی SERVICE_CONTROL_STOP چیه.

[Hamid_PaK]

افشین جان یک کلام براش بگو :SERVICE_CONTROL_CONTINUE ، قصه رو تموم کن !!!

یا حق ...

[m-khorsandi]

پسر خوشگل، پرسیدی چطور فعال کنیم، من هم اون تکه ای رو که واسه فعال کردن لازمه، Copy Paste کردم.
وگرنه من هم میدونم معنی SERVICE_CONTROL_STOP چیه.

چیزی که نوشتی، ربطی به فعال کردن نداره، معمولاً اون تکه‌ای که برای فعال کردن لازم هست رو می‌نویسند و نه استنباطی رو که سایرین می‌تونن از کدت داشته باشند.