用MASM32写ADSL自动拨号程序

自动拨号程序非常简单，在MSDN(Remote Access Service)中很快就能找到，用VC实现也非常快，因为MSDN基本上已经给出了源代码。但是做为一个刚开始研究win32 asm的人来说，用masm32实现，就困难重重了

先给出VC下的实现：

#include "stdafx.h"
#include <RasError.h>
#include <Ras.h>
#pragma comment(lib, "Rasapi32.lib")

int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                     int       nCmdShow)
{
  DWORD dwCb = sizeof(RASENTRYNAME);
 DWORD dwEntries = 0;
    RASENTRYNAME ren = {0};
 ren.dwSize = dwCb;

    if (ERROR_SUCCESS == RasEnumEntries(
  NULL,
  NULL,
  &ren,
  &dwCb,
  &dwEntries))
    {
  RASDIALPARAMS rp = {0};
  rp.dwSize = sizeof(RASDIALPARAMS);
  lstrcpy(rp.szEntryName, ren.szEntryName);
  BOOL fPass;
  RasGetEntryDialParams(NULL, &rp, &fPass);
  HRASCONN hConn = NULL;
  if (ERROR_SUCCESS == RasDial(NULL,
   NULL,
   &rp,
   0,
   NULL,
   &hConn))
  {
   OutputDebugString("OK");
  }
    }
 return 0;
}

这个程序很简陋，基本上没有做什么安全检查的，主要原因是在我的机器上一次调试通过，能用就行^_^。我也不做什么说明，有什么不懂的查看MSDN

好了，现在开始改成汇编代码了。刚开始以为很简单，先找到一个win32 asm例子，再在它的基础上修改，去掉创建窗口，消息循环，消息处理等，然后在WinMain中填上用上面的代码修改的汇编。以我烂到极点的汇编基础，花了两个多小时才完成，唉！

最开始的代码如同上面的C代码，我声明了一个RASENTRYNAME结构体对象，然后调用RasEnumEntries，可是始终返回错误值278H，原来是空间不足。在VC下，RASENTRYNAME结构体大小是214H，但在ASM下面，结构体大小却只有105H。为什么呢？原来在C环境下的定义中，还加上了另外两个参数dwFlags和szPhonebookPath，并且用宏定义分隔开了。万般无赖下，只好手写了一个RASENTRYNAME结构体：

    RASENTRYNAME5A STRUCT
        dwSize dd ?
        szEntryName db RAS_MaxEntryName + 1 dup(?)
        dwFlags dd ?
        szPhonebookPath db MAX_PATH + 1 dup(?)
    RASENTRYNAME5A ENDS

然而在汇编环境中，结构体的size还不对。这时候才想起来，原来是结构体的字节对齐问题，于是上面这个结构体重新修改成：

    RASENTRYNAME5A STRUCT
        dwSize dd ?
        szEntryName db 260 dup(?)
        dwFlags dd ?
        szPhonebookPath db 264 dup(?)
    RASENTRYNAME5A ENDS

RASENTRYNAME5 EQU <RASENTRYNAME5A>

这次RasEnumEntries不出错了。接下来RASDIALPARAMS结构体大小又不对了，有了上次的经验，这次很快就拼（拼？！）出RASDIALPARAMS4的结构体：

    RASDIALPARAMS4A STRUCT
        dwSize dd ?
        szEntryName db 101h dup(?)
        szPhoneNumber db 81h dup(?)
        szCallbackNumber db 81h dup(?)
        szUserName db 101h dup(?)
        szPassword db 101h dup(?)
        szDomain db 13h dup(?)

        dwSubEntry dd ?
        dwCallbackId dd ?
    RASDIALPARAMS4A ENDS

    RASDIALPARAMS4 EQU <RASDIALPARAMS4A>

OK，这次没问题了吧？运行，没反应？怎么回事？检查了一下RasDial的返回值，668，在VC中找了一下，ERROR_NO_CONNECTION，why?

又是在不知所以然的情况下，试着将RasDial的最后一个参数hConn赋为0，Yeah，成功了！真是让人极度Faint的错误

以下附上源代码：

; #########################################################################
;
;             AutoDial.ASM
;
; #########################################################################

