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
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......