Visual Basic Forum

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Hallo alle zusammen, ich habe folgendes Problem: Ich schreibe gerade ein Programm, mit dem ich Daten über die serielle Schnittstelle empfange. Die Daten zeige ich nach dem Empfangen zunächst in einer Textbox an und schreibe sie danach sequenziell in eine Textdatei. Zum Empfangen der Daten verwende ich das MSComm32.ocx. Das funktioniert auch alles einwandfrei. Nach dem Empfangen des ersten übertragenen Text ...

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

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 25.06.2011, 14:01 Aufrufe: 668

Message: Ein Aufruf an die PInvoke-Funktion "Tape Drive Manager!Tape_Drive_Manager.ModulTape1::CreateFile" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit der nicht verwalteten Zielsignatur überein. Überprüfen Sie, ob die Aufrufkonvention und die Parameter der PInvoke-Signatur mit der nicht verwalteten Zielsignatur übereinstimmen. Auch wenn ich ...

Verfasst am: 18.03.2011, 18:29 Aufrufe: 845

Hallo. 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: Do ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 600

So Entschuldigung nochmal hab da vorhin ein wenig Unsinn verzapft und zu wenig nachgedacht Very Happy

Hier nun der Codeteil Fehlerfrei: For Each temp In loadarray 'Eine Schleife, die jedes Elemet im Array durchgeht If temp.Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbe ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

Hallo, Ich bin erst Anfänger von VB und würde gerne wissen wie ich 1 Ordner mit Textdateien per BrowseForFolder anlegen kann. Zu dem Projekt: Ich habe eine Userform die bei der ersten Aktivierung das (?)Ordnerwahlfenster(?) Aktivieren soll, wo der User dann den Speicherort des neuen Ordners mit den Text-Dateien bestimmen kann. danach kann das öffnen des Fensters ja wegfallen. Danach muss die Userform ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1209

... srRun=GetINIString(INISection, "UsrRun", "", INIfile) PWRun=GetINIString(INISection, "PWRun", "", INIfile) Taskname=GetINIString(INISection, "Taskname", "", INIfile) Wochentage=GetINIString(INISection, "Wochentage", "", INIfile) Startzeit=GetINIString(INISection, "Startzeit", "", INIfile) '*** Überprüfen ...

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

Hallo ich habe hier einen Code für eine Anmeldung am Programm. Wenn das Programm zum roten Code kommt und das Formular geschlossen werden und ein neues geöffnet werden soll springt das Programm für mich unverständlicherweise zur blauen Prozedur. Warum ist das so und wie kann ich das verhindern? Gruss Arrowlight Public Class frmSplash Public txtMName As String Private Sub frmSplash_Load(ByVal send ...

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

GetResponse(), HttpWebResponse) 'StatusCode der Serverantwort ermitteln Dim code As HttpStatusCode = response.StatusCode 'Rückgabe schließen response.Close() response = Nothing 'Überprüfen der Uploads. ' Prüfen der Übermittelten Bytes und der Größe des Files ' 'Überprüfen, ob ...

Verfasst am: 16.07.2009, 12:41 Aufrufe: 2505

Thema: Systemweites Drag & Drop in VB.NETHallo,heute möchte ich Euch zeigen, wie Ihr ein systemweites Drag & Drop System mit VB.NET realisiert.In den meisten Tutorials/Sourcecodes findet ihr nur Drag & Drop zwischen zwei Listviews o.Ä., aber hier wird der Einsatz eines systemweiten Drag & Drop Systems besprochen. Damit könnt ihr z.B. Dateien aus dem Explorer in euer Programm ziehen.Damit das ganze funktioniert, müsst ...

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

abzubrechenEnd TypePublic fShredder As tOptionsPublic Function DestroyFile(ByVal sFilepath As String, Optional ByVal iLoops As Integer = 1, Optional ByVal iBlocksize As Long = 1048576) As BooleanOn Error GoTo Err:'DeklarationenDim ff As IntegerDim sBuffer As StringDim i As Long, iFilesize As Long, iByteCount As LongDim nBlocksize As Long'Überprüfen ob es eine Datei ist und existiertIf IsFile(sFilepath) And Not fShred ...

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

Thema: Sicherere Hash-VerschlüsselungAutor: RauschWenn ein passwort oder ähnliches in eurem programm speichern wollt, ohne das man es einfach auslesen kann, nehmt ihr vermutlich einen MD5-hash.nur leider kann man dann einfache kurtze passwörter auch sehr schnell bruteforcen, und längere kann man sich sich schlecht merken.wenn man sich das ganze aber mal genauer überlegt, erkennt man, dass man ja den aus dem hash, noc ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1469

