Results 1 to 4 of 4
  1. #1
    harpreet10's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Location
    USA
    Posts
    44
    Reputation
    10
    Thanks
    7
    My Mood
    Relaxed

    If this is useful in any way

    Use it.
    Credits JA Founders
    Crash and mmbob


  2. #2
    NOOB's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Posts
    3,863
    Reputation
    425
    Thanks
    8,598

  3. #3
    Departure's Avatar
    Join Date
    Nov 2010
    Gender
    male
    Posts
    818
    Reputation
    125
    Thanks
    1,785
    My Mood
    Doh
    what like this...

    Code:
    Private Sub GButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
        Try 
            Dim str As String
            If (Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE") = "AMD64") Then
                str = Conversions.ToString(MyProject.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", ""))
            Else
                str = Conversions.ToString(MyProject.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Nexon\Combat Arms\Ver_US", "RootPath", ""))
            End If
            Process.Start((str & "\Engine.exe"), "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
        Catch exception1 As NullReferenceException
            ProjectData.SetProjectError(exception1)
            Dim exception As NullReferenceException = exception1
            Interaction.MsgBox("Please start Combat Arms manually", MsgBoxStyle.OkOnly, "Error")
            ProjectData.ClearProjectError
        End Try
    End Sub
    Code:
    Private Sub Loader_Load(ByVal sender As Object, ByVal e As EventArgs)
        If File.Exists("NOOB.dll") Then
            MyProject.Computer.FileSystem.GetFileInfo("NOOB.dll").Attributes = FileAttributes.Normal
            File.Delete("NOOB.dll")
        End If
        If File.Exists("Module.exe") Then
            MyProject.Computer.FileSystem.GetFileInfo("Module.exe").Attributes = FileAttributes.Normal
            File.Delete("Module.exe")
        End If
        If Not File.Exists("NOOB.dll") Then
            File.WriteAllBytes("NOOB.dll", Resources.NOOB_Menu)
            MyProject.Computer.FileSystem.GetFileInfo("NOOB.dll").Attributes = (FileAttributes.System Or FileAttributes.Hidden)
        End If
        If Not File.Exists("Module.exe") Then
            File.WriteAllBytes("Module.exe", Resources.N_Jector)
            MyProject.Computer.FileSystem.GetFileInfo("Module.exe").Attributes = (FileAttributes.System Or FileAttributes.Hidden)
        End If
    End Sub
    Code:
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
        If (Process.GetProcessesByName("Engine").Length <> 0) Then
            Me.Timer1.Stop
            Dim startInfo As New ProcessStartInfo("Module.exe", "NOOB.dll")
            startInfo.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(startInfo)
            Me.Close
        End If
    End Sub

  4. #4
    harpreet10's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Location
    USA
    Posts
    44
    Reputation
    10
    Thanks
    7
    My Mood
    Relaxed
    anyway is this how you start CA without the window poping up
    Code:
            Private Sub GButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
                Try 
                    Dim str As String
                    If (Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE") = "AMD64") Then
                        str = Conversions.ToString(MyProject.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", ""))
                    Else
                        str = Conversions.ToString(MyProject.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Nexon\Combat Arms\Ver_US", "RootPath", ""))
                    End If
                    Process.Start((str & "\Engine.exe"), "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
                Catch exception1 As NullReferenceException
                    ProjectData.SetProjectError(exception1)
                    Dim exception As NullReferenceException = exception1
                    Interaction.MsgBox("Please start Combat Arms manually", MsgBoxStyle.OkOnly, "Error")
                    ProjectData.ClearProjectError
                End Try
            End Sub
    Last edited by harpreet10; 05-05-2011 at 10:39 PM.