Visual Basic Forum

Verfasst am: 01.08.2011, 16:10 Aufrufe: 170

.......{SystemRFeflection.RuntimeMethodInfo} Wenn noch mehr Info überden Fehler gebraucht wird schreibe ich die obige Tabell mit geöfneten Tabs. Anmerkung: Beep Funktionirt System.Console.Clear() Selber Fehler System.Console.CursorLeft = 0 Selber Fehler System.Console.CursorTop = 0 Selber Fehler System.Console.WindowLeft = 0 Selber Fehler System.C ...

Verfasst am: 13.11.2009, 10:21 Aufrufe: 2374

Caption = btnCaption Beep Beep Beep MsgBox "TSV files generated", vbInformation, "Finished" '******************************************************************************** End Sub Ich arbeite mit Microsoft Visual Basic 6.

Verfasst am: 01.08.2009, 17:48 Aufrufe: 957

Verfasst am: 18.06.2009, 12:16 Aufrufe: 1344

Verfasst am: 15.06.2009, 17:27 Aufrufe: 1014

SelectedIndex<br /> Case 0<br /> Beep(700, 2000)<br /> Case 1<br /> ...

Verfasst am: 07.08.2008, 09:41 Aufrufe: 482

Habe da auch was für euch :wink:Visual Basic: [code]Private Declare Sub Beep Lib "kernel32" ( _ Optional ByVal Frequenz As Long = 440, _ Optional ByVal Dauer As Long = 20)Private Sub Command1_Click()Beep 440, "300"Beep 440 * 9 / 8, "300"Beep 440 * 5 / 4, "300"Beep 440 * 4 / 3, "300"Beep 440 * 3 / 2, "600"Beep 440 * 3 / 2, "600"Beep 440 * 5 / 3, "300"Beep 440 * 5 / 3, "300"Beep 440 * 5 / 3, "300"Beep 440 * 5 / 3 ...

Verfasst am: 05.07.2008, 10:31 Aufrufe: 2710

Verfasst am: 02.07.2008, 15:33 Aufrufe: 871

Verfasst am: 02.07.2008, 14:56 Aufrufe: 871

Verfasst am: 20.04.2008, 12:19 Aufrufe: 482

Verfasst am: 22.02.2008, 22:24 Aufrufe: 711

also ich habe eine in c++ geschriebene dll, die nur beep macht. ich habe sie vermutlich erfolgreich in einen prozess injected und wollte jetzt wissen wie ich den code denn jetzt aufrufen kann? also den der beep macht. da ich weiß das man bei vb die ganzen runtimes mitinjecten muss, habe ich mir gedacht, probier ichs doch erst mal mit c++, leider kann ich kein c++ also hab ich einen fertigen source genommen(der ex ...

Verfasst am: 15.01.2008, 14:06 Aufrufe: 2294

Text = strZeit Else Timer1.Enabled = False i = 0 btnStart.Text = "Start" Select Case cmbFunktion.SelectedIndex Case 0 Beep(700, 2000) Case 1 Shell("cmd.exe /c shutdown -s", AppWinStyle.Hide) Case 2 Shell(& ...

Verfasst am: 27.08.2007, 15:06 Aufrufe: 454

Verfasst am: 13.05.2007, 15:16 Aufrufe: 582

Verfasst am: 15.03.2007, 17:46 Aufrufe: 2775

dll" ( _ ByVal fBlockIt As Long) As Long BlockInput (API_TRUE) 'geblock BlockInput (API_False) 'nimmer geblockt Beep Private Declare Sub Beep Lib "kernel32" ( _ Optional ByVal Frequenz As Long = 440, _ Optional ByVal Dauer As Long = 200) Beep 'gibt den beep mit Frequenz 440 und dauer 200 aus beep mit zufallsmelodie (auja da ...

Verfasst am: 14.11.2003, 12:24 Aufrufe: 497

ListIndex 'Wenn Element ausgewählt, dieses entfernen 'und Zahl anzeigen If intIndexWert > -1 Then lstErgebnis.RemoveItem intIndexWert lblErgebnis.Caption = lstErgebnis.ListCount Else Beep End If 'Schaltfläche sperren, wenn Liste leer If lstErgebnis.ListCount = 0 Then cmdRemove.Enabled = False End If End Sub Private Sub cmdAdd_Click() 'Eintrag hinzufügen, ...

Verfasst am: 10.11.2003, 18:05 Aufrufe: 492

... t werden! 'Nur Eingabe von Ziffern und Backspace-Taste zugelassen Select Case KeyAscii 'Ascii-Code der Backspace-Taste Case 8 'Ascii-Code der Ziffern 0 - 9 Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 'Restfälle Case Else KeyAscii = 0 Beep ...

Verfasst am: 14.10.2003, 18:51 Aufrufe: 339

Caption = "Wecker" End If End Sub Private Sub optAus_Click() blnGestellt = False DTPicker1.SetFocus End Sub Private Sub optEin_Click() blnGemeldet = False blnGestellt = True dtmWeckzeit = Format(DTPicker1.Value, "Short Time") End Sub Private Sub Timer1_Timer() If blnGestellt And Not blnGemeldet And Time >= dtmWeckzeit Then Beep MsgBox "Es ist jetzt " & Format(Time, "Sho ...