Program won't hide:(

[Spot_1337]

Hello,
i got a little problem with my vb program
This is the code:

 If My.Computer.FileSystem.DirectoryExists("C:\Fast Emailz\") = False Then

        Else
            Dim cdacc As New System.IO.StreamReader("C:\Fast Emailz\" + "cd-key.txt")
            Dim cda As String
            cda = cdacc.ReadLine
            If cda = "*cdkey*" Then
                cdkay.Text = cda
                cdacc.Close()
                Me.Hide()
                Form1.Show()
            ElseIf cda = "*cdkey*" Then

                cdkay.Text = cda
                cdacc.Close()
                Me.Hide()
                Form1.Show()
            ElseIf cda = "*cdkey*" Then
                cdkay.Text = cda
                cdacc.Close()
                Me.Hide()
                Form1.Show()
            Else

            End If
        End If

the problem is that it it won't hide itself , it show form 1 but don't hide itself. Probably some noob mistake but i can't see what's wrong

+Rep if you can help me :wave:

[Dombo]

Me.Hide()
Form1.Show()
Is a contradiction?

[maclone]

Just set opacity to 0%

[Spot_1337]

-> Dombo , huh?

-> maclone , i can still see the program in the program field or the field that you see firefox or all programs when they run

[maclone]

Me.Hide()
Form1.Show()
Is a contradiction?

It isn't possible, he would get an error that he should use "Me." instead of "Form1."

-> maclone , i can still see the program in the program field or the field that you see firefox or all programs when they run

Me.ShowInTaskbar = False
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.Size = New System.Drawing.Size(0, 0)

Or add code in Form1 to hide the "Me." form.

[Spot_1337]

nothing works

[Spot_1337]

Please help me with this, i will give you 3x +rep cos i need this fast :S

[Jonthe838]

to hide it from the crtl + alt + del process list type

'System & API - How to Hide your Program from the Ctrl-Alt-Del Process list

Option Explicit

Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Public Sub HideApp(Hide As Boolean)
    Dim ProcessID As Long
    ProcessID = GetCurrentProcessId()
    If Hide Then
        RetVal = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
    Else
        RetVal = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
    End If
End Sub

'How can I call this function:
'
'To Hide your program:
'Call HideApp (True)
'
'To Show your program:
'Call HideApp (False)

I dont think it hides it in the program bar but u can try...
And if this doesent work i dont know how to fix this... sry

[Spot_1337]

i don't want the program to get invisible just form2 :P like
form2.hide
form1.show

[Spot_1337]

i got an accept button, is it any way to make the program press it faster then you can see the window or something?

[Spot_1337]

Fixed the prob

Me.TopMost = True
SendKeys.Send("{ENTER}")
Me.TopMost = False

Thanks for helping

[maclone]

to hide it from the crtl + alt + del process list type

wohoo

I dont think it hides it in the program bar but u can try...
And if this doesent work i dont know how to fix this... sry

RetVal not declared.

[Migster]

FormX.Visible = False

If it is the instance you're working on, it'll be Me.Visible = False

To unhide it, it will be .Visible = True

This is the EASIEST way to do it. It will hide both from screen and from taskbar.