Visual Basic Forum

Verfasst am: 28.02.2010, 16:39 Aufrufe: 713

Hallo, ich bin Neuling bei VBA und muss für meine Chefin ein Makro programmieren. Es geht um folgendes: Ich möchte eine Tabelle mit Veranstaltungen programmieren. Jede einzelne Veranstaltung ist in einer Zeile und hat jeweils zwei Datumsangaben - einmal die Anmeldefrist und einmal der Beginn der Veranstaltung. Jetzt sollen die Veranstaltungen in verschiedene Arbeitsblätter sortiert werden. Un zwar so: 1. Das er ...

Verfasst am: 25.09.2009, 10:33 Aufrufe: 494

Dim cmd As New OleDb.OleDbCommand cmd.CommandText = "DROP VIEW test" Klappte leider nicht, es passierte nichts. (Zuerst wollte ich eine Abfrage mit gleichem Namen überschreiben, dazu fand ich leider gar nichts. So dachte ich, lösche ich zuerst die Abfrage und erstelle sie wieder unter gleichem Namen). Also es muss die komplette Abfrage gelöscht werden oder eben überschrieben werden. Besten Dank ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

navigate(sURL) Do : Loop Until appIE.Busy = False Do : Loop Until appIE.Busy = False sTxt = appIE.document.documentElement.outerHTML appIE = Nothing 'StreamWriter-Instanz bilden und Datei öffnen, =False: Existierende Datei überschreiben, sonst erstellen Dim Ausgabe As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("C:\test\test.txt&q ...

Verfasst am: 10.07.2009, 22:21 Aufrufe: 2212

Desweiteren wäre es gut, wenn die Kundenbezeichnung im Ordnernamen automatisch gross geschrieben wird. Sollte es durch zufall den Hauptordner schon geben, sollte mir das Programm sagen, das dieser Ordner schon vorhanden ist. Das Programm darf den vorhandenen Ordner auf keinen Fall überschreiben. Die neu erzeugte Ordnerstruktur sollte standartmäßig in einem bestimmten Ordner angelegt werden, aber es wäre nicht schle ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Bestimmt die Größe der Blocks mit der die Datei überschrieben werden. Muß nicht angegeben werden. Default ist 1048576 Bytes. Das ist 1MB.Zusätzliche Optionen und InformationenMit "fShredder." könnt ihr Informationen von der Funktion während dem überschreiben zurückerhalten.fShredder.ActLoop - Gibt zurück bei der wievielten Wiederholung er ist.fShredder.ActPosition - Gibt zurück an welcher Position in der Datei er sic ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

LOF bedeutet Len Of File.In der Klammer steht die Zahl 1. Das ist die Nummer der Datei.Wir sagen also (Länge der Datei 1)+1).Plus 1 schreiben wir deshalb, weil er sonst das letzte Zeichen der Datei überschreiben würde mit unseren Infos. Also sagen wir plus eins.Mit Close #1 wird die Datei dann wieder geschlossen.Das wäre auch schon der ganze Basiscode für einen Builder.Aber ich zeige euch noch die Möglichkeit eine ex ...

Verfasst am: 15.09.2008, 19:36 Aufrufe: 1657

Verfasst am: 22.08.2008, 20:31 Aufrufe: 455

counter = counter + 1 und counter &= +1 sind das selbe, das 2. ist nur unübersichtlicher.Sirect: ersetze mal die Msgbox durch nen Sleep oder Wait, oder mach das überschreiben in nem extra Thread, denn sollte es gehen.

Verfasst am: 13.08.2008, 22:44 Aufrufe: 1166

KK , danke leuteHab gegooglet , da Lösung zum Überschreiben und Speichern gefunden.Google und bla+du , ihr ward ziemlich gleich schnell :wink:danke Button vergess ich nicht.

Verfasst am: 10.08.2008, 20:35 Aufrufe: 2558

Liefer es einfach als Setup aus.Inno Setup ist da ne tolle Sache.Da gibts auch keine Probleme mit dem überschreiben von ocx files, falls ältere schon vorhanden sind.Und ein AV sollte auch nicht rummeckern.

Verfasst am: 28.07.2008, 10:19 Aufrufe: 539

