用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下运行成功

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

你可能感兴趣的:(用MASM32写ADSL自动拨号程序)