Visual Basic Forum

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Zum Empfangen der Daten verwende ich das MSComm32.ocx. Das funktioniert auch alles einwandfrei. Nach dem Empfangen des ersten übertragenen Textes möchte ich diesen manuell überprüfen. Erst, wenn alles korrekt ist, darf ich weitermachen. Deshalb zähle ich im Hintergrund mit und nur, wenn die Variable Datatransfer_Counter = 1 ist, rufe ich ein Fenster auf, das mich dazu auffordert, die Daten zu überprüfen. ...

Verfasst am: 08.12.2011, 12:12 Aufrufe: 450

Hallo, ich habe eine kurze Frage bzw. eine Anforderung an die Cracks hier im Forum. Ich benötige ein VB-Script, welches 2 .xls-Dateien vergleicht. Es soll überprüfen, ob alle Inhalte aus der ersten Excel-Tabelle in der 2. auch vorhanden sind. Wenn nicht, soll er die fehlenden Excel-Tabellen in eine 3. Tabelle hineinschreiben. Hier mal ein Pseudocode, den ich mir zusammengestellt habe. Da ich die Syntax n ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

... nd Select End Sub Private Sub Command2_Click() For i = 0 to 8 Command1(i).Caption = "" Command1(i).Enabled = True Next Text1.Text = 1 End Sub Select Case müsste da nicht sein aber ist bei großen projekten und längeren prozeduren übersichtlicher weniger fehleranfällig deinerseits und schneller Smile

weil vb nicht bei jeder zeile überprüfen ...

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

Hallo Leute, seit Windows Vista wurde der Removable Storage Manager (RSM) aus dem OS entfernt. Somit ist die Backup-Unterstützung mit Bandlaufwerks vom OS nicht mehr direkt möglich (früher ntbackup o.ä.) - Microsoft sagt man soll sich an Dritthersteller von Backupsoftware wenden. Naja, über die Win32 API ist das TapeDrive aber weiterhin ansprechbar, denke ich. So nun ich vor ein Programm zu schreiben um TapeDri ...

Verfasst am: 18.03.2011, 18:29 Aufrufe: 845

Habe ein kleines Programm zum reinlegen gemacht. Ist nicht viel. Beschreibung ______________ Dieses Programm simuliert ein überprüfen einer Datei. Wenn das angebliche überprüfen fertig ist dann kommen drei möglichkeiten. Hier ist der Witz dabei [Löschen]=Computer neu starten [In Quarantäne]=Computer herunterfahren [Ignorieren]=Abmelden ______________ Viel Spass Very Happy

Screenshots: Download ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 600

Remove(0, temp.LastIndexOf("=") + 1) End If End If Next Erst mal sind jetzt noch Abfragen da, welche überprüfen ob der Code die mindestlänge hat bevor wir darann rumschnipseln, dann muss man beim remove natürlich bedenken, dass wenn wir von Zeichen 6 anfangen man auch die Gesamtlänge -6 nehmen muss und nicht -1 um alles ab zeichen 6 zu löschen. Auße ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF(FNr) Line Input #FNr, zw 'optional: überprüfen ob Zeile übernommen werden soll 'If ZeileUebernehmen Then UserForm1.TextBox1.SelT ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1209

richtig warte ich zeige dir ma das komplette script. So stelle ich mir des vor. hat halt noch ein paar schönheitsfehler. Dim WshShell, oExec Dim CommandOutputText, lokalerSystemname INISec = "Snapshot" INIsecCounter = 1 INISection = INISec & INIsecCounter Programm="notepad.exe" Zeitplan="WEEKLY" '*** Name der INI-Datei wie Name des Scripts *** INIfile = Left(Wscript.

Verfasst am: 30.05.2010, 17:29 Aufrufe: 462

Hallo Leute, vlt. hat jemand von euch ne Idee! Ich möchte mit meinem Programm, auf ein anderes externes Programm zugreifen, und dort Textdaten auslesen. Das Programm soll dort beim klick auf bestimmte Zeilen gewisse Daten überprüfen. Die Daten sind in dem externen Programm in einem DataGrid gespeichert. Ich habe leider keine Idee wie ich das über VB lösen könnte. Vielen Dank schon mal für eure Antworten ; ...

Verfasst am: 18.01.2010, 18:03 Aufrufe: 433

Hallo User, habe ein Problem mit meinem Login Programm. Habe ein Script auf meinem Server, was mir alle User mit Password und eMail anzeigt. Jetzt möchte ich überprüfen, ob TextBox1.Text = Ein Username der in der Datenbank ist. Klappt alles super - jedoch klappt das nur beim ersten User. If TextBox1.Text = x7login.Document.GetElementById("email").InnerText Then MsgBox(&qu ...

Verfasst am: 17.01.2010, 15:35 Aufrufe: 422

tabMitarbeiter) End Sub Private Sub cboMitarbeiter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboMitarbeiter.SelectedIndexChanged ' Füllen der Felder überprüfen If cboMitarbeiter.SelectedIndex < 0 Then MsgBox("Bitte wählen Sie einen Mitarbeiter aus.", vbOKOnly + vbInformation, "Fehlende Eingabe") c ...

