Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