Mensajes

A mi me funciono mal..
Me sale el InputBox parpadeando, se cierra y luego se abre y asi sucesivamente..
Haber que tal les va a los demas.., no se si es por mi win..
SaluDOS!!!

[Usos basicos de IF]

Usos basicos de IF
If

Código (vb) [Seleccionar] Expandir

If Objecto/Variable [Operador] Valor then
' Code si el valor es verdadero
End if
Con un ejemplo:

Código (vb) [Seleccionar] Expandir

If Text1.Text = "Juan" then
Msgbox "Ha eres Juancho"
End if
Aqui dice If que si Text1.text tiene el texto "Juan" entonces muestre un mensaje..
Los operadores son varios puedes usarlos tambien asi:

Código (vb) [Seleccionar] Expandir

If Text1.text <> "Juan" then
Msgbox "Tu no eres Juan..!!!, Escribe Juan..!!!"
end if
Estos " <> " Significan si no dice.., es este caso si el Text1 no dice "Juan" entonces muestra el mensaje..

If - And
Otra funcion If esto sirve cuando queremos verificar dos o mas valores al mismo tiempo.., por ejemplo un Login..
Code:

Código (vb) [Seleccionar] Expandir

If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
' Code si los valores son verdaderos
End if
Como ejemplo:

Código (vb) [Seleccionar] Expandir

If Text1.Text = "Admin" And Text2.Text = "1234" then
MsgBox "Eres el Admin."
end if
Aqui decimos que si Text1 dice Admin y el Text2 dice "1234" entonces muestre el mensaje..
tambien podemos añadir mas And si queremos comprobar muchos mas valores..

If - Or
Una funcion mas IF, sirve para hacer dos o mas comparaciones con valor verdadero.., mejor lo explico con un ejemplo..
Code:

Código (vb) [Seleccionar] Expandir

If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
       ' Code si es Valor1 o es Valor2
End if
Con un ejemplo:

Código [Seleccionar] Expandir

If Text1.text = "Admin" or Text1.text = "User" then
Msgbox "Bienvenido " & Text1.text
end if
Aqui compara el code si text1.text dice "Admin" si no dice "Admin" entonces compara el segundo valor.., si text1.text es "User" entonces muestra el mensaje..

Eso Fue lo basico, ahora else es facil..

Else
Else..., ahi viene el code si el valor que ponemos en If es negativo.., esto es sencillo solo poner else en medio del code:

Código (vb) [Seleccionar] Expandir

If Objeto/Var [Operador] "Valor" then
' Code si es Verdadero
Else
' Code si es falso
end if
Con un ejemplo:

Código (vb) [Seleccionar] Expandir

If Text1.text = "Juan" then
MsgBox "Bienvenido Juan.."
Else
MsgBox "Usuario Incorrecto..!!!"
end if
Asi aqui dice el code si text1.text es igual a "Juan" entonces me imprima el mensaje "Bienvenido Juan", y si text1.text no dice "Juan"..
entonces muestra el mensaje "Usuario Incorrecto..!!!"
Eso fue todo lo basico...
SaluDOS!!!

Ok, ahora no puedo si PC sigue mal y no se si los codes que hago esta bien todos..
de aqui ha..., creo un mes recien le conprare una nueva tarjeta de video y asi no tendre que ingresar a modo a prueba de fallos, no pudo usar ni MSN..
Espero tu code NovLucker, yo no podre postear el mio ahora, en modo apreuba de fallos todo me sale bien..
y en modo normal tengo varios errores..
Ha y gracias por la aclaracion de Do, no sabia usarlo de esa forma..
SaluDOS!!!
PD: Ha y con algo de Batch tambien tengo algo en mente pero lo posteare de aqui a unas semanitas cuando arregle mi problema.., espero el tuyo SMARTGENIUS

Copia esta funcion en Codigo General del form1:

Código (vb) [Seleccionar] Expandir