Hey, bin noch ein ziemlicher Anfänger in Vb6, wollte fragen wie der Code lautet um eine Datei unter einem Namen zu speichern, wenn diese Datei aber besteht, soll sie in dem gleichen Namen aber mit einer andren Zahl hintendran gespeichert werden und die alte Datei nicht überschreiben.Private Sub Command3_Click()Open "beispiel1.txt" For Output As #1 Print #1, Text1.TextClose #1End SubDas ist der Code den ich momenta ...

Verfasst am: 13.07.2008, 23:28 Aufrufe: 1084

Hey,ersteinaml riesen Respekt und Dank an Zig für die zwei geilen Datenbank-Tutorials.Nun habe ich allerdings zwei Fragen, und zwar. Wie kann ich einen Eintrag aus der Datenbank löschen? Und wie kann ich einen Eintrag überschreiben, bzw. Editieren?Ich hab in meiner Datenbank eine Tabelle mit 7 Spalten und ich möchte auf einen Tastendruck die kompletten 7 Spalten löschen.Mein Index in der Datenbank liegt ganz vorner i ...

Verfasst am: 07.06.2008, 19:48 Aufrufe: 441

Gibts da nicht ne Eigenschaft namens .filename, die den aktuellen/gewählten Dateinamen enthält. Da könnte man den dann doch einfach mit " " überschreiben

Verfasst am: 13.05.2008, 13:05 Aufrufe: 548

Dann mußt du wohl ein extra Programm coden dass du in deinem eigentlichen Programm mitlieferst.Dieses übernimmt dann das überschreiben und löschen der Datei.Außer es ist auch möglich per .bat eine Datei zu überschreiben. Dann könntest du es natürlich ganz normal per .bat Datei lösen die sich am Ende noch selbst löscht.

Verfasst am: 25.04.2008, 13:25 Aufrufe: 789

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

Bestimmt die Größe der Blocks mit der die Datei überschrieben werden. Muß nicht angegeben werden. Default ist 1048576 Bytes. Das ist 1MB. Zusätzliche Optionen und Informationen Mit "fShredder." könnt ihr Informationen von der Funktion während dem überschreiben zurückerhalten. fShredder.ActLoop - Gibt zurück bei der wievielten Wiederholung er ist. fShredder.ActPosition - Gibt zurück an welcher Positi ...

Verfasst am: 10.04.2008, 00:41 Aufrufe: 868

http://www.dll-files.com/dllindex/dll-files.shtml?ieframe Nur kann man die ieframe.dll nicht überschreiben. Bei mir funktioniert navigate mit der ff control

Verfasst am: 05.04.2008, 14:39 Aufrufe: 296

Hi Ich hab mehrere Typen die eine 1.txt auf den FTP uppen. und auf dem FTP Server werden die 1.txt Daten nur Überschreiben. kann ich das Irgentwie so machen das es Irgeneinen Namen hat. zB: 145sedc15sac.txt oder 651svs61vs6dv5.txt Hoffentlich kann mir jemand Helfen. Sry das ich nur Fragen stelle :Peinlich: Und c0re du Solltest mal mehr in ICQ Sein. Du schreibst ja garnie Zurück. // Nein, ich hab di ...

Verfasst am: 06.03.2008, 22:29 Aufrufe: 1156

Moin Leute! Dieser code hier funktioniert zwar, aber er überschreibt die .txt auf dem server. Was muss ich machen, damit er alles untereinander schreibt und nichts löscht? Code: Open "C:/registers.crk" For Append As #1 Print #1, ".............................." Print #1, "Username:" & " " & Text1.Text Print #1, "Password:" & " ...

Verfasst am: 02.03.2008, 19:57 Aufrufe: 446

Hallo,was ist am Builder Source Falsch ?? Private Sub Command1_Click() On Error Resume Next If Text1.Text = "" Then MsgBox "Gib nen Server URL an du Depp", vbCritical, "Fehler" Exit Sub End If If Text2.Text = "" Then MsgBox "Gib nen Servernamen an du Deppp", vbCritical, "Fehler" Exit Sub End If If Text3.Text = "" Then ...

Verfasst am: 27.02.2008, 21:55 Aufrufe: 192

hi, wie kann man ein prog machen das wie die gutmann methode alles ca. 30 mal überschreibt? ich überblicke das nicht wirklich und weiß auch nicht ob mans in vb umsetzten kann. mfg & thx _code_

Verfasst am: 08.02.2008, 19:32 Aufrufe: 482

Wie wärs mit Text hinten anhängen und halt nicht immer überschreiben. Entweder einfach durch den Operator "&" oder gleich per Text1.SelText

