راهنمايي براي ارتباط با يكي از پورت هاي كامپيوتر

سلام.
يكي كليد دارم كه دو حالت خاموش و روشن داره ؛مي خوام اينو وصل كنم به يكي از پرت هاي كاميوتر مثل كام يا ال پي تي و از طريق ويژوال بيسيك بفهمم كه كليد خاموشه يا روشن.
لطفا كمك كنيد.

مرسي.
شهاب.

براي پورت كام از
mscomm
استفاده كن
The MSComm control provides serial communications for your application by allowing the transmission and reception of data through a serial port.

مثال
Private Sub Form_Load ()
' Buffer to hold input string
Dim Instring As String
' Use COM1.
MSComm1.CommPort = 1
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 0
' Open the port.
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
' the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Read the "OK" response data in the serial port.
' Close the serial port.
MSComm1.PortOpen = False
End Sub

مرسي دوست عزيز بابت جواب.
با اين كد من بايد با كدوم از پايه هاي كام ارتباط برقرار كنم ؟؟؟ چون فكر كنم پورت كام 9تا پايه داره.

سلام آقای شهاب موزیکشما تونستین جواب بگیرین

سلامشما تونستین این کار رو انجام بدین

سلام
اتصال به درگاه LPT در VB:
http://support.h02.ir/fwlink/?LinkId=1000292003

(البته مقاله مذکور در مورد نسخه های جدید VB2008,2010 است.)
موفق باشید.

با سلام
لینکی که دادی باز نمیشه

سلام
لینک همان است و سالم است.
احتمالاً در Copy-Paste آن دقت نکرده اید و کاراکتری بیشتر یا کمتر Copy-Paste شده.
با دقت بیشتر مجدداً سعی کنید.

کد:

---

http://support.h02.ir/fwlink/?LinkId=1000292003
یا
http://www.h02.ir/Papers/?Id=1000196242

---

موفق باشید.