RasHangup问题？(200分)

zheng · 2000-09-06

用RasHangup（句柄）切断拨号连接，但如果拨号连接不是自己程序用RasDail（）拨的号， 句柄为空，不能切断拨号连接，怎样才能实现，用win98系统的拨号网络拨号，用自己 程序来切断拨号连接？

温柔一刀 · 2000-09-06

用RasEnumConnections可以获得所有活动连接，返回的结构里包含句柄， 用这个句柄调用RasHangUp即可。

zheng · 2000-09-10

对不起，这个我已经知道了，200分太冤啦，不过有另外一个问题， 我用自己的拨号程序上网之后，Win98总是将我的密码自动保存， “拨号网络”就有到密码，我的密码将泄密，可能被黑客知道，怎样 才能使用Win32API拨号，而Win98没有将密码自动保存？谁答就给谁！！

zheng · 2000-09-10

Win98将拨号密码保存在哪？怎样才能正确读取？（有没有加密？）怎样删除？

温柔一刀 · 2000-09-10

用RasSetEntryDialParams设置相应的拨号设置，就可以删除password， （其中第三个参数专门用来干这个） 你要是再“我已经知道了”，就别指望我再回答你的问题了。

zheng · 2000-09-13

温柔一刀: 兄弟，对不起，不要生气！你别以为我是来骗的！！ 这次一定给分你，不过能否把RasSetEntryDialParams的参数，及删除密码的发法， 仔细一点给我说，只要一点就行？？？

zheng · 2000-09-13

你就是不答我也给分你！

温柔一刀 · 2000-09-14

