美女视频深夜福利网站|午夜性春猛交|日日射日日干|av免费提供|另类网站

附VB程序代碼 Private Sub Timer1_Timer() Dim temp, b As String Dim i As Integer Timer1.Enabled = False temp = "@00RD00000002" temp = temp + fcs(temp) + "*" + Chr$(13) MSComm1.InBufferCount = 0 MSComm1.Output = temp i = 0 Do DoEvents i = i + 1 Loop Until MSComm1.InBufferCount >= 19 Or i > 10000 If i < 10000 Then b = MSComm1.Input b = Mid(b, 8, 8) End If Timer1.Enabled = True End Sub