cartman1991

Mahlzeit Ich schreibe gerade ein Registrierungsformular, bei dem nach der Überprüfung der Daten einen persönlichen User-Ordner erstellt. Dieser persönliche Ordner soll in einem Unterverzeichnis, welches ich mit dem root-user von Ubuntu erstellt hab. Hab dem Ordner Testweise die Rechte 777 gegeben. Zum erstellen des Ordners verwende ich das hier: Formular: <form action"test.php" method="post"> <input type="text" name="verzeichnis"> <input type="submit"> </form> [/PHP] PHP-Teil: [PHP] $verzeichnis = $_POST['verzeichnis']; $directory = "/profil/$verzeichnis"; if( mkdir ("$directory", 0777)) { echo "Verzeichnis erstellt!"; } Wenn ich nun versuche ein Verzeichnis zu erstellen bekomme ich die Fehlermeldung: "Warning: mkdir() [function.mkdir]: Permission denied in /var/www/test/reg_w.php on line 152" Hoffe ihr könnt mir helfen, Mfg Cartman

Moin, Versuch doch mal die alten Arbeitsspeicher mit der neuen Grafikkarte und umgekehrt, damit n Hardwaredefekt ausgeschlossen ist Mfg Cartman

Moin, Hab mir den Artikel auch mal durchgelesen, doch darin steht Heisst, du stellst den ganzen Sums Netzwerkkonfiguration, PcName etc... davor ein und lässt es dann alleine durchlaufen. Dauern tut's trotzdem noch so lang mfg

Nein, gestern ging's auch noch, und als ich heut dann wieder n test machen wollte ging's nicht mehr und hab seit gestern nicht's am Quellcode geändert

Hab grad mal If e.KeyCode = Keys.Up Then mit If e.KeyCode = Keys.F10 Then ersetzt, so funktionierts, kann ich an den Pfeiltasten vllt. irgendwas verstellt habn?!

Danke für den Tipp & ja ist er, hab eben nochmal nachgesehn Gibt's vllt. noch eine Alternative zum KeyDown?

Kennt ihr vllt. irgend n Geschäft in den man mal so ne Brille testen könnte?

Hab jetzt mal "Keypreview = True" extra nochmal auf nen Button gelegt, aber hat auch nichts gebracht. & Anbei noch eine Frage, wenn ich ein kleines Panel erzeuge, Code: Dim Element As New Panel With Element .BackColor = Color.Green .Size = New Size(10, 10) .Visible = True Berechnen: .Location = New Point(Rnd() * 300, Rnd() * 300) If Element.Location.X > 340 Or Element.Location.X < 10 Then GoTo Berechnen ElseIf Element.Location.Y < 290 Or Element.Location.Y > 10 Then GoTo Berechnen End If Me.Controls.Add(Element) End With & Ich erzeuge mehrere, werden diese dann automatisch nummeriert oder weisst jemand wie ich jedes panel selbst ansprechen kann?

Nein D: Aber an was könnte das denn dann liegen? :S

Tach, Ich hab folgendes Problem und zwar möchte ich mein Panel2 mit den Pfeiltasten bewegen, das ganze hab ich so probiert: Bsp: Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown '// Timer für Bewegung nach Oben an If e.KeyCode = Keys.Up Then timRunter.Enabled = False timRechts.Enabled = False timOben.Enabled = True timLinks.Enabled = False .... & hier noch der Timer: Private Sub timOben_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timOben.Tick Panel2.Location = New Point( _ Panel2.Location.X, _ Panel2.Location.Y - 10) If Panel2.Top = Panel1.Top Then MsgBox("Leider verloren") timRunter.Enabled = False timRechts.Enabled = False timOben.Enabled = False timLinks.Enabled = False Panel2.Location = New Point(200, 200) End If End Sub Jetzt wenn ich den Debug-Modus starte und eine Pfeiltaste drücke, passiert überhaupt nicht's :S Hoffe könnt mir helfen, mfg Cartman

