系统_取宽带用户名密码

镇坛道德标杆

今天学API     发现这个命令当拨号不唯一的时候会取得不准确   搜了下   反映这个命令的问题的贴子还不少~
其实所有拨号连接都枚举出来了   其实就是少一句判断....
(我现在改成了传入连接名称取对应的账号密码    如果要是想不传入连接名称默认取宽带   可以通过其他办法来取到默认宽带连接的phonebookname然后再获取账号密码 )   
感觉怎么着总比放个不精确的子程序好啊~
我就不传附件啦   代码贴了    直接放到精易模块的集_杂合_____程序集里就可以

  

子程序名	返回值类型	公开	备 注
系统_取拨号用户名密码	逻辑型		成功返回真,失败返回假
参数名	类 型	参考	可空	数组	备 注
参_连接名称	文本型				请提供一个文本变量,用于存放 连接名称
宽带用户名	文本型				请提供一个文本变量,用于存放 宽带用户名
宽带密码	文本型				请提供一个文本变量,用于存放 宽带密码

变量名	类 型	静态	数组	备 注
局_RasArraySize	整数型
局_连接名称	文本型			请提供一个文本变量,用于存放 连接名称
局_信息	整数型
局_RasCount	整数型
局_RasArray	取连接信息用结构		0
局_图书1	文本型
局_图书2	文本型
局_osi	OSVersionInfo
局_计次	整数型
局_RasParams	ADSL拨号0
局_RasEntryProperties	RasEntry
局_名字1	字节集
局_名字2	字节集
局_DialParamsUID	整数型

连续赋值 (“”, 宽带用户名, 宽带密码)
局_RasCount ＝ 子_GetRasEntryCount ()
如果真 (局_RasCount ＝ 0)
返回 (假)
重定义数组 (局_RasArray, 假, 局_RasCount)
如果真 (取数组成员数 (局_RasArray) ≥ 1)
局_RasArray [1].内存大小 ＝ GlobalSize_取连接信息用结构 (局_RasArray [1])
局_RasArraySize ＝ 局_RasCount × 局_RasArray [1].内存大小
如果真 (RasEnumEntries (0, 0, 局_RasArray, 局_RasArraySize, 局_RasCount) ≠ 0)
返回 (假)
' 局_osi.版本信息大小 ＝ 148
' 局_osi.CSD版本 ＝ 取空白文本 (128)
' API_GetVersionEx (局_osi)
. ' 如果真 (局_osi.平台标识符 ＝ 2 且 局_osi.主版本 ≥ 5)
局_图书1 ＝ 取空白文本 (255)
局_图书2 ＝ 取空白文本 (255)
如果真 (SHGetSpecialFolderPath (0, 局_图书1, 26, 假))
局_图书1 ＝ 局_图书1 ＋ “\Microsoft\Network\Connections\pbk\rasphone.pbk”
如果真 (SHGetSpecialFolderPath (0, 局_图书2, 35, 假))
局_图书2 ＝ 局_图书2 ＋ “\Microsoft\Network\Connections\pbk\rasphone.pbk”
子_GetLSAPasswords ()

