test1.exe
Code:Private Sub Command1_Click() dim open Open "c:\password.txt" For Output As #1 Print #1, "password" Close #1 Shellex "c:\test1.exe" End Sub
test2.exe
Code:Private Sub Form_Initialize() Me.Hide Open "c:\password.txt" For Input As #1 Input #1, getpassword Close #1 If getpassword = "password" Then Form1.Show Kill "c:\password.txt" Else GoTo End1 End If End1: End Sub




Reply With Quote