Database Users

Using ShellExecuteEx using Visual Studio 2003 (C#/VB.NET)

Hi there,
OK, I took the hint about using shellexececuteex, but I can't find a code snippet which does the trick!
I found this link which gives some good code, but when I put it in my VB.NET app, it doesn't seem to like it.
At the line
Code:
DllImport("coredll") _
Private Shared Function ShellExecuteEx(ByVal ex As SHELLEXECUTEEX) As Integer
it says "Statement is not valid in namespace."
and
Code:
<DllImport("coredll")> _
Private Shared Function LocalAlloc(flags As Integer, size As Integer) As IntPtr()
says "Statement cannot appear within a method body. End of method assumed.
Can anyone point me in the right direction? Once I know what I'm doing (which may be a while!), I've got some funky stuff I want to do, but I need to figure out what I'm doing wrong first...
Thanks
Jon "The Nice Guy
Code:
Imports System.Runtime.InteropServices
Imports System.Text
Class SHELLEXECUTEEX
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
Public lpVerb As IntPtr
Public lpFile As IntPtr
Public lpParameters As IntPtr
Public lpDirectory As IntPtr
Public nShow As Integer
Public hInstApp As IntPtr
' Optional members
Public lpIDList As IntPtr
Public lpClass As IntPtr
Public hkeyClass As IntPtr
Public dwHotKey As UInt32
Public hIcon As IntPtr
Public hProcess As IntPtr
End Class 'SHELLEXECUTEEX
<DllImport("coredll")> _
Private Shared Function ShellExecuteEx(ByVal ex As SHELLEXECUTEEX) As Integer
<DllImport("coredll")> _
Private Shared Function LocalAlloc(flags As Integer, size As Integer) As IntPtr()
<DllImport("coredll")> Private Shared Sub LocalFree(ptr As IntPtr)
' Code starts here
Dim docname As String = "\windows\default.htm"
Dim nSize As Integer = docname.Length * 2 + 2
Dim pData As IntPtr = LocalAlloc(&H40, nSize)
Marshal.Copy(Encoding.Unicode.GetBytes(docname), 0, pData, nSize - 2)
Dim see As New SHELLEXECUTEEX
see.cbSize = 60
see.dwHotKey = 0
see.fMask = 0
see.hIcon = IntPtr.Zero
see.hInstApp = IntPtr.Zero
see.hProcess = IntPtr.Zero
see.lpClass = IntPtr.Zero
see.lpDirectory = IntPtr.Zero
see.lpIDList = IntPtr.Zero
see.lpParameters = IntPtr.Zero
see.lpVerb = IntPtr.Zero
see.nShow = 0
see.lpFile = pData
ShellExecuteEx(see)
LocalFree(pData)

If you want to start an executable, take a look at the following example which uses createprocess in VB using API
http://samples.gotdotnet.com/quickstart/CompactFramework/doc/waitforsingleobject.aspx
And some other interesting information using ShellExecute and Process.Start
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=404967&SiteID=1
Eelco

I need to execute a m3u file, or (in another case) a cab file.

I can't help you with the .NET stuff, but if you are trying to install cabs programatically you should read up on wceload.exe and it's parameters.
Unfortunately this will still require the use of CreateProcess (something that is very easy in native code, but apparently not so in .NET) but you will have control over several things like messages asking were to install and progress bar being shown.
http://msdn.microsoft.com/library/d...n-us/wcepbguide5/html/wce50lrfWceloadTool.asp

Bump
Just to let you all know, I got around needing the .cab file thang by installing the MrClean AUK2 ROM. I still want to be able to launch files with any extension though.
Jon

Use the registry to find out what program should launch for that extension and then launch that program with the file name as a parameter.

Which is what I was after in this thread where people told me to use ShellExecuteEX! LOL
If you can tell me how to get the application handler from the registry based on a file extension, then I'll write it into my app, otherwise, I'll need to use the ShellExecuteEX to launch the file, and let Windows handle the extension.

Finding Windows and their executable filepaths

I've just spent a lot of time looking for ways to tie Windows and process exe files together and I saw a lot of people asking after similar topics.
It was somewhat frustrating because of numerous little difficulties - using CreateToolhelp32Snapshot unpredictably fails, GetProcessById is no good if the process wasn't started with StartInfo, because you can have multiple windows to a process it's hard to identify which is a processes mainwindow.
But I solved my problem, a solution that I haven't seen elsewhere, so I thought I'd share it here. This is my solution to the specific problem of finding a window to match an executable file path....
This is on WM6, using CF2 in C#.
Used as follows (with S2U2 as the example):
Ionwerks.Window w = new Ionwerks.Window(@"\Program Files\S2U2\S2U2.exe");
IntPtr WindowsHandle = w.handle;
Code:
using System;
using System.Runtime.InteropServices;
using System.Diagnostics;
namespace Ionwerks
{
delegate int EnumWindowsProc(IntPtr hwnd, IntPtr lParam);
class Window
{
private EnumWindowsProc callbackDelegate;
private IntPtr callbackDelegatePointer;
private IntPtr m_handle = IntPtr.Zero;
private string moduleFileName = "";
//Construct from path
public Window(string path)
{
moduleFileName = path;
Enumerate();
}
public IntPtr handle
{
get
{
return m_handle;
}
}
private void Enumerate() {
callbackDelegate = new EnumWindowsProc(EnumWindowsCallbackProc);
callbackDelegatePointer = Marshal.GetFunctionPointerForDelegate(callbackDelegate);
EnumWindows(callbackDelegatePointer, 0);
}
[DllImport("coredll.dll", SetLastError = true)]
private static extern bool EnumWindows(IntPtr lpEnumFunc, uint lParam);
[DllImport("coredll.dll", EntryPoint = "GetModuleFileNameW", SetLastError = true)]
private static extern uint GetModuleFileName(IntPtr hModule, [MarshalAs(UnmanagedType.LPWStr)] string lpFileName, uint nSize);
[DllImport("coredll")]
private static extern uint GetWindowThreadProcessId(IntPtr hwnd, out int lpdwProcessId);
[DllImport("coredll.dll")]
private static extern IntPtr OpenProcess(int flags, bool fInherit, int PID);
[DllImport("coredll.dll")]
private static extern bool CloseHandle(IntPtr handle);
[DllImport("coredll.dll")]
private static extern bool IsWindowVisible(IntPtr handle);
private string ModuleFileName = new string((char)0x20, 255);
private int EnumWindowsCallbackProc(IntPtr hwnd, IntPtr lParam)
{
//get windows process
int pid = 0;
GetWindowThreadProcessId(hwnd, out pid);
IntPtr pHnd = OpenProcess(0, false, pid);
//get processes image
GetModuleFileName(pHnd, ModuleFileName, (uint)ModuleFileName.Length);
//if paths match up
if (String.Compare(ModuleFileName.Substring(0, ModuleFileName.IndexOf('\0')), moduleFileName, true) == 0) {
//only interested in processes mainwindow
if (hwnd == Process.GetProcessById(pid).MainWindowHandle)
{
m_handle = hwnd;
}
}
CloseHandle(pHnd);
return 1;
}
}
}

thanks man! your code helped!

simple explanation ... ?.... what that codes for and how to use

fade to black

I want my form to fade to black until the app. exits, when I click my self-made exit-button. I've got my inspiration from the apps. "S2U2" and "PocketCM" ... they fade to black really smooth and fast.
I already got my app working... but it is extrem slowly.
for those who are interested in my application
Code:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;
namespace TransparentSample
{
public partial class Form1 : Form
{
public struct BlendFunction
{
public byte BlendOp;
public byte BlendFlags;
public byte SourceConstantAlpha;
public byte AlphaFormat;
}
public enum BlendOperation : byte
{
AC_SRC_OVER = 0x00
}
public enum BlendFlags : byte
{
Zero = 0x00
}
public enum SourceConstantAlpha : byte
{
Transparent = 0x00,
Opaque = 0xFF
}
public enum AlphaFormat : byte
{
AC_SRC_ALPHA = 0x01
}
[DllImport("coredll.dll")]
extern public static Int32 AlphaBlend(IntPtr hdcDest,
Int32 xDest,
Int32 yDest,
Int32 cxDest,
Int32 cyDest,
IntPtr hdcSrc,
Int32 xSrc,
Int32 ySrc,
Int32 cxSrc,
Int32 cySrc,
BlendFunction blendFunction);
Bitmap backBuffer = null;
Byte alpha;
public Form1()
{
InitializeComponent();
backBuffer = new Bitmap( pictureBox1.Image);
alpha = 0x00;
}
protected override void OnPaintBackground(PaintEventArgs e)
{
// Prevent flicker, we will take care of the background in Form1_Paint
}
private void Form1_Paint(object sender, PaintEventArgs e)
{
if (backBuffer != null)
{
Graphics gxBuffer = Graphics.FromImage(backBuffer);
gxBuffer.Clear(Color.White);
gxBuffer.DrawImage(pictureBox1.Image, 0, 0);
Graphics gxSrc = Graphics.FromImage( new Bitmap( backBuffer.Width, backBuffer.Height));
gxSrc.Clear(Color.Black);
IntPtr hdcDst = gxBuffer.GetHdc();
IntPtr hdcSrc = gxSrc.GetHdc();
BlendFunction blendFunction = new BlendFunction();
blendFunction.BlendOp = (byte)BlendOperation.AC_SRC_OVER; // Only supported blend operation
blendFunction.BlendFlags = (byte)BlendFlags.Zero; // Documentation says put 0 here
blendFunction.SourceConstantAlpha = (byte)alpha;// Constant alpha factor
blendFunction.AlphaFormat = (byte)0; // Don't look for per pixel alpha
Form1.AlphaBlend(
hdcDst,
0,
0,
backBuffer.Width,
backBuffer.Height,
hdcSrc,
0,
0,
pictureBox1.Width,
pictureBox1.Height,
blendFunction);
gxBuffer.ReleaseHdc(hdcDst); // Required cleanup to GetHdc()
gxSrc.ReleaseHdc(hdcSrc); // Required cleanup to GetHdc()
// Put the final composed image on screen.
e.Graphics.DrawImage(backBuffer, 0, 0);
}
}
private void btnExit_Click(object sender, EventArgs e)
{
tmrFade.Enabled = true;
}
private void tmrFade_Tick(object sender, EventArgs e)
{
// timers interval: 100ms ... so this should take 1Sek.
alpha = (byte)(alpha + (byte)25);
if (alpha == 250)
{
alpha = 0xff;
Application.Exit();
}
this.Refresh();
}
}
}
Have you got a better idea to solve this?
thanks

Look for DIBSection, but in .NET that's not gonna be easy.

You might be right about .NET
I already thought about coding in c++ ...I think that's what I am going to do.
Thank you

Server Application problem

Using vb.net i have created an application which listens on TCP port 85 for incoming connections via telnet, reads a line of text (until ascii 13) and then parses that line (phone number, ascii 9, sms message, ascii 13) and sends it as an sms....
I have two small problems:
1: i am unable to work out if the sms was sent ok or not, i do not know how to get the return code from the send sms function into a useable format...
2: all this works fine (apart from the above) it parses the line, and sends the sms (i know it sends as it delivers to my other phone, but i need to have it print the result to the socket) but ONLY over the USB connection on 169.254.x.x, and not if i change the listening IP to 192.168.0.12 (this is a static ip the device is always assigned by my dhcp server) i cannot connect to the server. I would like to use this wirelessly as that way i can forward the port using my router and therefore access the sms on the phone from an external server without needing my laptop to be switched on!
I have included my code below... excuse the sloppiness, i only started using vb.net today, but any help in trying to acheive what i am attempting would be much appreciated!
Code:
Imports System.Runtime.InteropServices
Imports interopserv = System.Runtime.InteropServices
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic
Public Enum SMS_ADDRESS_TYPE
SMSAT_UNKNOWN = 0
SMSAT_INTERNATIONAL
SMSAT_NATIONAL
SMSAT_NETWORKSPECIFIC
SMSAT_SUBSCRIBER
SMSAT_ALPHANUMERIC
SMSAT_ABBREVIATED
End Enum 'SMS_ADDRESS_TYPE
Public Structure PhoneAddress
'/ <summary>The address type.</summary>
Public AddressType As SMS_ADDRESS_TYPE
'/ <summary>The phone number in string format.</summary>
Public Address() As Char
End Structure 'PhoneAddress
Public Class SMS
Private Shared SMS_MSGTYPE_TEXT As String = "Microsoft Text SMS Protocol"
Private Shared SMS_MODE_SEND As Long = &H2
Private Shared SMS_OPTION_DELIVERY_NONE As Long = &H0
Private Shared SMS_OPTION_DELIVERY_NO_RETRY As Long = &H1
Private Shared PS_MESSAGE_OPTION_NONE As Long = &H0
Public Shared Function StrToByteArray(ByVal str As String) As Byte()
Dim encoding As New System.Text.ASCIIEncoding()
Return encoding.GetBytes(str)
End Function 'StrToByteArray
Private Enum SMS_DATA_ENCODING
SMSDE_OPTIMAL = 0
SMSDE_GSM
SMSDE_UCS2
End Enum 'SMS_DATA_ENCODING
Public Enum PROVIDER_SPECIFIC_MESSAGE_CLASS
PS_MESSAGE_CLASS0 = 0
PS_MESSAGE_CLASS1
PS_MESSAGE_CLASS2
PS_MESSAGE_CLASS3
End Enum 'PROVIDER_SPECIFIC_MESSAGE_CLASS
Private Enum PROVIDER_SPECIFIC_REPLACE_OPTION
PSRO_NONE = 0
PSRO_REPLACE_TYPE1
PSRO_REPLACE_TYPE2
PSRO_REPLACE_TYPE3
PSRO_REPLACE_TYPE4
PSRO_REPLACE_TYPE5
PSRO_REPLACE_TYPE6
PSRO_REPLACE_TYPE7
PSRO_RETURN_CALL
PSRO_DEPERSONALIZATION
End Enum 'PROVIDER_SPECIFIC_REPLACE_OPTION
Private Structure TEXT_PROVIDER_SPECIFIC_DATA
Public dwMessageOptions As Long
Public psMessageClass As PROVIDER_SPECIFIC_MESSAGE_CLASS
Public psReplaceOption As PROVIDER_SPECIFIC_REPLACE_OPTION
End Structure 'TEXT_PROVIDER_SPECIFIC_DATA
<System.Runtime.InteropServices.DllImport("sms.dll")> _
Private Shared Function SmsOpen(ByVal ptsMessageProtocol As [String], _
ByVal dwMessageModes As Int32, _
ByRef psmshHandle As IntPtr, _
ByVal phMessageAvailableEvent As IntPtr) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("sms.dll")> _
Private Shared Function SmsSendMessage(ByVal smshHandle As IntPtr, _
ByVal psmsaSMSCAddress As Int32, _
ByVal psmsaDestinationAddress As IntPtr, _
ByVal pstValidityPeriod As Int32, _
ByVal pbData As IntPtr, _
ByVal dwDataSize As Int32, _
ByVal pbProviderSpecificData() As Byte, _
ByVal dwProviderSpecificDataSize As Int32, _
ByVal smsdeDataEncoding As Int32, _
ByVal dwOptions As Int32, _
ByVal psmsmidMessageID As Int32) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("sms.dll")> _
Private Shared Function SmsClose(ByVal smshHandle As IntPtr) As IntPtr
End Function
<StructLayout(LayoutKind.Sequential)> _
Public Structure MsgSize
Public MsgSz As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Public Structure ProviderDataSize
Public ProvDataSize As Int32
End Structure
Public Shared Function SendMessage(ByVal sPhoneNumber As String, ByVal sMessage As String) As Integer
Dim retVal As IntPtr = IntPtr.Zero
Dim smsHandle As IntPtr = IntPtr.Zero
Dim smsProviderData As IntPtr = IntPtr.Zero
Dim smsMessage As IntPtr = IntPtr.Zero
Dim msgresult As Int32
Dim ProvData(12) As Byte
Try
retVal = SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, smsHandle, IntPtr.Zero)
If retVal.ToInt32 <> 0 Then
Throw New Exception("Could not open SMS.")
End If
'Set address structure
Dim smsatAddressType As Byte() = BitConverter.GetBytes(SMS_ADDRESS_TYPE.SMSAT_UNKNOWN)
Dim ptsAddress As Byte() = System.Text.Encoding.Unicode.GetBytes(sPhoneNumber)
Dim smsAddressTag(smsatAddressType.Length + ptsAddress.Length) As Byte
Array.Copy(smsatAddressType, 0, smsAddressTag, 0, smsatAddressType.Length)
Array.Copy(ptsAddress, 0, smsAddressTag, smsatAddressType.Length, ptsAddress.Length)
Dim smsAddress As IntPtr = Marshal.AllocHLocal(smsAddressTag.Length)
System.Runtime.InteropServices.Marshal.Copy(smsAddressTag, 0, smsAddress, smsAddressTag.Length)
'Set message
Dim smsMessageTag As Byte() = System.Text.Encoding.Unicode.GetBytes(sMessage)
smsMessage = Marshal.AllocHLocal(smsMessageTag.Length)
System.Runtime.InteropServices.Marshal.Copy(smsMessageTag, 0, smsMessage, smsMessageTag.Length)
retVal = SmsSendMessage(smsHandle, 0, smsAddress, 0, smsMessage, smsMessageTag.Length, _
ProvData, 12, SMS_DATA_ENCODING.SMSDE_OPTIMAL, SMS_OPTION_DELIVERY_NONE, 0)
msgresult = retVal.ToInt32
'Stream.Write(StrToByteArray(retVal), 0, retVal.Length)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
retVal = SmsClose(smsHandle)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return msgresult
End Function
End Class 'SMS
Public Class MyTcpListener
Public Shared Function StrToByteArray(ByVal str As String) As Byte()
Dim encoding As New System.Text.ASCIIEncoding()
Return encoding.GetBytes(str)
End Function 'StrToByteArray
Public Shared Sub Main()
Dim server As TcpListener
server = Nothing
Try
' Set the TcpListener on port 13000.
Dim port As Int32 = 85
Dim localAddr As IPAddress = IPAddress.Parse("0.0.0.0")
server = New TcpListener(localAddr, port)
' Start listening for client requests.
server.Start()
' Buffer for reading data
Dim bytes(1024) As Byte
Dim data As String = Nothing
' Enter the listening loop.
While True
Console.Write("Waiting for a connection... ")
' Perform a blocking call to accept requests.
' You could also user server.AcceptSocket() here.
Dim client As TcpClient = server.AcceptTcpClient()
Console.WriteLine("Connected!")
data = Nothing
' Get a stream object for reading and writing
Dim stream As NetworkStream = client.GetStream()
Dim i As Integer
Dim c As Char
Dim smeg As Char
Dim values(4) As String
'Dim msg As String
Dim j As String
i = stream.ReadByte()
While (i <> 1)
c = Microsoft.VisualBasic.ChrW(i)
data = data & c
i = stream.ReadByte()
End While
Dim mSep As String
mSep = "---------"
smeg = Microsoft.VisualBasic.ChrW(9)
values = data.Split(smeg)
stream.Write(StrToByteArray(values(0)), 0, values(0).Length)
stream.Write(StrToByteArray(mSep), 0, mSep.Length)
stream.Write(StrToByteArray(values(1)), 0, values(1).Length)
Dim result As Int32
result = SMS.SendMessage(values(0), values(1))
stream.Write(StrToByteArray(Microsoft.VisualBasic.ChrW(result)), 0, 1)
' Shutdown and end connection
client.Close()
stream.Close()
End While
Catch e As SocketException
Console.WriteLine("SocketException: {0}", e)
Finally
server.Stop()
End Try
Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
'Console.Read()
End Sub 'Main
End Class 'MyTcpListener

