Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - **Aincrad**

#371
Gracias por tu ayuda @Elektro , ni no me hubieras dicho lo del registro nunca hubiera podido hacerlo .  ;D  ;-)  ;-)
#372
bueno ya lo hice de la siguiente manera :

Código (vbnet) [Seleccionar]
Private Sub FindMyString(ByVal searchString As String)
        If searchString <> String.Empty Then
            Dim index As Integer = ListBox2.FindString(searchString)
            If index <> -1 Then
                ListBox2.SetSelected(index, True)
                Label2.Text = index
                Label2.Text = "Detectado " & ListBox2.SelectedItem
                Label2.ForeColor = Color.Red
            Else
                Label2.Text = "No Detectado "
                Label2.ForeColor = Color.Green
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FindMyString("Cleo")
    End Sub

#373
Bueno , tienes razón tango que usar el registro .

Bueno logre listar todos los programas instalados :

Código (vbnet) [Seleccionar]
Imports Microsoft.Win32
Public Class Form1
    Dim regkey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listar()
    End Sub
    Private Sub listar()
        ListBox2.Items.Clear()
        Dim contador As Integer = 0
        Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(regkey)
            Dim query = From a In key.GetSubKeyNames()
                               Let r = key.OpenSubKey(a) _
                               Select New With _
                               {
                                    .Application = r.GetValue("DisplayName")
                               }
            For Each item In query
                If item.Application IsNot Nothing Then
                    ListBox2.Items.Add(item.Application)
                End If
                contador += 1
            Next
        End Using
        Label2.Text = contador & " Aplicaciones instaladas "
    End Sub
End Class


ahora como puedo buscar en ese  ListBox la linea que tanga la Palabra CLEO Y mostrar esa lienea completa en un label ?.

Gracias de Antemano .  ;D
#374
hola a todo , quisiera saber Como saber si tengo un programa instalado .

ejemplo hay un programa llamado: Cleo el cuel posee muchas versiones pero todas al principio tienen la palabra CLEO.

EJEMPLO :

Cleo 1.0 / Cleo 2.3 / Cleo 3.2.5 / Cleo 4.0  . en fin .

lo que quiero es que al presionar un boton el programa busque mis aplicación instaladas las que empiezan por CLEO Y si encuentra alguna que me coloque su nombre en un label así sabre cual versión es .

eso se podra? Gracias de antemano .  ;D
#375
Bueno ya había posteado la primera versión pero tenia bug al convertir Batch que tuvieran el signo % y " .

bueno sin mas que decir, Esos bug Fueron totalmente corregidos .

Batch to VBS Converter 0.2

Código (bash) [Seleccionar]
@echo off
Title Batch to VBS Converter 0.2
set cd=%cd%
set t=%temp%
goto eleminar
:vbs
color b
set codevbs1=ar.writeline "
set codevbs2="
echo.
echo  Escribe el nombre del bat a cambiar a vbs + el formato ".bat o .cmd"
echo.
set /p batavbs= ^>^>^>
if not exist %batavbs% (goto:err)
type %batavbs% > %t%\bat.txt

call :remplace

:r
if not exist %t%\batavbs.txt (goto r)

(
echo Const TemporaryFolder ^= 2
echo.
echo Dim fso^: Set fso ^= CreateObject^("Scripting.FileSystemObject"^)
echo.
echo Dim tempFolder^: tempFolder ^= fso^.GetSpecialFolder^(TemporaryFolder^)
echo.
echo set b^=createobject^("wscript.shell"^)
echo Set objfso ^= createobject^("scripting.filesystemobject"^)
echo Set ar^= objfso^.createtextfile^(tempFolder ^& "archivo.bat"^,true^)
echo.
) >> %t%\temp.vbs

for /f "tokens=*" %%x in ('type %t%\batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> %t%\temp.vbs
type "%t%\temp.vbs

(
echo ar^.close
echo b^.run tempFolder ^& "archivo.bat"^, ^1, true
echo ^'Create By Salvador F. Krilewski.
) >> %t%\temp.vbs
copy "%t%\temp.vbs" "%cd%\%batavbs%Converted.vbs"
del "%t%\batavbs.txt"
cls
color a
echo.
echo Proceso terminado .  yyy y  PUT0 EL QUE LO LEA  jajaja
echo.
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
pause & exit

:eleminar
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
goto vbs

:err
cls
color c
echo.
echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
ECHO.
pause & exit

:remplace
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
set linea=%%x
set linea=!linea:%%=%%%%!
set linea=!linea:"=""!
call :show !linea!
)
goto:eof
:show
echo %* >> %t%\batavbs.txt
goto:eof


                                    Porfavor comenten cualquier cosa asi me siento menos ignorado  :-\



