Mensajes

[microsoft script control]

Wenas, como te dijeron antes puedes usar el microsoft script control para lo que quieres hacer.
Yo estuve viendo una pagina en que explicaban algo que creo que te servira:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm
ya nos cuentas
un saludo

Wenas, mira este enlace:http://foro.elhacker.net/programacion_vb/generador_de_cartas-t232129.0.html

un saludo

[a]

wenas, lo he tabulado un poco(lo tabulare mas el proximo ), me dejado alguna cosa porq pense que se entenderia, error mio .La idea esta pues era porque con un code esta bien, pero ya cuando pongo mas de diez me parece un poco abultado y me lio yo solo con tanto code, de todas formas voy a usar lo de cΔssiΔnі y pondre todos los code dentro.
Lo de los mensajes lo puse por poner algo (en vez de poner consolewrite puse msgbox para que os fuera mas facil ) y no me cargo el code jajaja pero no funciona cuando hago eso  va es broma, venga un saludo y grax

PD:Lo modifique porq la variable era a, entonces sCadena sobraba no?(aver si toy metiendo la pata..) y luego lo de Trim$ a mas de lo mismo.
A bueno y lo de split tambien puse a.
enfin a sido una rayada mia xD

[0 desde el principio]

Wenas, estuve cambiando el motor del proyecto por esto:
Esto es para que cambie la variable a 1 (todas estan en 0 desde el principio) y la que este en 1 se abre:

Código (vb) [Seleccionar] Expandir

Public Sub A1()
Dim x As String, z
Dim i As Integer

i = InStr(a, "clean")
If i = 0 Then
'no ta
Else
E = 1 'la cambia si se encuentra clean
End If

i = InStr(a, "jo")
If i = 0 Then

Else
F = 1
End If
End Sub

Hasta ahi todo perfecto(si se pone solo no funciona bien xDD) pero si dentro del if ponemos lo que puso cΔssiΔnі funciona mejor!! pero algo esta mal y solo detecta el comando solo (clean, jo) los modificadores no:

Código (vb) [Seleccionar] Expandir

If E = 1 Then 'comando clean
Dim sCacho()   As String
Dim sResultado As String
Trim$ (a) ' quita espacios al principio-final
sCacho = Split(a, " ")
sResultado = ""
For i = 0 To UBound(sCacho)
Select Case (LCase$(sCacho(i)))
Case "clean": sResultado = sResultado & sCacho(i) & " "
MsgBox "indicar parametro"
Case "clean /q": sResultado = sResultado & sCacho(i) & " "
MsgBox "clean /q"
Case "clean /s": sResultado = sResultado & sCacho(i) & " "
MsgBox "clean /S"
End Select
Next
MsgBox sResultado
End If


haber si se me ha entendido..  un saludo y grax de antemano

Muchas grax por la info 

wenas, esta bien el code, voy a ver como lo uso en el proyecto y cuando termine cuelgo el proyecto para que le echeis una ojeada (ya q el 'motor' del exe es vuestro ajajaj) aver si no tengo mas contratiempos y lo posteo hoy. un saludo y grax

PD:los enlaces son bastante buenos (el de recursosvisualbasic no lo conocia)

jejeje, oye ya q estais todos aqui, me ha salido un mensaje al entrar como usuario a la pagina diciendome que estoy infectado sabeis porque¿¿??

un saludo

PD:Ok pollo1

aaaaaa  ...pensaba q decias idear,crear o algo asi

Esta perfecto el code

Un saludo

wenas, esque lo del split tampoco lo he usado nunca y tenia que mirar tambien lo del InStr...
Lo de identar el code me ha sido imposible...(tenia otra idea en la cabeza, primer post) pero lo q vosotros decis esq esta mejor, voy a probar el ejemplo grax Spider-Net

hombre si supiera hacer todo eso en apenas 2 meses esque serias un fuera de serie (q yo llevo 3 meses y pico y la verdad nose mucho aun  )
Es verdad, lo de que tiene trozos en ingles esta curioso 

un saludo