ΪʲôÓÃxmlÌá½»²»ÁË£¿

Private Sub Command1_Click()
Dim http As Object, q_post As String, User As String, Pass As String
Set http = CreateObject("Microsoft.XMLHTTP")
http.open "POST", "http://www.01xs.com/", False

http.setRequestHeader "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-silverlight, */*" '±íʾÎÒÃÇËùÓõÄä¯ÀÀÆ÷ÄܽÓÊܵÄContent-type

http.setRequestHeader "Referer", "http://www.01xs.com" 'µ±Ç°Ò³ÃæÊÇ´ÓÄǸöÒ³ÃæÁ´½ÓÀ´µÄ

http.setRequestHeader "Accept-Language", "zh-cn" 'ÓïÑÔ

http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '±íʾ¿Í»§¶ËÌá½»¸ø·þÎñÆ÷Îı¾ÄÚÈݵıàÂ뷽ʽÊÇURL±àÂ룬¼´³ýÁ˱ê×¼×Ö·ûÍ⣬ÿ×Ö½ÚÒÔË«×Ö½Ú16½øÖÆÇ°¼Ó¸ö¡°%¡±±íʾ

http.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; QQPinyin 689; TencentTraveler 4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727)" 'ÏÔʾ³ö±¾»úµÄÏà¹ØϵÐÅÏ¢,ºÇºÇ,ÕâÊÇÎÒµÄÐÅÏ¢´ó¼Ò¿ÉÒÔÈ¥µô²»Ó÷¢ÕâÌõ

http.setRequestHeader "Host", "www.01xs.com" 'ËùÇëÇóµÄÖ÷»ú

http.setRequestHeader "Content-Length", "90" '±íʾÌá½»µÄÊý¾Ý×Ö½Ú´óÐ