Dim B As Deceiver


這篇文章只是誤會,看得懂的人就當笑話,看不懂就當湊熱鬧…
==========================================
 

Public Declare Sub Out Lib “inpout32.dll” Alias “Out32” (ByVal portaddress As Integer, ByVal value As Integer)

Dim a, b(99), c As Integer

Private Sub Command1_Click(Index As Integer)

a = Index
c = 0
End Sub

Private Sub Form_Load()

a = 99
b(0) = 1
b(1) = 2
b(2) = 4
b(3) = 8
b(4) = &H10
b(5) = &H20
b = &H40

End Sub

Private Sub Timer1_Timer()
If c > 14 Then c = 14

Text1.Text = “Current Time:” & Time$

    Out &H378, 0
    Out &H37A, 4
    Out &H37A, 0

If a = 0 Then
    Out &H37A, 8
    Out &H378, b(c)
   
End If

If a = 1 Then
   
    Out &H378, 2 ^ c
    Out &H37A, 4
    Out &H37A, 0

End If

If a = 2 Then End

c = c + 1

End Sub
==============================
WG
G
WO
B
WB
O
WW
W

WO
O
WG
B
WB
G
WW
W
==============================

人真的不能隨隨便便就相信

尤其是台北人(無奈)

原來課本跟老爸媽的叮嚀不是在開玩笑
是真的

直到今天發現你把我隱藏了快兩個禮拜
Good

以後我再也不會全然相信北部的傢伙
就當旅費拿去吧(菸)

真的是從哪裡開始從哪裡結束
從謊言開始
到謊言結束

當然我有強烈的強迫症
眼不見為淨

刪除聯絡人黑名單先

以後有緣再相見

僅此

1 Comment

  1. 報告完畢?
    版主回覆:(11/29/2011 08:06:44 AM)
    +1
    換你上台了

Leave a comment

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料