如何利用VB.NET啟動Smartphone

這篇文章給大家分享的是有關(guān)如何利用VB.NET啟動Smartphone的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

下面是一個簡單示例，啟動手機中的計算器程序，步驟如下：

1、啟動VS.net2003，選Visual Basic 項目，在右邊的列表中選智能設(shè)備應用程序，在下一個對話框中針對什么平臺選Smartphone，類型選Windows應用程序。

2、將上面介紹的輔助類及API聲明的代碼做成兩個模塊。

3、為在form1的代碼模塊頂部加入如下語句：

Imports System.Runtime.InteropServices

4、在 Form1的 load事件中加入啟動計算器的代碼如下：

Private Sub Form1_Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles MyBase.Load  
Dim tudtShellExecuteInfo As New SHELLEXECUTEINFO  
Dim tstrExecutePath As String  
Dim tudtStartupInfo As STARTUPINFO  
Dim tudtProcessInfo As PROCESS_INFORMATION  
Dim tlngTempa As Int32  
 
With tudtStartupInfo  
.cb = Marshal.SizeOf(GetType(STARTUPINFO))  
End With  
 
With tudtShellExecuteInfo  
.cbSize = Marshal.SizeOf(GetType(SHELLEXECUTEINFO))  
.lpFile = clsDAMSMobileMarshal.fnStringToHLocalUni("/windows/calc.exe")  
.lpParameters = IntPtr.Zero 
'不使用參數(shù),如使用參數(shù)可按lpFile的方法申請字符串指針  
End With  
tlngTempa = ShellExecuteEx(tudtShellExecuteInfo) '啟動程序  
 
tudtShellExecuteInfo.Dispose()  
If tlngTempa = 0 Then '使用shellexecuteex失敗，試圖使用createprocess再打開試試  
tlngTempa = CreateProcess("/windows/calc.exe", "/windows/calc.exe", IntPtr.Zero, 
IntPtr.Zero, _  0, 0, IntPtr.Zero, IntPtr.Zero, tudtStartupInfo, tudtProcessInfo)  
If tlngTempa <> 0 Then  
Call CloseHandle(tudtProcessInfo.hThread)  
Call CloseHandle(tudtProcessInfo.hProcess)  
End If  
End If  
End Sub 

感謝各位的閱讀！關(guān)于“如何利用VB.NET啟動Smartphone”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！