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

‏windows 8 · منذ /11-03-2012, 05:15 PM

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

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

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

اتفضلوا :

اقتباس:

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;

اقتباس:

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

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

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

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

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

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

وتستمر البرمجة الحصرية لعيون المطورين .. شرح برمجة برنامج يفحص لك البورت .. SnipeR (69).gi

المصدر: development-point - للمزيد تابع : الأرشيف

,jsjlv hgfvl[m hgpwvdm gud,k hgl',vdk >> avp fvl[m fvkhl[ dtpw g; hgf,vj

المواضيع المتشابهه للموضوع: وتستمر البرمجة الحصرية لعيون المطورين .. شرح برمجة برنامج يفحص لك البورت ..
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
[ مشكلة ] مشكله في البورت,بروح افحص البورت موفاتح الرجاء ,البورت بفتح في الراوتر وجدار الحمايه والنو	‏windows 8	الأرشيف	0	11-03-2012 07:22 PM
برنامج تشفير بخصائص هائلة لغة البرمجة فيوجل بيسك 6 - Devil Advocate V2.0 الاصدار الثاني	aaqassam	قسم إختراق الأجـهـزه والأيـمـيـلات	0	10-30-2012 08:24 AM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

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

أخواني اقدم اليوم لكم دالة تمكنك من فحص البورت .. اتفضلوا : اقتباس: uses Winsock; function PortTCP_IsOpen(dwPort: Word; ipAddressStr: AnsiString):