[Help] Quick Combat Arms start [solved]

ok me dont know anything bout this but is there a simple way where i can make where i login to a form an i make button where combat arms starts ? thanks

Is this another one of your threads where you ask for help, but instead you say it's wrong?

And to answer your question.

Process.Start(PATH + "Engine.exe")

Path being the path of your Combat Arms folder and Engine.exe being the process which starts Combat Arms.

Erinador, you know very well that won't work..

Direct-Method..?

[highlight=vb.net]Private Sub StartCombatArms()
Dim gameFolder As String = My.Computer.Registry.LocalMachine.OpenSubKey("SOFT WARE\Nexon\Combat Arms\Ver_US").GetValue("RootPath")
If String.IsNullOrEmpty(gameFolder) Then gameFolder = My.Computer.Registry.LocalMachine.OpenSubKey("SOFT WARE\Wow6432Node\Nexon\Combat Arms\Ver_US").GetValue("RootPath")
If String.IsNullOrEmpty(gameFolder) Then
MsgBox("Could not find game path!", MsgBoxStyle.Exclamation, "Erm..")
Exit Sub
End If
Dim directGameStart As String = gameFolder & "\CombatArms_Direct.exe"
Process.Start(directGameStart)
End Sub[/highlight]

WebBrowser Method (You need a WebBrowser control and 2 Text Boxes):
[highlight=vb.net]Dim CAUsername, CAPassword As String
Private Sub StartCombatArmsBrowser() 'You call this
CAUsername = TextBox1.Text
CAPassword = TextBox2.Text
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate("http://combatarms.nexon.net/")
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.Url.ToString = "http://combatarms.nexon.net/" Then
WebBrowser1.Navigate("javascript:NxLaunchGameMain( )")
ElseIf WebBrowser1.Url.ToString = "http://passport.nexon.net/Login.aspx" Then
WebBrowser1.Document.GetElementById("txtId").SetAt tribute("value", CAUsername)
WebBrowser1.Document.GetElementById("txtPassword") .SetAttribute("value", CAPassword)
WebBrowser1.Document.GetElementById("btnLogin").In vokeMember("click")
End If
End Sub[/highlight]

All credits to me. /me

Originally Posted by ³²³

Erinador, you know very well that won't work..

Why wouldn't it work ;l

Have you ever tried running engine.exe by itself?

Running Engine.exe doesn't do anything. You start the game through the webbrowser or through CombarArms_Direct.exe

Or you just do this:

[highlight=vb.net] Dim myStr As String
Try
If Environment.GetEnvironmentVariable("PROCESSOR_ARCH ITECTURE") = "AMD64" Then
myStr = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ SOFTWARE\Wow6432Node\Nexon\Combat Arms\Ver_US", "RootPath", "")
Else
myStr = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\ SOFTWARE\Nexon\Combat Arms\Ver_US", "RootPath", "")
End If
Process.Start(myStr & "\Engine.exe", "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
Catch ex As *********enceException
Dim result As String = InputBox("Unable to find the install location of CA, please type in your CA folder location below.", "Error: Unable to find install path", "xxx")
If result <> "xxx" Then
Process.Start(result & "\Engine.exe", "-windowtitle ""CombatArms"" -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId ")
End If
End Try[/highlight]

thanks guys i didnt know i how to do this an the other thread u guys where wrong i didnt need invaild code there

Marked solved.

@Jason, can you add this code to the snippets if it already isn't there? Thanks.

[Help] Quick Combat Arms start [solved]

Post a Reply

Tags for this Thread