vb »ù±¾ÈÏÖ¤ÎÊÌâ ÄѶÈÎÊÌ⠷Ǽ¼ÊõÎð½ø
http://www.lookandearn.biz/newlogin17.html
ÇëÎÊÔõÑùÓà vbµÇ½ÉÏÃæÄǸöÍøÕ¾
Óû§ÃûÃÜÂë¶¼ÊÇ lujiao
²»»áûÈËÖªµÀ°É
lzµÄµÇ½¿òÃ²ËÆ²»ÊÇÒ»°ãÍøÒ³£¬¸üÀàËÆÏµÍ³µÄµÇ½
ºÃÏóÊÇbasicÈÏ֤ʲôµÄ ÏÖÔÚµÄÄÑÌâÊÇÈçºÎÓà vbµÇ½Õâ¸öÒ³Ãæ
lzµÄÎÊÌâ¿ÉÒÔÓÃsendkeys·¢ËÍ×Ö·û´®½â¾ö,ÌîÁËÓû§,ÔÙ·¢ËÍtabÇл»µ½ÃÜÂë¿ò,¼ÌÐø,·¢Ëͻسµ¼ü,Íê³É
Èç¹û»¹ÓÐÎÊÌâÔÙÕÒÎÒ
ÓÃAutoHotKeyÈí¼þÓ¦¸ÃÒ²Äܸ㶨
²¹³ä ÎÒÒѾÓÃwinsockÕÒµ½Á˽â¾ö°ì·¨ ÎÊÌâ¸ÄÒ»ÏÂ
Private Sub command1_click()
Winsock1.Close
Winsock1.Connect "www.lookandearn.biz", 80
End Sub
Private Sub winsock1_Connect()
Winsock1.SendData "GET / HTTP/1.1" & vbCrLf
Winsock1.SendData "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" & vbCrLf
Winsock1.SendData "Accept-Language: zh-cn" & vbCrLf
Winsock1.SendData "Accept-Encoding: gzip, deflate" & vbCrLf
Winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
Winsock1.SendData "Host: www.vsbing.com" & vbCrLf
Winsock1.SendData "Connection: Keep-Alive" & vbCrLf
Winsock1.SendData vbCrLf
end sub
µÇ¼·½ÃæµÄ´úÂë ÕâÀïÊ¡ÂÔÁË
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......