ʹÓÃVB´´½¨PPPoEÒÔ¼°VPN²¦ºÅÁ¬½ÓµÄºËÐÄ´úÂë
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type RASIPADDR
a As Byte
b As Byte
c As Byte
d As Byte
End Type
Private Type RASENTRY
dwSize As Long
dwfOptions As Long
dwCountryID As Long
dwCountryCode As Long
szAreaCode(10) As Byte
szLocalPhoneNumber(128) As Byte
dwAlternateOffset As Long
ipaddr As RASIPADDR
ipaddrDns As RASIPADDR
ipaddrDnsAlt As RASIPADDR
ipaddrWins As RASIPADDR
ipaddrWinsAlt As RASIPADDR
dwFrameSize As Long
dwfNetProtocols As Long
dwFramingProtocol As Long
szScript(259) As Byte
szAutodial
Ïà¹ØÎĵµ£º
JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
½¨Á¢ VPN ²¦ºÅÈ«²¿´úÂëÈçÏÂ:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
......