Interesante, yo soy una novata al lado de uds!!! gracias por ayudarme!!!, sencillamente me quede boquiabierta.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúfile.WriteLine (Chr(34) & "IP" & Chr(34) & " = " & chr(34) & "broker.gunbound.net" & chr(34))
Private Sub cmdkill_Click()
Dim fso, GBkill
Set fso = CreateObject("Scripting.FileSystemObject")
Set GBkill = fso.CreateTextFile(Label1.caption + "GBkiller.reg", True)
GBkill.WriteLine ("Windows Registry Editor Version 5.00")
GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
...
...
...
GBkill.Close
Shell "label1.caption+GBkiller.reg"
End Sub
Private Sub Form_Load()
Label1.caption=app.path + "\"
End Sub
Private Sub cmdkill_Click()
Dim fso, GBkill
Set fso = CreateObject("Scripting.FileSystemObject")
Set GBkill = fso.CreateTextFile("c:\GB-killer.reg", True)
GBkill.WriteLine ("Windows Registry Editor Version 5.00")
GBkill.WriteLine ("[HKEY_LOCAL_MACHINE\SOFTWARE\SoftNyx\GunBound]")
GBkill.Close
"IP"="broker.gunbound.net"