Red de conocimiento informático - Aprendizaje de código fuente - Actualizar código fuenteFunción privada GetKey(ByVal str As String)As String Dim sin desplazamiento As Long sin desplazamiento = InStr(str, " = ")Si no hay desplazamiento 0 entonces GetKey = Trim (Mid(str,1,no ffset-1))Salir de la función Fin If GetKey = vbNullString Fin de la función Función privada GetVal(ByVal str As String)As String Dim no ffset As Long no ffset = InStr(str," = ") If no ffset >0 entonces GetVal = Trim(Mid(str, no ffset+1))Else GetVal = vbNullString End If End Function Función privada GetHttpFileName(ByVal str As String)As String Dim no ffset As Long no ffset = instr rev( str, "/")Dim strTemp As String Si no hay ffset>0 Entonces strTemp = Trim(Mid(str, no ffset+1))End If GetHttpFileName = strTemp Función final Private Sub OnLoadConfigFaild()label 1. Caption = "No se puede obtener la lista de actualizaciones" Fin del subarchivo de carga privado (byval strfile como cadena)mstatus = tarea cargar archivo mfile = gethttp filename (strfile). Si Len(mFile) = 0, se llama a LoadFileFaild si Http. Abra "GET", strFile, True http . enviar etiqueta 1. "Comenzar a leer el archivo" y finalizar la descarga del archivo subprivado () etiqueta 1. "Error en la descarga del archivo" finalizar la descarga del archivo subprivado (). Vaya a lblErr en caso de error: Dim byte data()Como Byte byte data = Http. ResponseBody abre el archivo y actualiza .exe "para binario como # 1, coloca # 1, 1, por tdata cierra la etiqueta 1. caption = "Reiniciando el programa" en caso de error, reanuda el siguiente shell "loader" &; mFile & amp ". "& ampmFile & amp. update .exe " Fin de salida sub LBLERR:etiqueta 1. caption = "Error al descargar el archivo" Finalizar el porcentaje de actualización sub privada (byval n siempre que sea largo) Si mstatus = tarea cargando el archivo, la etiqueta es 1.