以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  .net转为vb后提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183103)
--  作者：otterlike
--  发布时间：2022/10/24 15:44:00
--  .net转为vb后提示错误
老师好！以下vb代码是用转换软件从.net转换过来的，但是在执行时提示“未知编译错误”，请问该如何修改？谢谢！

Try   
    Using stream As Stream = request.GetRequestStream()
        Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
        stream.Write(data, 0, data.Length)
    End Using
    
    Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
    
    Using reader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.UTF8)
        Dim result As String = reader.ReadToEnd()
        Return result
    End Using
    
Catch ex As Exception
    Return ex.Message
End Try
--  作者：有点蓝
--  发布时间：2022/10/24 15:45:00
--  
1、代码不完整
2、类型没有写全命名空间
--  作者：otterlike
--  发布时间：2022/10/24 17:09:00
--  
老师好！如果将下面的代码调整为正确的Vb代码该如何做了？

Using stream As Stream = request.GetRequestStream()
    Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
    stream.Write(data, 0, data.Length)
End Using
--  作者：有点蓝
--  发布时间：2022/10/24 17:10:00
--  
写全命名空间
Using stream As system.io.Stream = request.GetRequestStream()
--  作者：otterlike
--  发布时间：2022/10/25 11:15:00
--  
老师好！我写全命名空间之后，仍然提示“未知编译错误”，麻烦看看如何修改，谢谢

Dim postBody As String = "{""pageNo"":""1"",""pageSize"":""2000""}"
Using stream As system.io.Stream = request.GetRequestStream()
    Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
    stream.Write(data, 0, data.Length)
End Using
--  作者：有点蓝
--  发布时间：2022/10/25 11:19:00
--  
注意项目名称，以及项目路径，如果有括号等特殊字符，全部去掉，重新测试代码就可以显示具体的错误提示