Lovely Keis Messages

Do they have in samsung dev department beside children diggin in nose also some real developer ?
I believ not
2010-11-15 23:55:35
This BackgroundWorker is currently busy and cannot run multiple tasks concurrently.
System.InvalidOperationException
Stack Trace:
at System.ComponentModel.BackgroundWorker.RunWorkerAsync(Object argument)
at MSC.Thunder.Services.DeviceDataServiceImpl.PimsDeviceServiceBase`1.RequestSaveData(Object obj)
at MSC.Thunder.Widget.PhoneBook.ViewModel.PhonebookWorkSpaceViewModel.SaveToPhone()
at MSC.Thunder.Widget.PhoneBook.ViewModel.PhonebookWorkSpaceViewModel.<get_SaveToPhoneCommand>b__3a(Object param)
at MSC.Thunder.UI.Common.RelayCommand.Execute(Object parameter)
at MS.Internal.Commands.CommandHelpers.CriticalExecuteCommandSource(ICommandSource commandSource, Boolean userInitiated)
at System.Windows.Controls.Primitives.ButtonBase.OnClick()
at System.Windows.Controls.Button.OnClick()
at System.Windows.Controls.Primitives.ButtonBase.OnMouseLeftButtonUp(MouseButtonEventArgs e)
at System.Windows.UIElement.OnMouseLeftButtonUpThunk(Object sender, MouseButtonEventArgs e)
at System.Windows.Input.MouseButtonEventArgs.InvokeEventHandler(Delegate genericHandler, Object genericTarget)
at System.Windows.RoutedEventArgs.InvokeHandler(Delegate handler, Object target)
at System.Windows.RoutedEventHandlerInfo.InvokeHandler(Object target, RoutedEventArgs routedEventArgs)
at System.Windows.EventRoute.InvokeHandlersImpl(Object source, RoutedEventArgs args, Boolean reRaised)
at System.Windows.UIElement.ReRaiseEventAs(DependencyObject sender, RoutedEventArgs args, RoutedEvent newEvent)
at System.Windows.UIElement.OnMouseUpThunk(Object sender, MouseButtonEventArgs e)
at System.Windows.Input.MouseButtonEventArgs.InvokeEventHandler(Delegate genericHandler, Object genericTarget)
at System.Windows.RoutedEventArgs.InvokeHandler(Delegate handler, Object target)
at System.Windows.RoutedEventHandlerInfo.InvokeHandler(Object target, RoutedEventArgs routedEventArgs)
at System.Windows.EventRoute.InvokeHandlersImpl(Object source, RoutedEventArgs args, Boolean reRaised)
at System.Windows.UIElement.RaiseEventImpl(DependencyObject sender, RoutedEventArgs args)
at System.Windows.UIElement.RaiseTrustedEvent(RoutedEventArgs args)
at System.Windows.UIElement.RaiseEvent(RoutedEventArgs args, Boolean trusted)
at System.Windows.Input.InputManager.ProcessStagingArea()
at System.Windows.Input.InputManager.ProcessInput(InputEventArgs input)
at System.Windows.Input.InputProviderSite.ReportInput(InputReport inputReport)
at System.Windows.Interop.HwndMouseInputProvider.ReportInput(IntPtr hwnd, InputMode mode, Int32 timestamp, RawMouseActions actions, Int32 x, Int32 y, Int32 wheel)
at System.Windows.Interop.HwndMouseInputProvider.FilterMessage(IntPtr hwnd, WindowMessage msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
at System.Windows.Interop.HwndSource.InputFilterMessage(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
at MS.Win32.HwndWrapper.WndProc(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
at MS.Win32.HwndSubclass.DispatcherCallbackOperation(Object o)
at System.Windows.Threading.ExceptionWrapper.InternalRealCall(Delegate callback, Object args, Int32 numArgs)
at MS.Internal.Threading.ExceptionFilterHelper.TryCatchWhen(Object source, Delegate method, Object args, Int32 numArgs, Delegate catchHandler)