Private Sub Command1_Click() Open App.Path & "logfa.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
کمک در ساخت صفحه لاگین سایت
سلام دوستان . چند مدت پیش از یکی از دوستان کد رو گرفتم که با اون میشه صفحه لاگین سایت رو نوشت و بسیار سبک و کم حجمه اما الان با توجه به تغییر نام تکس باکس ها در سایت اون کد کار نمیکنه اگه میتونید لطفا راهنمایی کنید . میخوام با این کد و دو تکس باکس که روی فرم میذارم با وبلاگم کانکت بشم .
Private Sub Command1_Click() Open App.Path & "logfa.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
Private Sub Command1_Click() Open App.Path & "logfa.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
![](http://www.niloblog.com/images/backlink.gif)
![](http://www.niloblog.com/images/seo.png)