Click here to Skip to main content
13,249,174 members (34,355 online)
Click here to Skip to main content
Add your own
alternative version


18 bookmarked
Posted 20 Apr 2005

Beam a File From Your Pocket PC Using VB.NET

, 20 Apr 2005
Rate this:
Please Sign up or sign in to vote.
How to beam a file from your Pocket PC.


This is the code that enables you to beam a file via infrared from your Pocket PC.

Someone on a forum asked me how you beam a file with VB.NET. I couldn't find anything so I took a chance and used the actual Beam.exe to beam the file and it worked. Here's the code:

Imports System.Runtime.InteropServices
Public Class Wireless
<DllImport("CoreDll.DLL", SetLastError:=True)> _
Private Shared Function CreateProcess(ByVal imageName As String, _
                            ByVal cmdLine As String, _
                            ByVal lpProcessAttributes As IntPtr, _
                            ByVal lpThreadAttributes As IntPtr, _
                            ByVal boolInheritHandles As Int32, _
                            ByVal dwCreationFlags As Int32, _
                            ByVal lpEnvironment As IntPtr, _
                            ByVal lpszCurrentDir As IntPtr, _
                            ByVal si() As Byte, _
                            ByVal pi As ProcessInfo) As Integer
End Function
<DllImport("CoreDll.dll")> _
Private Shared Function GetLastError() As Int32
End Function
Public Shared Function CreateProc(ByVal ExeName As String, _
                              ByVal CmdLine As String, _
                              ByVal pi As ProcessInfo) As Boolean
    If pi Is Nothing Then
        pi = New ProcessInfo
    End If
    Dim si(127) As Byte
    Return CreateProcess(ExeName, CmdLine, IntPtr.Zero, _
                                     IntPtr.Zero, 0, 0, _
                                     IntPtr.Zero, _
                                     IntPtr.Zero, si, pi) <> 0
End Function 'CreateProc
End Class 'Externals
Public Class ProcessInfo
Public hProcess As IntPtr
Public hThread As IntPtr
Public ProcessId As Int32
Public ThreadId As Int32
End Class 'ProcessInfo
Wireless.CreateProc("\Windows\Beam.exe", filename, nothing)

The filename being the file that you are beaming.

Have fun!!


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Web Developer
United States United States
No Biography provided

You may also be interested in...


Comments and Discussions

QuestionWhat about BlueTooth beaming? Pin
beardedfiend30-Sep-08 15:55
memberbeardedfiend30-Sep-08 15:55 
Generalnice but... Pin
bobsugar22212-Jun-07 8:25
memberbobsugar22212-Jun-07 8:25 
GeneralRe: nice but... Pin
VbGuru61312-Jun-07 8:34
memberVbGuru61312-Jun-07 8:34 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.171114.1 | Last Updated 20 Apr 2005
Article Copyright 2005 by VbGuru613
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid