'=================================================='函数名：BytesToBstr'作  用：将获取的源码转换为中文'参  数：Body ------要转换的变量'参  数：Cset ------要转换的类型'==================================================Function BytesToBstr(Body,Cset)   Dim Objstream &...