其他语言转AU3 获取网络连接名称？
这个是在国外AU论坛找到的，但是这个运行不了，其中有些地方那个发贴的人没写好。这个贴就是国外那个人发的提问帖，就是针对这个 获取网络连接名称提问的！
http://www.autoitscript.com/forum/index.php?showtopic=77644&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;dword dwFlags;byte luid")
$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 Then Return SetError(2, $aRet, -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 Then Return SetError(3, $aRet, -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
public struct RasEntryName //define the struct to receive the entry name
{
public int dwSize;
public string szEntryName;
#if WINVER5
public int dwFlags;
public string szPhonebookPath;
#endif
}
public extern static uint RasEnumEntries(
string reserved, // reserved, must be NULL
string lpszPhonebook, // pointer to full path and file name of phone-book file
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;
names.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;
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 of char;
//活动连接的名称
szDeviceType : array of char;
//活动连接的所用的设备类型
szDeviceName : array 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 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 编辑 ] RasEnumEntries 是获取拔号连接的吧。 RasEnumEntries 这个里面的 RASENTRYNAME 这个参数可以获取！
我看了很多例子，他们都是 用这个 命令获取 拨号连接的名称的！ 顶上去先！ 眼晕了:face (13): 我也遇到同样问题
顶上去先
期待高手..... 你得到这个名称做什么用呢？
HKEY_CURRENT_USER\Software\Microsoft\RAS AutoDial\Default\DefaultInternet
这里可以得到 默认连接的连接名称，如果想自动拨号，读取这里一般没问题的。
如果想枚举这些名称，等有空了，研究下这个API再来回答你吧 WMI的枚举简单。。。 感谢sanhen，akmm88 回答
知道注册表方式
但就是想用wmi枚举这些名称，可惜总是不成功
; Generated by AutoIt Scriptomatic
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output = $Output & "Computer: " & $strComputer& @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\" & $strComputer & "rootCIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkConnection", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$Output = $Output & "AccessMask: " & $objItem.AccessMask & @CRLF
$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
$Output = $Output & "Comment: " & $objItem.Comment & @CRLF
$Output = $Output & "ConnectionState: " & $objItem.ConnectionState & @CRLF
$Output = $Output & "ConnectionType: " & $objItem.ConnectionType & @CRLF
$Output = $Output & "Description: " & $objItem.Description & @CRLF
$Output = $Output & "DisplayType: " & $objItem.DisplayType & @CRLF
$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output = $Output & "LocalName: " & $objItem.LocalName & @CRLF
$Output = $Output & "Name: " & $objItem.Name & @CRLF
$Output = $Output & "Persistent: " & $objItem.Persistent & @CRLF
$Output = $Output & "ProviderName: " & $objItem.ProviderName & @CRLF
$Output = $Output & "RemoteName: " & $objItem.RemoteName & @CRLF
$Output = $Output & "RemotePath: " & $objItem.RemotePath & @CRLF
$Output = $Output & "ResourceType: " & $objItem.ResourceType & @CRLF
$Output = $Output & "Status: " & $objItem.Status & @CRLF
$Output = $Output & "UserName: " & $objItem.UserName & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_NetworkConnection" )
Endif
Func WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc
这是scriptomatic tool产生的标准代码
但总没有得到信息 wmi 应该可以得到 本地连接 的名称，但是得不到拨号连接的名称。
页:
[1]