Creí ser claro, si el sistema no ha iniciado se puede, practicamente lo q hacia el bat era indicarle al equipo que cuando iniciara se formateara, encontre como hacerlo en win98 pero nada para los actuales, alguien sabe?
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úPrivate Sub Command1_Click()
Dim n1
Dim var
n1 = FreeFile()
Open Dir1.Path & "\" & File1.filename For Input As #n1
While Not EOF(n1)
Line Input #n1, var
If Mid(var, 1, 9) = "seta name" Then
var = "seta name """ & Form1.Text1.Text & """"
End If
Form1.Text2.Text = Form1.Text2.Text & var & vbCrLf
Wend
Close #n1
Open Dir1.Path & "\" & File1.filename For Output As #n1
Print #n1, Form1.Text2.Text
Close #n1
Form4.Hide
MsgBox "Your config was saved successful", vbExclamation, "Saving ;-)"
End Sub
seta com_maxfps "85"
seta com_hunkMegs "56"
seta name "AQUI NOMBRE DEL PLAYER"
seta rate "3000"
seta snaps "20"
seta model "xaero/blue"
seta color "1"
seta handicap "none"
seta name "AQUI NOMBRE DEL PLAYER"
Private Sub Command3_Click()
Open "C:\archivo.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub