科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用VB.net实现Smartphone中进程启动

用VB.net实现Smartphone中进程启动

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

近日心血来潮,花巨资购进多普达智能手机一台, 系统为微软的Smartphone2003.

作者:莫艺潜 来源:天极网 2007年12月28日

关键字: vb.net Smartphone 进程 启动

  • 评论
  • 分享微博
  • 分享邮件
近日心血来潮,花巨资购进多普达智能手机一台, 系统为微软的Smartphone2003 ,由于对"瘟倒死"操作系统的熟悉,很快已步入正轨,各种图片程序安装了一大堆后,开始发挥自己的程序特长,试着为爱机写一个资源管理器的简单程序。

  我选择的编程工具当然是Visual Basic NET2003,实话说Microsoft .NET Framework SDK 提供的功能实在不感恭维,微软好象又要将所有走上光明大道的.NET程序员拖入API的黑暗时代,指针、句柄、地址操作,最令人恼火就是没有为VB.net程序做WinCE的API 声明(令人怀念VB6的API浏览器)很快我就在如何启动手机中的应用程序的代码上困住了,Net没有为WinCE提供Process 对象这种不付责任的做法害得我好苦啊!

  开始时声明时老是将ShellExecuteEx 和CreateProcess这两个熟悉得不能再熟悉的Win32在VB 6中的声明直接粘到程序中,仅是将VB6的long改为NET的int32,结果老是报错。在网上查了N天资料,才发现原来Win CE的核心API都是在一个coredll.dll文件中,使得我差点没气死!还有一点是SHELLEXECUTEINFO结构中的lpFile这种指向字符串常量的指针由于字符的编码问题不能象在Win32编程中简单声明为String类型,所在必须声明为Intptr,这样问题就出现了,使用ShellExecuteEx函数必须使用微软在VB.net中不直接提供的指针操作,所以我只好根据网上的资料改写了一个VB.net对内存指针的封装类,详细代码及解释如下(新建一个模块,将以下代码粘贴进去即可使用):

Imports System.Runtime.InteropServices '引及Net框架中对底层操作支持的命名空间
Public Class clsDAMSMobileMarshal '我写的内存管理类
#Region "与内存有关的API声明"
REM 以下是与内存有关的移动设备API
Public Declare Function LocalAlloc Lib "coredll.dll" Alias "LocalAlloc" (ByVal wFlags As Int32, _
ByVal wBytes As Int32) As IntPtr

Public Declare Function LocalFree Lib "coredll.dll" Alias "LocalFree" (ByVal hMem As Int32) As Int32


Public Declare Function LocalLock Lib "coredll.dll" Alias "LocalLock" (ByVal hMem As Int32) As Int32

Public Declare Function LocalReAlloc Lib "coredll.dll" Alias "LocalReAlloc" (ByVal hMem As IntPtr, _
ByVal wBytes As Int32, ByVal wFlags As Int32) As IntPtr

#End Region

#Region "API常量声明"
Public Const LMEM_FIXED = 0
Public Const LMEM_MOVEABLE = &H2
Public Const LMEM_ZEROINIT = &H40
Public Const LPTR = LMEM_FIXED Or LMEM_ZEROINIT
#End Region

Public Shared Function fnAllocHLocal(ByVal ni_i32Size As Int32) As IntPtr
 '申请本地内存,返回一个指向该内存块的指针
 Return LocalAlloc(LPTR, ni_i32Size)
End Function

Public Shared Function fnFreeHLocal(ByRef ni_pLocal As IntPtr) As Int32
 REM 释放指定的内存块柄
 Dim ti32FunctionReturnValue As Int32
 If ni_pLocal.Equals(IntPtr.Zero) = False Then
  ti32FunctionReturnValue = (LocalFree(ni_pLocal.ToInt32))
 If ti32FunctionReturnValue = 0 Then
  ni_pLocal = IntPtr.Zero
 End If
End If
Return (ti32FunctionReturnValue)
End Function

Public Shared Function fnReAllocHLocal(ByVal ni_pIn As IntPtr, ByVal ni_i32Size As Int32) As IntPtr
 '对指定的内存块重新定义大小
 Return LocalReAlloc(ni_pIn, ni_i32Size, LMEM_MOVEABLE)
End Function

Public Shared Function fnStringToHLocalUni(ByVal ni_strIn As String) As IntPtr
 '将指定的字符串复制到一个内存块中,并返回该内存块的指针,这个指针必须使用fnFreeHLocal函数释放
 Dim ti32StringBufLength As Int32
 Dim tpTempA As IntPtr

 If Not (ni_strIn Is Nothing) Then
  If ni_strIn.Length = 0 Then
   Return IntPtr.Zero
  Else
   ti32StringBufLength = (ni_strIn.Length + 1) * 2 ' 包括最后一个中止字符
   tpTempA = fnAllocHLocal(ti32StringBufLength)
   If tpTempA.Equals(IntPtr.Zero) = False Then '申请内存成功
    Marshal.Copy(ni_strIn.ToCharArray, 0, tpTempA, ni_strIn.Length)
    Return tpTempA
   End If
  End If
 End If
End Function
End Class

  有了这个辅助函数,以下的API调用就简单了,只需正确声明即可,以下是ShellExecuteEx及CreateProcess涵数及其结构的正确声明(同样是将代码粘贴到一个新建模块中即可调用):

imports System.Runtime.InteropServices
REM API常数声明-------------------------
Public Const SW_SHOWNORMAL = 1
Public Const gcNORMAL_PRIORITY_CLASS = &H20
Public Const gcINFINITE = &HFFFF
Public Const WAIT_TIMEOUT = &H102&

#Region "Structure SHELLEXECUTEINFO"
<StructLayout(LayoutKind.Sequential)> _
Structure SHELLEXECUTEINFO
Public cbSize As Int32
Public fMask As Int32
Public hwnd As IntPtr
Public lpVerb As IntPtr 'LPCTSTR,这种类型不能声明为string,只可以老老实实声明为Intptr
Public lpFile As IntPtr 'LPCTSTR,这种类型不能声明为string,只可以老老实实声明为Intptr
Public lpParameters As IntPtr 'LPCTSTR,这种类型不能声明为string,只可以老老实实声明为Intptr
Public lpDirectory As IntPtr 'LPCTSTR,这种类型不能声明为string,只可以老老实实声明为Intptr
Public nShow As Int32
Public hInstApp As IntPtr

'Optional members
Public lpIDList As IntPtr 'LPVOID
Public lpClass As IntPtr 'LPCTSTR
Public hkeyClass As Int32
Public dwHotKey As Int32
Public hIcon As Int32
Public hProcess As IntPtr

Public Sub Dispose()
'在调用后释放结构中的内存块
clsDAMSMobileMarshal.fnFreeHLocal(Me.lpVerb)
clsDAMSMobileMarshal.fnFreeHLocal(Me.lpFile)
clsDAMSMobileMarshal.fnFreeHLocal(Me.lpParameters)
clsDAMSMobileMarshal.fnFreeHLocal(Me.lpDirectory)
End Sub
End Structure
#End Region
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章