.NET (Core and Framework)

Dim Number1 As String = "2812"
Dim Str, strTemp, strReturn As String
Dim x As Long

Str = "ATDT" & Number1 & "R"  ' ATDT2812R

For x = 1 To Len(Str)
    strTemp = Hex$(Asc(Mid$(Str, x, 1)))
    If Len(strTemp) = 1 Then strTemp = "0" & strTemp & ","
    strReturn = strReturn & Space$(1) + "&H" & strTemp
 Next x

   strReturn = stReturn & " &HD"  '  &H41, &H54, &H44, &H54, &H32, &H38, &H31, &H32, &H52, &HD

'  Now I want to write this to Serialport1

'  ATDT + NUMBER1 + R. = &H41, &H54, &H44, &H54, &H32, &H38, &H31, &H32, &H52, &HD

Dim Num as integer = Convert.ToInt32(strReturn)

buffer = {Num}
frmMain.SerialPort1.Write(buffer, 0, buffer.Length)
Threading.Thread.Sleep(500)

'  This Doesn't Work But If I hard code Number1

buffer = {&H41, &H54, &H44, &H54, &H32, &H38, &H31, &H32, &H52, &HD}
frmMain.SerialPort1.Write(buffer, 0, buffer.Length)
Threading.Thread.Sleep(500)
Next x

'  Then It Works No problem
'  Can Someone Help With This - Thanks

Getting this error.

System.AccessViolationException was unhandled
Message: An unhandled exception of type 'System.AccessViolationException' occurred in AxInterop.ShockwaveFlashObjects.dll
Additional information: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

When I have Adobe Flash security updates installed.

Using this code

Flash.Movie("movie.swf")
Flash.Play

Then 
Flash.LoadMovie(1, "crash.swf") 'Crashes when Adobe Flash is updated, doesn't allow top layer SWF to interact with Movie/base. 

To load multiple SWF layers at same time crashes. I'm guessing the security update did something so you can't write layered SWF code to the original SWF's memory. I don't know why this is, but is there any fix or will there be one? This has been like this for about a year now, and it doesn't seem like it'll be addressed. 

System.AccessViolationException: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
   at ShockwaveFlashObjects.IShockwaveFlash.LoadMovie(Int32 layer, String url)
   at AxShockwaveFlashObjects.AxShockwaveFlash.LoadMovie(Int32 layer, String url)
   at AEDab.Form1.ListBox1_SelectedIndexChanged(Object sender, EventArgs e) in C:\Users\UDA\Documents\Visual Studio 2013\Projects\uh\uh\Form1.vb:line 77
   at System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)
   at System.Windows.Forms.ListBox.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

string excelConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Dts.Variables["ExcelFullPath"].Value + ";Extended Properties=Text;";
                //"" + Dts.Variables["ExcelFullPath"].Value;
                string sqlConnectionString = "Data Source=" + Dts.Variables["ServerName"].Value + ";Initial Catalog=" 
                    + Dts.Variables["Saw_Raw_DatabaseName"].Value 
                    + ";Integrated Security=SSPI;";

                using (OleDbConnection conn = new OleDbConnection(excelConnectionString))
                {
                    if (conn.State != ConnectionState.Open)
                        conn.Open();
                    using (OleDbCommand oleCmd = new OleDbCommand("select * from [" + Dts.Variables["SheetName"].Value + "$]", conn))
                    {
                        using (OleDbDataReader reader = oleCmd.ExecuteReader())
                        {
                            InsertData(Dts.Variables["TableName"].Value.ToString(), reader, sqlConnectionString);
                        }

                        if (conn.State != ConnectionState.Closed)
                            conn.Close();
                    }
                }

'C:\SSIS Packages\TempFiles\Daily Facets Report 8.21.17.xls' is not a valid path.  Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.