Creando un macro con Visual basic

[Paipote]

Hola, resulta que quiero hacer un Cheat para poder jugar mejor si ser casi el mejor matando personas (en  el juego si )
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

Private 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 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

[demoniox12]

Código [Seleccionar] Expandir

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!

[Paipote]

Muchas Gracias
yo pensaba que era unload me algo asi

ahora me e creado el siguiente Form2.
el cual es el que cuando acepta la contraseña entra al form2.show obvio
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

[demoniox12]

Lo que podes hacer es

Código [Seleccionar] Expandir


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..

Código [Seleccionar] Expandir


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..

Código [Seleccionar] Expandir

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


salu2! espero te sirva..

PD: no es MAUSE es MOUSE

[Paipote]

PD: no es MAUSE es MOUSE

jajajaja vale mi ortografia es orrenda

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]

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

salu2!

[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


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


bueno muchas gracias