bueno como dice el titulo este es un convertidor de batch a vbs .

Yo esta mañana estaba necesitando un convertor de bat a vbs y buscando por Internet me encontré con esto :

@echo off 
set codevbs1=cmd.run "cmd /c 
set codevbs2=", vbHide 
 
 
echo set cmd = createobject("wscript.shell" ) >> temp.vbs 
 
for /f "tokens=*" %%x in ('type batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> temp.vbs 
type "temp.vbs 

en realidad este code no me funciona , tampoco el lo creo nunca pensó que pasaría con los comandos if -else del batch a convertir .

bueno segui buscando de pagina en pagina y no encontraba nada. .. . pueden creerlo. incluso en otros foros me encontré con el mismo código inutil.

INCLUSO EN ESTE FORO HAY UN TEMA REFERENTE A ESTO " Convertir bat en vbs " PERO NO DICE ABSOLUTAMENTE NADA , OSEA NO DA NINGUNA SOLUCION A LO QUE SE BUSCA .

POR ESTO ES QUE DECIDÍ POSTEARLO EN EL FORO PARA QUE SI EN ALGÚN FUTURO ALGUIEN BUSCA LO MISMO QUE YO LO CONSIGA .    

bueno no me quedo de otra que modificar ese código a mi manera y hacerlo funcional :

@echo off
set cd=%cd%
set t=%temp%
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
: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%\batavbs.txt
 
(
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.
pause & exit
 
:err
cls
color c
echo.
echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
ECHO.
pause & exit
 

bueno así es como convierte :


el bat :

@echo off
echo hola Put0s
pause

después de convertirlo a vbs :

Const TemporaryFolder = 2
 
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
 
Dim tempFolder: tempFolder = fso.GetSpecialFolder(TemporaryFolder)
 
set b=createobject("wscript.shell")
Set objfso = createobject("scripting.filesystemobject")
Set ar= objfso.createtextfile(tempFolder & "archivo.bat",true)
 
ar.writeline " @echo off "
ar.writeline " echo hola Put0s "
ar.writeline " pause "
ar.close
b.run tempFolder & "archivo.bat", 1, true
'Create By Salvador F. Krilewski.

y si se quiere volver invisible al ejecutar se cambia la penúltima linea por esto :

b.run tempFolder & "archivo.bat", vbhide, true

bueno en realidad eso no es un convertidor ya que el vbs en si genera el bat del principio jejeje bueno pero mejor es algo que nada .  

este convertidor tiene un bug no voy a decir cual es pero lo que voy a decir es que para corregirlo necesito un equivalente del signo ^ de batch para vbs el que lo sepa porfavor comentelo para poder corregir el unico bug de este convertidor  



  

mira esto te lo digo por experiencia propia :

si le haces factory reset y nada :

1) si es android entra al recobery y wipealo.

2) si es windows phone debes descargar un programa al pc.

bueno y si es la 1 y el android  sigue con lo mismo , puede ser que no posea una Rom original . puedes descargarte ODIN en tu pc y instalarle una CarbonRom o Cianogenmod .

esto que te acabo de decir es "SI EL TELÉFONO EN VERDAD TENGA UN VIRUS"

si te propones a instalare otra Rom a tu telefono y tienes dudas te vas al foro de Dispositivos Móviles (PDA's, Smartphones, Tablets)

no tiene nada que ver  , solo que no seguiste mis pasos .

se hace asi :


te vuelvo a poner los pasos :

1) Vas a https://ibb.co/gEdQbm das click derecho en la imagen y copiar dirección de imagen.

2) te vas a tu post en el foro , y presionas el botón Insertar imagen y colocas el link que obtuviste en el paso anterior .

3) Presiona previsualizar para verificar y listo . 

tu programa genera un archivo .exe en el directorio done se en cuentran la carpetas Documentos , música e Imágenes.

el archivo tiene por nombre : lsass.exe y consume todos los recursos de mi PC tengo 2 gb de ram .

de paso  al  analizarlo en virus total lanza 52 advertencias de que es un troyano :   Analisiz de VIRUS TOTAL

Bueno , yo hace ya como 1 año, he usado un generador de gemas para el juego Dragon City de Facebook y si funciona. pero bueno no voy a entrar en este tema . 

Una pregunta , aplicaste algún filtro de saturacion o algo para darte cuenta?  quiero saber . . .   

No ponga link de imagenes , mejor pon las imagenes directamente . te lo digo como consejo.

ejuemplo :

1) https://ibb.co/gEdQbm



2) https://ibb.co/gC6p2R



Tutorial  de ejemplo:
 
1) Vas a https://ibb.co/gEdQbm das click derecho y copiar dirección de imagen.

2) te vas a tu post en el foro , y presionas el botón Insertar imagen y colocas el link que obtuviste en el paso anterior .

3) Presiona previsualizar para verificar y listo .  

SI , eso pensé cuando estaba viendo el vídeo. Pero el hizo todos esos pasos y  las gemas le subieron justo hasta la que el había escrito en la pagina. 

pero como yo uso mi android de router y no para jugar juegos, me da flojera comprobar si sirve o no . todo depende de el si quiere intentar si funciona. 

@Hernan2018  , Almenos  te has tomado la molestia de buscar información sobre el tema en el buscador de google?

Cuando uno escribe en google  "gemas gratis Lords Mobile" aparecen unos 341,000 resultados que hablan sobre este asunto y en youtube se consiguen videos sobre este tema  :

Lords Mobile Gemas Gratis

bueno haré un pequeño tutorial :

1) busca en la pestaña "Others" -----> "Account" -----> copias el numero "IGGID"


2)EN TU Android abres el navegador y vas a :  http://www.gamehack.ml/lords/



3) en la paginas que abriste desde tu mobil , hay 2 cuadros . en el primeros colocas tu "IGGID" o Nickname .  y en el segundo colocas la cantidad de gemas que quieras tener .


4) Presionas "GENERAR" y esperas a que cargue .


5) Después de cargar  aparecera un boton que dice "Completar Proceso Aqui"


6) Ese botón te descargara , una aplicación , abres esa aplicación y sigues los pasos que te pida .


7) Esperas unos 30 min y abres el juego , y listo ya tendrás tus gemas gratis.  

MOD: Imagen adaptada a lo permitido

@MrDocxd deberías colocar las partes de directorio del registro dentro de etiquetas , ya que me causa un gran dolor de cabeza leer todo eso tan desordenado .

ejemplo de lo que te digo :




Lo que quiero decir es que deberías ordenar mas tu texto y colocar algunas cosas dentro de etiquetas.  te dejo un link que te dice como usar la etiqueta :  Etiqueta GeShi

bueno no busque cual es el problema pero lo resolví así :

1) Descargue SharpDevelop 3.2 tiene que ser la versión 3.2 ya que esa versión es la que trae la opción para convertir códigos y proyectos completos de C# a VB.NET.

LINK Para el que la quiera :  SharpDevelop 3.2

2) Abro el proyecto con formato .cs o .csproj y los convierto .

3) Después de convertirlo a VB.NET los abro con mi VS 2010 y le corrijo algunos pequeños errores , y listo Problema resuelto.

--------------------------------------------------------------------------------------------------

EDITO
         

LAS VERSIONES DE VISUAL STUDIO (2008-2010) EXPRESS , NO TIENE SOPORTE PARA C#.NET .

Estos IDE (EXPRESS) Estan separados , una version VB.NET y C#.NET , por eso no los reconoce.

A partir de la version 2012 Express si reconoce tanto C#.net, C# , C++.net, y VB.NET. viene por asi decirlo completo.