#376
Scripting / Re: Ayuda con batch please!!!
31 Enero 2018, 22:54 PM
características del script :

-que el script leea cada 4s archivo.txt  en busca de la palabra exacta "milhoja nata"

-que si aparece exactamente esa palabra ejecutar un .exe

Código (bash) [Seleccionar]
@echo off
:com
for /F %%a in ( 'findstr /i /m "milhoja nata" archivo.txt' ) do goto si
Ping -n 4 Localhost >NUL
goto com

:si
start b.exe
exit


                                             Comenta si te funciono
#377
Citarcomo puedo iniciarme en el Scripting ?
por donde empezar?

si quieres empezar a estudiar algún lenguaje Script empieza por VBS NO PIERDAS TIEMPO ESTUDIANDO BATCH .  esa es mi recomendación .

si no quieres aprender vbs . sino mas bien quieres algo como batch aprende POWERSHELL;D
#378
Cita de: Chyobuma en 25 Enero 2018, 04:24 AM
Esto sin contar de que se crea mil correos falsos y busca seguir a mi familia o a la de mi novia por las redes sociales.

si conociera alguien así , cortara cualquier tipo de relación con ella, da miedo.

Bueno estas en el foro de Dispositivos Móviles (PDA's, Smartphones, Tablets)
pero hablas de tu PC tambien, no te entiendo.

Cita de: Chyobuma en 25 Enero 2018, 04:24 AM
Hay alguna manera de saber si nuestras computadoras, correos y telefenos estan hackeados?.

Debiste colocarlo en alguna parte de  Hacking de este foro.

Citar

Bueno sigue estos pasos :


1) Puede que tenga acceso a alguna cuenta de tu novia o tuya . así que empieza por :

Crearte tu y tu novia un nuevo correos , o facebook o WhatsApp  dependiendo de donde hablen tu y tu novia .

descarguen el antivirus : https://www.360totalsecurity.com/es/ para el PC y para el telefono tambien buscalo en google play

analiza tanto tu teléfono como tu PC  con ese antivirus en busca de cualquier tipo de Malware o RAT (Virus espia).

PD : El problema persiste debería considerar que tu novia sea Bixesual . y le cuente todo a su amiga. y como su amiga es celosa los sigue . . .  ;D

PD2: Hay muchos programas de Chat en la internet , tu  y tu novia se descargan alguno y hablan por ese medio a si su amiga no lo sabra a menos de que vaya a la casa de tu novia y busque en su pc o movil  :D.

#379
Si Comparamos lo que están discutiendo , O LOS VÍDEOS QUE PUSO @warcry , no es nada comparado con lo que se esta viviendo aquí en VENEZUELA.  ;)
#380
Cita de: Duzoh en 24 Enero 2018, 09:00 AM
Buenas, gracias por quererme ayudar, he probado el primer script que pasastes y he cambiado la ruta F: a D: (Que es donde se encuentra mi pendrive) pero dice que no se encuentra el archivo, cabe añadir que dentro del pendrive hay varios PDF's
En cuanto al segundo script, al ejecutarlo no hace nada, se queda la pantalla del cmd en negro.





1) Recuerda que el primer script debes plantarlo en la ubicación donde están los pdf a robar . el mismo busca en ese directorio en las carpetas y sub-carpetas .

Ejumplo de lo que digo:

En la parte Destino del 1 er script debes poner TU USB y el bat lo plantas en el USB A ROBAR  Y LO ABRES AHÍ .

El segundo script no necesitas plantarlo . en la parte Destino colocas TU USB y en la parte Origen colocas el directorio de la victima.

2)  Cita de @Elektro
Citar¿Quieres un masaje en los pies tambien?, en el foro no se piden tareas... es muy descarado esto. Muestra tu progreso y formula una duda específica...

Es verdad se me paso decirte que " En el Foro no se Hacen tareas " .

3) El codigo que te puse es simple . es mejor que descargues el USB MON que te puso @Elektro  ya que posee mucha funciones XD.  

PD: Pienso hacer algo parecido a USB MON pero en VB.NET . A robar trabajos jajaja  >:D