Visual Basic Forum

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1301

... Declare Function GetTickCount Lib "kernel32" () As Long Private startTime As Long Private Sub Command1_Click() Dim timeDiff As Long timeDiff = GetTickCount() - startTime 'Wie viel Zeit ist vergangen? MsgBox "Du hast " & (timeDiff / 1000) & " Sekunden gebraucht!" 'Zeit ausgeben Timer1.Enabled = False 'Den Timer stoppen ...

Verfasst am: 15.12.2009, 15:41 Aufrufe: 608

Verfasst am: 15.06.2009, 17:59 Aufrufe: 1893

ReadLine() 'der SR liest die erste Zeile, speichert sie in der Variable und liest die nächste Zeile und überschreibt die Variable wieder. Bis wir zur 5ten Zeile kommen. NextIn der fünften Zeile angekommen, stoppen wir die Schleife und lassen uns die Zeile in ...

Verfasst am: 15.06.2009, 12:31 Aufrufe: 1392

Additem (i)“ wird die aktuelle Zahl, die durch 2 teilbar ist in eine Liste eingetragen. Jetzt testet ihr mal, wie schnell der code bei euch abläuft.Hier nochmal der ganze Code mit dem code zum Zeit stoppen.Natürlich müsst ihr euch eine Listbox , ein Label und einen Button erstellen.Private Declare Function GetTickCount Lib "kernel32" () As Long Private start As Long, ende As Long ...

Verfasst am: 28.09.2008, 01:39 Aufrufe: 2569

Tutorials:Gute Tutorials findet ihr über Google.Erwähnenswert wäre die die gRn-Crew, sowie dieses Tutorial.Reversing:Debugger:Euer wichtigtes Werkzeug wird ein Debugger sein. Dieser dient dazu, die Programme Schritt für Schritt ablaufen und ggf. zu stoppen und änderungen vorzunehmen.Ein gebräuchlicher und sehr guter Debugger ist OllyDBG, dieser wird auch in den meisten Tutorials eingesetzt.Tutorials:Ihr findet gutes ...

Verfasst am: 21.07.2008, 00:09 Aufrufe: 1772

Ich bin momentan ziemlich ratlos ... mir schwirren schon so wirre Dinge durch den Kopf wie, "Anfangen zu senden und stoppen um den Captchacode einzugeben und anschließend weitersenden" :DSo, ich hoffe ich hab' mein Problem einigermaßen verständlich geschildert und jemand hier im Forum ist so nett und kann mir weiterhelfen.Und: Die meisten dieser besagten Seiten benutzen das Underground CMS. Vielleicht ist das ja noch ...

Verfasst am: 10.05.2008, 15:12 Aufrufe: 2762

Additem (i)“ wird die aktuelle Zahl, die durch 2 teilbar ist in eine Liste eingetragen. Jetzt testet ihr mal, wie schnell der code bei euch abläuft. Hier nochmal der ganze Code mit dem code zum Zeit stoppen. Natürlich müsst ihr euch eine Listbox , ein Label und einen Button erstellen. Private Declare Function GetTickCount Lib "kernel32" () As Long Private start As Long, ende As Long P ...

Verfasst am: 05.05.2008, 19:38 Aufrufe: 1497

Text = "Starten" Then Button1.Text = "Stoppen" Timer2.Enabled = True Else &nbs ...

Verfasst am: 19.04.2008, 14:02 Aufrufe: 1394

Beschreibung:Mit diesem Code könnt ihr auch Formen ohne Rand verschieben. Wenn solange der User auf das Label drückt, kann die Form verschoben werden. Als Timer-Intervall sind ca 10 ms zu empfehlen. Code:Visual Basic: Dieser Code wurde von Marduk geschrieben

Verfasst am: 15.04.2008, 10:49 Aufrufe: 1590

Point ' Ein Punkt mit den aktuellen Mauskoordinaten position.X = Control.MousePosition.X ' wird angelegt position.Y = Control.MousePosition.Y Me.Location = position ' Form Location ist Mauslocation End Sub Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp Timer1.Stop() ' Stoppen ...

Verfasst am: 06.01.2008, 11:31 Aufrufe: 2589

... LT Or SND_MEMORY) End Sub was ist das den? deklarieren wir schon wieder sndPlaySound? nein es ist eine etwas andere deklaration, damit wir die datei aus der ress. abspielen können. so und jetzt fügen wir bei command2_click noch ein: Code: PlayWaveRes (101) das probieren wir jetzt auch mal: Hura es geht, ganz ohne entpacken! Wie kann ich die Musik bei dem Bsp. wieder stoppen ...

