وتستمر , البرمجة , الحصرية , لعيون , المطورين , .. , شرح , برمجة , برنامج , يفحص , لك , البورت , ..
أخواني اقدم اليوم لكم دالة تمكنك من فحص البورت ..
اتفضلوا :
اقتباس:
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
غير ذلك يظهر رسالة على انه مغلق . .
أتمنى أن تطوروا هذا الكود .. وان يفيدكم في ما يحبه الله ويرضاه ..
والسلام عليكم ورحمة الله وبركاته
.gif)
,jsjlv hgfvl[m hgpwvdm gud,k hgl',vdk >> avp fvl[m fvkhl[ dtpw g; hgf,vj
منذ /11-03-2012, 05:15 PM
وتستمر البرمجة الحصرية لعيون المطورين .. شرح برمجة برنامج يفحص لك البورت ..
جديد الأرشيف
العرض العادي
