Visual Basic Forum

Verfasst am: 14.02.2012, 10:58 Aufrufe: 224

hey Leute! ich habe nach länger Zeit mal wieder angefangen ein wenig zu programmieren in vb6! nun bin ich dabei einen sleep timer zu erstellen! leider will vb6 nicht in cmd reinschreiben! ich habe cmd mit dem Shell Befehl geöffnet und möchte dann mit dem Befehl sendkey etwas hineinschreiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administra ...

Verfasst am: 23.11.2011, 09:34 Aufrufe: 408

Guten Tag, ich hab eine Combobox die mir eine Spalte aus meiner Datenbank anzeigt, die Spalte Zeit. In dieser Zeile stehen natürlich Zeiten drin. Es wird jede sekunde ein neuer Datensatz in diese Db geschrieben, also 60 pro min. Ich will aber jetzt in meiner Combobox nicht zeitangaben mit Sekunden stehen haben, sondern nur minuten. Wenn ich jetzt im Format einfach nur die sekundenanzeige rauslösche, habe ich i ...

Verfasst am: 18.10.2011, 14:11 Aufrufe: 292

Danke, das funktioniert. Da ich aber Schaltzustände zum Teil für 60 min aufrecht erhalte, Und ich jede Menge solcher Module mit verschiedenen Programmen habe, ist diese Lösung wenig praktikabel. Ich dachte Anfangs, das wäre kein Problem.............. Ich muss mir wohl sowas wie ein Reset ausdenken. Danke Dir nochmal

Verfasst am: 03.03.2011, 10:47 Aufrufe: 349

... strMonth = Month(dtmDateTime) If Len(strMonth) = 1 Then strMonth = "0" & strMonth End If Dim strDay strDay = Day(dtmDateTime) If Len(strDay) = 1 Then strDay = "0" & strDay End If Dim strHour strHour = Hour(dtmDateTime) If Len(strHour) = 1 Then strHour = "0" & strHour End If Dim strMin ...

Verfasst am: 08.06.2010, 21:39 Aufrufe: 634

388 End Function Public Function DezimalGrad _ (Grad As Double, _ Min As Double, _ Sec As Double _ ) As Double DezimalGrad = Grad + Min / 60 + Sec / 3600 End Function Public Function ArcCos(X As Double) As Double ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) End Function Public Function Deg2Rad _ (AngleDegrees As Double) As Double Deg2Rad = AngleDegrees * Pi / 180 End Function Public Fun ...

Verfasst am: 27.01.2010, 12:21 Aufrufe: 508

Ich hab ein Probem . Ich möchte gerne zum laufzeit meine Programm immer auf dem Bildschirm ausgeben wo sich gerade das Programm befindet und was noch zu tun hat . ein Programm aublauf sollte cä. 40 min dauern , deswegen möchte gerne nicht das Programm irgen wo hängen bleibt ohne der Benutzer zu bemerken . weisst jemand wie ich das machen kann ? so art ein Protokoll auf dem Bildschirm

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1300

Enabled = False 'Den Timer stoppen End Sub Private Sub Form_Load() startTime = GetTickCount() 'Zeit speichern 'Timer initialiseren Timer1.Interval = 250 'alle 250 Millisekunden aktualiseren Timer1.Enabled = True 'Timer starten 'Progressbar initialiseren ProgressBar1.Min = 0 'Bei 0 Anfangen ProgressBar1.Max = 10000 'Bei 10.000 Millisekunden ist der Balken voll dur ...

Verfasst am: 05.09.2009, 19:28 Aufrufe: 295

Hallo Liebe Gemeinde! Habe folgendes Problem. Ich möchte in einem Datareport zu einem Data Field eine Einheit (mm, m/min) anzeigen. Bisher habe ich eine Textbox (die einem gewissen Feld einer Abfrage zugeordnet ist), und dahinter ein Label mit der Einheit. Ist es möglich beide zu verbinden damit bei "CanGrow" auf das Label "mitwandert" oder lässt sich in der Textbox auch zusätzlich eine Einhe ...

Verfasst am: 20.06.2009, 14:11 Aufrufe: 1051

