Foro de elhacker.net

-

No entiendo muy bien tu pregunta pero creo que lo que quieres es esto:

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:??????

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

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

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

Me das un ejemplo?

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

Pon esto en el form_load del programa.

Salu2

Hendrix

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

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