¿Pueden ayudarme a obtener el código fuente en lenguaje sencillo para la conexión de banda ancha?

.Este es el código para una conexión de banda ancha. Si no te queda claro por favor escribe tu correo electrónico y te lo enviaré.

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 ().

.