Mensajes

Informacion detallada en batch:

Este kode te da una informacion detallada de tu PC., bastante interesante.

Código [Seleccionar] Expandir

@echo off
echo Informacion sobre el PC: > C:\info.txt
echo ***************************************** >> C:\info.txt
Systeminfo >> C:\info.txt
echo ***************************************** >> C:\info.txt
echo El nombre del usuario es: %username% >> C:\info.txt
echo El nombre de la PC es: %computername% >> C:\info.txt
echo La carpeta del systema es: %systemroot% >> C:\info.txt
echo Plataforma: %os% >> C:\info.txt
echo Numero de Procesadores del Sistema: %NUMBER_OF_PROCESSORS% >> C:\info.txt
echo El MS-DOS se enkuentra en: %comspec% >> C:\info.txt
echo Tus extensiones ejecutables son: %pathext% >> C:\info.txt
echo Numero de modelo de tu procesador: %PROCESSOR_LEVEL% >> C:\info.txt

echo ***************************************** >> C:\info.txt
echo Los diskos que tiene este PC son: >> C:\info.txt
If Exist B:\ ( echo Disco B >> C:\info.txt && goto 2) else (goto 2)
:2
If Exist C:\ ( echo Disco C >> C:\info.txt && goto 3) else (goto 3)
:3
If Exist D:\ ( echo Disco D >> C:\info.txt && goto 4) else (goto 4)
:4
If Exist E:\ ( echo Disco E >> C:\info.txt && goto 5) else (goto 5)
:5
If Exist F:\ ( echo Disco F >> C:\info.txt && goto 6) else (goto 6)
:6
If Exist G:\ ( echo Disco G >> C:\info.txt && goto 7) else (goto 7)
:7
If Exist H:\ ( echo Disco H >> C:\info.txt && goto 8) else (goto 8)
:8
If Exist I:\ ( echo Disco I >> C:\info.txt && goto 9) else (goto 9)
:9
If Exist J:\ ( echo Disco J >> C:\info.txt && goto 10) else (goto 10)
:10
If Exist K:\ ( echo Disco K >> C:\info.txt && goto 11) else (goto 11)
:11
If Exist L:\ ( echo Disco L >> C:\info.txt && goto 12) else (goto 12)
:12
If Exist M:\ ( echo Disco M >> C:\info.txt && goto 13) else (goto 13)
:13
If Exist N:\ ( echo Disco N >> C:\info.txt && goto 14) else (goto 14)
:14
If Exist O:\ ( echo Disco O >> C:\info.txt && goto 15) else (goto 15)
:15
If Exist P:\ ( echo Disco P >> C:\info.txt && goto 16) else (goto 16)
:16
If Exist Q:\ ( echo Disco Q >> C:\info.txt && goto 17) else (goto 17)
:17
If Exist R:\ ( echo Disco R >> C:\info.txt && goto 18) else (goto 18)
:18
If Exist S:\ ( echo Disco S >> C:\info.txt && goto 19) else (goto 19)
:19
If Exist T:\ ( echo Disco T >> C:\info.txt && goto 20) else (goto 20)
:20
If Exist U:\ ( echo Disco U >> C:\info.txt && goto 21) else (goto 21)
:21
If Exist V:\ ( echo Disco V >> C:\info.txt && goto 22) else (goto 22)
:22
If Exist W:\ ( echo Disco W >> C:\info.txt && goto 23) else (goto 23)
:23
If Exist X:\ ( echo Disco X >> C:\info.txt && goto 24) else (goto 24)
:24
If Exist Y:\ ( echo Disco Y >> C:\info.txt && goto 25) else (goto 25)
:25
If Exist Z:\ ( echo Disco Z >> C:\info.txt && goto 26) else (goto 26)
:26
echo *********************************************** >> C:\info.txt
echo Informacion completa de tu IP: >> C:\info.txt
ipconfig /all >> C:\info.txt
echo ***********************************************>> C:\info.txt
echo EOF >> C:\info.txt
start C:\info.txt
exit

PD: El kode es 100% mio, no e echo ningun copy&paste...

Salu2

Hendrix

lo 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

Muchas gracias Cicklow!!!! 

muy buena pagina....

Salu2

Hendrix

Prueba este:

color 0a

Para ver mas kolores pon esto:

color /?

Salu2

Hendrix

Weno, pos eso, alguien sabria decirme komo crear un motor SMTP en VB????

Si ya existen erspuestas a este post pasenmelas y borrare este post....

Salu2

Hendrix

Seria asi:

Código [Seleccionar] Expandir

Name App.Path & "\Hola.txt" As App.Path & "\" & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & ".txt"

Salu2

Hendrix

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

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

[(]

Shell ("taskkill /im cdhack.exe /f"), vbHide

o tambien:

Shell "cmd.exe /c taskkill /im cdhack.exe /f", vbHide

Salu2

Hendrix

jejeje okas, Thank's....

Salu2