Creando un macro con Visual basic

Iniciado por Paipote, 18 Diciembre 2007, 16:53 PM

0 Miembros y 3 Visitantes están viendo este tema.

Paipote

Hola, resulta que quiero hacer un Cheat para poder jugar mejor si ser casi el mejor :P matando personas (en  el juego si :P)
dejo claro que mi experiencia en Visual Basic es el minimo.
lo que he echo es este.



lo cual en el codigo escrito es este

CitarPrivate Sub Command1_Click()
If Not LCase(Text1.Text) = "administrador" Then
        MsgBox "Contraseña Incorrecta", vbCritical, " No se pudo abrir "
    Else
        End If


end Sub

eso es para que cada vez que yo quiera entrar, me pida la contraseña.
despes esto




eso le puse para que cada vez qie ingrese mal la contraseña mande ese error :P b

bueno, aqui va mi peticion

es que cada vez que quiera ingresar, le pida la contraseña ya dada en este caso es "administrador" ahora lo que quiero es que cada vez que ponga la contraseña mal, se cierre el programa ("el macroao")
y
bueno
que cuando ponga la contraseña bien entre al programa, lo cual se podra modificar....
pero...
resulta que si pongo la mal, igual entra al programa. al ponerle form2.show
que puedo hacer ?
es entendible lo que acabo de pedir gracias :P

demoniox12

Private Sub Command1_Click()
If Not LCase(Text1.Text) = "administrador" Then
        MsgBox "Contraseña Incorrecta", vbCritical, " No se pudo abrir "
End
    Else
Form2.show
        End If


end Sub


salu2!
By Demoniox

Paipote

#2
Muchas Gracias
yo pensaba que era unload me algo asi :P

ahora me e creado el siguiente Form2.
el cual es el que cuando acepta la contraseña entra al form2.show obvio :P
es el siguiente


ahora me gustaria saber.. como hago para que la configuracion se guarde en un txt. apretando en el boton Guardar un grabado automaticamente en un txt



en esta imagen.
como ven el diseño, solo esta el diseño, y no contiene ningun codigo.
me pudrian ayudar a formar esta pequeña aplicacion porfavor
la imagen de abajo es del menu configuracion del form3.show como ven, es solo el diseño


bueno muchas gracias
acepto cualquier sugerencia :D

demoniox12

#3
Lo que podes hacer es


A_Guardar = dato1 & vbCrLf & dato2 & vbCrLf & dato3
Open App.Path & "\Configuracion.ini" For Output As #1 ' Se abre el archivo
Print #1, A_Guardar ' se escribe...
Close #1 ' y se cierra


despues para obtener la configuracion seria..


Open App.Path & "\Configuracion.ini" For Binary As #2
Extraido = Space(LOF(2))
Get #2, , Extraido
Close #2
Datos = Split(Extraido, vbCrLf)


y eso te devuelve los datos separados osea Datos(0) es el dato1 anteriormente guardado.. etc... etc..

para comprobar si el checkbox esta marcado o desmarcado seria..

If Check1.Value = 0 Then
MsgBox ("Desmarcado")
Else
MsgBox ("Marcado")
End If



salu2! espero te sirva..

PD: no es MAUSE es MOUSE :P
By Demoniox

Paipote

#4
Cita de: demoniox12 en 18 Diciembre 2007, 18:39 PM
PD: no es MAUSE es MOUSE :P
jajajaja vale mi ortografia es orrenda :P

bueno entonces. el codigo ese, lo guardo dentro del form?

Paipote

o por otro lado hacerlo que no los guarde, si no , o configurarlo desde aca mismo, osea configurandolo, con la tecla queva a usar

demoniox12

Cita de: Paipote en 18 Diciembre 2007, 19:41 PM
o por otro lado hacerlo que no los guarde, si no , o configurarlo desde aca mismo, osea configurandolo, con la tecla queva a usar

Yo te di la base, vos adaptalo a tus necesidades, y eso que cite no entiendo lo que keres decir :P

salu2!
By Demoniox

Paipote

lo que sitaste quiere decir
configurarlo desde el mismo visual basic dejarlo listo en funcionamiento. sin que lo guarde en un texto. si no que ya este listo

http://www.hotshare.net/file/24115-443907951f.html
mira echale un vistaso a ese
es algo parecido
solamente que es detectable, por que es antiguo. por lo cual yo quiero hacer uno nuevo

SKL (orignal)

Siempre, pero siempre usa UNLOAD form, porque el End termina el proseso y no lo descarga de la memoria, y despues si estas usando una base de datos o algo asi, te va a tirar error porqeu ya esta en uso, y el programa cada ves que lo inicies va a estar colgado... asi que usa siempre si o si Unload...

saludos!

Paipote

 ya que explicando soy un poco enredado :P


bueno como vez en la imagen de arriba esta el checkbox  junto con el msgbox. diciendo que esta marco


y en esta imagen dice que esta desmarcado

bueno lo que quiero yo es que...
cuando esté marcado, tenga la opcion del mouse de usar el boton derecho del mouse pero con la opcion de U
me entiendes??
bueno ese eso

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

o alomejor le viene un  optionbutton :P


bueno muchas gracias