【正文】
Set obj2=(count) namecount= n=1 Do While (nnamecount+1) namestr=nameamp。n userstr=usernameamp。n Set namestr=(amp。userstramp。) n=n+1 Loop End Sub 組合框腳本 Sub Change(ByVal Item) Dim obj1,obj2 Set obj1=ScreenItems(box1) Set obj2=(usernamestr) ,1 End Sub 用戶顯示 備注: AP_PBIB 出錯(cuò) include pragma code () include pragma code () void Delay (long int ms)。 //GSC_NAME:Delay GSC_PROTOTYPE:\ void cc_playsound (char* lpszSoundFile)。 //GSC_NAME:cc_playsound GSC_PROTOTYPE:\ void EnumUser ()。 //GSC_NAME:EnumUser GSC_PROTOTYPE:\ BOOL MyPWGENEnumUsersCallBack (LPWGEN_USERINFO lpUserInfo, PVOID lpUser)。 //GSC_NAME:MyPWGENEnumUsersCallBack GSC_PROTOTYPE:\ void getmouse ()。 //GSC_NAME:getmouse GSC_PROTOTYPE:\