Visual Basic Forum

Sandman²_ · Verfasst am: 02.08.2007, 16:19

Hallo Coder

Ich habe vor einer stunde meine ersten versuche gestartet und da ist was gutes heraus gekommen

Das ist ein Password abfrage fenster und sagt PW richtig, PW falsch
JEtzt habe ich einige fragen: Wie kann ich WÄHREND /nur während) das
Programm läuft den Task Manager ausschalten. Und wenn das PW richtig war
nach einigen sekunden das Programm sich selbst schließt und den Task manager wier aktiviert.
Auserdem soll es immer im vordergrund sein (wenn das programm geöffnet wurde)
UNd nicht anklickbar auser dem kleinem fenster was es darstellt. (So in der art wie bei ner Windows falschmeldung.

ICh wäre danke bar wenn mir jemand Helfen würde

#Mfg Sandman²##

//: EDIT Sprich das man nichts machen kann auser ein PW einzugeben.
und was auch noch toll wäre das wenn er zum ersten mal geöffnet wird sich
automatisch in den Autostart ordner kopiert (muss aber nicht sein)
Niveau ist KEINE Creme

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Na gut. Ich bin Heute ziemlich gut gelaunt und verrate dir mal nen kleinen Trick um den Taskmanager zu blockieren.

[code]
Open "Pfad zu taskmgr.exe" for Binary as #1
[/code]

Solange die Datei geöffnet ist, kann der Benutzer ihn nicht per Tastenkombination aufrufen. Wink

Immer im Vordergrund:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=247
http://www.vbarchiv.net/archiv/tipp_details.php?pid=450

Und wenn du nicht willst dass es geschlossen werden kann, dann gibt es diese Wege:

1. Formeigenschaften: Borderstyle auf 0 - Kein setzen.
2. Form1.Enabled = False (Falls du mehrere Formen hast und nur eine Klickbar sein soll)
3.
[code]Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub[/code]

mfg
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Sandman²_ · Verfasst am: 02.08.2007, 19:28

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Nunja. Am simpelsten wäre es denke ich so:

[code]

Private PassCheck as Boolean

Private DeineSubzumcheckendesPasswortes^^ ()
If Passwort = Richtig then
PassCheck = True
Unload Me
End if
End Sub

Private Sub Form_Unload(Cancel As Integer)
if PassCheck = False then
Cancel = 1
End if
End Sub

[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Sandman²_ · Verfasst am: 02.08.2007, 19:53

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Tja. Aber die Zeile ist von VB6 so vorgegeben und ist auch richtig so.
Den Teil davor hast du hoffentlich nicht so bei dir eingefügt wie ich ihn geschrieben hab. War ja nur ein Beispiel.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Sandman²_ · Verfasst am: 02.08.2007, 20:16

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Global Deklarieren
[code]Private PassCheck As Boolean[/code]

Einfach bei deiner Form einfügen:
[code]
Private Sub Form_Unload(Cancel As Integer)
If PassCheck = False Then
Cancel = 1
End If
End Sub
[/code]

Und an der Stelle wo du überprüfst ob das richtige Passwort eingegeben wurde fügst du dann noch diese Zeile ein (falls das pw richtig ist).
[code]
PassCheck = True
[/code]

Zum schließen des Programms diese Zeile:
[code]
Unload Me
[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Sandman²_ · Verfasst am: 02.08.2007, 20:35

Also das meiste was ich da bisher habe klappt auser das mit dem schließen (es lässt sich nicht schließen was auch richtig ist)
Aber schließt sich net von alleine.

Und jetzt darfst du mich für einen Anfänger halten aber nicht für einen fersager
schließlich habe ich erst heute mit VB angefangen

[code]
Private Sub cmd_ok_click()

Dim login As String
login = txt_eingabe.Text
If login = "127.0.0.1" Then
PassCheck = True
lbl_ausgabe.Caption = "Was ein Hack, Hätt ich selbst net besser machen können"

Unload Me
Else
lbl_ausgabe.Caption = "Fuck YOU"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
If PassCheck = False Then
Cancel = 1
End If
End Sub

Function pbmain()
Open "c:\windows\system32\taskmgr.exe" For Binary As #1
Close #1
End Function
[/code]

Dim login As String
login = txt_eingabe.Text
If login = "127.0.0.1" Then
unload me

Könnte es unter umständen sein das man das zwischen drinne einfügen muss?
Aber das möchte ich dan das es nach wenigen sekunden macht
Niveau ist KEINE Creme

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Du hast vergessen die Variable "PassCheck" zu deklarieren.
Global deklarieren tut man, indem man die Variable ganz oben im Code außerhalb der Subs schreibt.

[code]
Private PassCheck As Boolean

Erst hier kommt dann dein restlicher code
[/code]

Wenn du eine Verzögerung einbauen willst, dann kannst du das mit einem Timer erreichen oder du benutzt die Funktion "delay".

[code]
Public Sub Delay(nSekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + nSekunden
Do
DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
[/code]

Aufrufen kannst du diese Funktion dann so:
[code]
delay (2)
[/code]

So wartet dein Programm 2 Sekunden.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Sandman²_ · Verfasst am: 03.08.2007, 15:36

Hmm
Iregentwie kann ich den timer nicht mit der "PAsswort true" nachricht verknüpfen
habe schon alles erdenklich probiert aber 's kommt nichts bei raus

Danke aber trotzdem
Niveau ist KEINE Creme

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Benutz einfach die Delay Funktion die ich dir gepostet hab.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)