Cómo configurar la página de inicio de 360 Browser o Sogou Browser en idioma Yi
Agregue un cuadro de edición y 2 botones a la ventana y listo
El siguiente es el código fuente
Versión
. Biblioteca de soporte
xplib
. Ensamblaje
Ensamblaje de ventana 1
.Subrutina
__Iniciar ventana_Crear
Estilo XP
(3) p>
Cuadro de edición 1.Contenido
=
Obtener entrada de registro de texto
(3,
"Software\Microsoft \ Internet
Explorer\Main\Start
Página",
)
Etiqueta 1.Título
=
Cuadro de edición 1.Contenido
Cuadro de edición 1.Posición de selección inicial
3000
.Subrutina
_Se_hace clic en el Botón1
. Si es verdadero
(escriba el elemento de registro
(3,
"Software\Microsoft\Internet
Explorer\Main\Start p>
Página",
Cuadro de edición 1. Contenido)
=
true)
Cuadro de mensaje
("Modificar página de inicio correctamente",
#Botón Confirmar
#Icono de mensaje,
) p >
.Fin si es verdadero
.Subrutina
_Cuadro de edición 1_Presione una tecla,
Tipo lógico
. Parámetros
código clave,
tipo entero
. Parámetros
Estado de la tecla de función,
tipo de entero
. Si es verdadero
(Código del botón
=
#Enter)
_Button1_clicked
() p >
. Si es verdadero final
. Si es verdadero
(código clave
=
tecla #F5)
_Iniciar ventana. _Iniciar ventana_ creada
()
.Finalizar si es verdadero
.Subrutina
_Button2_clicked
.
if
(label 1.title
≠
"about: white")
Escribir elemento de registro
(3,
"Software\Microsoft\ Internet
Explorer\Main\Start
Página",
"acerca de: en blanco ")
Cuadro de información
( "Página de inicio modificada a blanco",
Botón #Confirmación
#Infoicon,
)
Cuadro de edición 1.content
=
"acerca de: en blanco"
Etiqueta 1.Título
=
"acerca de: en blanco"
De lo contrario
Cuadro de información
( "Ya hay una página en blanco",
#Botón de confirmación
#Infoicon,
)
. si final
. Subrutina
_Cuadro de edición 1_Se ha movido la posición del mouse,
Tipo de lógica
. Parámetros
posición horizontal,
tipo entero
. Parámetros
posición vertical,
tipo entero
. Parámetros
Estado de la tecla de función,
Tipo de entero
Etiqueta 1. Título
=
Cuadro de edición 1 .Contenido.