پورت های کامپیوتر

[kholous]

من یه برنامه ارسال فایل با وینسوک دارم که با پورت های مختلف کار میکنه .می خوام یه برنامه دیگه بنویسم که نشون بده مثلاً پورت 1000 آن باز است یا بسته است.
لطفاً اگه میشه یه قطعه کد برام بگذارید.
ممنون

[محسن واژدی]

سلام علیکم

کد زیر را بررسی کنید:

Function IsComPortAvailable(ByVal iPortNum%) As Boolean
On Error Resume Next
Dim iFF%
iFF% = FreeFile
Open "COM" & CStr(iPortNum%) For Binary Shared As iFF%
IsComPortAvailable = Err = 0
Close iFF%
End Function


برای مثال:

Private Sub Command1_Click()
MsgBox IsComPortAvailable(2)
End Sub


همچنین با "Microsoft Comm Control"
موفق باشید

[kholous]

دوست عزیز سلام ;
ببخشید من یه مدت نبودم. کدی که معرفی کردی برای پورت های سخت افزاره ، اما من با پورت نرم افزاری کار می کنم که با winsock کار میکنه.