计次循环首 (取数组成员数 (局_RasArray), 局_计次)
局_RasParams.结构的大小 ＝ GlobalSize_RASDIALPARAMS (局_RasParams)
RtlMoveMemory_字节型 (局_RasParams.访问的入口名, 局_RasArray [局_计次].拨号连接名称, 255)
RasGetEntryDialParams (“”, 局_RasParams, 真)
局_RasArraySize ＝ GlobalSize_RASENTRY (局_RasEntryProperties)
局_RasEntryProperties.dwSize ＝ 局_RasArraySize
RasGetEntryProperties (“”, 局_RasArray [局_计次].拨号连接名称, 局_RasEntryProperties, 局_RasArraySize, “”, 局_信息)
如果真 (局_图书1 ≠ “” 或 局_图书2 ≠ “”)
局_名字1 ＝ 到字节集 (子_字节型数组到文本 (局_RasParams.访问的入口名)) ＋ { 0 }
局_名字2 ＝ 编码_Ansi到Utf8 (子_字节型数组到文本 (局_RasParams.访问的入口名))
局_DialParamsUID ＝ GetPrivateProfileInt (局_名字1, “DialParamsUID”, 0, 局_图书1)
如果真 (局_DialParamsUID ＝ 0)
局_DialParamsUID ＝ GetPrivateProfileInt (局_名字1, “DialParamsUID”, 0, 局_图书2)
如果真 (局_DialParamsUID ＝ 0)
局_DialParamsUID ＝ GetPrivateProfileInt (局_名字2, “DialParamsUID”, 0, 局_图书1)
如果真 (局_DialParamsUID ＝ 0)
局_DialParamsUID ＝ GetPrivateProfileInt (局_名字2, “DialParamsUID”, 0, 局_图书2)
如果真 (局_DialParamsUID ＞ 0)
计次循环首 (取数组成员数 (FLSAList), 局_计次)
如果真 (FLSAList [局_计次].名字 ＝ 到文本 (局_DialParamsUID) 且 FLSAList [局_计次].值 ≠ “”)
子_文本到字节型数组 (局_RasParams.指定用户名称, FLSAList [局_计次].用户)
子_文本到字节型数组 (局_RasParams.指定用户密码, FLSAList [局_计次].值)

计次循环尾 ()

局_连接名称 ＝ 子_字节型数组到文本 (局_RasParams.访问的入口名)
如果真 (到小写 (局_连接名称) ＝ 到小写 (参_连接名称))
宽带用户名 ＝ 子_字节型数组到文本 (局_RasParams.指定用户名称)
宽带密码 ＝ 子_字节型数组到文本 (局_RasParams.指定用户密码)
跳出循环 ()

计次循环尾 ()
返回 (删首尾空 (宽带用户名) ≠ “”)

