Sunflower84

Hallo Ich möchte gerne den Verlauf meines Browsers via Tastenkombination löschen. Gibt es da eine Funktion bei VB? Das mit dem Kill funktioniert nicht. Er sagt mir immer Datei nicht gefunden. Ich habe es einmal so versucht: ....Verlauf/Heute und so: ....Verlauf/*.* (C:\Dokumente und Einstellungen\username\Lokale Einstellungen\Verlauf\Wochentag) Immer die gleiche Fehlermeldung. Es muss doch irgendeine Möglichkeit geben diesen Verlauf zu löschen:( Lg Sunflower84

Du hast mir zwar ein Beispiel gezeigt, aber das funktioniert nur wenn man nichts anderes mehr macht am PC. Sobald ich den Browser aufrufe reagiert er nicht auf die Tastenkombi. Aber ich habs ja jetzt anders gelöst. Trotzdem danke:-) Lg Sunflower84

Hat sich erledigt. Funktioniert jetzt. Lg Sunflower

Hallo Ich habe ein Ereigniss das bei einer Tastenkombination von Shift ausgelöst wird. Jetzt will ich aber mehr wie nur eine Taste. Shift und F1 zum Beispiel. Wie mache ich das ? Bis jetzt sieht es so aus: If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) Then frmLogin.Visible = True End If Lg Sunflower84

Funktioniert jetzt alles. Danke an euch alle :-) Lg Sunflower84

Die Idee von Inquisitor ist garnicht so schlecht. Java ist kein Problem das hatten wir schon wie du gesagt hast. Bin gerade am überlegen was mit VB zu machen. Oder kommt VB nicht so gut an bei der IHK? Lg Sunflower84

Das habe ich jetzt genau unter dem Unload Me eingefügt. Aber wenn die Zeit jetzt abgelaufen ist und ich das Passwort eingegeben habe kommt eine Fehlermeldung "Laufzeitfehler 424 Objekt erforderlich" Kann das sein das es daran liegt das der timer in einer anderen Form liegt? So sieht es momentan aus: Private Sub Command1_Click() If Text1.Text = "edl2005" Then 'Passwort OK? Timer1.Interval = 1 Timer1.Enabled = False FormOnTop Me.hwnd, False DestroyWindow Me.hwnd Unload Me Form.Timer1.Interval = 1000 End If End Sub Fehlt da noch etwas? Lg Sunflower84

Hier schließe ich das Fenster mit einem klick wenn das Passwort eingegeben worden ist: Private Sub Command1_Click() If Text1.Text = "edl2005" Then 'Passwort OK? Timer1.Interval = 1 Timer1.Enabled = False FormOnTop Me.hwnd, False DestroyWindow Me.hwnd Unload Me End If End Sub Nach dem Unload Me muss ich ja dann wieder den Timer von der anderen Form aufrufen, oder? Wenn ja wie ruf ich die denn auf? Lg Sunflower84

Das brauch ich ja aber nicht. Das man beim ersten mal den Start Button drückt ist ja kein Problem. Mir ist da was anderes eingefallen wie man es machen kann. Wenn das Vollbild kommt muss man ja ein Passwort eingeben damit es wieder verschwindet. Danach ist ja der ganze Timer beendet. Wie kann ich es machen das man nach der Passworteingabe das Vollbild zwar verschwindet aber der Timer wieder von vorne beginnt, oder das Programm erst garnicht beendet wird damit man den Timer wieder starten kann? Hab keine Ahnung was ich da ändern muss. Lg Sunflower84

Also ich starte zuerst die exe. Dann betätige ich den Button start. Nach dem betätigen des Start Buttons fängt der Countdown (15 Min) an und der Button wird deaktiviert damit der Benutzer des Intercafes den Timer nicht von vorne starten kann. Wenn aber jemand schon früher geht muss der Timer wieder von vorne gestartet werden. Dafür habe ich ja schon eine Tastenkombination. Wenn aber der Benutzer bis zum Ende bleibt kommt ein Vollbild, dass man nicht weg klicken kann sondern nur mit Passwort verschwindet. Danach ist aber das komplette Programm beendet. Deshalb brauche ich eine Tastenkombi wo ich das komplette Programm wieder aufrufen kann. Wenn ich mir die Definition der sendkeys durchlese dann ist das nicht das was ich suche, oder habe ich da was falsch verstanden? Lg Sunflower

Ich habe das mit der Shell versucht. Es funktioniert aber nur teilweise. Ich habe ja noch einen Start Button mit dem ich den Timer starte. Nach dem starten kann ich mit der Tastenkombination ALT den Timer von vorne anfangen lassen. Das mit der Shell funktioniert nur nachdem ich den Start Button betätigt habe. Wenn die Zeit abgelaufen ist wird aber das komplette Programm beendet. Dafür bräuchte ich dann eine Tastenkombination um den Timer wieder aufzurufen. Lg Sunflower84

Habs hin bekommen. Das mit den Hooks ist wirklich eine schöne Sache. Ich würde auch gern per Tastenkombination das komplette Programm aufrufen können. Also wenn die Zeit abgelaufen ist wird er ja einfach beendet. Danach würde ich ihn gern per Tastenkombi aufrufen. Habs mir so gedacht z.B mit Shift: If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) Then End If Aber was muss ich dort rein schreiben damit ich das Programm wieder aufrufen kann? Lg Sunflower

Das mit den Hooks ist eine gute Idee. Wenn ich das mit einer If prüfe ob z.B die Alt Taste gedrückt worden ist kann ich das dann so schreiben? Was schreibe ich dann aber ins Else? If CBool(GetAsyncKeyState(VK_MENU) And &H8000) Then m = 15 s = 0 Lg Sunflower

Jetzt geht es zwar aber nur solange ich an meinem PC nichts mache. Der Timer drängt sich ja immer in den Vordergrund. Damit der Benutzer im Internetcafe immer sieht wieviel Zeit er noch hat. Doch sobald ich den Browser starte reagiert er nicht mehr auf die Tastenkombination. Lg Sunflower

Ja, genau. Mein Problem ist es das mit Tastenkombination zu lösen. Einfach per Tastenkombination den Timer wieder auf 15 Minuten. Ich glaube ich stehe gerade etwas auf der Leitung. Lg Sunflower84

Sorry, da hast du mich falsch verstanden. Der Timer soll während er läuft und wenn er zu Ende ist mit einer Tastenkombination von vorne gestartet werden. Sorry nochmal. Lg Sunflower84

Hallo Erstmal danke für eure Hilfe. Aber leider klappt es so nicht. Was ich vielleicht noch dazu sagen muss, wenn die Zeit abgelaufen ist erscheint ein Fullscreen der erst wieder weg geht mit einem Passwort. Hier mal mein kompletter Code. frmTimer: Option Explicit Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Const WIN_LOGOFF = 0 Dim s As Integer Dim m As Integer Dim h As Integer Dim sec As Integer Dim min As Integer Dim hour As Integer Dim Abbruch As Boolean Dim frmontop As Double Private Sub Form_Load() ' Minimieren/Maximieren Buttons zur ' Laufzeit anzeigen MinMaxButton Me ' Fenster immer im Vordergrund anzeigen TopWindow Me.hwnd End Sub Private Sub close_Click() Dim F As Form Abbruch = True For Each F In Forms Unload F Set F = Nothing Next End Sub Private Sub cmdStartTimer_Click() Abbruch = False Timer1.Interval = 1000 Timer1.Enabled = True 'fester Wert eintragen s = 0 m = 1 h = 0 Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") Do If Abbruch = True Then Exit Do DoEvents cmdStartTimer.Enabled = False If h = 0 And m = 3 And s = 0 Then MsgBox "15 minutes allowance are over. Please finish your work now.", vbOKOnly + vbSystemModal End If Loop Until s = 0 And m = 0 And h = 0 Label1.ForeColor = vbRed 'MsgBox (NameC1 & "abgelaufen") Timer1.Enabled = False 'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF) frmLock.Visible = True Unload Me End Sub Private Sub Label9_Click() End Sub Private Sub Timer1_Timer() s = s - 1 If s < 0 And m > 0 Then m = m - 1 s = 59 ElseIf m <= 0 And h > 0 And s < 0 Then h = h - 1 m = 59 s = 59 End If Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") End Sub [COLOR="Red"]frmLock:[/COLOR] [CODE] Private Sub Command1_Click() If Text1.Text = "edl2005" Then 'Passwort OK? Timer1.Interval = 0 Timer1.Enabled = False FormOnTop Me.hwnd, False DestroyWindow Me.hwnd Unload Me End If End Sub Private Sub Form_Load() Timer1.Interval = 1 Timer1.Enabled = True Me.WindowState = vbMaximized Me.Move 0, 0, Screen.Width, Screen.Height FormOnTop Me.hwnd, True End Sub Private Sub Timer1_Timer() 'BringWindowToTop (Me.hWnd) FormOnTop Me.hwnd, True End Sub Und noch ein Modul. Ich hoffe ihr könnt mir helfen, da ich es für die Firma machen muss und im Moment nicht mehr weiter weiss. Lg Sunflower84

Der Countdown ist für ein Internetcafe. Da jeder Benutzer nur 15 Minuten Zeit hat. Den Countdown starte ich mit einen Button. Kann ich nicht den Button per Tastenkomibnation aktivieren? Lg Sunflower84

Hallo Ich habe einen Countdown. Ich möchte gerne das dieser Countdown per Tastenkombination von vorne anfängt. Wie mache ich denn das ? frmTimer: Option Explicit Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Const WIN_LOGOFF = 0 Dim s As Integer Dim m As Integer Dim h As Integer Dim sec As Integer Dim min As Integer Dim hour As Integer Dim Abbruch As Boolean Dim frmontop As Double Private Sub Form_Load() ' Minimieren/Maximieren Buttons zur ' Laufzeit anzeigen MinMaxButton Me ' Fenster immer im Vordergrund anzeigen TopWindow Me.hwnd End Sub Private Sub close_Click() Dim F As Form Abbruch = True For Each F In Forms Unload F Set F = Nothing Next End Sub Private Sub cmdStartTimer_Click() Abbruch = False Timer1.Interval = 1000 Timer1.Enabled = True 'fester Wert eintragen s = 0 m = 1 h = 0 Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") Do If Abbruch = True Then Exit Do DoEvents cmdStartTimer.Enabled = False If h = 0 And m = 3 And s = 0 Then MsgBox "15 minutes allowance are over. Please finish your work now.", vbOKOnly + vbSystemModal End If Loop Until s = 0 And m = 0 And h = 0 Label1.ForeColor = vbRed 'MsgBox (NameC1 & "abgelaufen") Timer1.Enabled = False 'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF) frmLock.Visible = True Unload Me End Sub Private Sub Label9_Click() End Sub Private Sub Timer1_Timer() s = s - 1 If s < 0 And m > 0 Then m = m - 1 s = 59 ElseIf m <= 0 And h > 0 And s < 0 Then h = h - 1 m = 59 s = 59 End If Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") End Sub Ich habe was gefunden aber nur mit ner MsgBox: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = vbCtrlMask And KeyCode = vbKeyQ Then MsgBox "Strg - Taste + Q wurde gedrückt" End If Kann ich da ansatt der MsgBox auch die Form aufrufen damit der Timer wieder von vorne anfängt oder klappt das so nicht? lg Sunflower84

Hi Leute Ich habe ein Problem wegen meines Abschlussprojekts. In meiner Firma habe ich mehr mit Webseiten, Flash und Director zu tun. Habe auch schon eine Datenbank gemacht mit Access und mit ASP und SQL gearbeitet, aber zur Zeit eher weniger. Da das Abschlussprojekt ja firmenbezogen sein soll wollte ich mal fragen ob man als Fachinformatiker AE was mit Flash oder so etwas in der Art machen kann. Denn darin habe ich momentan die meiste Erfahrung. Was meint ihr? Lg Sunflower84

Hallo Ich habe Eingabefelder wo sich die Benutzer eintragen müssen. Wenn man auf den Butto anmelden klickt sollen diese Daten in MS Access Datenbank rein geschrieben werden.Lokal funktionierte das ganze auch. Da ich es aber über ein SystemDNS gemacht habe funktionierte das im Web nicht. Jetzt habe ich die Verbindung so gemacht: strDatabase = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Anmeldung.mdb") & "; Jetzt bekomme ich keine Fehlermeldung aber er schreibt mir die Daten einfach nicht in die DB. Was mir aufgefallen ist,in der Datei wo die Verbindung gemacht wird sind alle Rechte vorhanden. In der Datei wo die Eingabefelder sind, fehlen zwei Rechte.Die sich aber auch nicht hinzufügen lassen. Kann es an den Rechten liegen, dass er mir keine Daten in die DB schreibt. Das ganze mache ich mit ASP. Ich hoffe ihr könnt mir helfen. Bin schon total verzweifelt. Lg Sunflower

Hat denn keiner mehr eine Idee woran das liegen kann?

Also wie das mit den Klassen und Funktionen funktioniert bekomm ich hin. Wenn ich aber versuche mit dem Visual C++ zu programmieren dann komm ich schon sehr durcheinander. Da das Programm schon sehr viele Dateien selbst erstellt und dort auch schon überall sehr viel drin steht. Ehrlich gesagt hab ich keine Ahnung wo ich was rein schreiben soll. Das Hauptprogramm ist der Name.cpp und die Header die Name.h. Aber mehr weiss ich nicht. Ich habe keine Ahnung was ich mit den ganzen Dateien anfangen soll. Hast du vielleicht etwas wo das Programm Visual C++ genau beschreibt? Aber das andere kannst du mir auch gerne schicken.

Also mit C++ hab ich es zuerst versucht, aber da hat es garnicht geklappt. Ich bin gerade im 1.Lehrjahr und der einzige Programmierer in der Firma. Also Fragen kann ich leider auch keinen. Muss das nämlich bis nächste Woche fertig haben. Deshalb wäre es lieb wenn du dir das mal daheim anschaust :-) Mit der objektorientierten Programmierung in C++ bin ich noch nicht ganz vertraut. Deshalb hab ich mich dann für VB entschieden. Oder hast du zufällig solch ein Programm mal in C++ gemacht?

Ich habe dir den kompletten Quelltext in den Anhang gelegt. KeyFinder.rar