السلام عليكم ورحمة الله
التحكم بمنفذ الطابعة
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal Chek As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal Chek As Integer, ByVal Value As Integer)
Dim Chek As Integer
-------------------------------------------------------------------
Private Sub Check_Click(Index As Integer)
If Self Then Exit Sub
Chasib = Inp(Chek)
Chasib = Chasib Xor 2 ^ Index
Out Chek, Chasib
End Sub
------------------------------------------------------------------
Private Sub Form_Load()
Chek = &H378
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ياشباب لقد حولت كثيراً ان احفظ صور داخل ملف DLL وانا قد ذهبت الى الموقع الذي وجدت وصلة هنا في هذا الموقع ولكن الشرح لم يكن كافي. فهل يستطيع احدكم ان يشرح الطريقة بشكل احسن مع حترامي للموقع ....:o
----------------------------