回复 2楼 ZHRXJR
异步拨号模块中
Case RASCS_Connected
Form1.Label11.Caption = "连接成功！"
= False
= True
call start
Case RASCS_Disconnected
Form1.Label11.Caption = "连接已断开！"
End Select
start模块如下
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
'获取IP地址
Private Const MAX_IP = 255
Private Type IPINFO
dwAddr
As Long
'IP地址
dwIndex
As Long
dwMask
As Long
'掩码
dwBCastAddr
As Long
'广播地址
dwReasmSize
As Long
unused1
As Integer
unused2
As Integer
End Type
Private Type MIB_IPADDRTABLE
dEntrys
As Long
mIPInfo(MAX_IP)
As IPINFO
End Type
Private Type IP_Array
mBuffer
As MIB_IPADDRTABLE
BufferLen
As Long
End Type
Dim strIP
As String
Private Function ConvertAddressToString(longAddr As Long) As String
Dim myByte(3)
As Byte
Dim Cnt
As Long
CopyMemory myByte(0), longAddr, 4
For Cnt = 0 To 3
ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."
Next Cnt
ConvertAddressToString = left$(ConvertAddressToString, Len(ConvertAddressToString) - 1)
End Function
Public Sub Start()
Dim Ret
As Long, Tel
As Long
Dim bBytes()
As Byte
Dim Listing
As MIB_IPADDRTABLE
On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True
If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
GetIpAddrTable bBytes(0), Ret, False
CopyMemory Listing.dEntrys, bBytes(0), 4
For Tel = 0 To Listing.dEntrys - 1
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
If InStr(1, ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr), "10.26") > 0 Or InStr(1, ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr), "10.6") > 0 Or InStr(1, ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr), "10.86") > 0 Then
strIP = ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr)
End If
Next
Shell "route -p add 100.0.0.0 mask 255.255.255.0 " & strIP, vbHide
Exit Sub
END1:
MsgBox "ERROR"
End Sub
