-
No entiendo muy bien tu pregunta pero creo que lo que quieres es esto:
app.path
El tema es asi:
estoy intentando hacer un anticheat para el counter strike en VB pero nose como agregarle las funciones a los botones "Examinar" "Ejecutar Cs" "Salir" y que los 3 botones de la barra de titulo estén desabilitados.
Lo que quieres es masomenos asi:??????
Citar
Private Sub Command1_Click()
Shell (Text1.Text)
End Sub
Private Sub Form_Load()
CommonDialog1.ShowOpen
End Sub
Private Sub Text1_Change()
Text1.Text = CommonDialog1.FileName
End Sub
me da error
(http://img475.imageshack.us/img475/8251/asd1xi.jpg) (http://imageshack.us)
:-\ Eso es porque tienes que agregar los controles que declaro en el codigo te aconsejo que primero te leas un manual de vb y luego empiezes a hacer aplicaciones
Googlea sobre los CommonDialogs que es lo que necesitas.
2 maneras:
Usa un commondialog como dice Crack_X o busca en el registro del juego si existe una Key que diga donde está. Si existe la key recoge los datos con un command. Salu2!
la key donde te dice el directorio esta en:
HKEY_CURRENT_USER > Valve > Steam > ModInstallPath
pues ya lo tienes!
Ahora solo queda recoger esos datos, si no sabes como:
http://www.trucoswindows.net/foro/topico-198-manejo-basico-del-registro.html
Ahí tienes una audita, en su momento a mí tamb me sirvió
-
Private Sub Command2_Click()
Shell Text1.Text
End Sub
-
Deja de preguntar todo y lee un manual. Son cosas muy basicas las que preguntas... Fijate en las propiedades del from.
Editado
Cita de: XP. en 28 Marzo 2006, 00:14 AM
quiero que no se vea esto en la barra de programas abiertos (http://img154.imageshack.us/img154/3791/dibujo560lw.jpg) (http://imageshack.us)
quedando la posibilidad de cerrar el programa con el boton "Salir"
Si lo que queres es que no se vea la pestaña sin cerrar usa este codigo (necesitas dos botones con los nombres "Command1" y "Command2"):
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim handle As Long
'Minimiza
Private Sub Command1_Click()
handle = FindWindow(vbNullString, "MSN Messenger") 'aqui pones el nombre de la ventana
ShowWindow handle, SW_HIDE
End Sub
'Mostramos
Private Sub Command2_Click()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_NORMAL
End Sub
El comand1 es para "hacerla desaparecer" y el comand2 es para "hacerla aparecer"
PD: si lo que queres hacer es cuando la ventana se ejecuta que se esconda directamente pones el codigo este en Sub Form Load:
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim handle As Long
Private Sub Form_Load()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_HIDE
End Sub
PD2: para cerrar el programa lo arias desde la aplicacion procesos.... ctrl+alt+supr :D
PD3: este cosigo no lo cree yo.. mas kisiera :)
Salu2
Ranslsad
Ya saque el botón de abajo gracias igual por el aporte.
de nada amigo... ojala tengas exito con tu proyecto :)
Salu2
Ranslsad
Bueno, ahora estoy queriendo agregar un mata proceso
Shell ("taskkill /im cdhack.exe /f"), vbHide
o tambien:
Shell "cmd.exe /c taskkill /im cdhack.exe /f", vbHide
Salu2
Hendrix
Cita de: _Hendrix_ en 28 Marzo 2006, 18:45 PM
Shell ("taskkill /im cdhack.exe /f"), vbHide
o tambien:
Shell "cmd.exe /c taskkill /im cdhack.exe /f", vbHide
Salu2
Hendrix
es en que parte se pone? por que lo probe y no anda, algo debo estar haciendo mal
Prueba kon esto, crea un nuevo formulario, agregale un boton y pon esto:
Private Sub Command1_Click()
Shell "cmd.exe /c taskkill /f /IM notepad.exe", vbHide
End Sub
Abre el bloc de notas, ahora ejekuta el programa, pulsa el boton....
Voilà!!!! el notepad se cierra!!!!
ves komo si funciona???? si no funciona es porke el archivo que intentas cerrar esta komo SYSTEM o pones el nombre mal o algo....
Salu2
Hendrix
Editado
Es normal que no te lo elimine, ya que no llamas nunka a lafuncion Killprocces.
La tienes que llamar desde alguna parte apra que se ejekute.
Por ejemplo asi:
Private Sub Killprocess(ByVal archivo As String)
Shell ("taskkill /im " & archivo & " /f"), vbHide
end sub
Luego por ejemplo el el Command1_Click() pones esto:
Killprocces (cdhack.exe)
Y mataria el cdhack.exe.
Espero que lo entiendas.
Salu2
Hendrix
Bueno al parecer no hay manera de bloquear el proceso
Puede que el comando taskkill no te funcione ya que en Windows XP Home Edition NO viene.
Salu2
yo uso WinXP Pro.
Y porque en ves de matar el proceso no haces algo molesto :P.
hace un FinWindow que busque el CDHACK, si lo encuentraque cierre el cs.exe ;)
y un msgbox diciendo que no podes usar el cdhack.exe y listo :D
Cita de: [VolkS] en 31 Marzo 2006, 18:54 PM
Y porque en ves de matar el proceso no haces algo molesto :P.
hace un FinWindow que busque el CDHACK, si lo encuentraque cierre el cs.exe ;)
y un msgbox diciendo que no podes usar el cdhack.exe y listo :D
Me das un ejemplo?
Cita de: [VolkS] en 31 Marzo 2006, 18:54 PM
Y porque en ves de matar el proceso no haces algo molesto :P.
hace un FinWindow que busque el CDHACK, si lo encuentraque cierre el cs.exe ;)
y un msgbox diciendo que no podes usar el cdhack.exe y listo :D
jej no hace falta ya logre matar todos los procesos igual se agradece la idea :D
jej otra vez yo, bueno apesar de haber logrado matar los procesos no me quede conforme
busa que hay una ocx que te permita usar del F1 hasta el F12 estando en cualquier lado (fuera del programa)
entonces si el usuario te abre el anti cheat no pasara nada pero si presiona F1 (por ejemplo) mataria los prosesos.
Toma hice un ejemplo medio rapido:
http://ar.geocities.com/kakinets/anticheat.zip
La ocx:
http://ar.geocities.com/kakinets/ocx.zip
Saludos espero que te sea util y que sea lo que busques
Citarlo que yo quiero (si se puede claro) es que al ejecutar el anticheat cierre automaticamente los procesos ya mencionados ahi arriba sin la necesidad de apretar algun botón dentro el programa y si el usuario intenta abrirlos que no suceda nada. se puede hacer??'
Pon esto en el form_load del programa.
Salu2
Hendrix
Cita de: _Hendrix_ en 2 Abril 2006, 19:38 PM
CitarPon esto en el form_load del programa.
Disculpa pero no entendi
Cita de: XP. en 2 Abril 2006, 20:09 PM
Cita de: _Hendrix_ en 2 Abril 2006, 19:38 PM
Pon esto en el form_load del programa.
Disculpa pero no entendi
si mira solamente abre el form y donde dice private sub form_load pones el codigo eso hace que cuando se abra lo ejecute ,Como ya te habia dicho primero estudia ponte a leer como quieres hacer aplicaciones en vb si no sabes programar no te pongas a hacer cosas que no sabes primero estudia porque esas son de las cosas mas basicas como haces un programa si no sabes usar el formloaad
Citar
Los procesos se cierran al abrir el anticheat, pero una vez abierto el anticheat se puede abrir nuevamente los procesos, lo que yo necesito es que no se puedan abrir teniendo el programa abierto.
Tienes que crear un timer que cada cierto tiempo este cerrando los procesos para que no se puedan abrir
es necesario poner algo en el modulo??
yo entendi mal. pero usando un timer con cada x segundo no fa hacer falta un modulo. claro que si quieres tener mejor ordenados los codios seria bueno poner un modulo.
Saludos
Chicos como hago para importar unos botones que me baje de internet y poder utilizarlos en los formularios? estos son los archivos que tengo
http://img108.imageshack.us/img108/7704/dibujo1zf.jpg
Como hago para que mi programa detecte automaticamente la ubicacion por ejemplo del archivo hl.exe al tocar en el botón "Detectar" ??
Bueno lo del post anterior ya lo solucione