Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb - VB / »ù´¡Àà

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

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

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

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