Thema: Procedures (Prozeduren)Autor: ZiGIndex:1. Einleitung2. Aufbau einer Funktion3. Werte übergeben4. ByVal, ByRef, Optional5. Tipps und Tricks6. Nachwort 1. EinleitungDie meisten werden sich jetzt denken "Prozeduren? Darüber weiß ich eh schon alles!".Aber ich bin sicher dass für jeden etwas dabei ist was er noch nicht wußte. :wink:Also fange ich mal an.Es gibt Sub- bzw. Function Prozeduren und ich gehe mal davon a ...

Verfasst am: 15.06.2009, 12:29 Aufrufe: 1235

Mit der normalen „FileExists“ Funktion geht es auch nicht und deshalb kommt jetzt die Api „OpenFile“ zum Einsatz.Hier ein Code zum Überprüfen der Existenz einer Datei:Public Function FileExists(ByVal Filename As String) As Boolean Dim OF As OFSTRUCT FileExists = OpenFile(Filename, OF, OF_EXIST) = 1 End FunctionDiese könnt ihr einfach in einem Modul speichern und dann s ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2713

Thema: ListView für FortgeschritteneHeute möchte ich euch das ListView noch etwas näher bringen.Beschäftigen werden wir uns mit diesen Funktionen:1. Über eine Schleife Einträge machen2. Einen bestimmten Eintrag finden.3. Über eine Schleife Einträge löschen4. Fehler verhindern5. Mausklicks auswerten6. Tastendruck auswertenAls erstes erstellt ihr mal ein ListView mit einer Spalte und der Ansicht lvwRe ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4394

Hallo Leute.Hab mir mal gedacht ich setze mich wieder an ein Tutorial.Diesmal geht es über das programmieren mit Datenbanken.Das kann ja oft sehr nützlich sein und erleichtert einem auch sehr das Leben. :wink:In diesem Tut werde ich euch zeigen wie man mit einer Access Datenbank und der Schnittstelle „DAO 3.6“ umgeht. Diese Schnittstelle dient uns als Kommunikationsmittel mit der eigentlichen Datenbank.„DAO“ ist zwar ...

Verfasst am: 05.06.2009, 04:35 Aufrufe: 1510

6900) * Es ist keine Installation des Programms notwendig * IPConfig Funktion - Überprüfen der Änderung über das Prgramm möglich ToDo: * Automatsiches Reaktivieren des Adapters * History - Alle änderungen in einer Datei speichern * Vernünftige Icons ^^ Sprache: Visual Basic 6 Für folgende Systeme: Windows 2000/Windows XP/Vista/Windows 7 Größe: Gepackt: 500KB Entpackt: 1,3MB Download: Wü ...

Verfasst am: 06.05.2009, 18:31 Aufrufe: 1873

Verfasst am: 30.04.2009, 15:50 Aufrufe: 1171

Hallo, seit dem Wechsel von VB6 nach VB 2008 streikt die Excel-Anbindung. 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() ...

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

Hab hier ein kleines snippet für euch, dass ich mir mal gebastelt hab. Vielleicht nützt es ja jemanden was. Die Funktion überprüft ob der Hash aus 32 Zeichen Hexcode besteht. Also 0-9 und a-f. Ist also eigentlich für MD5 gedacht. Was aber nicht bedeuted, dass der Hash dann nur ausschließlich ein MD5 sein kann. Auch MD2/MD4 haben 32 Zeichen (128Bit). Die Wahrscheinlichkeit ist aber sehr hoch das es MD5 ist.

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

Das Thema: Software besser schützen (Teil 2) Im zweiten Teil geht es darum Methoden zu coden um es den Crac ...

Verfasst am: 05.08.2008, 08:46 Aufrufe: 760

dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long[/code]Visual Basic: [code]Dim lRet As Long, Modules(1 To 200) As LongDim ModuleName As String, nSize As LongDim cbNeeded2 As Long, hProcess As Long hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, ParentID)If hProcess 0 Then 'Überprüfen ob der Pfad des Prozesses richtig ist lRet = EnumP ...

Verfasst am: 14.07.2008, 09:06 Aufrufe: 1057

@imi-tat0rBevor du deine Fragen postest, wäre es nett wenn du dich im Forum etwas umsiehst ob diese Fragen schon gestellt wurden.Und ja das wurden sie schon mehrmals."InStr" ist das Stichwort.InStr gibt dir die Position eines Wortes/Zeichens in einem Text zurück.Beispiel:Visual Basic: [code]Dim sText as stringDim iPos as longsText = "Ich bin ein Text"iPos = InStr(1, sText, "ein")MsgBox iPos[/code]Die msgbox würde dir ...

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

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

damn title aber egal ich muss ma ebn wissen wie ich in jeder schleife eine andere textbox beschriften kann. also dim i as integer for i = 0 to 10 ..... next i is ja die schleife. und beim ersten durchlauf soll in text1.Text was veröndert werden beim zweiten in TExt2.TExt und so weiter. klar könnte ich einfach über select case den wert von i überprüfen und so entsprechend handeln. aber das is doof ^^ hi ...