So i decided to make a fake hacker to try to learn how to use a command line. But when i get it up even when i press enter it automatically works.
To test on a console in security disabled clickonce
Code:Module Module1 Sub Main() Dim i As Integer Dim l As Integer Dim chance As Integer = Rnd(1) For Each arg In My.Application.CommandLineArgs If arg = "/Load_Hacker" Then Console.WriteLine("Loaded") Console.ReadLine() i = 1 ElseIf arg = "/Get_Level_IP" Then Console.WriteLine("Searching") Console.WriteLine("Complete") Console.WriteLine("IP_163.784.222.01") Console.ReadLine() l = 1 ElseIf arg = "/Send_Spike_To_163.784.222.01" And l > 0 Then chance = (Str(Int(Rnd() * 4))) Console.WriteLine("Sending_Spike") Console.WriteLine("Spike_Sent") Console.WriteLine("Receving_Data") Console.WriteLine("No_Fire_Wall") Console.WriteLine("Password_luchis") Console.WriteLine("Connection_Clear") Console.ReadLine() l = 2 ElseIf arg = "/Access_163.784.222.01_With_luchis" And l > 1 Then Console.WriteLine("Sending") Console.WriteLine("Verifying") Console.WriteLine("Accesing") Console.WriteLine("Complete") Console.WriteLine("Accesed_3_Folders") Console.WriteLine("Pictures") Console.WriteLine("Documents") Console.WriteLine("Applications") l = 3 Console.ReadLine() ElseIf arg = "/Access_Pictures" And l > 2 Then Console.WriteLine("Empty_Folder") Console.ReadLine() ElseIf arg = "/Access_Applications" And l > 2 Then Console.WriteLine("Word") Console.WriteLine("IE") Console.ReadLine() ElseIf arg = "/Access_Document" And l > 2 Then Console.WriteLine("Favorite") Console.ReadLine() ElseIf arg = "/Access_Document_Favorite" And l > 2 Then Console.WriteLine("My favorite food is salmon.") Console.ReadLine() Else Console.WriteLine("EROR") Console.ReadLine() End If Next End Sub End Module




Reply With Quote