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(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
Code:
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
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