elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18 19
141  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 11 Mayo 2009, 20:53 pm
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!!!
142  Programación / Programación Visual Basic / Re: If ... End If problemas en: 11 Mayo 2009, 12:38 pm
Usos basicos de IF
If
Código
  1. If Objecto/Variable [Operador] Valor then
  2. ' Code si el valor es verdadero
  3. End if
Con un ejemplo:
Código
  1. If Text1.Text = "Juan" then
  2. Msgbox "Ha eres Juancho"
  3. 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
  1. If Text1.text <> "Juan" then
  2. Msgbox "Tu no eres Juan..!!!, Escribe Juan..!!!"
  3. 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
  1. If Objeto/Variable [Operador] Valor And Objeto/Variable = Valor then
  2. ' Code si los valores son verdaderos
  3. End if
Como ejemplo:
Código
  1. If Text1.Text = "Admin" And Text2.Text = "1234" then
  2. MsgBox "Eres el Admin."
  3. 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
  1. If Objeto/Var [Operador] "Valor1" or Objeto/Var = "Valor2" then
  2.       ' Code si es Valor1 o es Valor2
  3. End if
Con un ejemplo:
Código:
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
  1. If Objeto/Var [Operador] "Valor" then
  2. ' Code si es Verdadero
  3. Else
  4. ' Code si es falso
  5. end if
Con un ejemplo:
Código
  1. If Text1.text = "Juan" then
  2. MsgBox "Bienvenido Juan.."
  3. Else
  4. MsgBox "Usuario Incorrecto..!!!"
  5. 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!!!
143  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 11 Mayo 2009, 09:23 am
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
144  Programación / Programación Visual Basic / Re: remplazar linea de un textbox multi linea en: 9 Mayo 2009, 05:59 am
Copia esta funcion en Codigo General del form1:
Código
  1. Private Function ReplaceT(OutPut As Object, Txt1 As String, Txt2 As String, Line As Long)
  2. Dim Spli() As String
  3. Dim Tmp As String
  4. Dim LineTmp As String
  5. Spli = Split(OutPut, vbNewLine)
  6. For i = 0 To UBound(Spli)
  7. If i = Val(Line - 1) Then
  8. LineTmp = Spli(Line - 1)
  9. LineTmp = Replace(LineTmp, Txt1, Txt2)
  10. Tmp = Tmp & LineTmp & vbNewLine
  11. Else
  12. Tmp = Tmp & Spli(i) & vbNewLine
  13. End If
  14. Next i
  15. ReplaceT = Tmp
  16. End Function
Ese es el code que busca y reemplaza caracteres por linea lo usas asi con un command button:
Código
  1. Private Sub Command1_Click()
  2. Text2.Text = ReplaceT(Text1, "Esto", "Por esto", 1)
  3. 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!!!
145  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 8 Mayo 2009, 18:59 pm
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 :-X

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 :P
Si quieres luego de que tengas listo el tuyo lo publico ;)

Saludos
Lo de las ventanas lo puedo solucionar edito despues..
SaluDOS!!!
146  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 8 Mayo 2009, 16:16 pm
Y seguro que funciona lo del pass en la carpeta? :rolleyes:
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 :xD
Por eso dije ...
Citar
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!!!
147  Programación / Programación Visual Basic / Re: remplazar linea de un textbox multi linea en: 8 Mayo 2009, 11:38 am
Copia esta funcion en Codigo General del form1:
Código
  1. Private Function ReplaceT(OutPut As Object, Txt1 As String, Txt2 As String, Line As Long)
  2. Dim Spli() As String
  3. Dim Tmp As String
  4. Dim LineTmp As String
  5. Spli = Split(OutPut, vbNewLine)
  6. For i = 0 To UBound(Spli)
  7.    If i = Val(Line - 1) Then
  8.        LineTmp = Spli(Line - 1)
  9.        LineTmp = Replace(LineTmp, Txt1, Txt2)
  10.        Tmp = Tmp & LineTmp & vbNewLine
  11.    Else
  12.        Tmp = Tmp & Spli(i) & vbNewLine
  13.    End If
  14. Next i
  15. ReplaceT = Tmp
  16. End Function
Ese es el code que busca y reemplaza caracteres por linea lo usas asi con un command button:
Código
  1. Private Sub Command1_Click()
  2. Text2.Text = ReplaceT(Text1, "Esto", "Por esto", 1)
  3. 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..
148  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 8 Mayo 2009, 05:22 am
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!!!
149  Programación / Scripting / Re: [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 6 Mayo 2009, 18:20 pm
jajaja me encanta! ;D ;D ;D
Entonces espera que ponga para poder pedir password y congelar una ventana.., lo hago despues de venir del cole..
SaluDOS!!!
150  Programación / Scripting / Re: filnspect [VBS] en: 6 Mayo 2009, 18:11 pm
A que adivino que navegador utilizas? IExplorer? :rolleyes:

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

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!!!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [15] 16 17 18 19
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines