VB的围棋代码
PrivateSubTimer1_Timer()DimmsAsBooleanDimInfo,tempAsStringDimp,p1,p2,iAsIntegerDimCh'BeginofTimeShowProcessIfModemStateLOGINAndSocketStateCONNECTEDThen'itisnotamultiusersgameExitSubElseIf(S_R=1)And(TURN=BLACKP)ThenBlack_Time=Black_T
下载地址
用户评论
