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ÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......