Mensajes

Nose hehe
pero para comprobar si el app esta bien hace esto:

Debajo de este codigo:

Código (vb) [Seleccionar] Expandir

If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"

Pone:

Código (vb) [Seleccionar] Expandir

Msgbox dioxis

Y ya ves si esta bien la dir o mal.

Salu2

Ranslsad

[Por eso si lo haces para aprender te doy todo mi apollo.. si quieres usarlo para mal o molestar te deseo todo lo peor ...]

De verdad esas mierdas joden a gente que usa eso para trabajar como a mi madre
que le entro una p**a ***** de esas.. odio.. rotundamente odio a la gente que usa estos codigos para usarlos maliciosamente.. quizas no seas vos el caso que lo use para mal sino para aprender pero de verdad odio y mataria a la gente que lo usa para hacer mal o simplemente molestar... Para que lo hacen? tienen alguna carencia familiar? Son de naturaleza maldosa?...
Porque la gente no les hace nada para que hagan esa *****!!!!
De verdad no pierdan el tiempo haciendo eso...
Yo lo mas malo que he echo es un espiador de WebCam pero nunca, nunca lo saque a la luz ni siquiera done el Source como Hizo el de MSN Kiker que se hizo un escandalo tremendo cuando llego a las manos de los niñatos ...

Por eso si lo haces para aprender te doy todo mi apollo.. si quieres usarlo para mal o molestar te deseo todo lo peor ...
Porque gente como mi madre que usan eso para trabajar, llevar facturas en ellos y todo eso no tienen la culpa de carencias mentales de la gente que hacen esos virus para la finalidad que le quieran dar

Salu2

Ranslsad

OTra forma aparte de la que te proporsionaron es sustituir el EXE de tu juego por un EXE que le haga de intermediario es decir algo asi:

Modulo:

Código (vb) [Seleccionar] Expandir


Sub Main()
    Dim RutEXE As String, RutEXEParam As String
    ' Un Fix si App.patch devuelve \ al final, claro ejemplo C:\ u otra unidad.
    RutEXE = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
    RutEXEParam = RutEXE & "APP.exe " & Command$
    Open RutEXE & "Log_Parametros.log" For Binary As 1
        Seek 1, LOF(1) + 1
        Put 1, , RutEXEParam & vbNewLine
    Close 1
    Shell RutEXEParam, vbNormalFocus
End Sub


Es facil compila este codigo con el mismo nombre y en dado caso extensión si es requerido por el exe a ver sus parametros directamente

El Archivo que es lanzado habitualmente es un EXE cambiale el nombre a App.exe y este que has compilado ponlo en su lugar, todo ira normal como si nada solo que ese exe intermediario registrara TODOS los parametros antes de ejecutar el eXE Original pedido por tu launcher. es a prueba de error.¡!

Bueno les comento como hice todo....
Primero baje el GameSpy que tiene los comandos para tal juego =)
Luego utilice el codigo de ░▒▓BlackZeroҖ▓▒░ [Te amo ] que es la caña!!
Y ya tengo el comando!!!!

Gracias a todos!!!!!

Salu2

Ranslsad

eso obtiene los comandos...para hacer funcionarlo tenes que pasarle el PID del proceso que queres saber...para eso hay api's busca que hay en internet...

saludos.

Bueno gracias .. pero igual no supe utilizarlo.. por ahora
conseguir averiguar el PID del Exe con Este codigo:

En Modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public theid As Integer
Public Const NORMAL_PRIORITY_CLASS As Long = &H20

