VBÈçºÎÉè¼Æ ÔÚÏß²éѯIP £¨ÀûÓÃwww.ip138.com)
²»ÏëÓÃWEBBROWSREÈ¥´ò¿ªÍøÒ³£¬È»ºó·ÖÎöÊý¾Ý
ÓÐÖ±½Ó·¢ËͺͽÓÊÕÊý¾ÝµÄ·½·¨Ã´£¿
ÀýÈ磬ÔÚwww.ip138.com ²éѯIPµØÖ·
¾Í»áµ¯³öÕâÑùµÄÍøÖ· http://www.ip138.com/ips.asp?ip=115.26.11.121
Ìá½»Õâ¸öÍøÖ·£¬¾Í»á·µ»ØÊý¾Ý£¬ÀïÃæ¾ÍÓÐIPµÄµØÀíλÖÃ
Õâ¸öÍøÒ³²»ÊÇxmlµÄ,ÄDz»ÄÜÓÃxmlhttpÁË,ÓÃwinnet¿Ø¼þ½ÓÊÕ»ØÀ´ÔÙÓÃÕýÔòÌáÈ¡ÈçºÎ
xmlhttpºÍwinnet¶¼¿ÉÒÔ¡£
ºÍÊDz»ÊÇxmlÎ޹ء£
ÕâÑù°¡,ÄÇÄã¸ø¸öxmlhttpÈ¡htmlÔ´ÎļþµÄ´úÂë¸øËû°¡,ÔÙºÍRegexpºÏÆðÀ´Ó¦¸Ã¾Í¿É¸ã¶¨ÁË
ûÕûÃ÷°×¡£¡£¡£°¡¡£¡£¡£¡£
Ê×ÏÈÉùÃ÷·ÇÔ´´
È»ºó£¬Â¥Ö÷½«GetPublicIP()º¯ÊýÖеÄÈ¡IPµØÖ·µÄ²¿·Öµ÷ÕûһϾÍÐÐÁË
¼òµ¥µã¾ÍÓÃ×Ö·û´®½ØÖ®ÀàµÄº¯Êý¾Í¿ÉÒÔÁË
µ±È»ÄãÒ²¿ÉÒÔʹÓÃÕýÔò
VB code:
'Éæ¼°µÄAPIÁбí
'URLDownloadToFile ÏÂÔØÖ¸¶¨URLÎļþ
'DeleteUrlCacheEntry ɾ³ý±¾µØ»º´æÎļþ
'GetUrlCacheEntryInfo ¼ì²é±¾µØ»º´æÐÅÏ¢
'FormatMessage ¸ñʽ»¯APIÐÅÏ¢
Option Explicit
Private Const ERROR_SUCCESS As Long = 0 'ÏÂÔØÊ§°Ü
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _
Alias "DeleteUrlCacheEntryA" _
(ByVal lpsz
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......