Advertisement
ASP_Volume2 Complete Applications #42895

LameBus - Stop Netbus Trojan

I wrote this code long time ago and i released source code now. Its like Netbuster,you can send funny messages back to client and can make message box flood to his screen. Also removes netbus from your registry. I included the component i used for buttons.Its in zip file. If u like vote for me please :)

AI

สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

ซอร์สโค้ด
original-source
Upload
Public Function GetPageHTTP(ByVal URL As String) As String
  'Ex.: dim s As string = GetPageHTTP("http://www.uol.com.br")
  'Ex.: dim x As string = GetPageHTTP("http://www.microsoft.com/")
  'Ex.: dim x As string = GetPageHTTP("http://www.planet-source-code.com/vb/default.asp?lngWId=10")
  Dim wc As New System.Net.WebClient()
  Dim s As System.IO.Stream = wc.OpenRead(URL)
  Dim r As String
  Dim sr As System.IO.StreamReader = New System.IO.StreamReader(s, System.Text.Encoding.UTF7, False)
  r = sr.ReadToEnd()
  Return r
 End Function
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine