[‏windows 8]

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

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

• 

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

اتفضلوا :

اقتباس:

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
غير ذلك يظهر رسالة على انه مغلق . .

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

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

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

---

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