Visual Basic Forum

Verfasst am: 01.01.2012, 21:33 Aufrufe: 273

Ohne Admin Passwort des Streams wirst du da nicht viel ausrichten können Sad

Bin auch schon lange auf der Suche für mein Stream RAdio die aktuellen Titel anzeigen zulassen

Verfasst am: 25.10.2011, 13:02 Aufrufe: 294

... Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 17.01.2010, 19:01 Aufrufe: 588

Hallo ! Ich habe ein Programm mit einem Listview-Element, das als eine Art Warenkorb für ein Kassenprogramm fungiert und hat mehrere Spalten (Artikelnr, Bezeichnung, Einzel- und Gesamtpreis) Nun habe ich meinen Büchern entnommen, dass man mit der Eigenschaft Labeledit Eingaben zulassen kann, allerdings nur für das Label, also die erste Spalte. Der Nutzer soll aber auch den Einzelpreis ändern können. Ist d ...

Verfasst am: 17.06.2009, 13:09 Aufrufe: 1807

Code: Private Sub TextBox1_KeyPress(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles TextBox1.KeyPress '<- Names der Textbox Select Case Asc(e.KeyChar) Case 48 To 57, 8, 32 ' Zahlen, Backspace und Space zulassen Case Else ' alle anderen Eingaben unterdrü ...

Verfasst am: 06.02.2009, 21:10 Aufrufe: 1270

hi aber so schwer is das ja nicht Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) 'ist für die wartezeit Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 21.06.2008, 20:22 Aufrufe: 706

Weise den beiden Clienten halt einen Namen zu, zb 1 und 2. Und in deinem Server guckst du dann wer sich verbindet, falls 1 dann zulassen, falls 2 nicht zulassen.

Verfasst am: 07.04.2008, 17:45 Aufrufe: 4677

... y ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 25.03.2008, 23:43 Aufrufe: 2049

Also Hallo erstmal, bei mir geht Visual Basic 6.0 auf Vista ohne Einschrenkung. Ich hab Windows Vista Home Premium mit Visual Basic 6 und ich muss sagen läuft genau wie bei XP auch. Einziger Unterschied ist dass wenn ich in der IDE ein Conrtole Plaziere, geht es etwas langsamer wie bei XP.Achja und ich muss als wenn ich es starten will bei der Benutzerkontosteuerung auf "zulassen" drücken. MFG Jens

Verfasst am: 21.03.2008, 19:21 Aufrufe: 2153

Erstmal vielen Dank an dich ZiG!!! Mr. Green

Aber ich glaube nicht dass, das so viele Leute können. Ich werde den Freezer Crypten, und das Problem mit dem Firewall zulassen.... werde ich auch versuchen zu beheben! Mit freundlichen Grüßen --Chillo--

Verfasst am: 21.03.2008, 00:06 Aufrufe: 375

Hallo Liebe Community. Naja ich lern teils immer noch die basics der Sprache aber mich würde mal eines interessieren. Ist es möglich Visual Basic auf einem Prozess der in einem anderen Programm stattfindet reagieren zulassen? Sprich, ich öffne Thunderbird ... rufe meine Emails ab. Jetzt möchte ich das mein VB Programm das erkennt und mir zb. in einer Textfile oder etc. anzeigt wieviele Emails abgerufen wurden ...

Verfasst am: 13.03.2008, 11:34 Aufrufe: 2330

Hallo Jungs ! Ich hätte eine Frage an euch: Wie kann ich die Windows XP Firewall in gewisser Weise umgehen? Denn ich habe das Problem, das bei meinem Programm, dass etwas auf einen FTP Server lädt, immer vor dem Upload die Meldung der Windows Firewall kommt mit "Blokieren" "Zulassen" usw. kommt. Ich hoffe ihr wisst da weiter Shocked

Verfasst am: 20.02.2008, 10:35 Aufrufe: 266

Im KeyPress-Event kann man das gedrückte Zeichen abfragen und ggf verbieten indem es auf 0 gesetzt wird. Private Sub TextBox1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("0") To Asc("9"), 8, 32, Asc(",") 'Zeichen zulassen Case Else KeyAscii = 0 'alles andere verweigern End Select End Sub API-Variante: Opt ...

Verfasst am: 13.01.2008, 22:00 Aufrufe: 572

... ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 03.01.2008, 22:02 Aufrufe: 6482

