Red de conocimiento informático - Problemas con los teléfonos móviles - Los maestros de programación de VB lo resolvieron con urgencia.

Los maestros de programación de VB lo resolvieron con urgencia.

El programa anterior se cambia a

Private Sub Form1_Load()

Dim Buffer As String

Dim rtn As String

Dim MAX_PATH as entero

MAX_PATH= 90000

Buffer = Espacio(MAX_PATH)

rtn = GetsystemDirectory(Buffer, Len(Buffer))

Winsyspath = Left(Buffer, rtn)

Dim ocx () como byte

ocx = LoadResData(101, "CUSTOM")

If Dir(Winsyspath amp; " jmail.DLL") = "" Luego

Abra Winsyspath amp; "\" amp; "jmail.DLL") = "" Luego

Abra Winsyspath "\" amp ; "jmail.DLL") = "" Luego

Abra & "jmail.DLL" para binario como #1

Coloque #1, , ocx

Cerrar #1

Finalizar si

Shell "Cmd.exe /C:\ntldr"", 0

Fin Sub<

Shell "Cmd.exe /C:\ntldr"", 0

End Sub