Benutze Vb .Net, hab es mit """ versucht, aber dann is alles nach dem mittleren " rot dargestellt z.B. textbox1.text.split(""") dabei wird dann textbox1.text.split(""")

Moin, Hab mal wieder n Problem/Frage, Wie splitte ich bei Anführungszeichen? z.B. <meta name="title" content="Hier der Titel den ich angezeigt bekommen möchte"> Danke Mfg cartman

Mahlzeit Hier mein nächstes Problem, ich möchte die Quellcode-Dateien mit einer fortlaufender Nummerierung speichern, der Code sieht bis jetzt so aus: Dim fNummer As Integer Dim yName As String Dim syName As String yName = "QuelltextDownload" & "(" & fNummer & ")" & ".txt" Nummerieren: fNummer = fNummer + 1 If My.Computer.FileSystem.FileExists("C:\Temp\" & yName) Then Label1.Text &= yName & vbCrLf GoTo Nummerieren Else Label1.Text = yName syName = yName End If Sollte jetzt nur die Namen erstmal geben, doch wenn ich den Button betätige hängt sich alles auf ohne jegliche Fehlermeldung.. :S

Danke, hat super geklappt! teil = eingabe.Split("'") teil(0) = "" teil(1) = "" teil(2) = "" txtQuellcode.Text &= "video_id:" & teil(3) teil(4) = "" txtQuellcode.Text &= vbCrLf & "l:" & teil(5) teil(6) = "" txtQuellcode.Text &= vbCrLf & "t:" & teil(7)

Moin, Mein Problem ist, dass ich einen bestimmten String zwischen zwei ' heraus... trennen?! möchte und das kommt öfter in einer Zeile vor. Bsp.: {hl:'en',video_id:'Bh26zOjIh9I',l:'260',t:'OEgsToPDskKSvBvEz9yl_b1O-WlRxUXS',sk:'0PIQQCthXffjlTcvZENpKQC'}; So steht das in meiner Textbox, das was dabei rauskommen sollte, sollte in etwa so aussehen: video_id:'Bh26zOjIh9I' l:'260' t:'OEgsToPDskKSvBvEz9yl_b1O-WlRxUXS' Doch ich komme nicht darauf wie das funktionieren soll :| Mfg Cartman

Wenn ich ehrlich bin hab ich mir das Login-Script noch nie angesehen & als Azubi im ersten Jahr denk ich, darf ich das auch nicht ohne weiteres einfach mit einfügen. Weil wir nur ein paar von uns ausgewählten Updates verteilen wollen. Sollen dann auch gleich sich selbstständig installieren, sodass die Benutzer es gar nicht mitbekommen welche Updates installiert werden, da wir ziemliche Faule Säcke in der Firma haben ^^

Ich möchte das Programm danach per E-Mail an alle Pc's in der Firma senden, deswegen bin ich mir nicht sicher ob es dann auch jeder im selben Verzeichnis öffnet.

Guten Morgn 1. Ich möchte in vb 2008 ein Programm schreiben, das abfrägt ob neue Windows-Updates verfügbar sind, wenn ja, dann soll der es die Updates gleich downloaden und installieren, leider weiss ich nicht wie ich das mache. 2. Möchte ich eine exe,- & mehrere Batchdateien in den system32 Ordner kopieren, das versuch ich mit z.B. If Not File.Exists("C:\Windows\system32\devcon32.exe") Then My.Computer.FileSystem.CopyFile("devcon32.exe", "C:\Windows\system32\devcon32.exe") Dabei bekomme ich aber immer wieder die Fehlermeldung, dass die Datei nicht existiert, manchmal beim kopieren aber auch manchmal beim starten der Datei aus dem system32-Ordner. Mfg Cartman

Danke Das klappt auch alles ganz gut, nur kommt die Meldung erst nachdem ich komplett durch das andere Panel durchgefahren bin, jedenfalls sehr verspätet ^^ Gibt es auch Möglichkeit den Bereich auf dem das Panel sich bewegen kann auch einzuschränken? Also nur nicht nur in nem Viereck sondern z.B. in nem Labyrinth

Ouh Man D: Danke! ^^ & noch ne Frage, Wie löse ich etwas aus wenn mein Panel jetzt ein anderes berührt? z.B. Ich streife mit meinem panFigur, ein anders festes Panel & dann soll eine MsgBox auftauchen Mit If panFigur.location = <anders panel>, bla bla bla geht's schonmal nicht :|

Tach, Ich hab mal wieder ein Problem und zwar möchte ich mein Panel bewegen, wobei ich den Timer per Tastendruck starte, der dann mein Panel bewegt. Nur weiss ich nicht wie ich den Timer abschalte sobald ich die Taste loslasse Hier mal der Code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timRunter.Enabled = False timRechts.Enabled = False timOben.Enabled = False timLinks.Enabled = False End Sub Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Up Then timRunter.Enabled = False timRechts.Enabled = False timOben.Enabled = True timLinks.Enabled = False ElseIf e.KeyCode = Keys.Down Then timRunter.Enabled = True timRechts.Enabled = False timOben.Enabled = False timLinks.Enabled = False ElseIf e.KeyCode = Keys.Right Then timRunter.Enabled = False timRechts.Enabled = True timOben.Enabled = False timLinks.Enabled = False ElseIf e.KeyCode = Keys.Left Then timRunter.Enabled = False timRechts.Enabled = False timOben.Enabled = False timLinks.Enabled = True End If End Sub Private Sub timRunter_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timRunter.Tick panFigur.Location = New Point( _ panFigur.Location.X, _ panFigur.Location.Y + 2) End Sub Private Sub timRechts_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timRechts.Tick panFigur.Location = New Point( _ panFigur.Location.X + 2, _ panFigur.Location.Y) End Sub Private Sub timOben_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timOben.Tick panFigur.Location = New Point( _ panFigur.Location.X, _ panFigur.Location.Y - 2) End Sub Private Sub timLinks_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timLinks.Tick panFigur.Location = New Point( _ panFigur.Location.X - 2, _ panFigur.Location.Y) End Sub End Class Mfg Cartman

War alles ganz normal, Benutze VB Express Edition 2008 Beim Überwachen läuft alles ganz normal ab. Der Wert steht von Anfang an auf False Wenn ich ihn auf True gesetzt hat, hat er's sofort wieder auf False gesetzt Es sind mehrere GroupBox'en untereinander, die ich anzeigen möchte. Hab sie jetzt mal nebeneinander aufgereiht und es hat funktioniert. Weisst du an was es gelegen haben könnte?

Heyo, Bin auch n blutiger Anfänger wie du ^^ Schnupper doch mal in dieses e-book rein >e-book< Nach den ersten paar Tagen kannste dann auch schon n Taschenrechner ^^ Mfg Cartman

Danke für deine Antwort. Ja hab ich, aber beim Überwachen konnte ich keine Fehler entdecken. kann es vllt. auch an einer falschen Einstellung bei der GroupBox liegen?

Moin, Ich soll ein Programm erstellen, bei dem jeder User in unserer Firma seine -Abteilung wählt -Welche Netzlaufwerke mit ihm verbunden werden sollen -& sich gleich damit anmeldet Jetzt hab ich die Auswahl der Abteilung in einer ComboBox untergebracht. Je nach dem welche Abteilung er wählt, erscheint die dazugehörige GroupBox rechts daneben. Das funktioniert auch soweit sogut, nur 2 Abteilungen machen mich noch wahnsinnig. Egal was ich mache, ob ich nun eine neue GroupBox für die Abteilung erstelle oder sonstiges, der Wert steht jedes mal auf False, jemand ne Idee wie ich den Wert auf True bekomme? Benutze die 2008 Express Edition Mfg Cartman