Verfasst am: 09.12.2009, 09:48 Aufrufe: 723

hi wenn du dein label nach rechts wander lässt brauchst ja nur überprüfen ob sich label1 mit label 2 trifft... label1.left = label1.left + 100 if (label1.left + label1.width) => label2.left and (label1.left + label1.width) <= (Label2.left + Label2.Width) then Timer1.enabled = False endif vl kannst damit was anfangen lg

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Hi Leute, ich habe das Problem, dass ich eine XMl Datei auf einen Server übertragen soll und das ständig fehl schlägt. Ich habe mittlerer weile 3 Tage mit Internetrecherche zugebracht und hab nach den gefunden Treffern folgende Codes angefertigt, die eigentlich tun sollten, aber dies nicht tun. Kennt sich vielleicht in diesem Forum damit aus und kann mir eine Lösung nennen. Habe ich noch Fehler im Code oder ...

Verfasst am: 16.07.2009, 12:41 Aufrufe: 2505

1. Allgemeine Erklärung der benötigten EventsDragEnter:Dieses Event wird aufgerufen, wenn ihr eine Datei auf euer jeweiliges Steuerelement zieht. Das wird z.B. benötigt, um den Cursor beim DragDrop Ereignis zu ändern oder um zu überprüfen, ob die Daten, die in das Programm gezogen werden, gültig sind.DragDrop:Der eigentliche Drag & Drop Sub. Hier wird der Inhalt der Datei(en) ausgelesen und verarbeitet.2. 'DragEnter' ...

Verfasst am: 15.07.2009, 09:38 Aufrufe: 1459

Hallo, wenn ich dich richtig verstanden habe möchtest du bestimmte Elemente im Array nach Inhalt überprüfen, richtig? Oder möchtest du generell wissen ob in deinem Array Daten vorhanden sind? Wenn du ein bestimmtes Element abfragen möchtest geht das ungefähr so: If array(0)="" then MessageBox.Show("Kein Inhalt") Else MessageBox.Show(array(0)) End If ...

Verfasst am: 12.07.2009, 16:47 Aufrufe: 1346

ich möchte ein fun konsolenprogramm schreiben nur funktioniert es nicht ich möchte mit file von if und elseif überprüfen ob das was der user eingibt genau 5 Ziffern hat nur wenn ich es ausprobiere und 6 Ziffern eingebe steht da gar nichts und wenn ich 5 eingebe steht da nur 5 Ziffern eingeben und wenn ich nach einem eintippen nochmal etwas eintippen möchte schliest sich das programm hier der code : Module Mod ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Hi Leute :)Hab mir gedacht ich sollte euch mal wieder nen source schreiben den ihr vielleicht gebrauchen könnt.Name: DestroyFile()Funktion: Überschreibt und löscht DateienRückgabe: True oder FalseBeschreibung:Das ganze ist ein fertiges Modul. Ihr braucht den Code also nur in ein Modul einfügen und die Function "DestroyFile" aufrufen.Syntax:DestroyFile(Filepath, Loops, Blocksize)Filepath - Ganz klar wird hier ...

Verfasst am: 18.06.2009, 12:57 Aufrufe: 2004

Autor: The-God-of-allHallo,Da ich daran denke in mein Programm AccountSafe eine Update "Funktion" zu bauen. Die Update Funktion hat einige Features:-eine extra Form zum überprüfen/ Installieren des Updates-eine Möglichkeit Infos zum Update anzuzeigen, dass heißt man Installiert nicht Blind den Update sondern kann vorher Infos dazu sehen (Changelog etc. was der Programmierer halt eingibt)-es können mehrere Dateien ged ...

Verfasst am: 18.06.2009, 11:59 Aufrufe: 895

Name: CheckHash Funktion: Überprüft MD5 und SHA Hashes ob sie auch nur aus Hexadezimalen Zeichen bestehen. Rückgabe: True oder FalseVisual Basic: [code]Public Function check_hash(ByVal Hash As String) As BooleanDim i As Integer, x As Long, bol As BooleanIf Len(Hash) = 32 Or Len(Hash) = 40 Then For i = 1 To Len(Hash) x = Asc(Mid$(Hash, i, 1)) Select Case (x) Case 48 To 57 bol = True Case 97 To 102 bo ...

Verfasst am: 18.06.2009, 11:55 Aufrufe: 1051

Verfasst am: 15.06.2009, 13:01 Aufrufe: 1794

