Utilice vb para escribir un programa que utilice un módem para conectarse a Internet

Jaja, de hecho, el cartel puede escribir uno en un lenguaje sencillo, pero es bastante sencillo usar VB:

Crea un nuevo proyecto y coloca un número de teléfono en forma de cuadro de texto para aceptar la solicitud del usuario. escribir; lanzar el botón que ejecuta el comando. Para utilizar la biblioteca de vínculos dinámicos TAPI32.DLL de Windows, notifique a Windows a través de la biblioteca de vínculos dinámicos y solicite el uso de marcación por módem.

Función de declaración privada tapiRequestMakeCallamp; Lib "TAPI32.DLL" (ByVal DestAddress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)

Const privada TAPIERR_NOREQUESTTRECIPIENT = -2amp; /p>

Const privada TAPIERR_REQUESTQUEUEFULLL = -3amp;

Const privada TAPIERR_INVALDESTADDRESS = -4amp

Subcomando privado1_Click()

Atenuar mejora como cadena;

Dim nResult As Long

'Abrir marcación por módem

nResult = tapiRequestMakeCallamp; (Trim$(txtNumber), CStr(Caption), "Test Dial", """)

'Mostrar mensaje de error

Si nResult lt; gt; 0 Entonces

buff = "Operación ilegal:"

Seleccione Caso nResult

Caso TAPIERR_NOREQUESTRECIPIENT

buff = buff amp "Interfaz de Windows Dialer no encontrada"

Caso TAPIERR_REQUESTQUEUEFULL

buff = buff amp; "Acceso telefónico conectado. "

Caso TAPIERR_INVALDESTADDRESS

buff = buff amp; "El número es incorrecto"

Caso Else

buff = buff amp; " Error desconocido".

Finalizar selección

MsgBox buff

Finalizar si

End Sub

Sub privado Form_Load()

p>

Mover (Ancho.Pantalla - Ancho) \ 2, (Alto.Pantalla - Alto) \ 2.

EnableDial

End Sub

Sub privado Text1_Change()

EnableDial

End Sub

Sub privado EnableDial()

Command1.Enabled = Len(Trim$( Text1.Text)) gt; 0

End Sub

Probado para Win2K/WinXP/Vista, pero algunas máquinas tienen poca compatibilidad.