【正文】 gerOpen amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Input As 3 jlcount = Line Input 3, jlcount Close 3 r = CInt(jlcount) If r = 3 Thenr = r – 1u = Notepad c:\Server\data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Shell u, vbNormalFocus Elseu = Notepad c:\Server\data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Shell u, vbNormalFocus End IfEnd SubPrivate Sub Command3_Click()End Sub39。斷開連線功能的實現(xiàn)Private Sub Command4_Click()Dim sendstr As Stringsendstr = DK sendstrsendstr = = 1000 = True = 等待連線中 = False = False = False = FalseEnd Sub39。Winsock時間計時器Private Sub Timer1_Timer() = 1000 = 0 = False = FalseEnd Sub39。同步系統(tǒng)日期和時間Private Sub Timer2_Timer()(2) = Date amp。 amp。 TimeEnd Sub39。退出功能的實現(xiàn)Private Sub Form_Unload(Cancel As Integer)EndEnd Sub39。開始游戲功能的實現(xiàn)Private Sub Command1_Click() 39。雙人39。 blackturn = True restart growQpEnd Sub39。重開新棋局功能的實現(xiàn)Private Sub Command5_Click()Dim sendstr As String sendstr = CL sendstr sendstr = End Sub39。退出游戲功能的實現(xiàn)Private Sub exit_Click() Unload MeEnd Sub39。載入窗體初始化Private Sub Form_Load() Dim jlcount As String Dim a As String Dim d As String Dim oldname As String Dim newname As String Dim r As Integer Dim n As Integer blackturn = True restart growQp = 1000 39。播放背景音樂 = amp。 \ = 1000 = 等待連線中 If Dir(c:\Server\data\chats\) Then Open amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Output As 2 Print 2, 0 Print 2, Date Close 2 For n = 0 To 2 FileName = amp。 \ amp。 data\chats\( amp。 n amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Open FileName For Output As 1 Close 1 Next nElse Open amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Input As 3 jlcount = Line Input 3, jlcount Line Input 3, d Close 3 r = CInt(jlcount) If r = 1 Then a = Date If Trim(d) a Then r = r + 1 Open amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Output As 4 Print 4, r Print 4, Date Close 4 fn = Dir(c:\Server\data\chats\( amp。 r amp。 ) amp。 *.txt) oldname = c:\Server\data\chats\ amp。 fn newname = c:\Server\data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Name oldname As newname FileName = amp。 \ amp。 data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Open FileName For Output As 1 Print 1, Close 1 Else fn = Dir(c:\Server\data\chats\( amp。 r amp。 ) amp。 *.txt) oldname = c:\Server\data\chats\ amp。 fn newname = c:\Server\data\chats\( amp。 r amp。 ) amp。 Trim(d) amp。 服務聊天記錄 amp。 .txt Name oldname As newname FileName = amp。 \ amp。 data\chats\( amp。 r amp。 ) amp。 Trim(d) amp。 服務聊天記錄 amp。 .txt Open FileName For Append As 1 Close 1 End If ElseIf r = 2 Then r = r + 1 Open amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Output As 4 Print 4, r Print 4, Date Close 4 Else r = 0 Open amp。 \ amp。 data\chats\ amp。 服務次數(shù)記錄 amp。 .txt For Output As 4 Print 4, r Print 4, Date Close 4 fn = Dir(c:\Server\data\chats\( amp。 r amp。 ) amp。 *.txt) oldname = c:\Server\data\chats\ amp。 fn newname = c:\Server\data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Name oldname As newname FileName = amp。 \ amp。 data\chats\( amp。 r amp。 ) amp。 Date amp。 服務聊天記錄 amp。 .txt Open FileName For Output As 1 Print 1, Close 1 End IfEnd If = False = False = False = False = False = False = False = False = FalseEnd Sub39。悔棋功能的實現(xiàn)Private Sub huiqi_Click()sendstr = HQ sendstrsendstr = End SubPrivate Sub picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 39。人走39。 Dim a As Single Dim b As Single39。未聯(lián)機時操作棋盤的提示 If = 0 Then MsgBox 尚未連接，不能下棋！ Else 39。鼠標在棋盤所點的具體位置轉換成坐標位置If blackturn = False Then If (x 200) Mod 500 250 Then a = x (x 200) Mod 500 ElseIf (x 200) Mod 500 250 Then a = x + 500 (x 200) Mod 500 End If If (y 200) Mod 500 250 Then b = y (y 200) Mod 500 ElseIf (y 200) Mod 500 250 Then b = y + 500 (y 200) Mod 500 End If i = (a 200) / 500 j = (b 200) / 500 If (table(i, j) = 0) Then sendstr = growQdata(i, j, vbWhite) sendstr blackturn = True = True intstep = intstep + 1 intx(intstep) = i inty(intstep) = j color = color + 1 intcolor(color) = W Qcolor = vbWhite Call drawQz(i, j, Qcolor) table(i, j) = 2 judwhite If whitewin Then intanswer = MsgBox(繼續(xù)下一盤嗎？, vbYesNo) If intanswer = vbYes Then blackturn = True restart growQp Else MsgBox 如需保存棋局，請單擊(保存)按鈕 End If End If Else MsgBox 此處已經有棋子，請下別處！ End IfEnd IfEnd IfEnd Sub39。判斷黑棋是否獲勝Private Sub judblack() Dim i As Single Dim j As Single For i = 0 To 19 For j = 0 To 19 If table(i, j) * table(i, j + 1) * table(i, j + 2) * table(i, j + 3) * table(i, j + 4) = 1 Then MsgBox black win.: blackwin = True ElseIf table(i, j) * table(i + 1, j) * table(i + 2, j) * table(i + 3, j) * table(i + 4, j) = 1 Then MsgBox black win.: blackwin = True ElseIf table(i, j) * table(i + 1, j + 1) * table(i + 2, j + 2) * table(i + 3, j + 3) * table(i + 4, j + 4) = 1 Then MsgBox black win.: blackwin = True ElseIf table(i, j) * table(i 1, j + 1)