Stephan B.

Hi Danke für eure Antworten. Mit print erscheint nun: ('LANG_START_ONLINE') wie kann ich dann noch (' und ') entfernen? Danke!

Hallo, Ich habe ein kleines Problem mit preg_replace. Und zwar habe ich diesen Code: $this->cache[$this->name] = preg_replace("/{\\\$lang->read((.*?))}/", "".$lang->read("\\1")."", $this->cache[$this->name]); die Klasse $lang wurde Globalisiert: global $lang; $lang = new languages("deutsch"); In der Klasse ist nur die Funktion "read" die ich am Anfang zum testen mit : print $language; exit;[/php] Beendet habe. ausgegeben wird nur \1 Ich hoffe mir kann geholfen werden. Danke!!

Hi, Mit SQL kenne ich mich bestens aus! ICh kann PHP und MYSQL und kann dort ohne Probleme jeden MySql Query Befehl machen und das leuft sowohl UPDATe als INSERT und SELECT also an msql Kenntnissen hängt es nicht!!!

Hallo, Der Router ist so Konfiguriert, dass nur IP(s) mit "192.168.2.XXX" den Router aufrufen dürfen. Trozdem kommen diese Meldungen? Es wurden wieder mehr, heute morgen um 1 Uhr hat es wieder inerhalb von 2 Minuten 5 Versuche gegeben. Naja aber wenn man es nicht verhindern kann, schade. MfG Stephan

Guten Abend! Seit neustem Bekomme ich immer diese Warnungen von unserem Router ( Ausschnitt ca. 1/20 aller meldungen ) Sat Mar 26 10:37:04 2005 : Blocked access attempt from 213.196.221.185 Sat Mar 26 10:36:55 2005 : Blocked access attempt from 213.196.216.188 Sat Mar 26 10:36:55 2005 : Blocked access attempt from 213.196.208.204 Sat Mar 26 10:36:52 2005 : Blocked access attempt from 213.196.216.188 Sat Mar 26 10:36:52 2005 : Blocked access attempt from 213.196.208.204 Sat Mar 26 10:36:38 2005 : Blocked access attempt from 213.196.201.224 Sat Mar 26 10:36:18 2005 : Blocked access attempt from 217.225.61.189 Was hat das zu bedeuten? Versucht da einer sich zugriff zu verschaffen? Meine IP(s) sind das nicht! Wenn einer von uns den Router aufruft comm ACCESS: 192.XX Kann ich die Irgentwie davon abhalten auf den Router zuzugreifen? Danke!

Hallo, habe es gerade rauusbekommen! for each d As System.IO.Fileinfo Ordner = d.directory File = d.Name exit Neue Frage, ich habe diese Funktion: Public Function connect(ByVal server As String, ByVal username As String, ByVal password As String, ByVal database As String) As MySqlConnection connStr = String.Format("server={0};user id={1}; password={2}; database={3}; pooling=false", _ server, username, password, database) conn = New MySqlConnection(connStr) On Error Resume Next conn.Open() Return conn End Function Public Function connect_close() As MySqlConnection conn.Close() Return conn End Function Public Function read(ByVal table As String, ByVal tables As String, ByVal conn As MySqlConnection, ByVal argument As String) As DataTable Dim data As DataTable Dim da As MySqlDataAdapter data = New DataTable(table) da = New MySqlDataAdapter("SELECT " + tables + " FROM " + table + " " + argument, conn) Try da.Fill(data) Catch ex As Exception MsgBox("Es konnte keine Verbindung hergestellt werden: " + ex.Message) End Try Return data End Function wie kann ich nun was in die DB schreiben? Habe schon versucht einfach den SELECT Befehl durch INSERT INTO zu ersetzten. Geht aber nicht! Bitte um hilfe. Danke

Guten Abend zusammen, ich habe in der Variabel "pfad" folgendes stehen: C:\Dateien\Programm\test.zip wie kann ich es aufteilen also: Festplatte: C:\ Pfad: Dateien\Programm\ Datei test.zip Danke euch! Ich benutze Visual Basic.NET ( Windows XP ) MfG stephan

