各位兄弟，请人帮忙把C#翻译成VB.net 高分奉送，在线等

[labc311]

各位兄弟，请人帮忙把C#翻译成VB.net
int nSize=1067;
byte[] szOneBuf=new byte[nSize];
byte[] szAllBuf=new byte[nCount*nSize];
unsafe
{
fixed(byte* pAllBuf=szAllBuf)
{
if(ShortMsg.GetDeliverMsg((IntPtr)pAllBuf)!=1)
{
MessageBox.Show("获取消息失败！");
return;
}
}
}

[microblue]

到网上搜索一下，有转换的工具。

[djf_1985]

http://www.developerfusion.com/tools/convert/csharp-to-vb/
上面网站帮你翻译的
Dim nSize As Integer = 1067
Dim szOneBuf As Byte() = New Byte(nSize - 1) {}
Dim szAllBuf As Byte() = New Byte(nCount * nSize - 1) {}
Dim pAllBuf As Byte* = szAllBuf
If ShortMsg.GetDeliverMsg(DirectCast(pAllBuf, IntPtr)) <> 1 Then
MessageBox.Show("获取消息失败！")
Return
End If

[wuyq11]

Dim nSize As Integer = 1067
Dim szOneBuf As Byte() = New Byte(nSize - 1) {}
Dim szAllBuf As Byte() = New Byte(nCount * nSize - 1) {}
Dim pAllBuf As Byte* = szAllBuf
If ShortMsg.GetDeliverMsg(DirectCast(pAllBuf, IntPtr)) <> 1 Then
MessageBox.Show("获取消息失败！")
Return
End If

[kingcsx666]

顶顶看楼上

小生路过

[clever_yang]

现在工具真方便.....
[Quote=引用 3 楼 wuyq11 的回复:]
Dim nSize As Integer = 1067
Dim szOneBuf As Byte() = New Byte(nSize - 1) {}
Dim szAllBuf As Byte() = New Byte(nCount * nSize - 1) {}
Dim pAllBuf As Byte* = szAllBuf
If ShortMsg.GetDeliverMsg(DirectCast(pAllBuf, IntPtr)) <> 1 Then
MessageBox.Show("获取消息失败！")
Return
End If
[/Quote]

[wangping_li]

Dim nSize As Integer = 1067 
Dim szOneBuf() As Byte = New Byte(nSize) {} 
Dim szAllBuf() As Byte = New Byte(nCount*nSize) {} 
unsafe 
{ 
fixed(byte* pAllBuf=szAllBuf) 
{ 
If ShortMsg.GetDeliverMsg(CType(pAllBuf,IntPtr))<>1 Then
MessageBox.Show("获取消息失败！") 
Return
End If
} 
}

[labc311]

vb.net 中没有 Dim pAllBuf As Byte* = szAllBuf

[suners]

最后一UPO

[zw1724]

生成dll再反编译到VB

[angelababa~]

上面都说了，我就不说了
JF了

[睡神在睡觉]

来完了，混分~