VBÖÆ×÷QQȺˢÌûÆ÷
¸÷λ´óϺºÃ
ÏëÇë´ó¼Ò×öÒ»¸öQQȺµÄË¢ÌûÆ÷
¾ßÌ幦ÄܾÍÊÇ
·¢Ìû
»Ø¸´Ìù
ÉÏ´«Í¼Æ¬
Ï£ÍûÄÇλ´óϺÄܰïæ×ö³öÀ´£¡
¿ÉÄÜÉÏÃæÕâôһ˵£¬¿ÉÄܾÍÊÇ˵ÎÒÖ±½Ó̯¿ªÊÖ°åÖ±½ÓÒª¶«Î÷
µ«ÎÒÕæµÄ²»Ï룬Õâ´ÎÊǵÚÒ»´Î½Ó´¥ÍøÂç±à³Ì£¬¶ÔÍøÂç±à³Ì»¹ÕæµÄÒ»µã¶¼²»ÊìϤ
²»¹ýÒѾÓÃwebbrowser¿Ø¼þʵÏÖÁËQQµÄµÇ¼µ½ÈºÉçÇø
µ«Ã»Óз½·¨·¢±íÌû×Ó
ÓÃÁËinetÓÃPOSTÖ±½Ó·¢ËÍ£¬µ«¶¼ÊµÏÖ²»ÁË
¿ÉÄÜÊÇÎÒ»ñÈ¡·â°ü´íÁ˰É
ÎÒ»ñÈ¡µÄ·â°üÈçÏÂ
·¢±í±êÌâΪtest£¬ÄÚÈÝΪtestµÄÌû×ӵķâ°üÒÔÏÂ
1£º
POST /?w=a&c=bbs&a=thread&g=47973459 HTTP/1.1
x-requested-with: XMLHttpRequest
Accept-Language: zh-cn
Referer: http://qun.qq.com/air/#47973459/bbs/post/cd/2
2£º
t=test&c=%3CDIV%3Etest%3C%2FDIV%3E&cid=2&type=add&vcode=vzdf
»Ø¸´test±í£¬ÄÚÈÝΪtest
1£º
POST /?w=a&c=bbs&a=thread&g=47973459 HTTP/1.1
x-requested-with: XMLHttpRequest
Accept-Language: zh-cn
Referer: http://qun.qq.com/air/#47973459/bbs/view/cd/2/td/5
2£º
c=test&cid=2&tid=5&title=test&type=post&vcode=undefined
ÎÒÊÔ¹ýÓÃinet¿Ø¼þ»Ø¸´Ìû×Ó£¬µ«»¹ÊÇûÓÐÈκÎЧ¹û
ÒÔÏÂÊÇÒ»¸ö´úÂë
VB code:
Dim test As String
test = "w=a&a=thread&g=47973459&c=test&cid=2&tid=5&title=test&type=post&vcode=undefined
&qu
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......