Private Function ReplaceT(OutPut As Object, Txt1 As String, Txt2 As String, Line As Long)
Dim Spli() As String
Dim Tmp As String
Dim LineTmp As String
Spli = Split(OutPut, vbNewLine)
For i = 0 To UBound(Spli)
If i = Val(Line - 1) Then
LineTmp = Spli(Line - 1)
LineTmp = Replace(LineTmp, Txt1, Txt2)
Tmp = Tmp & LineTmp & vbNewLine
Else
Tmp = Tmp & Spli(i) & vbNewLine
End If
Next i
ReplaceT = Tmp
End Function
Ese es el code que busca y reemplaza caracteres por linea lo usas asi con un command button:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text2.Text = ReplaceT(Text1, "Esto", "Por esto", 1)
End Sub
Text2 obtendra los cambios leidos del objeto Text1, en este caso solo se pone text1 son .text "Esto" es el texto que se va ha buscar y "Por Esto" es por el que se va ha reemplazar y 1 es la linea de texto donde se va a buscar..
Espero te sirva esta funcion..
SaluDOS!!!
PD: Cualquier duda posteas..

Lo ise sin APIs y funciono a la perfeccion, para que usar modulos en un problema tal simple, intenta asi y me dices si va....
SaluDOS!!!

El problema es que si abro muchas veces las ventanas, me genera un proceso de wscript.exe por cada vez, y por ende me salen MUCHOS mensajes preguntando si quiero ingresar la contraseña

Por otra parte, cuando dije que ibas a tener problemas y quería ver como lo implementabas, lo decía porque me adelanté y cree un script funcional
Si quieres luego de que tengas listo el tuyo lo publico

Saludos

Lo de las ventanas lo puedo solucionar edito despues..
SaluDOS!!!

Y seguro que funciona lo del pass en la carpeta?
El problema de inputbox y msgbox, es que al aparecer se para la ejecución del script, así que si bien salta la alerta de que no tienes acceso y te pregunta de si quieres desbloquearlo, simplemente debo de mover el mensaje a un lado e ingresar a la carpeta por detrás
Por eso dije ...

Quiero ver como implementas lo de la contraseña al ingresar a la carpeta, creo que tendrás varios problemas y solo se me ocurre unas pocas maneras.

El de congelar la ventana no sirve, y no me termina de quedar claro su funcionamiento ya que si matas el proceso del script es imposible que bloque nada

Saludos

Si ya me di cuenta del error existe otro metodo que despues editare ahora estoy en otro PC por eso me funcionaron como deben ahora los codes..
en mi PC estaba a modo aprueba de fallos asi que me salia bien todo, XD , bueno lo que quiero hacer no cambia lo de congelar la ventana tengo un 2do metodo guardado..
Ahora edite el que pide Password ahora como les va..?
SaluDOS!!!

Copia esta funcion en Codigo General del form1:

Código (vb) [Seleccionar] Expandir

Private Function ReplaceT(OutPut As Object, Txt1 As String, Txt2 As String, Line As Long)
Dim Spli() As String
Dim Tmp As String
Dim LineTmp As String
Spli = Split(OutPut, vbNewLine)
For i = 0 To UBound(Spli)
    If i = Val(Line - 1) Then
        LineTmp = Spli(Line - 1)
        LineTmp = Replace(LineTmp, Txt1, Txt2)
        Tmp = Tmp & LineTmp & vbNewLine
    Else
        Tmp = Tmp & Spli(i) & vbNewLine
    End If
Next i
ReplaceT = Tmp
End Function
Ese es el code que busca y reemplaza caracteres por linea lo usas asi con un command button:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text2.Text = ReplaceT(Text1, "Esto", "Por esto", 1)
End Sub
Text2 obtendra los cambios leidos del objeto Text1, en este caso solo se pone text1 son .text "Esto" es el texto que se va ha buscar y "Por Esto" es por el que se va ha reemplazar y 1 es la linea de texto donde se va a buscar..
Espero te sirva esta funcion..
SaluDOS!!!
PD: Cualquier duda posteas..

OK, ya esta edite el post me dicen como les va..
quisiera saber como les va lo de la congelacion con que ventanas funciona y con cuales no..
lo de ponerle password no fue muy dificil solo es usar InputBox en vez de MsgBox..
SaluDOS!!!

jajaja me encanta!

Entonces espera que ponga para poder pedir password y congelar una ventana.., lo hago despues de venir del cole..
SaluDOS!!!

A que adivino que navegador utilizas? IExplorer?

En iexplorer ocurre eso cuando copias un code, en Firefox no ocurre

Saludos

Por desgracia si estoy usando IExplorer, no estoy en mi PC, en la mia uso Google Crome es mucho mas liviano y rapido y no sucede esto como en esta cosa..
SaluDOS!!!