Sicha geht das in Visual C++ gehts super aber ist nicht von mir das programm bzw. das ganze aufbau TUT zu finden bei "0x33.org" deshalb interesiert es mich das auch so es muss gehen aber bei jedem neuen client (wenn man von silkroad ausgeht) ändern sich die position der variablen deshalb jedes mal neu suchen:) aber abwarten und hoffen das Kaali es schafft wie das herrauslesen und auf ein label schreiben zu ...

Verfasst am: 20.12.2007, 18:46 Aufrufe: 625

Ich kann dir da nicht wirklich helfen. Bin mir aber sicher das man mit google mehr Hilfe finden wird als du hier bekommen kannst. Es beschäftigen sich nicht viele hier mit Datenbankprogrammierung. Das einzige was ich dir sagen kann ist, dass die meisten Anbieter den Zugriff externer Programme auf die Db nicht zulassen.

Verfasst am: 19.12.2007, 11:37 Aufrufe: 541

... tr(Data, "infomes") Then Data = Replace(Data, "infomes", "") MsgBox Data, vbInformation, "Info" End If End Sub Sind halt die MsgBox Funktionen die ich benutze im Server. Nun möchte ich nicht gerne auf diese Funktionen verzichten aber ich habe leider keine ahnung ob es noch eine andere möglichkeit gibt Message Boxen bei meinem Victim ankommen zulassen ...

Verfasst am: 16.12.2007, 20:01 Aufrufe: 2158

damit mein ich , das der nen eigenen explroer drinne hat -.- er braucht nicht auf Dateien im PC zuzugreifen eine Firewall nüzt da nichts -.- und Av mekert doch nicht (McAfee) habs bei meinen Eltern probier tgehabt und bei ersten mal wurd ich gefragt ob ich das ding zulassen will naja scheint nicht mehr so -.-

Verfasst am: 25.08.2007, 20:04 Aufrufe: 1002

Damit kannst du nur Zahlen in der Textbox zulassen, dann kommt auch kein Fehler mehr Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Select Case Asc(e.KeyChar) Case 48 To 57, 8, 32 ' Zahlen, Backspace und Space zulassen Case Else ' alle anderen Eingaben unterdr ...

Verfasst am: 02.08.2007, 14:56 Aufrufe: 384

... '<- Warum deklarieren und nicht benutzen? DoEvents 1: End Sub ----------------------------------------------------------- ' ### Was bringt diese Sub? ### Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 30.07.2007, 10:01 Aufrufe: 973

4. Man kann die Zeit bis der Screensaver gestartet wird per CMD bestimmen 5. Der Pfad zum speichern der Datei lässt sich ebenfalls bestimmen. 6. Außerdem kann man bestimmen, ob man nur die Anmeldung des Administrators zulassen will, oder von einem bestimmten User. 7. Tastenkombinationen wie Alt+F4, Alt+Tab, Alt+Esc werden blockiert. 8. Über die Registry wird außerdem der echte WindowsXP Screensaver aktiviert, d ...

Verfasst am: 21.07.2007, 17:04 Aufrufe: 999

... ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen ...

Verfasst am: 22.04.2007, 21:00 Aufrufe: 737

bas ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen DoEvents ' TimeOut erreicht? Loop Until TimeOut < (Get ...

Verfasst am: 22.04.2007, 19:13 Aufrufe: 648

Verfasst am: 10.04.2007, 22:09 Aufrufe: 2696

Und zu dem Keypressed, das ist einfach eine Konstante, du könntest z.B auch immer das schreiben: If GetKeys(vbKeyF1) = -32767 Then Warums ausgerechnet -32767 ist, weiß ich auch nicht....32768 is ein Quadrat von 2 und wenn man also 32768 Zahlen unter null zulassen will und die 0 zählt, ergibt das -32757 als äußerste Zahl. Außerdem hat Windows NT(2000,NT,XP) 32Bit System etc. hängt alles damit zusamm ...

Verfasst am: 09.03.2005, 15:18 Aufrufe: 886

Hallo da draussen, mein Problem ist eigentich schnell erklärt und ich hoffe auch genauso schnell gelöst. Ich möchte eine Inputbox so formatieren, dass man nur Zahlen eingeben kann und hab keine Ahnung wie das funktioniert, für Anregungen wäre ich sehr dankbar