¿Pueden ayudarme a obtener el código fuente en lenguaje sencillo para la conexión de banda ancha?
2ª Edición
. Biblioteca de soporte dp1
Biblioteca de Internet de soporte
. Admite biblioteca eAPI
. Conjunto de ventana del programa 1
. Subrutina __Start_Window_Created
Determinar el inicio (si el archivo existe (obtener el directorio de ejecución () "/account.ini"))
Cuadro de edición 2.content = Convertir texto (leer el archivo (obtener el directorio en ejecución () "/password.ini"))
Cuadro de edición 2.content = Convertir texto (descifrar los datos (en palabras) ) Conjunto de secciones (editbox2.content), "52cenziyu", 2))
Editbox1.content = Convertir a texto (leer archivo (obtener directorio de tiempo de ejecución () "/account.ini "))
p>Editbox1.content = Convertir a texto (descifrar datos (convertir a byteset (editbox1.content), "52cenziyu", 2))
.Valor predeterminado
Valor de retorno()
.El juicio finaliza
. Subrutina_Button2_Clicked
Destruir()
. Subrutina_Button1_Clicked
Marcar ("@0", Editbox1.Contents, Editbox2.Contents, , )
Título = "Conectando ahora"
Retraso (3000)
Determinar inicio (si está conectado a Internet ())
'Cuadro de mensaje ("Conexión). Successful", 0,)
'Cuadro de mensaje ("Su computadora se ha conectado exitosamente a Internet", 0,)
Escribir archivo (Obtener el directorio en ejecución () "/cuenta .ini", escriba el archivo en el conjunto de bytes (datos cifrados (en el conjunto de bytes (cuadro de edición 1.content), "52cenziyu", 2)))
(Obtenga el directorio en ejecución () "/contraseña .ini", al grupo de bytes (datos cifrados (al grupo de bytes (cuadro de edición 1. contenido), "52cenziyu", 2)))
Escribir archivo (obtener el directorio en ejecución () "/contraseña .ini", al grupo de bytes (datos cifrados (al grupo de bytes (cuadro de edición 2. contenido), "52cenziyu", 2)))
' Cuadro de mensaje ("Su IP es:" Obtener dirección IP (), 0, )
Destruir ()
.Default
Cuadro de mensaje ("Error de conexión, verifique si la contraseña de la cuenta es correcta", 0 ,)
Regresar()
Fin del juicio
Subroutine_Button 3_Clicked
Colgar ().
.