DigestStrToHexStr(text) Next multimd5 = text End Functionbenuzen tut ihr das dann so:hash erstellen:multimd5(20, "password")überprüfen:If mmultimd5(20, "password") = "cac43aed3585d7720c148ebeb9aa0076" Then MsgBox "Passwort Richtig!"weiter so jetzt wollen wir aber auch noch andere verschlüsselungen benuzenich beschreibe ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1469

Function Prozeduren und ich gehe mal davon aus, dass die meisten von euch schon mit beiden gearbeitet haben.Was ist nun der Unterschied zwischen den beiden?Im Endeffekt eigentlich nur der, dass man bei einer Function einen Wert zurückgeben kann.Beispiel:Eine Function zum überprüfen ob eine Datei existiert.Ihr ruft die Function auf und übergebt ihr den Pfad zur Datei.Nun wird die Function testen ob die Datei vorhanden ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1235

Thema: ADS – Alternate Data Stream (Wikipedia, Msdn)Hallo an alle.Wiedermal hab ich mich an ein Tutorial gesetzt. Diesmal möchte ich euch etwas Besonderes zeigen.1. Erklärung Ich versuche mal so einfach wie möglich zu erklären was es mit ADS auf sich hat.ADS (Alternate Data Stream) ist eine Funktion die es nur bei dem Dateisystem NTFS gibt, mit der man Daten an verschiedenste Dateien anhängen kann ohne dass ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2713

Count If StrComp(lv.ListItems(i).Text, "David" , vbTextCompare) = 0 Then Call MsgBox("David ist an der Stelle " & i & " in der Liste.", vbInformation, "David gefunden") End If Next iWir benutzen also wieder eine Schleife um jeden Eintrag zu überprüfen.Dieses Mal läuft die Schleife nicht von 1 bis 10, sond ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4394

!mail = xMail 'Mail wird übergeben !password = xPass 'Pass wird übergeben .Update 'Refresh der Datenbank End If End WithSo. Das sieht jetzt nach relative viel Code aus. Das liegt aber nur daran, dass ich zusätzlich überprüfen lasse ob schon ein Eintrag mit der selben Mail Adres ...

Verfasst am: 05.06.2009, 04:35 Aufrufe: 1510

Verfasst am: 06.05.2009, 18:31 Aufrufe: 1873

CommandLineArgs(2) My.MySettings.Default.Password = My.Application.CommandLineArgs(3) End If End IfFertig! Um nun auf die Elemente zugreifen zu können, müsst ihr immer My.MySettings.Default. vorndranhängen oder sie in einer Variable speichern. Zusätzlich solltet ihr noch überprüfen, ob die Einstellungen nicht den Wert "None" haben. Dankeschön drücken ...

Verfasst am: 30.04.2009, 15:50 Aufrufe: 1171

Definiert wurde: Public XL As Object 'Excel-Application-Objekt Public BK As Object 'Excel Workbook-Objekt Public ST As Object 'Excel Worksheet-Objekt 'Prozedur 1 zum Starten von Excel: Sub Excel_Start1() 'überprüfen, ob eine Kopie von Microsoft Excel bereits ausgeführt ...

Verfasst am: 16.04.2009, 14:23 Aufrufe: 382

Hey Leute, ist es möglich bei dieser Funktion zu überprüfen ob der Download abgeschlossen ist? Public Function DownloadFile(URL As String, LocalFileName As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFileName, 0, 0) DownloadFile = (lngRetVal = 0) End Function Wenn nicht? Kann man auch ne andere Funktion verwenden, bei der das geht? V ...

Verfasst am: 10.04.2009, 08:23 Aufrufe: 2098

Hallo Leute, ich totaler Anfänger im VB hab mir das tool jetzt aber einmal hergenommen um eine Lernkartei für den Segelschein zu machen. Möchte mir eine grafik hernehmen und über die beschriftungen Textboxen legen .... diese dann befüllen können und überprüfen. soweit läuft das ganze ja ... nur hab ich ein problem und zwar folgende schleife For Each tbs In Me.Controls If i < 7 Then ...

Verfasst am: 26.01.2009, 19:30 Aufrufe: 1385

weis jemand wie ich einen port tester coden kann?(über winsock) dieser soll port und ip überprüfen... Hbae mir schon viele port scanner angeschaut aber ich verstehe einiges nicht! Ich würde micht sehr freun wenn einer einen source hätte was gut erklärt ist Very Happy

Verfasst am: 30.11.2008, 12:06 Aufrufe: 1260

Guten Morgen. ich habe hier diesen Code, welcher nach ablauf eine rbestimmten Zeit einen von zwei webbrowsern neu auf eine bestimmte Seite führen soll, und dann überprüfen, ob sie mit der alten version übereinstimmt. sollte dies nicht der Falll sein, soll eine Message Box aufgerufen werden, wo er nachfragt, ob diese Seite geöffnet werden sol. Hier ist der Code. Ich habe sogar schon probiert, eine ganz andere Sei ...

