Mostrar Mensajes
¿Y que es lo que tenes hecho hasta ahora?
Bueno, estaba haciendo un fake para travian y lo que tengo hecho hasta ahora es.
Código:
Private Sub Command1_Click()
If Text1.Text = "user" And Text2.Text = "pass" Then
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = i
For i = 0 To ProgressBar1.Max
ProgressBar1.Value = i
Next
End If
If ProgressBar1.Value = 100 Then
Form2.Show
MsgBox ("¡Login succesful!")
Form1.Hide
End If
End Sub
Esto seria como el login para hacerlo parecer normal.
Código:
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = Rnd * 300 + 10
ProgressBar1.Value = ProgressBar1.Value + 2
Label9.Caption = ProgressBar1.Value & "%"
If Label9.Caption = 100 & "%" Then
MsgBox "¡Injection completed!", vbInformation + vbDefaultButton1, "Travian 4"
End If
End Sub
Y esto seria el form2 que contiene un poco(casi nada) del codigo del ejecutable.
Aproposito, como puedo hacer spoilers?