;     Assembler specific instructions for 32 bit ASM code

      .386                   ; minimum processor needed for 32 bit
      .model flat, stdcall   ; FLAT memory model & STDCALL calling
      option casemap :none   ; set code to case sensitive

; #########################################################################

      include /masm32/include/windows.inc

      include /masm32/include/kernel32.inc
 include /masm32/include/rasapi32.inc

      includelib /masm32/lib/kernel32.lib
 includelib /masm32/lib/rasapi32.lib

; #########################################################################

    WinMain PROTO

    RASENTRYNAME5A STRUCT
        dwSize dd ?
        szEntryName db 260 dup(?)
        dwFlags dd ?
        szPhonebookPath db 264 dup(?)
    RASENTRYNAME5A ENDS

    RASENTRYNAME5 EQU <RASENTRYNAME5A>

    RASDIALPARAMS4A STRUCT
        dwSize dd ?
        szEntryName db 101h dup(?)
        szPhoneNumber db 81h dup(?)
        szCallbackNumber db 81h dup(?)
        szUserName db 101h dup(?)
        szPassword db 101h dup(?)
        szDomain db 13h dup(?)

        dwSubEntry dd ?
        dwCallbackId dd ?
    RASDIALPARAMS4A ENDS

    RASDIALPARAMS4 EQU <RASDIALPARAMS4A>

    .data

    .code

start:

    invoke WinMain

    invoke ExitProcess,eax

WinMain proc

      LOCAL lpRasEntryName    :DWORD
 LOCAL dwCb   :DWORD
 LOCAL dwEntries  :DWORD
 LOCAL rp   :RASDIALPARAMS4
 LOCAL fPass   :BOOL
 LOCAL hConn   :DWORD

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 mov dwCb, sizeof RASENTRYNAME5
      mov lpRasEntryName, 0

AllocateRasEntryNameLoop:

      cmp lpRasEntryName, 0
      je AllocateRasEntryName
      invoke GetProcessHeap
      invoke HeapFree, eax, 0, lpRasEntryName

AllocateRasEntryName:
      invoke GetProcessHeap
      invoke HeapAlloc, eax, 0, dwCb
      cmp eax, 0
      je RetFail
     
      mov lpRasEntryName, eax
      invoke RtlZeroMemory, lpRasEntryName, dwCb
      mov ebx, sizeof RASENTRYNAME5
      mov eax, lpRasEntryName
      mov (RASENTRYNAME5 PTR [eax]).dwSize, ebx

      invoke RasEnumEntries, NULL, NULL, lpRasEntryName, ADDR dwCb, ADDR dwEntries
      cmp eax, 278h
      je AllocateRasEntryNameLoop

      cmp eax, 0
      jne RetFail

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 mov dwCb, sizeof RASDIALPARAMS4
      invoke RtlZeroMemory, ADDR rp, dwCb     
      mov eax, dwCb
      mov rp.dwSize, eax

      mov eax, lpRasEntryName
 invoke lstrcpy, ADDR rp.szEntryName, ADDR (RASENTRYNAME5 PTR [eax]).szEntryName

 invoke RasGetEntryDialParams, NULL, ADDR rp, ADDR fPass
      cmp eax, 0
      jne RetFail

      mov hConn, 0
 invoke RasDial, NULL, NULL, ADDR rp, 0, NULL, ADDR hConn
      cmp eax, 0
      jne RetFail

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RetFail:

      cmp lpRasEntryName, 0
      je AllocateRasEntryName
      invoke GetProcessHeap
      invoke HeapFree, eax, 0, lpRasEntryName

      ret

WinMain endp

end start

 

对于结构体RASENTRYNAME5的对象，我实际上是先申明了一个内存指针，lpRasEntryName，然后将这段内存强制转换（汇编中有这种说法嘛？）成RASENTRYNAME5。这种方法和MSDN中代码是一致的。

WinMain完成后需要用ret返回，不然程序以int 3结束

以上代码在masm v8.0中编译，SOFTICE调试，在xp + sp1 + adsl下运行成功

欢迎有人来和我讨论汇编，小弟刚学几天，兴趣很大