..also wenn der Wecker klingelt! -Standarttöne ODER eigenen Ton -Std./Min./Sek. können nun in einzelne Felder eingetragen werden -es können keine utopischen Zeiten mehr eingegeben werden -Aktionen können nun auch gestoppt werden -Programme können um eine bestimmte Zeit gestartet werden -Sleep Button -Weckton kann selber ausgewählt werden -Darstellung geändert sollte nun also auch bei Vista etc. richtig angeze ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 676

Beschreibung:Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus.Funktion:Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try & ...

Verfasst am: 16.04.2009, 15:52 Aufrufe: 3821

Nimm dir erst mal mehr Zeit für deine Posts! Man kann dich nicht immer genau verstehen. Wenn du den Code kopieren willst, brauchst du min. einen Mail-Server, sonst klappts mit der Methode nicht. -> php Drittens, als Verarsche kann man das ganze wohl nicht ansehen, das ist purer Datenbiebstahl!

Verfasst am: 25.03.2009, 20:28 Aufrufe: 1108

Hallo zusammen, habe einen Code geschrieben, der zuerst die Standardzeit (siehe Sub Main()) 10:24:36 anzeigen soll (Das funktioniert auch). Anschließend soll er 50 Minuten und danach 135 Sekunden hinzu addieren. Dazu muss ich eine Enumeration deklarieren, die ich später der Einheiten wegen zum Rechnen benutze. Außerdem muss ich einen Konstruktor definieren, der die Werte für Stunde, Minute und Sekunde übergibt (A ...

Verfasst am: 25.09.2008, 17:49 Aufrufe: 749

Junge so wird das nix, ich poset gleich n BeispielProjekt.2 min pls

Verfasst am: 03.09.2008, 18:55 Aufrufe: 830

Verfasst am: 02.09.2008, 19:40 Aufrufe: 1030

2 min und 8 min später...Ich behaubte mal ganz dreist das WAR Posthunting.

Verfasst am: 21.08.2008, 15:07 Aufrufe: 1297

... Password [/code]um dumme Anmachen vorzubeugen:nein es soll kein bruter o.a werden ,es wäre auch komplett sinnlos denn wenn man 3mal das falsche pw eingibt,wird man 15 min ...

Verfasst am: 16.08.2008, 14:04 Aufrufe: 1181

Verfasst am: 15.08.2008, 18:23 Aufrufe: 1137

(Cypher_0;7019)Das muss n ziemlicher Aufwand gewesen sein.Ne ist es nicht :wink:Das ist nen 20 - 30 Min Prog :p

Verfasst am: 19.07.2008, 16:03 Aufrufe: 1065

Verfasst am: 01.07.2008, 15:31 Aufrufe: 2785

Hi, ich biete ein Videotutorial in DREI Teilen zum Thema Winsock Programmierung - Chat an...Beispielprojekte sind enthalten! 1. Teil - Einfacher Winsock Chat (FTP)Download (~110 MB ~45 min) 2. Teil - Erweiterte Inhalte (Floodschutz & Nicknamewahl) (FTP)Download (~105 MB ~45 min) 3. Teil - Erweiterte Inhalte (Sondausgabe, Autoscroll, Tippt... Funktion) (FTP)Download (~115 MB ~45 min) Codecs: Windows Media Video 9Die ...

Verfasst am: 16.06.2008, 20:08 Aufrufe: 3449

Verfasst am: 16.06.2008, 12:38 Aufrufe: 670

Verfasst am: 12.05.2008, 09:20 Aufrufe: 3432

Verfasst am: 26.04.2008, 09:05 Aufrufe: 875

hi ja und wie wäre es wenn du einfach hergehst und machst jetzt zum beispiel jetzt 5 minuten lang 30 screens/min und die du mit vortlaufender nummer abspeicherst und dann nur mehr mit einem timer in eine picturebox ladest sollte gehen... naja was vl nicht so schlecht wäre wenn du danach, wenn du die pics nicht unbedingt brauchst gleich wieder killst!! lg grün

Verfasst am: 22.04.2008, 16:28 Aufrufe: 2307

Keine Ahnung was du machst, aber mein Example lässt sich ganz normal starten und ausführen. Edit// Zu deinem source: 1. Benutz öfter mal "with" Beispiel: with Progressbar1 .max = blabla .min = blabla end with 2. Der Timer1 muß vor dem Aufruf von DestroyFile aktiviert werden. Sonst wird er erst aktiviert wenn die Funktion fertig ist. 3. Außerdem kannst du eine If Abfrage mit de ...

Verfasst am: 20.04.2008, 13:02 Aufrufe: 2116

... lt;br />'bildschirmauflösung ermitteln und ausgeben End Sub Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS 1000 Std = (SekGesamt 3600) Min ...

Verfasst am: 12.04.2008, 20:07 Aufrufe: 735

s mir auchgrad vor 5 min aufgefallen habs abgeändert aber es hat sich nix verändert xDD

Verfasst am: 12.04.2008, 20:01 Aufrufe: 2242

Ich hab einen gecodet den man mit einem Client der die Aufgabe des web-panels übernimmt und mit webpanel. deer bot sendet mittels php get die variable bot=ident1 und eine mysql db erfasst alle verschiedenen ips die innerhalb der letzten 2 min die variablen gesendet haben ( mit ipfilter ) mfg goddie

Verfasst am: 07.04.2008, 15:25 Aufrufe: 2957

Man kann auch z.B. 99:99:99 bei Uhrzeit angeben. Hier mal ein einfacher Beispielcode dafür: Dim min As Integer min = Mid(TextBox1.Text, 4, 2) Dim sec As Integer sec = Mid(TextBox1.Text, 7, 2) If min > 60 Then Exit Sub ElseIf sec > 60 Then Exit Sub End If Ansonsten ist das Programm aber sehr gut und auch ansehnlich gestaltet. *thumbs up* //EDIT: Hier ein Screenshot: If TextB ...

Verfasst am: 07.04.2008, 09:57 Aufrufe: 870

... nitor und multipliziere sie mit 15 um auf vernünftige Maßangaben zu kommen. Anschließend rechne ich davon jeweils die left- und top-Position des Formulars ab und passe die x- und y-Maße dementsprechend an. Und da ich weder will, dass mein Formular zu klein wird, noch dass die Maße in den negativen Bereich gehen und somit einen Fehler verursachen, begrenze ich das ganze mit Hilfe von Abfragen (hier auf min ...

Verfasst am: 19.03.2008, 02:24 Aufrufe: 3258

Beschreibung: Diese Funktion gibt eine Zufallszahl zwischen dem minimalen und maximalen Wert aus. Funktion: Private Function GenerateRndNumber(ByVal [Min] As Int16, _ ByVal [Max] As Int16) As Int16 Try Dim [rnd] As Random = New Random Return [rnd].Next([Min], [Max]) Catch ex As Exception MessageBox.Show(ex.Messa ...

Verfasst am: 18.03.2008, 13:08 Aufrufe: 840

Beschreibung: Dies ist ein TextCrypter den ich gemacht habe.(10 Min Projekt) Screenshot: Downloadlink: Edit by tr4st: Wenn du etwas im Projekt Bereich postest, brauchst du nicht in den Thread Titel

Verfasst am: 17.03.2008, 19:49 Aufrufe: 3258

Die Funktionen: » » » » » » » » » » » Informationen: In diesem Thread werden nützliche Funktionen ihren Platz finden um immer wieder abgerufen und schnell gefunden werden zu können. Dieser Thread wird von den Moderatoren des .NET Bereiches geführt und daher ist es keinem User möglich hier Funktionen selbstständig zu posten. Wenn ihr eine nützliche Funktion habt, dann wendet euch per ...

Verfasst am: 17.02.2008, 12:21 Aufrufe: 1392

Können sicher auch einige was draus lernen. Und irgendwie scheinen zur Zeit alle auf dem HardwareID Tripp zu sein. Aber ich muß hier mal paar Dinge klarstellen. 1. Wenn man so einen Schutz einsetzen will, dann sollte man sich selbst was ausdenken, oder zumindest etwas am code verändern/tauschen. Wenn alle die selbe Methode benutzen bringt es garnichts. 2. Man kann genauso MD5, SHA1 oder was weiß ich benu ...

Verfasst am: 09.02.2008, 13:50 Aufrufe: 1209

is vl eher für die anfänger unter uns gedacht aber naja würde gerne eure meinung hören... filesize enpackt ca. 36mb gepackt ca. 15mb pw gibts keins... die länge des viedos: 20 min link http://rapidshare.com/files/90388088/Messagebox.rar is leider ohne ton Sad

lg grün --------------------------------------------------------------- ja nochwas... is mein erstes vid tut (hab zwar 9 versuche geb ...

Verfasst am: 05.12.2007, 20:17 Aufrufe: 987

jetzt mah doch nicht einen doppelpost nach dem andern Evil or Very Mad

"EDIT" button gibts auch und auf der seite kannste auch suchen... EDIT:// oder man nimmt sich 2 min & guckt da mal nach

Verfasst am: 23.11.2007, 14:24 Aufrufe: 1376

ich gucke mal und gebe feadback Edit :// Also naja es gibt etwas bei google ein.... an sonsten nen bissel schlecht von der größe her. Wie lange haste dran gebastellt? 5 min Ansonsten naja,, Very Happy

Verfasst am: 08.11.2007, 12:04 Aufrufe: 858

Text = Str$(h) + " *" + Str$(v) 'bildschirmauflösung ermitteln und ausgeben End Sub Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS \ 1000 Std = (SekGesamt \ 3600) Min = (SekGesamt - (Std * 3600)) \ 60 Sek = (SekGesamt - (Std * 3600) - (Min * 60)) t = Format(St ...

Verfasst am: 19.10.2007, 12:23 Aufrufe: 1616

Verfasst am: 10.10.2007, 00:06 Aufrufe: 1122

2 min Google Suche http://www.heisig-it.de/product_id.htm

Verfasst am: 09.10.2007, 00:00 Aufrufe: 414

Ja ich wollt mal fragen ob es möglich ist ein programm zumachen was jede 5 minuten eine und die selbe exeausführt? wenn ja bitte schnelle antwort! von mir aus auch die source da es seh wichtoig ist! danke

Verfasst am: 27.09.2007, 19:54 Aufrufe: 595

Verfasst am: 27.09.2007, 19:00 Aufrufe: 595

Verfasst am: 24.09.2007, 16:06 Aufrufe: 301

1. warez Verboten 2. sie haben post in ca. 5 min

Verfasst am: 22.09.2007, 18:01 Aufrufe: 218

Guck dir einfach das Webdownloader Video Tut an. Dann machst du nen Timer auf 30 Min oder so und machst ihn danach aus.

Verfasst am: 22.09.2007, 17:19 Aufrufe: 218

wie kann man machen das ein programm das ich selbst gecodet habe nach uppdates sucht ( ich will das mein prog sich selbst nen keylogger von nem server auf den pc ladet nach ca. 30 min nachdem es ausgeführt wurde ) geht das? und geht das uach hiden ?

Verfasst am: 14.08.2007, 17:48 Aufrufe: 276

... nn ich am pc sitz ;D ich hab ein source gefunden aber der klappt nur in den projekt wenn ich das kopier und bei mir ins programm einfüge nimmt er die net pls hilft mir der code : ---------------------------------- Private Declare Function GetTickCount& Lib "Kernel32" () Private Sub Timer1_Timer() MS = GetTickCount() SekGesamt = MS \ 1000 Std = (SekGesamt \ 3600) Min ...

Verfasst am: 05.08.2007, 08:12 Aufrufe: 468

Verfasst am: 20.07.2007, 14:24 Aufrufe: 404

Verfasst am: 26.04.2006, 18:12 Aufrufe: 2595

Wenn ich dann in einer Textarea was reinschreibe und dann bei meinem Outlook Formular auf Senden drücke, dann sollen die ausgewählten sachen plus der Text in der DB abgespeichert werden. Also eigentlich bräuchte ich die Verbindung aufbau zur DB (ado oder Dao was ist besser oder möglich?) Tabelle auslesen (syntax VB) in tabelle reinschreiben (syntax VB) Für manche ist das wahrscheinlich 5 min arbeit ich hab jetzt ...