Hallo, Es könnte folgende Gründe sein ( war bei mir auch so ) - Du benutzt Wireless Lan und der Funk wird von Irgentetwas Blockiert. - Du hast Mac-Filter Aktiviert und dort einen Eintragfehler gemacht ( Z.B: 2x die Gleiche Adresse eingetragen, was bei mir z.b so einen Fehler verursachte ) - Du hast "adress Blocking" Aktiviert, was viele Seiten ( eher Ports ) für eine IP blockiert. - Es wurde durch einen Fehler an zwei Rechnern die Gleiche Home-IP vergeben. Überprüf das alles mal und sag wies aussieht. MfG stephan

Ich benutze Visual Basic.Net sry das ich das nicht erwähnt habe. Aber ich weiß wonach ich suchen muss und werde bestimmt was finden. Danke dir ich melde mich wenn ich ein Problem habe Mit freundlichen Grüßen Stephan B.

Jo, Danke ich habe warscheinlich Geschlafen Ich bin der Admin von dem Netzwerk und benutze kein Linux! Auserdem geht es um Programmieren in visual Basic und nicht um Dateien auf nem Computer suchen um damit nachher in Excel usw zu Arbeiten!!! Trozdem danke

Danke für deine Antwort! Ich habe nun: Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim i As Int32 Try Dim arrAllFiles() As String = _ Directory.GetFiles(TextBox1.Text, TextBox2.Text) ListBox1.Items.Clear() For i = 0 To arrAllFiles.Length - 1 ListBox1.Items.Add(arrAllFiles(i)) Next Label1.Text = CStr(arrAllFiles.Length) Catch Except As Exception MsgBox(Except.Message & vbNewLine & _ "Möglicherweise ist die Pfadangabe falsch.", _ MsgBoxStyle.Exclamation) ListBox1.Items.Clear() Label1.Text = CStr(0) End Try End Sub leider werden damit keine Unterverzeichnise durchgesucht. Wie kann ich das machen? Danke dir

Theoretisch sollte es so sein: Do while not ENDE MIT EINLESEN dateiname = Aktueller_Ordner/Dateiname.Dateiendung Loop das jede Datei dann in einer Schleife in dateiname geschrieben wird, beim nächsten durchgang also wenn die nächste Datei gefunden wird wird dateiname überschrieben. Mehr brauche ich dann nicht, den rest kann ich mir dann zusammenbauen, dieser name soll dann einfach in eine ACCESS Datenbank eingetragen werden. Den Programmcode für die Datenbank habe ich schon und müsste ich nur in die Schleife bauen. Nur weiß ich leider nicht, wie ich nach Dateien suche. Wichtig: Es soll das Aktuelle Verzeichnis und alle unterverzeichnisse von dem Ordner der als String in ordnername steht. Ich danke dir vielmals für deine Antwort/en. Mit freundlichen Grüßenn Stephan B.

Hallo, Ich suche ein Programm womit ich nach Dateien suchen kann. Z.B.: Dateien mit *.zip Diese sollen dann alle gesucht werden. Kennt einer ein Script dafür? Danke euch

mich haben die kommas vor C:\ irretiert deshalb: MP3Filename = Chr(34) & "c:\test mit langem namen.mp3" & Chr(34) ich dachte ich soll C:\... mit " "umklammern" Danke dir aber für deine Antworten es funktioniert es ergibt dann ja ""C:\..."" :bimei

Achso chr(34) ist das hochkomma. Ok Danke dir es funktioniert.

Was ist den chr(34) ? chr(10) kenne ich das ist doch Zeilenumbruch oder? Aber 34? Danke!

Habe nun das: Public Function mciopen(ByVal sfile As String) As String mciSendString("open " & sfile & " type MPEGVideo alias TempMCI", 0, 0, 0) Return 0 End Function Public Function mciplay(ByVal nFromPos As Integer) As String nFromPos = "0" mciSendString("play TempMCI from " & CStr(nFromPos), 0, 0, 0) mciSendString("put TempMCI destination", 0, 0, 0) Return 0 End Function wenn es lange Namen mit Leerzeichen sind, dann werden die nicht wiedergegeben. Was kann ich dagegen tun? Danke

genau meinte ich durch meinen ersetzten. Wenn das nicht geht dann so: - Windows startet - Task "Explorer" killen - Mein login anzeigen Wie kan ich das denn machen? Danke!

Hallo allezusammen! Ich habe ein Frage und zwar habe ich einen meiner Computer als Server angeschlossen ( testweise nen zweiten ) auf diesem leuft eine Datenbank mit benutzerdaten. Jetzt habe ich hier nen Client programmiert der darauf zugreift. Dieser soll also beim Starten von Windows aufgerufen werden. Am besten so: Windows startet Windows zeigt keinen Startbildschirm, sondern einen schwarzen hintergund ( meiner wahl ) und öffnet mein Login Feld. geht das? Danke für eure Antworten! MfG Stephan