.版本 2<br /> <br /> .子程序 系统_取拨号用户名密码, 逻辑型, 公开, 成功返回真,失败返回假<br /> .参数 参_连接名称, 文本型, , 请提供一个文本变量,用于存放 连接名称<br /> .参数 宽带用户名, 文本型, 参考 可空, 请提供一个文本变量,用于存放 宽带用户名<br /> .参数 宽带密码, 文本型, 参考 可空, 请提供一个文本变量,用于存放 宽带密码<br /> .局部变量 局_RasArraySize, 整数型<br /> .局部变量 局_连接名称, 文本型, , , 请提供一个文本变量,用于存放 连接名称<br /> .局部变量 局_信息, 整数型<br /> .局部变量 局_RasCount, 整数型<br /> .局部变量 局_RasArray, 取连接信息用结构, , "0"<br /> .局部变量 局_图书1, 文本型<br /> .局部变量 局_图书2, 文本型<br /> .局部变量 局_osi, OSVersionInfo<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_RasParams, ADSL拨号0<br /> .局部变量 局_RasEntryProperties, RasEntry<br /> .局部变量 局_名字1, 字节集<br /> .局部变量 局_名字2, 字节集<br /> .局部变量 局_DialParamsUID, 整数型<br /> <br /> 连续赋值 (“”, 宽带用户名, 宽带密码)<br /> <br /> 局_RasCount ＝ 子_GetRasEntryCount ()<br /> .如果真 (局_RasCount ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 重定义数组 (局_RasArray, 假, 局_RasCount)<br /> .如果真 (取数组成员数 (局_RasArray) ≥ 1)<br />     局_RasArray [1].内存大小 ＝ GlobalSize_取连接信息用结构 (局_RasArray [1])<br />     局_RasArraySize ＝ 局_RasCount × 局_RasArray [1].内存大小<br /> .如果真结束<br /> .如果真 (RasEnumEntries (0, 0, 局_RasArray, 局_RasArraySize, 局_RasCount) ≠ 0)<br />     返回 (假)<br /> .如果真结束<br /> ' 局_osi.版本信息大小 ＝ 148<br /> ' 局_osi.CSD版本 ＝ 取空白文本 (128)<br /> ' API_GetVersionEx (局_osi)<br /> .' 如果真 (局_osi.平台标识符 ＝ 2 且 局_osi.主版本 ≥ 5)<br />     局_图书1 ＝ 取空白文本 (255)<br />     局_图书2 ＝ 取空白文本 (255)<br />     .如果真 (SHGetSpecialFolderPath (0, 局_图书1, 26, 假))<br />         局_图书1 ＝ 局_图书1 ＋ “\Microsoft\Network\Connections\pbk\rasphone.pbk”<br />     .如果真结束<br />     .如果真 (SHGetSpecialFolderPath (0, 局_图书2, 35, 假))<br />         局_图书2 ＝ 局_图书2 ＋ “\Microsoft\Network\Connections\pbk\rasphone.pbk”<br />     .如果真结束<br />     子_GetLSAPasswords ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (局_RasArray), 局_计次)<br />     局_RasParams.结构的大小 ＝ GlobalSize_RASDIALPARAMS (局_RasParams)<br />     RtlMoveMemory_字节型 (局_RasParams.访问的入口名, 局_RasArray [局_计次].拨号连接名称, 255)<br />     RasGetEntryDialParams (“”, 局_RasParams, 真)<br />     局_RasArraySize ＝ GlobalSize_RASENTRY (局_RasEntryProperties)<br />     局_RasEntryProperties.dwSize ＝ 局_RasArraySize<br />     RasGetEntryProperties (“”, 局_RasArray [局_计次].拨号连接名称, 局_RasEntryProperties, 局_RasArraySize, “”, 局_信息)<br />     .如果真 (局_图书1 ≠ “” 或 局_图书2 ≠ “”)<br />         局_名字1 ＝ 到字节集 (子_字节型数组到文本 (局_RasParams.访问的入口名)) ＋ { 0 }<br />         局_名字2 ＝ 编码_Ansi到Utf8 (子_字节型数组到文本 (局_RasParams.访问的入口名))<br />         局_DialParamsUID ＝ GetPrivateProfileInt (局_名字1, “DialParamsUID”, 0, 局_图书1)<br />         .如果真 (局_DialParamsUID ＝ 0)<br />             局_DialParamsUID ＝ GetPrivateProfileInt (局_名字1, “DialParamsUID”, 0, 局_图书2)<br />         .如果真结束<br />         .如果真 (局_DialParamsUID ＝ 0)<br />             局_DialParamsUID ＝ GetPrivateProfileInt (局_名字2, “DialParamsUID”, 0, 局_图书1)<br />         .如果真结束<br />         .如果真 (局_DialParamsUID ＝ 0)<br />             局_DialParamsUID ＝ GetPrivateProfileInt (局_名字2, “DialParamsUID”, 0, 局_图书2)<br />         .如果真结束<br />         .如果真 (局_DialParamsUID ＞ 0)<br />             .计次循环首 (取数组成员数 (FLSAList), 局_计次)<br />                 .如果真 (FLSAList [局_计次].名字 ＝ 到文本 (局_DialParamsUID) 且 FLSAList [局_计次].值 ≠ “”)<br />                     子_文本到字节型数组 (局_RasParams.指定用户名称, FLSAList [局_计次].用户)<br />                     子_文本到字节型数组 (局_RasParams.指定用户密码, FLSAList [局_计次].值)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     局_连接名称 ＝ 子_字节型数组到文本 (局_RasParams.访问的入口名)<br /> <br />     .如果真 (到小写 (局_连接名称) ＝ 到小写 (参_连接名称))<br />         宽带用户名 ＝ 子_字节型数组到文本 (局_RasParams.指定用户名称)<br />         宽带密码 ＝ 子_字节型数组到文本 (局_RasParams.指定用户密码)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (删首尾空 (宽带用户名) ≠ “”)

n99807

3626296262626

xiaohuochai

win7,娶不到，win10也取不到.......

linxiucheng6

633333333333333333

镇坛道德标杆

小奶牛 发表于 2017-10-20 22:44
什么模块？无法调试 错误(4): 没有找到名为“取连接信息用结构”的数据类型。

初学时候的老代码，有空再更新。

钱乐

什么模块？无法调试 错误(4): 没有找到名为“取连接信息用结构”的数据类型。

oaerp

学习，很牛呀！

w839558403

看样子，有点叼

一世修成

看样子，有点叼

自然卷。

三咲亚子 发表于 2016-7-2 19:09
尼 想 做 什 么 ! ! ! !  ! ! !

我要抱回家.~