Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice VB para escribir un programa para cargar archivos

Utilice VB para escribir un programa para cargar archivos

Const SYNCHRONIZE = H100000

Const INFINITE = HFFFFFFFF

Función de declaración privada OpenProcess Lib "kernel32" (ByVal dwDesiredAccess mientras, ByVal bInheritHandle mientras, ByVal dwProcessId mientras) mientras

Función de declaración privada CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Función de declaración privada WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long. ByVal dwMillisis = Long, ByVal dwMillisegundos As Long) As Long

Private Sub Command1_Click()

Atenuar nombre de archivo como cadena

Atenuar ftp como cadena

Atenuar uname como cadena

Atenuar como cadena

ftp = InputBox("Ingrese la dirección del servidor")

uname = InputBox("Ingrese el número de cuenta",, " anónimo")

upin = InputBox("Por favor, introduzca la contraseña", "IE@Usuario")

filename = Timer()

Abrir nombre de archivo & " .script" para salida como #1

Imprimir #1, "usuario"

Imprimir #1, uname

Imprimir #1, arriba

Imprimir #1, "pwd"

Imprimir #1, "hash"

Imprimir #1, "poner "amp nombre de archivo amp" .txt"

Imprimir #1, "salir"

Cerrar #1

Abrir nombre de archivo y ".txt" para salida como #1

Imprimir #1 , Texto1.Texto

Imprimir #1, Combo1.

Cerrar #1

DoEvents

Atenuar pId mientras dure, pHnd mientras dure

pId = Shell("ftp -n -s:" amp; filename amp; ".script" amp; "" amp; ftp, vbHide)

pHnd = OpenProcess(SYNCHRONIZE , 0, pID)

<

p>Si pHnd lt;gt; 0 Entonces

Llamar a WaitForSingleObject(pHnd, INFINITE)

Llamar a CloseHandle(pHnd)

Finalizar si

Eliminar nombre de archivo amp; ".script"

End Sub

Si crees que es posible, dame 100 puntos

Mi método es muy diferente. déjame contarte el proceso

Para no repetir el nombre del archivo, dediqué mucho tiempo a generar el nombre del archivo

.

Genere filename.txt y guarde el texto de combo1 y text1

Llame al comando ftp para transmisión sin control inet o winsock

API es una función SHELL WAIT , porque El script guarda el número de cuenta y la contraseña. Una vez completada la transferencia, elimine el nombre del archivo. Script script

¿Qué piensas? Si usas inet, no es tan simple. Después de todo, FTP no lo escribes tú mismo, ya sea que uses PASV o no. Lo único es guardar la contraseña y esperar a que se complete la transferencia.

Crees que el primer programa es imposible. FTP es un protocolo de transferencia de texto. Es diferente de HTTP y no puede escribir POST. protocolo de transferencia. Es diferente de HTTP y no puede escribir POST. ¿De verdad? VB no puede hacer esto. Necesita crear paquetes de datos manualmente para engañar al servidor.

¿Se puede hacer esto?

¿Es esto posible?