Gracias por tu ayuda @Elektro , ni no me hubieras dicho lo del registro nunca hubiera podido hacerlo .



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ú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
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
@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
@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
Citarcomo puedo iniciarme en el Scripting ?
por donde empezar?
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.
Cita de: Chyobuma en 25 Enero 2018, 04:24 AM
Hay alguna manera de saber si nuestras computadoras, correos y telefenos estan hackeados?.
Citar
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.
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...