VB的围棋代码 PrivateSubTimer1_Timer()DimmsAsBooleanDimInfo,tempAsStringDimp,p1,p2,iAsIntegerDimCh'BeginofTimeShowProcessIfModemStateLOGINAndSocketStateCONNECTEDThe