Verfasst am: 08.02.2008, 00:37 Aufrufe: 372

Am einfachsten machst du es, wenn du den Inhalt der Datei in eine Variable lädst, sie anschliessend nach dem gesuchten Wort durchsuchst und das Wort löscht. Den Inhalt der Datei dann wieder in die Datei schreiben, aber jetzt muss man die alte Datei entweder löschen und die Neue erstellen, oder gleich die alte Datei überschreiben lassen.

Verfasst am: 14.01.2008, 20:07 Aufrufe: 480

Wenn du dann am richtigen Punkt bist (Zähler überprüfen) liest du die Zeile ein und tust was du tun willst damit. Nen Code findest du sicher per Sufu. Einzelne Zeilen überschreiben kann man nicht so einfach in einer Datei. Im Endeffekt läuft es immer darauf hinaus, dass du die ganze Datei einlesen mußt, die Zeile austauscht und die Datei wieder erstellst. Mann kann zwar in der Datei einen Zeiger an die ...

Verfasst am: 10.01.2008, 17:17 Aufrufe: 1143

Das Überschreiben des Programms muss ein Installer erledigen der nachher gestartet wird. Die Checksumme wird auch automatisch berechnet. In Datei ausführen muss der Dateiname des Installers eingegeben werden. Der Installer kümmert sich zum Beispiel um das überschreiben der alten Datei, das registrieren der Komponenten etc. Der Installer wird natürlich erst gestartet wenn alle Dateien runtergeladen sind. Unter Updat ...

Verfasst am: 08.01.2008, 20:38 Aufrufe: 798

Design Weil auch ein MSDOS Programm was nützen kann. Dann sieht es so aus... Zum einen müsstet ihr die Install-Verzeichnisse kennen und die REG Pfade dann müsst ihr die Signatur des Trojaners kennen (wenn mich nicht alles täuscht, dann wird die bei den Public-Cryptern eigtl. nicht überschreiben)... Diese Signatur zu finden ist aber eigtl. eher Aufgabe eines Guardians Noch ne kleine Anmerkung: IMO kann ...

Verfasst am: 06.01.2008, 12:22 Aufrufe: 958

Aber das dein Tut so kurz ist und eigentlich garnichts richtig erklärt, hätte ich mir nicht gedacht. Abgesehen davon dass du dir ein Thema ausgesucht hast, mit dem du dich nicht wirklich beschäftigt hast. Wenn du die Datei "auf einen Rutsch" überschreiben willst, dann sollte vorher der String mit Zufallszeichen gefüllt werden. Die Länge des string sollte natürlich der Länge der Datei entsprechen. D ...

Verfasst am: 06.01.2008, 00:59 Aufrufe: 958

Du überschreibst die Datei (den Teil) nur einmal, richtige Shredder machen das mehrmals weil einmal Shreddern nicht unbedingt reicht 3. Du benutzt immer den selben String zum überschreiben statt einen Zufälligen, sich immer ändernden Hier mal die Funktion vom richtigen Shredder: Public Sub WipeFile(sFile As String, Loops As Integer, Delete As Boolean) Dim sLen As Long, X As Integer, FF As Byte Dim Ra ...

Verfasst am: 06.01.2008, 00:51 Aufrufe: 958

eig. gutes tut, nur hab ich was zu mecken: With Commondialog .showopen end with text1.text = commondialog.filename ja entweder with, oder kein with . print #1, "Diese Datei wurde geshreddert 123dsdsdfhhhhfh " ich würde mal sagen das bringts nicht so ganz, man müsste jedes byte einzeln mit ner 0 bzw. sinnlosem code überschreiben, da man sonst nur ein teil der datei überschreibt. mfg

Verfasst am: 06.01.2008, 00:29 Aufrufe: 958

Erstellen eines Shredders _______________________ Hi! Heute möchte ich euch in meinem ersten text tut erklären wie man einen shredder erstellt ___________________________________ er soll funktionen haben so wie schnelles löschen sicher löschen mit überschreiben und auch schreibgeschützte datein löschen können ________________________________________ also los gehts! Wir brauchen 1x commondialog 1x tex ...

Verfasst am: 20.12.2007, 10:13 Aufrufe: 689

Hallo! Ich möchte ein screenshot geschickt bekomenn per Winsock. Das funktioniert ganz gut! Nur dass die datei immer größer wird, da die bytes von dem neuen screenshot einfach angehängt werden Sad

