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
µÇ¼·½ÃæµÄ´úÂë ÕâÀïÊ¡ÂÔÁË
Ïà¹ØÎÊ´ð£º
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÈçÌâ¡£
²»ÓÃAPIÒ²ÄÜʵÏÖ:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html
ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë.
http://download.csdn.net/ ......