If this is useful in any way

[harpreet10]

Use it.
Credits JA Founders
Crash and mmbob

[NOOB]

now try it with https://www.mpgh.net/forum/164-combat...ck-cipher.html

[Departure]

what like this...

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(MyProjec*****mputer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", ""))
        Else
            str = Conversions.ToString(MyProjec*****mputer.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 *********enceException
        ProjectData.SetProjectError(exception1)
        Dim exception As *********enceException = exception1
        Interaction.MsgBox("Please start Combat Arms manually", MsgBoxStyle.OkOnly, "Error")
        ProjectData.ClearProjectError
    End Try
End Sub

Private Sub Loader_Load(ByVal sender As Object, ByVal e As EventArgs)
    If File.Exists("NOOB.dll") Then
        MyProjec*****mputer.FileSystem.GetFileInfo("NOOB.dll").Attributes = FileAttributes.Normal
        File.Delete("NOOB.dll")
    End If
    If File.Exists("Module.exe") Then
        MyProjec*****mputer.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)
        MyProjec*****mputer.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)
        MyProjec*****mputer.FileSystem.GetFileInfo("Module.exe").Attributes = (FileAttributes.System Or FileAttributes.Hidden)
    End If
End Sub

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

[harpreet10]

anyway is this how you start CA without the window poping up

        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(MyProjec*****mputer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", ""))
                Else
                    str = Conversions.ToString(MyProjec*****mputer.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 *********enceException
                ProjectData.SetProjectError(exception1)
                Dim exception As *********enceException = exception1
                Interaction.MsgBox("Please start Combat Arms manually", MsgBoxStyle.OkOnly, "Error")
                ProjectData.ClearProjectError
            End Try
        End Sub