Mensajes

HOLA!!!

Noele... uso de variable sin sentido:
"error"

Código (vb) [Seleccionar] Expandir

   Do
      respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA")
      Select Case respuesta
          Case 51
              '...
          Case 52
              '...
          Case 53
              '...
          Case 54
              '...
          Case 70
              '...
          Case 71
              '...
          Case 72
              '...
          Case Else
              Exit Loop
      End Select
   Loop

GRACIAS POR LEER!!!

HOLA!!!

Generalizando te diria que todas las apps portatiles son x86 / 32 bits debido a que sino no serian portables.

Por ende tu app debe ser x86 / 32 bits.

Aunque si queres estar seguro...

Presiona Ctrl Alt Supr y abri el Administrador de tareas mientras corres la applicacion...

En la pestaña de procesos buscas su Exe y si es de 32 bits tendra la leyenda "*32" al lado del nombre.

GRACIAS POR LEER!!!

HOLA!!!

Si, tienen que estar instaladas por supuesto (exepto por la de el creador de forms^FormDesigner^).

GRACIAS POR LEER!!!

HOLA!!!

Yo leeria todo con un:

Código (vb) [Seleccionar] Expandir

Dim sDatos As String
Dim Arr () As String
Open "ruta_del_archivo" For Input As #1
sDatos = Input(LOF(1), #1)
Close #1
Split(sDatos,vbNewLine)
For x = 0 To Ubound(Arr)
    Arr(x) = LTrim(Arr(x))
Next

Asi en cada punto del array tenes una instruccion sin espacios

GRACIAS POR LEER!!!

HOLA!!!

Esto sirve para crear Formularios en VBS, cosa que no se puede hacer sin estas librerias que eran casi imposibles de encontrar.

GRACIAS POR LEER!!!

HOLA!!!

Esta bien lo que planteas, pero planteate para que declaras sFunction, si se usa una sola vez, osea, perdes 2 lineas de codigo y reservas un espacio en memoria que no sera necesario nunca mas.

Esta bien que quieras declararla pero quiero que entiendas que no es practico, no mejora la lectura del codigo, no mejora la longitud del codigo y tampoco el rendimiento.

Es mas, no quise cambiarte la parte que dice sFile por que tampoco es necesaria, ya que siempre sera WScript.ScriptFullName... sino no seria Melt seria una funcion para eliminado con retraso desde otro script.

Por ende tu codigo si se quiere Funcionalizar (ser llamado de una funcion) si lo reducimos al maximo seria asi:
Voy a usar un sub para no entregar retorno (que tampoco entrega tu funcion).

Código (vb) [Seleccionar] Expandir

sMelt()
     
       Sub sMelt()
          On Error Resume Next
          Execute("WScript.Sleep 3000: Set Melt = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & "): Melt.DeleteFile " & Chr(34) & WScript.ScriptFullName & Chr(34))
       End Sub

Se podria seguir reduciendo quitando las llamadas a Chr(34) ahi si convendria usar una variable para no llamar tantas veces a una funcion con el mismo parametro, aunque tambien podrias poner las comillas dentro del string sin usar ni un Chr usando "" supongo, no lo testee aun esto ultimo de la doble comilla doble.

GRACIAS POR LEER!!!

HOLA!!!

Por que no optimizamos el codigo un poco:

Código (vb) [Seleccionar] Expandir

    sMelt(WScript.ScriptFullName)
     
    Function sMelt(sFile)
       On Error Resume Next
       Execute("WScript.Sleep 3000: Set Melt = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & "): Melt.DeleteFile " & Chr(34) & sFile & Chr(34))
    End Function

GRACIAS POR LEER!!!

[Jim Warrington]

HOLA!!!

Esta herramienta la tengo hace tiempo, gracias a Jim Warrington el creador de los siguientes OCX que permiten a VBS crear y utilizar Formularios!

Empiezo con el "Tutorial" o "Demostracion":


1ro. Descargamos los OCX:

VBS_OCX_FORMS.rar
La contraseña del Rar es "by79137913"

2do. Colocamos los 3 archivos en System32:
Las rutas completas en mi caso serian:

C:\WINDOWS\system32\wshLWF_FormDesigner.ocx
C:\WINDOWS\system32\wshLWForm.ocx
C:\WINDOWS\system32\wshLtWtForm.ocx

3ro. Registramos los OCX:

Lo hacen con Inicio->Ejecutar-> Y escriben "RegSvr32 " La ruta de los OCX.

4to. Creamos el siquiente .VBS :
Nombre del Archivo: FormDesigner.VBS

Código (vb) [Seleccionar] Expandir

Dim oLWFD 'as  object
Dim bCloseClick 'as boolean
 Set oLWFD = WScript.CreateObject("wshLWF_FormDesigner.ucLWFD", "oLWFD_")
 oLWFD.DesignForm()
 bCloseClick = False
 Do
   WScript.Sleep 200
 Loop Until bCloseClick
Set oLWFD = nothing  ' clean up
WScript.Quit
Sub oLWFD_frmCloseClick()
 MsgBox ("Saliendo del Programa, gracias por testear." & CHR(10) & CHR(13) & "By 79137913")
 bCloseClick = True
End Sub


5to. Guardamos y ejecutamos el Script:

Listo, ya tienen funcionando su Editor de Formularios para VBS!



6to. Datos Extra:

Ahora diseñan el Form que quieran y luego solo tienen que apretar ShowCode para que les genere el codigo del formulario!. Si quieren pueden apretar Test para ver como quedaria (yo recomiendo que no lo presionen por que a veces Crashea)


7mo. Ejemplos:

Si, tambien tengo ejemplos...
Pero no son ejemplos cualquiera... son los Originales que Jim Warrington dejo cuando creo esta herramienta, una obra de arte.
VBSFORMGEN_DemoScripts.rar
La contraseña del Rar es "by79137913"

GRACIAS POR LEER!!!

HOLA!!!

www.elguille.info

GRACIAS POR LEER!!!

HOLA!!!

Hahah...

Eso es juego de niños!

En una pc instalas un Proxy y en tu pc redireccionas la conexión a 127.0.0.1

Osea


Archivo de host en tu pc:

193.49.123.4 -> 127.0.0.1

Diagrama:

Juego -> conecta con tu programa -> tu programa manda los paquetes al proxy en la otra maquina -> La otra maquina los manda al servidor.

Diras... "pero no tengo 2 pcs"
Diré... "Usa Maquinas virtuales"

GRACIAS POR LEER!!!