VB ÈçºÎÌá½»POST°ü
¸÷λ´óÏÀ¶à¶à°ï棬ÏÈлÁË£¡ POST°üÈçÏ£º POST /jcms/m_5_1/opr_checkrepeattitle.jsp HTTP/1.1 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */* Referer: http://10.48.1.38:9080/jcms/m_5_1/opr_info.jsp?func=add&fn_billstatus=A&cataid=109 Accept-Language: zh-cn Content-Type: application/x-www-form-urlencoded Accept-Encoding: gzip, deflate User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Host: 10.48.1.38:9080 Content-Length: 208 Connection: Keep-Alive Cache-Control: no-cache Cookie: pic_00019=0; JSESSIONID=0000irC0C7358YdgeBjg2oSD--l:-1 title=%E8%B0%88%E6%96%B0%E5%BD%A2%E5%8A%BF%E4%B8%8B%E5%A6%82%E4%BD%95%E5%81%9A%E5%A5%BD%E4%BA%A4%E9%80%9A%E5%AE%89%E5%85%A8%E5%AE%A3%E4%BC%A0%E5%B7%A5%E4%BD%9C&todo=checkthisform%28%29&cataid=109&checkoption= Çë¸ø³öÔ´Â룬ÎÒÔÚÍøÉÏÕÒÁ˺ܾã¬Ò²Ã»ÕÒµ½ÕæÕý½â¾öÎÊÌâµÄÔ´Â롣ϣÍûÄܸøÒÔºóµÄÅóÓÑÓаïÖú
ÇëÎÊPOST°üÄÚµÄcookieÊǸö±äÁ¿£¬ÈçºÎ¼ÓÈë ÒÔÏ·½·¨²»ÐÐ dim Cook as string ...... xmlhttp.setRequestHeader "Cookie", Cook ...... ÒýÓà ÇëÎÊPOST°üÄÚµÄcookieÊǸö±äÁ¿£¬ÈçºÎ¼ÓÈë ÒÔÏ·½·¨²»ÐÐ dim Cook as string
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾ ¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬 A.B1,A.B2,... µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ Do While Not TDBG_Dept.EOF If A> ......