Klar ist das "kleine" Betriebsystem mit Internet schon sehr viel aufwand Immerhin muss folgendes gemacht werden: - 8 Bit System ( Textmodus starten ) - 16 Bit "aufrufen" - 32 Bit für Fenstermodus usw. das sind 3 GROßE Schritte, bis man überhaupt schon bei 16 angekommen ist ist es sehr weit . Naja ich finds trozdem interressant

1.) Ja, als Nutzen vllt. nicht viel aber man kann dan aufjedenfall sagen das man sowas kann. 2.) Warum muss es besser sein? Es muss funktionieren. Klar mit 10 man wird es sicherlich 1000000000000 Jahre dauern wenn es besser als z.B. Windows sein soll. Aber als kleines System womit man vielleicht dann inerhalb 3 Sekunden mit dem Booten fertig ist und ins Internet kann doch ganz nützlich. mfg stephan

Hallo, Ich eröffne hier einfach mal eine neue Diskussion. Wäre auch gut wenn die mal on top bleibt. Wird bestimmt interressant! Thema: Eigenes Betriebsystem möglich oder nicht möglich? Meine Antwort: Ich denke dass es mit C möglich ist einen Kernel zu schreiben um sein eigenes Betriebsystem zu schreiben. Klar ist auch, dass man sicherlich Assembler ( low level Programmierung ) verwenden muss um bestimmte befehle zu benutzen. Ich bitte euch hier keine Beiträge wie "Was ist das denn für ein schwachsinn usw" zu schreiben! Eins ist klar möglich ist es aufjedenfall, sonst gäbe es kein Windows oder Linux! MfG Stephan!

Man könnte es machen. Dazu muss man nur den Befehl zum löschen geben, dann versucht windows ( bei mir ) ca. 5 sekunden die Datei zu löschen und gibt dann nen Error aus! Wenn man allerdings inherhalb dieser 5 sekunden die anwendung mit dem befehl beendet, ist der lösch befehl unter windows doch noch Aktiv! Also is die danach weg. (Siehe uninstall Dateien von Programmen, die löschen sich danach auch selbst) MfG Stephan

Hi, Ich habe nun folgendes: Dim conn As Connection Dim data As Recordset Dim selected As String Dim filename As String Dim fileurl As String conn = New Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Programmierung\VB .NET\Media Player\Programmcode\Media Player\Datenbank\mplayer.mdb" conn.Open() selected = ListBox1.SelectedItem If Not selected = "" Then data = New Recordset data.Open("SELECT * FROM MediaPlayer WHERE titel='" + selected + "'", conn) filename = data.Fields.Item(1).Value fileurl = data.Fields.Item(2).Value data.MoveNext() mciClose() mciOpen(fileurl) mciPlay() Else MsgBox("Sie haben keine Datei ausgewählt", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Keine Datei ausgewählt") End If in selected steht die Ausgewählte Datei, überprüft mit msgbox! in fileurl steht dannn C:\test.mp3 diese gibt es da auch! Als nächstes habe ich: Public Sub mciOpen(ByVal sFile As String, Optional ByVal hwnd_Output As Integer = 0) Dim sType As String Dim nResult As Integer Dim sExt As String Dim bVideo As Boolean On Error Resume Next ' Multimedia-Typ ermitteln sType = mciGetType(sFile, bVideo) ' File öffnen mciSendString("open " & sFile & " type " & sType & " alias TempMCI", CStr(0), 0, 0) System.Windows.Forms.Application.DoEvents() ' Zeitformat auf Millisekunden einstellen mciSendString("set TempMCI time format milliseconds", CStr(0), 0, 0) System.Windows.Forms.Application.DoEvents() ' Falls es sich um eine Video-Datei handelt... If bVideo And hwnd_Output <> 0 Then mciSendString("window TempMCI handle " & CStr(hwnd_Output), CStr(0), 0, 0) End If End Sub Allerdings kommt keine Fehlermeldung an die funktion wird mciopen("C:\test.mp3") übertragen! Es kommt keine Fehlermeldung ! MfG Stephan

Hallo, Für VB.NET oder für VB 6? MfG Stephan