这篇文章给大家分享的是有关如何利用VB.NET启动Smartphone的内容。小编觉得挺实用的，因此分享给大家做个参考，一起跟随小编过来看看吧。
下面是一个简单示例，启动手机中的计算器程序，步骤如下：
1、启动VS.net2003，选Visual Basic 项目，在右边的列表中选智能设备应用程序，在下一个对话框中针对什么平台选Smartphone，类型选Windows应用程序。
2、将上面介绍的辅助类及API声明的代码做成两个模块。
3、为在form1的代码模块顶部加入如下语句：
计算
安全
数据库
网络和加速
企业服务
Imports System.Runtime.InteropServices4、在 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 '不使用参数,如使用参数可按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 感谢各位的阅读！关于“如何利用VB.NET启动Smartphone”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识，如果觉得文章不错，可以把它分享出去让更多的人看到吧！
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
