VB.NET实现Dr.COM自动登录

Imports System.Text
Imports System.Net

Module Module1

    Sub Main()
        Dim MyClient As New WebClient
        Dim MyURL, srcString As String
        Dim data As String
        Dim postData As Byte()
        Dim responseData As Byte()

        MyURL = "http://10.29.0.250/F.htm"
        data = "DDDDD=你的用户名&upass=你的密码&0MKKey=登录 Login"

        postData = Encoding.ASCII.GetBytes(data)
        responseData = MyClient.UploadData(MyURL, "POST", postData)
        srcString = Encoding.UTF8.GetString(responseData)

        'Console.WriteLine(srcString)
        'Console.ReadKey()

    End Sub

End Module