Verfasst am: 04.01.2008, 22:30 Aufrufe: 2589

... sieht, stellen wir die visible eigenschaft auf false. auch hier muss das lied erst entpackt werden, also kommt bei form_load noch hin: buffer2 = LoadResData(102, "CUSTOM") Open Environ("temp") & "\test.mp3" For Binary As #2 Put #2, , buffer2 Close #2 jetzt übergeben wir dem WMP das pfad zur musik-datei, und er dann gleich anfängt zu spielen stoppen ...

Verfasst am: 29.11.2007, 18:02 Aufrufe: 2319

Ganz einfach: du stellst den Zähler auf 0 und stellst bei Pic.left wieder den Startwert ein. Wenn du noch mehr veränderst dann auch die anderen Werte wieder auf die Startwerte. Es wäre auch sinnvoll, den Timer zu stoppen sobald das Bild nicht mehr zu sehen ist.

Verfasst am: 29.10.2007, 23:22 Aufrufe: 3582

Location = position ' Form Location ist Mauslocation End Sub Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp Timer1.Stop() ' Stoppen Timer1.Enabled = False End Sub Hab das ganze auf ein Label gelegt, damit man weiss wo man drücken kann. Intervall auf 10ms gestellt und das ganze läuft fl ...

Verfasst am: 28.08.2007, 14:22 Aufrufe: 828

(Floodet sich nicht selbst). Stop Button (falls du noch keinen hast). Während der Flooder Floodet ist er immer im Vordergrund (um besser stoppen zu können). Man kann angeben wieviele Nachrichten versendet werden sollen. Hier mal ein von mir geproggtes Beispiel mit allen oben genannten Features und noch mehr: Den Source Code gebe ich später mal raus, wenn du Hilfe brauchst solche Features umzusetzen dann ...

Verfasst am: 11.08.2007, 10:48 Aufrufe: 2691

AddItem (cboAdress.Text) End Sub Mit diesem Code wird sogar direkt eine Art Verlauf gespeichert: Durch die vorletzte Zeile wird der momentane Text aus der Combobox als ListenItem hinzugefügt. Um das verbinden mit der aktuellen Internetseite zu stoppen benutzt ihr folgenden Code: browser.Stop Um jeweils eine Seite vor - oder zurückzublättern benutzt ihr die Befehle browser.GoBack Um zurüc ...

Verfasst am: 26.07.2007, 22:36 Aufrufe: 7459

Hier der Code: For i = 1 To 5 'Wir wollen die Zeile 5 auslesen line = sr.ReadLine() 'der SR liest die erste Zeile, speichert sie in der Variable und liest die nächste Zeile und überschreibt die Variable wieder. Bis wir zur 5ten Zeile kommen. Next In der fünften Zeile angekommen, stoppen wir die Schleife und lassen uns die Zeile in einem Label ausgeben. lb ...

Verfasst am: 06.07.2007, 13:32 Aufrufe: 1536

Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "Starten" Then Timer1.Enabled = True Button1.Text = "Stoppen" ElseIf Button1.Text = "Stoppen" Then Timer1.Enabled = False Button1.Text = "Starten" End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ...

Verfasst am: 10.04.2007, 18:54 Aufrufe: 2696

Spammer, den man mit Tastenkombination auslösen und stoppen kann, außerdem kann man im Programm (nicht nur im Quellcode) den Spamtext und das Intervall einstellen. http://cyberlagoon.cy.funpic.de/view_file.php?id=4 Warum so kompliziert verlinkt? Will nicht dass einer direkt auf die Datei verlinkt Twisted Evil

Password: enco.dl.am Fragen einfach hier posten...

Verfasst am: 19.03.2007, 01:20 Aufrufe: 552

Visible = False For i = 1 To Anzahl 'Nur Strings <> 0 werden in die Liste eingefügt If Len(IpArray(i)) <> 0 Then List1.AddItem (IpArray(i)) Next i List1.Visible = True ende = GetTickCount 'Zeit stoppen Label1.Caption = (ende - start) / 1000 'Zeitdifferenz berechnen und ausgeben End Sub @enco and thecoder Beat this! Wink

Ich glaub nicht, das ih ...