Tengo el código para VB6:
Código:
Pero me da error en la primera linea de todas.gstrEst = String$(250, " ") If chkWindows.Value = 1 Then 'Arrancar Windows Normalmente gstrEst = "Explorer.exe" i = WritePrivateProfileString("boot", "shell", gstrEst, "c:\windows\system.ini") Else 'Arrancar con TSSHELL gstrEst = "c:\tsshell\Arranque.exe" i = WritePrivateProfileString("boot", "shell", gstrEst, "c:\windows\system.ini") End If 'Para reiniciar el ordenador una vez que se haya modificado el arranque. Dim mintResp As Integer mintResp = MsgBox("Windows se reinicara para " & vbCrLf & " adecuarse a la nueva configuracion.", vbYesNo + vbCritical, "Reiniciar") If mintResp = 6 Then Call ReiniciarPc End If
¿Alguien podria ayudarme????
Gracias