问几个问题！！希望能帮助我一下。！

--------------------编程问答-------------------- 这里的StrUrl, strUser, strPwd 分别代表什么？
url从哪里来的？这里的StrUrl, strUser, strPwd 分别代表什么？
url从哪里来的？

StrUrl :访问的网站地址，由command3中传入"http://www.55hh.com/host123/",
strUser：登录的用户名
strPwd ：登录密码

--------------------编程问答--------------------

引用 1 楼 worldy 的回复:

这里的StrUrl, strUser, strPwd 分别代表什么？
url从哪里来的？这里的StrUrl, strUser, strPwd 分别代表什么？
url从哪里来的？

StrUrl :访问的网站地址，由command3中传入"http://www.55hh.com/host123/",
strUser：登录的用户名
strPwd ：登录密码

Private Function GetHtmlStr$(StrUrl$, strUser$, strPwd$)
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "POST", StrUrl, False
Dim strPost$
strPost = "UserName=" & strUser & "&Password=" & strPwd & "&Action=Login&Submit.x=0&Submit.y=0"
XmlHttp.setRequestHeader "Content-Length", Len(strPost)
XmlHttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XmlHttp.send (strPost)
能帮我翻译一下这一段吗？ --------------------编程问答-------------------- --------------------编程问答--------------------

引用楼主 qq369777653 的回复:

求帮忙翻译以下代码 command部分的就不用翻译了了！

Private Sub Command1_Click()

Dim strHtml$

strHtml = (GetHtmlStr("http://www.55hh.com/host123/", Text1.Text, Text2.Text))

If InStr(strHtml, "用户名或密码") > 0 Then

  MsgBox ("用户名或密码错误！")

Else

 MsgBox ("登陆成功！！")

 End If

End Sub



Private Function GetHtmlStr$(StrUrl$, strUser$, strPwd$)  

Dim XmlHttp 

Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

XmlHttp.Open "POST", StrUrl, False

Dim strPost$

strPost = "UserName=" & strUser & "&Password=" & strPwd & "&Action=Login&Submit.x=0&Submit.y=0"

XmlHttp.setRequestHeader "Content-Length", Len(strPost)

XmlHttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

XmlHttp.send (strPost)

stime = Now

While XmlHttp.ReadyState <> 4

   DoEvents

   ntime = Now

   If DateDiff("s", stime, ntime) > 3 Then GetHtmlStr = "": Exit Function

   Wend

   GetHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)

   Set XmlHttp = Nothing

End Function

这里的StrUrl, strUser, strPwd 分别代表什么？
url从哪里来的？

首先你需要查看源代码，并且略懂一点html才行。
url是你post的表单<Form>...</Form>这个叫一个表单的Action属性决定的。默认的情况（不写），POST的地址和所在页面相同。
trUser, strPwd是表单中名字分别为UserName和Password的输入控件的值。<input name="名字">

补充：VB ,  基础类