NapsTer

Professional


  • IvKn1.png


أخواني اقدم اليوم لكم دالة تمكنك من فحص البورت ..

اتفضلوا :

xHnD2.png

uses
Winsock;

function PortTCP_IsOpen(dwPort: Word; ipAddressStr: AnsiString): boolean;
var
client: sockaddr_in;
sock: Integer;
ret: Integer;
wsdata: WSAData;
begin
Result := False;
ret := WSAStartup($0002, wsdata); //initiates use of the Winsock DLL
if ret <> 0 then
exit;
try
client.sin_family := AF_INET; //Set the protocol to use , in this case (IPv4)
client.sin_port := htons(dwPort);
//convert to TCP/IP network byte order (big-endian)
client.sin_addr.s_addr := inet_addr(PAnsiChar(ipAddressStr));
//convert to IN_ADDR structure
sock := socket(AF_INET, SOCK_STREAM, 0); //creates a socket
Result := connect(sock, client, SizeOf(client)) = 0;
//establishes a connection to a specified socket
finally
WSACleanup;
end;
end;
xHnD2.png

الان التنفيذ :

if PortTCP_IsOpen( 81, '192.168.1.1') then
ShowMessage('Open')
else
ShowMessage('Not Open');
xHnD2.png

نضع هذا الكود في الزر ..

في حال كان البورت مفتوح على الايبي

التالي : 192.168.1.1
يظهر لك رسالة OPEN
غير ذلك يظهر رسالة على انه مغلق . .

أتمنى أن تطوروا هذا الكود .. وان يفيدكم في ما يحبه الله ويرضاه ..


والسلام عليكم ورحمة الله وبركاته


:rolleyes::rolleyes:

 

المواضيع المشابهة


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

جارى التطبيق والتطوير ان شاء الله وجارى عمل البرنامج واحضاء السورس

مشكور اخى الغالى والله شىء يفرح انت مبدع وربى

تسلم ايدك يا حبيب قلبى واصل يا غالى الله معك

ومع الصقور

 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

جارى التطبيق والتطوير ان شاء الله وجارى عمل البرنامج واحضاء السورس

مشكور اخى الغالى والله شىء يفرح انت مبدع وربى

تسلم ايدك يا حبيب قلبى واصل يا غالى الله معك

ومع الصقور


ربي يحفظك حبيب قلبي .. ~
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ياشيخ ايش اخلي وايش ابقي

وربي انت شي يعجز اللسان عن الوصف


يسلموووو

يعطيك العافيةةةةةةةة

تقبل مروري

لايك+تقيممممم...لعيوووونك
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ما شاء الله .. ردك هو الابداع ..
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

أخي في حال أردت أن تأخد الايبي والبورت من مكونات

ضع هذا الكود :

begin
if PortTCP_IsOpen(StrToInt(Edit2.text) ,Edit1.text) then ShowMessage('Open')
else
ShowMessage('Close');

ولا تنىسى اضافة edit1 + edit2
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

مشاء الله عليك حبيبي

الله يعطيك الف عافية
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ما شاء الله عليك
ابداع والله ابداع
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ابداع بلا حدود
يعطيك العافية
شكرا لك يا مبدع
واصل ابداعك مبرمجنا المبدع
تحياتي لك
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

نورت حبيب قلبي .. ~
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

جاري التطبيق....~~~
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ابداع
×
ابداع
يعطيك الف عـافية حبيبي
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ويستمر الأبداع على أرض الأبداع
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ماشاء الله ابداع × ابداع
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

بارك الله فيك اخي
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

ملك
شرح روعة , الله لعطيك العافية
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

يعطيك العافيه يابطل وتسلم يدك على هذا المجهود الجبار
استمر في اعطاك الجميل :32:
 


رد: وتستمر البرمجة الحصرية لعيون صقور الابداع .. شرح برمجة برنامج يفحص لك البورت ..

جارى التطبيق

و شروحاتك تعجبني ;)
 

عودة
أعلى