| 1 |
joko |
1.1 |
Attribute VB_Name = "Forwarding" |
| 2 |
|
|
' via: http://www.codeguru.com/forum/archive/index.php/t-22411.html |
| 3 |
|
|
|
| 4 |
|
|
Option Explicit |
| 5 |
|
|
|
| 6 |
|
|
Private Type MIB_IPFORWARDROW |
| 7 |
|
|
dwForwardDest As Long ' IP addr of destination |
| 8 |
|
|
dwForwardMask As Long ' subnetwork mask of destination |
| 9 |
|
|
dwForwardPolicy As Long ' conditions for multi-path route |
| 10 |
|
|
dwForwardNextHop As Long ' IP address of next hop |
| 11 |
|
|
dwForwardIfIndex As Long ' index of interface |
| 12 |
|
|
dwForwardType As Long ' route type |
| 13 |
|
|
dwForwardProto As Long ' protocol that generated route |
| 14 |
|
|
dwForwardAge As Long ' age of route |
| 15 |
|
|
dwForwardNextHopAS As Long ' autonomous system number |
| 16 |
|
|
dwForwardMetric1 As Long ' protocol-specific metric |
| 17 |
|
|
dwForwardMetric2 As Long ' protocol-specific metric |
| 18 |
|
|
dwForwardMetric3 As Long ' protocol-specific metric |
| 19 |
|
|
dwForwardMetric4 As Long ' protocol-specific metric |
| 20 |
|
|
dwForwardMetric5 As Long ' protocol-specific metric |
| 21 |
|
|
End Type |
| 22 |
|
|
|
| 23 |
|
|
Private Const PROTO_IP_NETMGMT = 3 |
| 24 |
|
|
Private Const ERROR_SUCCESS = 0 |
| 25 |
|
|
|
| 26 |
|
|
Private Declare Function CreateIpForwardEntry Lib "IPHLPAPI.DLL" (ByRef pRoute As Any) As Long |
| 27 |
|
|
Private Declare Function inet_addr Lib "wsock32" (ByVal s As String) As Long |
| 28 |
|
|
|
| 29 |
|
|
Public Function RouteAdd(ByVal sInterfaceIndex As Long, _ |
| 30 |
|
|
ByVal sForwardDestination As String, _ |
| 31 |
|
|
ByVal sForwardMask As String, _ |
| 32 |
|
|
ByVal sForwardNextHop As String) As Boolean |
| 33 |
|
|
|
| 34 |
|
|
Dim IPForwardTable As MIB_IPFORWARDROW |
| 35 |
|
|
|
| 36 |
|
|
With IPForwardTable |
| 37 |
|
|
|
| 38 |
|
|
'sForwardNextHop = "172.31.64.9" |
| 39 |
|
|
.dwForwardDest = inet_addr(sForwardDestination) |
| 40 |
|
|
'.dwForwardIfIndex = sInterfaceIndex |
| 41 |
|
|
.dwForwardIfIndex = 0 |
| 42 |
|
|
.dwForwardMask = inet_addr(sForwardMask) |
| 43 |
|
|
.dwForwardNextHop = inet_addr(sForwardNextHop) |
| 44 |
|
|
.dwForwardAge = 0 |
| 45 |
|
|
.dwForwardMetric1 = 50 |
| 46 |
|
|
|
| 47 |
|
|
' If MsgBox("Would you like the routing information to be permanent (otherwise the routing information is volatile and needs to be re-created every time you boot)?", vbYesNo, "Question") = vbYes Then |
| 48 |
|
|
' '.dwForwardProto = PROTO_IP_NT_STATIC |
| 49 |
|
|
' Else |
| 50 |
|
|
' .dwForwardProto = PROTO_IP_NETMGMT |
| 51 |
|
|
' End If |
| 52 |
|
|
.dwForwardProto = PROTO_IP_NETMGMT |
| 53 |
|
|
.dwForwardPolicy = 0 ' iphlpapi.h states unused (platform sdk july 2000) |
| 54 |
|
|
|
| 55 |
|
|
End With |
| 56 |
|
|
|
| 57 |
|
|
If CreateIpForwardEntry(IPForwardTable) = ERROR_SUCCESS Then |
| 58 |
|
|
MsgBox "Created route to host." |
| 59 |
|
|
Else |
| 60 |
|
|
MsgBox "Failed to create route!" |
| 61 |
|
|
End If |
| 62 |
|
|
|
| 63 |
|
|
End Function |
| 64 |
|
|
|
Parent Directory
| 
Revision Log
