Visual Basic

RecordId = 'SomeCarId0000123'

Member 12079859 wrote:

when I run the program on there computer it says directory not found

Imports System.IO
Imports System.Threading
Imports System.Windows.Forms.DialogResult


Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If Not Directory.Exists("ADB") Then
            Directory.CreateDirectory("ADB")
        Else
            If Not File.Exists("ADB\adb.exe") Then
                File.WriteAllBytes("ADB\adb.exe", My.Resources.adb)
            End If
            If Not File.Exists("ADB\AdbWinApi.dll") Then
                File.WriteAllBytes("ADB\AdbWinApi.dll", My.Resources.AdbWinApi)
            End If
            If Not File.Exists("ADB\AdbWinUsbApi.dll") Then
                File.WriteAllBytes("ADB\AdbWinUsbApi.dll", My.Resources.AdbWinUsbApi)
            End If
            If Not File.Exists("ADB\fastboot.exe") Then
                File.WriteAllBytes("ADB\fastboot.exe", My.Resources.fastboot)
            End If
        End If

        If Not Directory.Exists("Addon") Then
            Directory.CreateDirectory("Addon")
        Else
            If Not File.Exists("Addon\Firestarter.apk") Then
                File.WriteAllBytes("Addon\Firestarter.exe", My.Resources.Firestarter)
            End If
        End If
    End Sub






    Function adb(ByVal Arguments As String) As String

        Try

            Dim My_Process As New Process()
            Dim My_Process_Info As New ProcessStartInfo()

            My_Process_Info.FileName = "cmd.exe" ' Process filename
            My_Process_Info.Arguments = Arguments ' Process arguments
            My_Process_Info.WorkingDirectory = "/c"
            My_Process_Info.CreateNoWindow = True
            My_Process_Info.UseShellExecute = False
            My_Process_Info.RedirectStandardOutput = True  '  Redirect (1) Output
            My_Process_Info.RedirectStandardError = True  ' Redirect non (1) Output

            My_Process.EnableRaisingEvents = True
            My_Process.StartInfo = My_Process_Info
            My_Process.Start() ' Run the process NOW

            Dim Process_ErrorOutput As String = My_Process.StandardOutput.ReadToEnd() ' Stores the Error Output (If any)
            Dim Process_StandardOutput As String = My_Process.StandardOutput.ReadToEnd() ' Stores the Standard Output (If any)

            ' Return output by priority
            If Process_ErrorOutput IsNot Nothing Then Return Process_ErrorOutput ' Returns the ErrorOutput (if any)
            If Process_StandardOutput IsNot Nothing Then Return Process_StandardOutput ' Returns the StandardOutput (if any)

        Catch ex As Exception
            Return ex.Message
        End Try

        Return "OK"

    End Function


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        MsgBox(adb("/c adb devices"))

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim sr As New IO.FileStream("", IO.FileMode.Open)
        Dim sw As New IO.FileStream("[copyto]", IO.FileMode.Create)
        Dim len As Long = sr.Length - 1
        Dim buffer(1024) As Byte
        Dim bytesread As Integer

        While sr.Position < len
            bytesread = (sr.Read(buffer, 0, 1024))
            sw.Write(buffer, 0, bytesread)
            ProgressBar1.Value = CInt(sr.Position / len * 100)
            Application.DoEvents()
        End While

        sw.Flush()
        sw.Close()
        sr.Close()



        MsgBox(adb("/c adb install Firestarter.apk"))
    End Sub

If Not Directory.Exists("someDirectoryName") Then

If Not Directory.Exists(Application.StartUpPath & "\someDirectoryName") Then

Const ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database3.mdb"

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Const CommandText As String = "INSERT INTO Inquiry_Form([Date], [RefNo], [NameP], [Address], [Age], [PhoneNo], [MobileNo], [EmailAd], [ReferralQuestion], [Type_of_Unit], [Date_of_Purchase], [Purpose_of_Purchase], [Monthly_Income], [RName], [RAddress], [RMobileNo], [R2Name], [R2Address], [RMobileNo], [R2Name], [R2Address], [R2MobileNo], [AgentsName]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
    
    Using connection As New OleDbConnection(ConnectionString)
    Using cmd As New OleDbCommand(CommandText, connection)
        cmd.Parameters.AddWithValue("Date", TextBox1.Text)
        cmd.Parameters.AddWithValue("RefNo", TextBox2.Text)
        cmd.Parameters.AddWithValue("NameP", TextBox3.Text)
        cmd.Parameters.AddWithValue("Address", TextBox4.Text)
        cmd.Parameters.AddWithValue("Age", TextBox5.Text)
        cmd.Parameters.AddWithValue("PhoneNo", TextBox6.Text)
        cmd.Parameters.AddWithValue("MobileNo", TextBox8.Text)
        cmd.Parameters.AddWithValue("EmailAd", TextBox7.Text)
        cmd.Parameters.AddWithValue("ReferralQuestion", ComboBox1.Text)
        cmd.Parameters.AddWithValue("Type_of_Unit", ComboBox2.Text)
        cmd.Parameters.AddWithValue("Date_of_Purchase", ComboBox3.Text)
        cmd.Parameters.AddWithValue("Purpose_of_Purchase", ComboBox4.Text)
        cmd.Parameters.AddWithValue("Monthly_Income", ComboBox5.Text)
        cmd.Parameters.AddWithValue("RName", TextBox10.Text)
        cmd.Parameters.AddWithValue("RAddress", TextBox11.Text)
        cmd.Parameters.AddWithValue("RMobileNo", TextBox15.Text)
        cmd.Parameters.AddWithValue("R2Name", TextBox12.Text)
        cmd.Parameters.AddWithValue("R2Address", TextBox13.Text)
        cmd.Parameters.AddWithValue("R2MobileNo", TextBox14.Text)
        cmd.Parameters.AddWithValue("AgentsName", TextBox16.Text)
        
        Try
            connection.Open()
            cmd.ExecuteNonQuery()
            
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox3.Clear()
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox8.Clear()
            TextBox7.Clear()
            TextBox10.Clear()
            TextBox11.Clear()
            TextBox15.Clear()
            TextBox12.Clear()
            TextBox13.Clear()
            TextBox14.Clear()
            TextBox16.Clear()
            
        Catch ex As System.Data.Common.DbException
            MsgBox(ex.Message)
        End Try
    End Using
End Sub

dcof wrote:

Will I need separate installs of the application on the same computer?

dcof wrote:

Each person's config file will point to files they directly have access to. I do not want each person to access the other person's config file.