|
|
这个是在国外AU论坛找到的，但是这个运行不了，其中有些地方那个发贴的人没写好。
这个贴就是国外那个人发的提问帖，就是针对这个 获取网络连接名称提问的！
http://www.autoitscript.com/foru ... p;hl=RasEnumEntries
--------------------------
$GetRasEntrLst=''
$vbNullString=Chr(0)
$RAS_MaxEntryName=0x100
$TRasEntryName=DllStructCreate("long dwSize;Byte szEntryName["&$RAS_MaxEntryName&"]")
DllStructSetData($TRasEntryName,1,0x108)
$a=DllCall("rasapi32.dll","int","RasEnumEntries","str", $vbNullString ,"str",$vbNullString,"ptr",DllStructGetPtr($TRasEntryName),"int",0x100,"int",$GetRasEntrLst)
$a=DllCall("rasapi32.dll","int","RasEnumEntries","str", $vbNullString ,"str",$vbNullString,"ptr",DllStructGetPtr($TRasEntryName),"int",0x100,"int*",$GetRasEntrLst)
====================================================================================
网址：http://forum.oszone.net/post-778980.html
这个也是在国外论坛找到的！一个例子！不知道怎么用。
; Возвращает количество байт, отправленых или принятых через RAS интерфейс
; $iFlag - что включать в расчет:
; 1 - принято,
; 2 - отправлено,
; 3 - всего.
Func _RASConnBytes ($iFlags = 1)
Local Const $MAX_PATH = 260
Local Const $RAS_MaxDeviceType = 16
Local Const $RAS_MaxEntryName = 256
Local Const $RAS_MaxDeviceName = 128
$tRASCONN = DllStructCreate("dword dwSize;hwnd hRasConn;char szEntryName["& $RAS_MaxEntryName+1 &"];" & _
"char szDeviceType["& $RAS_MaxDeviceType+1 &"];" & _
"char szDeviceName["& $RAS_MaxDeviceName+1 &"];" & _
"char szPhonebook[" & $MAX_PATH &"];" & _
"dword dwSubEntry;byte guidEntry[16];dword dwFlags;byte luid[8]")
$tRAS_STATS = DllStructCreate( "dword dwSize;dword dwBytesXmited;dword dwBytesRcved;dword dwFramesXmited;" & _
"dword dwFramesRcved;dword dwCrcErr;dword dwTimeoutErr;dword dwAlignmentErr;" & _
"dword dwHardwareOverrunErr;dword dwFramingErr;dword dwBufferOverrunErr;" & _
"dword dwCompressionRatioIn;dword dwCompressionRatioOut;dword dwBps;dword dwConnectDuration")
$iCntByte = DllStructCreate("dword")
$iCntConn = DllStructCreate("dword")
DllStructSetData($iCntByte, 1, DllStructGetSize($tRASCONN) )
DllStructSetData($tRASCONN, 1, DllStructGetSize($tRASCONN) )
DllStructSetData($tRAS_STATS,1, DllStructGetSize($tRAS_STATS))
$aRet = DllCall("rasapi32.dll", "int", "RasEnumConnections", "ptr", DllStructGetPtr($tRASCONN), "ptr", DllStructGetPtr($iCntByte), "ptr", DllStructGetPtr($iCntConn))
If $aRet[0] Then Return SetError(2, $aRet[0], -1)
If DllStructGetData($iCntConn,1)<1 Then Return SetError(1, 0, 0) ; Ошибка: нет открытых соединений
$aRet = DllCall("rasapi32.dll", "int", "RasGetConnectionStatistics", "hwnd", DllStructGetData($tRASCONN, "hRasConn"), "ptr", DllStructGetPtr($tRAS_STATS))
If $aRet[0] Then Return SetError(3, $aRet[0], -1)
Local $iBites = 0
If BitAnd($iFlags,1) Then $iBites += DllStructGetData($tRAS_STATS,3)
If BitAnd($iFlags,2) Then $iBites += DllStructGetData($tRAS_STATS,2)
Return $iBites
EndFunc ; ==> _RASConnBytes
====================================================================================
C#如何获取控制面板网络连接中的连接名称？
C#如何获取 控制面板-》网络连接 中的 连接名称？
比如宽带连接叫 ADSL,或者叫 AAA,BBB 如何获取这些名称？
这个问题困扰我N天了.... 希望高手能帮帮小弟解决这个问题。在这先谢过了！~
如果wmi不行的话就要用到Rasapi吧
一般这两个dll里
rasapi32.dll
rapi.dll
C# code
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)]
public struct RasEntryName //define the struct to receive the entry name
{
public int dwSize;
[MarshalAs(UnmanagedType.ByValTStr, SizeConst =256 + 1)]
public string szEntryName;
#if WINVER5
public int dwFlags;
[MarshalAs(UnmanagedType.ByValTStr,SizeConst=260+1)]
public string szPhonebookPath;
#endif
}
[DllImport("rasapi32.dll", CharSet = CharSet.Auto)]
public extern static uint RasEnumEntries(
string reserved, // reserved, must be NULL
string lpszPhonebook, // pointer to full path and file name of phone-book file
[In, Out]RasEntryName[] lprasentryname, // buffer to receive phone-book entries
ref int lpcb, // size in bytes of buffer
out int lpcEntries // number of entries written to buffer
);
private void button1_Click(object sender, EventArgs e)
{
int lpNames = 1;
int entryNameSize = 0;
int lpSize = 0;
RasEntryName[] names = null;
entryNameSize = Marshal.SizeOf(typeof(RasEntryName));
lpSize = lpNames * entryNameSize;
names = new RasEntryName[lpNames];
names[0].dwSize = entryNameSize;
uint retval = RasEnumEntries(null, null, names, ref lpSize, out lpNames);
//if we have more than one connection, we need to do it again
if (lpNames > 1)
{
names = new RasEntryName[lpNames];
for (int i = 0; i < names.Length; i++)
{
names.dwSize = entryNameSize;
}
retval = RasEnumEntries(null, null, names, ref lpSize, out lpNames);
}
if (lpNames > 0)
{
for (int i = 0; i < names.Length; i++)
{
this.textBox1.AppendText(names.szEntryName + System.Environment.NewLine);
}
}
}
====================================================================================
用Delphi程序获取拨号连接的动态IP地址
2000-09-03• •王发军••青竹软件
p> 在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中，有相关RAS函数的详细说明。
一、先解释一些要用到的数据常量和数据结构。
const
RAS_MaxDeviceType = 16;//设备类型名称长度
RAS_MaxEntryName = 256;//连接名称最大长度
RAS_MaxDeviceName = 128;//设备名称最大长度
RAS_MaxIpAddress = 15;//IP地址的最大长度
RASP_PppIp = $8021;//拨号连接的协议类型，该数值表示PPP连接
type
HRASCONN = DWORD;//拨号连接句柄的类型
RASCONN = record//活动的拨号连接的句柄和设置信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN;//活动连接的句柄
szEntryName : array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType : array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName : array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;
TRASPPPIP = record//活动的拨号连接的动态IP地址信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(TRASPPPIP)
dwError : DWORD;//错误类型标识符
szIpAddress : array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;
二、接着要解释要用到的两个RAS函数。
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
function RasEnumConnections( var lprasconn : RASCONN ;
//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
) : DWORD; stdcall;
function RasEnumConnections;external Rasapi32.dll
name RasEnumConnectionsA;
//获取指定活动的拨号连接的动态IP信息
function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
) : DWORD;stdcall;
ction RasGetProjectionInfo;external
Rasapi32.dll name RasGetProjectionInfoA;
这两个函数的返回值为０时表示执行成功，非０表示错误代码。
三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址
首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。
procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1] of RASCONN;
//拨号连接数组
longSize : dword;
intAvailabelConnections : dword;
//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[ 0 ].dwSize;
//接收活动连接的缓冲区大小
intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections( connections[ 0 ],
longSize,intAvailabelConnections );
if 0 $#@60; $#@62; dwResult then
memo1.lines.add( 错误: + inttostr( dwResult ) )
else
begin
memo1.lines.add( 现有的活动连接有 +
IntToStr( intAvailabelConnections ) + 个);
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := 连接名称：
+ StrPAS( connections[ intIndex ].szEntryName )
+ ，设备类型：
+ StrPAS( connections[ intIndex ].szDeviceType )
+ ，设备名称：
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
( connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 $#@60; $#@62; dwResult then
memo1.lines.add(
错误: + inttostr( dwResult ))
else
memo1.lines.add(
动态地址: + StrPas(RASpppIP.szIPAddress));
end;
end;
end;
以上程序在PWIN98+Delphi3.0下调试通过。
==================================================================================
相关例子：http://www.80diy.com/home/20010716/13/195966.html
各位大哥大姐有没有写过拨号程序，能否指点一下。
----------------------------------------------------------------
http://www.jb51.net/article/12843.htm
用C#写的ADSL拨号程序的代码示例
本文来自: 脚本之家(www.jb51.net) 详细出处参考：http://www.jb51.net/article/12843.htm
----------------------------------------------------------------
http://topic.csdn.net/t/20020418/10/656283.html
高分求助！VC++函数RasEnumEntries如何转换成VB API，并实现调用。
----------------------------------------------------------------
用Delphi程序获取拨号连接的动态IP地址
http://www.yesky.com/279/110779.shtml
==================================================================================
Dll命令名：RasEnumEntries
所处动态链接库的文件名：rasapi32.dll
在所处动态链接库中的命令名：RasEnumEntriesA
返回值类型：整数型
参数<1>的名称为“lpStrNull”，类型为“文本型”。
参数<2>的名称为“lpszphonebook”，类型为“文本型”。
参数<3>的名称为“lprasetryname”，类型为“RASENTRYNAME”，接收参数数据时采用参考传递方式，需要接收数组数据。
参数<4>的名称为“lpcb”，类型为“整数型”，接收参数数据时采用参考传递方式。
参数<5>的名称为“lpcentries”，类型为“整数型”，接收参数数据时采用参考传递方式。
==================================================================================
这个功能我研究了很久，但是还是没办法搞出来！
因为自己不会其他语言，而且对AU的 DLLCALL功能也不太懂！
希望热心的朋友们，能帮帮我这个新手！
祝大家国庆节快乐！
[ 本帖最后由 wind234 于 2008-10-1 20:55 编辑 ] |
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2008-10-1 11:41:10
.gif)