Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

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

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

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

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