none
VB6 Code => VB.NET Code RRS feed

  • 질문

  • This is VB6 Source Code
    ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
    Dim data() As Byte
    Do While WebBrowser1.Busy
    DoEvents
    Loop

    data = StrConv("l_id=" & Form1.Text1.Text & "&l_pwd=" & Form1.Text2.Text & "&l_domain=suddenattack.netmarble.net+&l_dirurl=0&l_url=http%3A%2F%2Fsuddenattack.netmarble.net", vbFromUnicode)
    WebBrowser1.Navigate "https://sso.netmarble.net/Logon/Logon.aspx?", "POST", , data, "Content-Type: application/x-www-form-urlencoded"
    ───────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────


    이 VB코드를 VB.NET으로 변환시켜주세요, 일반적인 VB.NET에서 여는 변환은 안됩니다.

    2009년 10월 13일 화요일 오전 7:18

답변

  • 사용하시는 환경이 Visual Studio 2005 이상, .NET Framework 2.0, Windows Forms 2.0 이상인 것을 기준으로 말씀드립니다.

    Option Strict On
    Imports System.Text

    Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Do While WebBrowser1.IsBusy
                Application.DoEvents()
            Loop

            Dim Data() As Byte = Encoding.Unicode.GetBytes("l_id=" & TextBox1.Text & "&l_pwd=" & TextBox2.Text & "&l_domain=suddenattack.netmarble.net+&l_dirurl=0&l_url=http%3A%2F%2Fsuddenattack.netmarble.net")
            WebBrowser1.Navigate("https://sso.netmarble.net/Logon/Logon.aspx?", "_parent", Data, "Content-Type: application/x-www-form-urlencoded")
        End Sub
    End Class


    rkttu
    • 답변으로 표시됨 rus204 2009년 11월 29일 일요일 오후 12:46
    2009년 10월 20일 화요일 오후 3:42