Verfasst am: 30.09.2008, 19:14 Aufrufe: 1379

Verfasst am: 23.09.2008, 23:39 Aufrufe: 2203

Nein, ich überprüfe die Laufwerke nicht auf ihre Existenz.Die Überprüfung findet anhand eines unique Hardware Keys statt.Würde ich anhand von Exist die Laufwerke überprüfen so würden mir auch Laufwerke wie z.B. das Disketten Laufwerk angezeigt werden, dies ist aber nicht der Fall denn ich überprüfe lediglich ob sie Ready sind.

Verfasst am: 11.09.2008, 18:02 Aufrufe: 1178

Verfasst am: 04.09.2008, 21:42 Aufrufe: 841

For Schleife und Replace. Am besten noch mit InStrB vorher prüfen ob der Wert enthalten ist, denn das ist schneller als jedesmal Replace auszuführen.Oder den String per Schleife durchgehen und von jedem Zeichen den Ascii Wert überprüfen und dementsprechend handeln.

Verfasst am: 01.09.2008, 17:22 Aufrufe: 943

Tja, ich beschäftige mich jetzt seit kurzem mit Netzwerksniffing, und wollte von euch mal wissen ob ihr gute Beispiele habt, wie man Winpcap mit VB6 benutzt... Ich habe diesen Source hier gefunden ,kann aber nicht überprüfen ob er funtioniert, wer hat schon Yahoo!"Messenger? http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=63993&lngWId=1 ich habe aber den Verdacht, das der Source bei mir nicht funktion ...

Verfasst am: 20.08.2008, 19:49 Aufrufe: 657

Verfasst am: 17.08.2008, 12:25 Aufrufe: 1879

Allerdings liegt auch hier das Problehm in der IF Abfrage die genau wie die Hardware ID sehr leicht gepatched werden kann. Eine Idee wäre wenn unser Programm debugged ist einen Integer auf 1 zu setzen den wir dann hinterher nochmal überprüfen können. Visual Basic: <br ...

Verfasst am: 05.08.2008, 08:46 Aufrufe: 760

Verfasst am: 14.07.2008, 09:06 Aufrufe: 1057

Verfasst am: 07.07.2008, 18:35 Aufrufe: 581

Auf vbarchiv.net findest du einen einfachen code zum Überprüfen wann die Seite fertig geladen ist.Falls du den noch nicht hast.Und während die Seite geladen wird, lässt man dabei eine einfache Schleife laufen die solange läuft bis eine Boolean Variable True zurückgibt.Und das selbe machst du mit dem Timer.Der Timer setzt eine weitere Boolean Variable auf True, falls die Seite zu lange zum laden braucht. Beispiel:Visu ...

Verfasst am: 07.07.2008, 16:44 Aufrufe: 581

Wie kann ich überprüfen ob der webbrowser länger als zb 30sec braucht,wenn JA dann einfach weitermachen

Verfasst am: 06.07.2008, 14:02 Aufrufe: 1314

(RedShark;5085)Da muss ich aber mal eingreifen^^ Kennst du nicht Programme wie Anyfreewhere oder MasterEye diese Programme sind z.B. in schulen oder firmen einzusetzen um dort das surfverhalten etc. zu überprüfen! Also finde ich, das man ein RAT zu durchaus positiven zwecken einsetzen kann vllt will slacker ja sowas machen aber ich waeiss es nichtGlaub ich eher gesagt nicht. Er ist neu und will ein gutnütiges Program ...

Verfasst am: 06.07.2008, 13:56 Aufrufe: 1314

Verfasst am: 30.06.2008, 18:26 Aufrufe: 499

Verfasst am: 09.06.2008, 18:49 Aufrufe: 605

Huhu, Leute!kann man irgendwie überprüfen, ob sich ein Buchstabe in einer TextBox befindet? Und es soll egal sein wo.ich bekomme das irgendwie nicht hin.Hoffe, ihr könnt mir helfen Smile

Verfasst am: 07.06.2008, 11:21 Aufrufe: 889

Verfasst am: 06.06.2008, 21:01 Aufrufe: 889

1. Sind die vielen Buttons unnötig, du kannst ja einfach wenn sich das Programm startet überprüfen ob die Daten zugangsberechtigt sind. 2. Die Methode mit Computer + Usernamen ist sehr unsicher, weil ja jeder diese beliebig ändern kann. Einige Hardwaredaten auslesen wie CPU/Graka etc wäre da schon sicherer 3. Außerdem müsstest du deine .exe noch crypten, weil mein Vb.Net sehr leicht decompilen kann Falls du noch nich ...

Verfasst am: 19.05.2008, 20:34 Aufrufe: 508