>>你就是不答我也给分你！ 那太好了，还等什么呢？ 另：你是广东人吗？哈哈哈... >>你别以为我是来骗的！！ 我没有啊！我说话向来这样的，不要太在意。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; Const   UNLEN = 256;   PWLEN = 256;   DNLEN = 15;   RAS_MaxEntryName   =  256;   RAS_MaxPhoneNumber = 128;   RAS_MaxCallbackNumber =  RAS_MaxPhoneNumber; type   TRASDialParams = Record dwSize: DWORD; szEntryName: Array[0..RAS_MaxEntryName] Of Char; szPhoneNumber: Array[0..RAS_MaxPhoneNumber] Of Char; szCallbackNumber: Array[0..RAS_MaxCallbackNumber] Of Char; szUserName: Array[0..UNLEN] Of Char; szPassword: Array[0..PWLEN] Of Char; szDomain: Array[0..DNLEN] Of Char;   end; TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }    EntryName:string;    RASDialParams:TRASDialParams;   public     { Public declarations }   end; function RasGetEntryDialParams (  // ANGUS lpszPhonebook

Char; // pointer to the full path and filename of the phonebook file var lprasdialparams: TRASDIALPARAMS; // pointer to a structure that contains the connection parameters fRemovePassword: BOOL // // indicates whether to remove password from entry's parameters ): DWORD; stdcall; function RasSetEntryDialParams (  // ANGUS lpszPhonebook

Char; // pointer to the full path and filename of the phonebook file var lprasdialparams: TRASDIALPARAMS; // pointer to a structure that contains the connection parameters fRemovePassword: BOOL // // indicates whether to remove password from entry's parameters ): DWORD; stdcall; var   Form1: TForm1; implementation function RasSetEntryDialParams; external 'RASAPI32.DLL' name 'RasSetEntryDialParamsA'; function RasgetEntryDialParams; external 'RASAPI32.DLL' name 'RasGetEntryDialParamsA'; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var    hr

WORD;    passwd:LongBool; begin      fillChar(RASDialParams,SizeOf(RASDialParams),#0);      RASDialParams.dwSize:=SizeOf(TRASDialParams);      EntryName:='169';      StrLCopy(RASDialParams.szEntryName,pchar(EntryName),RAS_MaxEntryName);      hr:=RasGetEntryDialParams (nil, RASDialParams, passwd);      if hr>0 then exit;      hr:=RasSetEntryDialParams (nil, RASDialParams, true); end; end. 由于RasSetEntryDialParams会覆盖你的设置，因此必须把原来的设置用 RasGetEntryDialParams读出来，再写回去，大致如此吧。

zheng · 2000-09-14

刀哥： 谢谢，你的刀真锋利！！！ 我已把分给你啦。不过另外问个问题： 你知不知道“Win98将拨号密码保存在哪？怎样才能正确读取？（有没有加密？）” 你答不答都无所谓啦！我都是谢谢啦，真不好意思！！

温柔一刀 · 2000-09-14

保存在.pwl文件里，有加密，但仍然能读，软件和源代码遍地都是， 在大富翁里搜索一下也有。

zheng · 2000-09-21

刀兄：   你为何知道我是广东人？你从什么地方看出？我是潮州人，你是那里人？   你的刀有多长？有没“杀”过人（开玩笑）？   你的程序有错： procedure TForm1.Button1Click(Sender: TObject); var    hr

WORD;    passwd:LongBool; begin      fillChar(RASDialParams,SizeOf(RASDialParams),#0);      RASDialParams.dwSize:=SizeOf(TRASDialParams);      EntryName:='169';      StrLCopy(RASDialParams.szEntryName,pchar(EntryName),RAS_MaxEntryName);      hr:=RasGetEntryDialParams (nil, RASDialParams, passwd);      if hr>0 then exit;      hr:=RasSetEntryDialParams (nil, RASDialParams, true); end; 1、passwd没有赋值，我看直接RasGetEntryDialParams (nil, RASDialParams, false)就行 2、不知道为什么用RasGetEntryDialParams（）是不能将拨号连接的“用户名”等读出，    RASDialParams.szUserName总是为空，喔不对！不对！是RasGetEntryDialParams（）调用    出错，返回值不等于0。 3、我自己的（错）：var RasDialParams : TRasDialParams;                    FillChar(RasDialParams, SizeOf(TRasDialParams), #0);                    RasDialParams.dwSize := SizeOf(TRasDialParams);                    StrPCopy(RasDialParams.szEntryName, Str);                    RasGetEntryDialParams(nil, RasDialParams, False);                    Edit1.Text := RasDialParams.szPhoneNumber;

温柔一刀 · 2000-09-21

>>1、passwd没有赋值，我看直接RasGetEntryDialParams (nil, RASDialParams, false)就行 错！passwd是返回值，你如果用false肯定完蛋。 >>2、是RasGetEntryDialParams（）调用   出错，返回值不等于0。 我不知道，我实验都正确，可以告诉我返回值是多少。（如果是上一个问题引起的，你活该！

） 温柔一刀之锋利并不只体现在delphi上，察言观色也是很厉害的哟！ 具体是那句话泄漏天机，你自己想想？

zheng · 2000-09-22

第三个参数又不是Var型的，怎么能返回呢，用你上面的就出现异常

温柔一刀 · 2000-09-22

告诉我错误返回值是多少!! (我用winNT 4.0+D5，没问题)

zheng · 2000-10-01

我查了Win32 Api才知道你给我的函数定义错了，应该是： function RasGetEntryDialParams(lpszPhoneBook: PAnsiChar; var lpRasDialParams:  TRasDialParams; var lpfPassword: LongBool): Longint; stdcall;  external 'rasapi32.dll' name 'RasGetEntryDialParamsA'; lpfPassword参数是Var型的，就是因为这里错，导致函数调用失败！ (Delphi3.0)

温柔一刀 · 2000-10-01

大概是这样吧

，我疏忽了，总之最后一个参数肯定是输出参数， 我也没仔细想为什么没写成var，不好意思。 另：我是从“你就是不答我也给分你！”猜出你是广东人的，“给分你”这种“语法” 只有广东人这样说，我有很多广东同学。怎么样，够锋利吧

zheng · 2000-10-03

>另：我是从“你就是不答我也给分你！”猜出你是广东人的，“给分你”这种“语法” >只有广东人这样说，我有很多广东同学。怎么样，够锋利吧

我是特地这样写的，并不是因为是广东人才怎样写，而且我也知道“给分你”的语法 有问题，这个我在广州读书时就知道，我们潮州人的语法与北方人差不多，根珠江三角洲 不同！

温柔一刀 · 2000-10-04

>>我是特地这样写的，并不是因为是广东人才怎样写 对呀，如果你不是广东人，可能根本不会想到这种语法， 因此还是证明了...

我大学有两个同学是广东人，一个潮州，一个阳江， 因此对广东话非常了解，我知道潮州话实际上和汕头话更接近（潮汕嘛！）， 和“珠江三角洲”没什么共同之处。 ps:我们这样聊天真累，呵呵...

zheng · 2000-10-04

你在回答左轻侯的问题“在W2k下如何获得拨号网络的连接速度？”中，看情形你对拨号网络 相关内容很熟悉，请问在WIN9X下如何获得拨号网络的连接速度，以及“收到的字节数”和 “发送的字节数”；还有能否将WIN系统的拨号网络的图标从系统托盘中隐藏， 你如果想拿分，就到“温柔一刀请进来拿分”帖子中来取。给你预备了150分，如果嫌少可以 再商量。

温柔一刀 · 2000-10-05

大富翁的邮件通知又坏了，我看了你那个贴子后， 查询已答问题才看到你又在这里加贴，不好意思。 看看这个你就全明白了，不好意思“骗”了你很多分数，呵呵 http://www.delphibbs.com/delphi/attachments/rascomp1.zip （当然，左轻侯的问题不包括在内。）

RasHangup问题？(200分)

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

zheng

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

Similar threads