Public Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Public Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadID As Long
End Type
Public Declare Function CreateProcess Lib "kernel32" Alias _
"CreateProcessA" (ByVal lpAppName As String, _
ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, _
ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _
ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long

' Returns 0 when successful, process ID and handle are in ProcessInfo
Public Function StartProcess(ByRef sCommandLine As String, _
ByRef ProcessInfo As PROCESS_INFORMATION) As Long
Dim ret As Long
Dim sWokingDir As String
Dim Start As STARTUPINFO

If Len(sCommandLine) > 0 Then
' Initialize the STARTUPINFO structure:
Start.cb = Len(Start)
sWokingDir = App.Path

' Start the process
ret = CreateProcess(vbNullString, sCommandLine, 0&, 0&, 1&, _
NORMAL_PRIORITY_CLASS, 0&, sWokingDir, Start, ProcessInfo)
If ret <> 0 Then
' Success
StartProcess = 0
Else
' Failed to start process
Debug.Print "StartProcess failed: LastDllError = " & _
Err.LastDllError
StartProcess = 1
End If
End If
End Function

' Close process and thread handles, must be called when no longer needed
Public Sub ReleaseProcessData(ByRef ProcessInfo As PROCESS_INFORMATION)
If ProcessInfo.hProcess <> 0 Then
'CloseHandle ProcessInfo.hThread
'CloseHandle ProcessInfo.hProcess
'ProcessInfo.hProcess = 0
'ProcessInfo.hThread = 0
End If
End Sub

En Form:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
Dim ProcessInfo As PROCESS_INFORMATION

StartProcess "C:\Archivos de programa\Black Isle\BGII - SoA\baldur.exe", ProcessInfo
Text1.Text = "Process ID: " & ProcessInfo.dwProcessId
Text1.Text = Text1.Text & vbNewLine & "Process handle: " & ProcessInfo.hProcess

ReleaseProcessData ProcessInfo
End Sub


Con eso saco el ID del exe...
Y nose si soy un poco Ignorante o no me doy cuenta,
pero a tu codigo intente de llamarlo asi:

Código (vb) [Seleccionar] Expandir

Private Sub Command2_Click()
ProcessCommandLine(theid)
End Sub

Pero nada sucede... Quizas no se le llame asi o quizas si.. pero nose...

Yo en teoria lo que intento de conseguir es por ejemplo:
Ejecutar Baldurs Gate II Shadows Of Amn y que directamente al ejecutar el juego entre a una partida multijugador como ya dije antes estilo (Zone o el Nuevo IGZones)
Si alguien lo conoce seguro que saben a que me refiero(jugar age of empires en internet)

PD: llame a la funcion asi:

Código (vb) [Seleccionar] Expandir

MsgBox ProcessCommandLine(theid)
Mmm pero me muestra la direccion del Juego(Dir del Exe)
PD2: Me di cuenta que el archivo Baldur.exe es un launcher y el archivo BGMain.exe es el juego en Si... pero al intentar de ejecutar ese exe me tira el siguiente error:

Quizas haya que ejecutar ese exe con un parametro.. ahora me queda averiguar como averiguarlo hehe.
PD3: Si voy a la carpeta y hago doble click sobre el archivo BGMain.exe.. si se abre...
PD4: Bueno he ejecutado el BGMain.exe normal, he conseguido su PID y he hecho un timer con la siguiente funcion:

Código (vb) [Seleccionar] Expandir

List1.AddItem ProcessCommandLine(theid)
la cual funcionaba mientras yo en el juego toqueteaba botones y eso.. pero no muestra nada...
No se como hacer funcionar este codigo 

Desde ya, gracias y sepan disculpar mi ignorancia

Salu2

Ranslsad

Para saber con qué parametros se lanza una aplicación programa algo que printee los parámetros con los que se lanza y lo sustituyes por el exe al que le quieres averiguar los parámetos, lo hice una vez para saber con que parámetros se llamaba al compilador de vb, igual te sirve  .

Saludos

De verdad que no entiendo a que se refieren... si entiendo .. pero no el que hacer...
pueden insultarme si quieren.. pero no entiendo hehe...

Salu2

Ranslsad

Hazle Ingenieria inversa... a ver si los cojes....


Saludos.

Igual me quede

Salu2

Ranslsad

de ultima podes usar programas que te averiguan los parametros con los que le programa se ejecuto...de ahi podes sacar los parametros que acepta el programa...

Mas o menos eso ando buscando.. pero no se por donde buscar....
busco en google con "Parametros" y voy jugando con las palabras pero no me guio bien...
Pro eso estoy pidiendo que me guien un poquitin

Salu2

Ranslsad

Si BlackZeroҖ
eso es lo que buscaba.. pero..?
hay alguna forma de averiguar los parametros posibles que tenga el juego?...

Desde ya, gracias

Un Saludo

Ranslsad

Hola.. nose si me explique bien en el titulo.. pero lo que estoy haciendo
es un programa "Gamer" parecido al IGZones o al antiguo Zone(Recuerdan? que la gente se unia a una partida y luego el Zones ejecutaba el Age Of Empires-Ejemplo- y creaba automaticamente una partida multijugador y entraban los demas) bueno yo creo que ejecutaba el juego y le mandaba la funcion de crear una partida y a los otros de unirse a tal...

Queria saber si alguien conoce esas funciones pero para el juego Baldurs Gate y si hay alguna manera de averiguarlas.

Desde ya, Muchas Gracias...

Un Saludo

Ranslsad

Bueno muchisimas gracias BlackZero y cΔssiΔnі.. en cuanto a sencilles me quede con el de cΔssiΔnі porque con solo agregar dos ' ya me funcionaba
Muchisimas gracias chicos

Salu2

Ranslsad