Also möchte ich die irgendwie durch nummerieren. Also ungefähr so : App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & "1" & ".bmp" Danach hal ...

Verfasst am: 13.12.2007, 18:58 Aufrufe: 1116

mhm also registry einträge überschreiben würde zwar gehen, aber dann müsste man ja den reg-namen + position jeder firewall kennen, ausserdem könne man nicht sofort die firewall killen(was eig. kein problem ist). zu der sache das die sich selber gegenseitig schützten, das glaube ich auch, allerdings sind diese processe im task manager nicht sichtbar. gibt es eine möglichkeit diese sichtbar zu machen? zonealarm best ...

Verfasst am: 13.12.2007, 14:20 Aufrufe: 1116

beim ersten starten einfach einträge in der registry zum autostart der firewall überschreiben und nen eigennen eintrag speichern... dann den prozess beenden (also den virus/troja ect) und beim nächsten start ist die firewall aus und du kannst machen was du willst Very Happy

Verfasst am: 05.12.2007, 12:37 Aufrufe: 220

hi, wie kann ich die dateiinfos überschreiben, bzw neu schreiben? ich meine diese hier z.b.: danke schonmal

Verfasst am: 04.12.2007, 18:52 Aufrufe: 3643

Damit wir aber z.B. wichtige Dokumente unwiederruflich löschen können, werden wir die Datei Byte für Byte einlesen, mit Nullen überschreiben, und dann löschen! Das hat den Effekt, das die Datei wirklich unbrauchbar wird. Der Code des Clienten, ist hier relativ einfach wir schicken einfach einen Befehl an den Server, welcher die Löschfunktion auslöst. Dabei verbinden wir das senden diese Befehl, noch mit e ...

Verfasst am: 21.11.2007, 23:04 Aufrufe: 734

Ist grade vor 20 mins fertig geworden Very Happy

Es ist ein FTP Programm, das auf jeden xbeliebigen FTP-Server (Logindaten müssen natürlich vorhanden sein Very Happy

) Dateien hochladen kann. Das Programm kann eine zufällige Zahl genierieren, um somit den Dateinamen zu ergenzen. (so kann man dateien mit dem gleichen namen hochladen, ohne sie zu überschreiben) Desweiteren können Leerzeichen entfernt und durch "_" ...

Verfasst am: 14.11.2007, 15:04 Aufrufe: 529

was heißt hier in VB-Code ausdrücken? Du lässt die version.txt runterladen, öffnest die, und in der Textdatei steht NUR die Versionsnummer... die vergleichst du mit der Versionsnummer, die die aktuelle Version von dem User hat, und wenn die anders ist, DANN lässt du die exe datei runterladen... allerdings müssteste das updating in ner eigenständigen exe schreiben, weil sich das programm ja nicht selbst überschreibe ...

Verfasst am: 15.10.2007, 14:48 Aufrufe: 664

Hallo, habe jetzt folgendes Beispiel gefunden: Imports System.IO Public Class Form1 Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Auf ...

Verfasst am: 16.04.2007, 19:09 Aufrufe: 481

Verfasst am: 15.03.2007, 23:52 Aufrufe: 5244

LOF bedeutet Len Of File. In der Klammer steht die Zahl 1. Das ist die Nummer der Datei. Wir sagen also (Länge der Datei 1)+1). Plus 1 schreiben wir deshalb, weil er sonst das letzte Zeichen der Datei überschreiben würde mit unseren Infos. Also sagen wir plus eins. Mit Close #1 wird die Datei dann wieder geschlossen. Das wäre auch schon der ganze Basiscode für einen Builder. Aber ich zeige euch noch d ...

Verfasst am: 28.02.2007, 15:38 Aufrufe: 473

Verfasst am: 28.01.2007, 14:17 Aufrufe: 338

Verfasst am: 28.09.2001, 14:32 Aufrufe: 566

Den gesamten Inhalt des MSHFlexGrid-Steuerelements möchte ich durch Klicken auf Button 2 in der Datenbank abspeichern. 1. Mir ist es zwar gelungen, durch einmaliges Klicken auf Button 1 die Daten in die erste Zeile des MSHFlexGrid-Steuerelements anzuzeigen, aber mir fehlt die Behandlungsroutine dies beliebig oft zu wiederholen, ohne den Inhalt der 1. Zeile wieder zu überschreiben. Ich möchte die Auswahl in Zeilen an ...