مشکل در ارتباط با پورت parallel

[IMeysam]

من با استفاده از مقاله ای که تو همین سایت هست خواستم که با پورت چاپگر ارتباط برقرار کنم برنامه هم اینه:
Private Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Private Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer
Private Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer


Private Sub Command1_Click()
vbOut 888, 0
End Sub
من فایلWin95io.dll رو هم تو C:\WINDOWS\system کپی کردم. exe اجرا میشه ولی وقتی روی buttom کلیک میکنم یه error میده و خود exe و کلا برنامه visual basic بسته میشه. کسی اگه تجربه داره لطفا کمک کنه.
پوشه برنامه رو اینجا upload کردم شما هم یه نگاه بکنید.
http://www.4shared.com/file/24635073/97f...d=5014eed8

[ha_60]

اولا ارور رو بنویس
این فایل رو کنار فایل اجرایی هم کپی کن (هم کنار vb هم کنار برنامه خودت)

[IMeysam]

اونجا هم کپی کردم ولی باز این error رو میده:
error از نوع error های ویژال بیسیک نیست بلکه error خود ویندوزه.که می پرسه بفرسته این error رو به microsoft یا نفرسته.
an unhandled win32 exeption in VB6.exe [3076]

[Pardazesh-Gar]

فکر کنم مشکل از DLL باشد. شاید با هر رایانه ای کار نکند.
آدرس پایینی با یک DLL دیگری است.امید دارم درست کار کند :roll: .
http://www.4shared.com/file/24712381/d06...d=87f539c8

[IMeysam]

دستت درست. ایول. خوبه خوب کار کرد.