سلام دوستان . چند مدت پیش از یکی از دوستان کد رو گرفتم که با اون میشه صفحه لاگین سایت رو نوشت و بسیار سبک و کم حجمه اما الان با توجه به تغییر نام تکس باکس ها در سایت اون کد کار نمیکنه اگه میتونید لطفا راهنمایی کنید . میخوام با این کد و دو تکس باکس که روی فرم میذارم با وبلاگم کانکت بشم .




Private Sub Command1_Click()

Open App.Path & "\blogfa.html" For Output As #1

    Print #1, "<HTML>"

        Print #1, "<BODY>"

        Print #1, "<FORM ACTION=http://www.blogfa.com/Desktop/Login.aspx?t=14132599 METHOD=POST >"

        Print #1, "<input type=text name=master_ContentPlaceHolder1_Uid />"

        Print #1, "<input type=password name=master_ContentPlaceHolder1_Password />"

        Print #1, "<input type=submit value=login name=master_ContentPlaceHolder1_btnSubmit />"

        Print #1, "</FORM>"

        Print #1, "</BODY>"

    Print #1, "</HTML>"

Close #1

End Sub