说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

急,各位大哥帮忙,看看

编辑:说三道四文库 发布时间:2018-04-26 02:40
HTML文档下载 WORD文档下载 PDF文档下载
Private Function bytes2BSTR(vIn)
  Dim i, ThischrCode, NextchrCode
  strReturn = ""
For i = 1 To LenB(vIn)
   ThischrCode = AscB(MidB(vIn, i, 1))
  If ThischrCode < &H80 Then
     strReturn = strReturn & Chr(ThischrCode)
  Else
    NextchrCode = AscB(MidB(vIn, i + 1, 1))
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
     i = i + 1
  End If
Next

bytes2BSTR = strReturn
End Function
Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL = .ResponseText
  GetURL = bytes2BSTR(.Responsebody)
          End With
    Set Retrieval = Nothing
End Function
这是一段vb的代码,哪位大哥能帮小弟翻译成c/c++

还有个问题就是怎么在一个视频文件中注入自己的代码,是那种可以让这个视频文件运行后,生成一个独立的.exe文件的代码
急!郁闷ing
ding
这么简单的问题,自己看c语言去,着急有什么用啊?
实在不想学习,我再帮你翻译!
Private Function bytes2BSTR(vIn)
  Dim i, ThischrCode, NextchrCode
  strReturn = ""
For i = 1 To LenB(vIn)
   ThischrCode = AscB(MidB(vIn, i, 1))
  If ThischrCode < &H80 Then
     strReturn = strReturn & Chr(ThischrCode)
  Else
    NextchrCode = AscB(MidB(vIn, i + 1, 1))
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
     i = i + 1
  End If
Next
帮你翻译上一段:
void bytes2BSTR(String vIn)
{
  int i, ThischrCode, NextchrCode;
  String strReturn = "";
  For( i = 1 ;i< LenB(vIn);)
  {  
   ThischrCode = AscB(MidB(vIn, i, 1));
   If (ThischrCode < &H80)
     strReturn = strReturn & Chr(ThischrCode);
   Else
   {
    NextchrCode = AscB(MidB(vIn, i + 1, 1));
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode));
     i = i + 1;
    }
  }
}
那下一个问题怎么做?????????
那下一个问题怎么做?????????
楼上的翻译有误重新翻译如下:
AdsiString bytes2BSTR(AnsiString vIn)
{
    int i, ThischrCode, NextchrCode;
    AnsiString strReturn = "";

    for(i = 0; i < vIn.Length(); i++)
    {
      ThischrCode = (int)vIn.SubString(i+1, 1);
if( 0x80 >= ThischrCode)
{
    strReturn += Char(ThischrCode);
}
else
{   
    NextchrCode = (int)vIn.SubString(i+2, 1);
    strReturn += (char)((long int)ThischrCode *  0x100 + NextchrCode);
}
    }
    
    return strReturn;
}

  
第二个函数是VB中特有的语法,它调用了很多特有的属性所以不好翻译成C++的语法
还有个问题就是怎么在一个视频文件中注入自己的代码,是那种可以让这个视频文件运行后,生成一个独立的.exe文件的代码
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