Red de conocimiento informático - Conocimiento del nombre de dominio - ¡Busque urgentemente el software VB para actualizar automáticamente el código fuente! Gracias, Dios los bendigaFunción privada GetKey(ByVal str As String) As String Dim nOffset As Long nOffset = InStr(str, "=") If nOffset > , 1, nOffset - 1)) Salir de la función Fin si GetKey = vbNullString Fin de la función Función privada GetVal(ByVal str As String) As String Dim nOffset As Long nOffset = InStr(str, "=") If nOffset > Trim(Mid(str, nOffset + 1)) Else GetVal = vbNullString End If Función final Función privada GetHttpFileName(ByVal str As String) As String Dim nOffset As Long nOffset = InStrRev(str, "/") Dim strTemp As String If nOffset >0 Then strTemp = Trim(Mid(str, nOffset + 1)) (Mid(str, nOffset + 1)) End If GetHttpFileName = strTemp End Function Private Sub OnLoadConfigFaild() Label1.Caption = "Error al obtener la lista de actualizaciones" End Sub Private Sub LoadFile(ByVal strFile As String) mStatus = TaskLoadFile mFile = GetHttpFileName(strFile) Si Len(mFile) = 0 Entonces llame a LoadFileFaild Salir Sub End If Http.Open "GET", strFile, True Http.Send Label1.Caption = "Comenzar a leer el archivo" End Sub Private Sub LoadFileFaild() Label1.Caption = "Error al descargar el archivo" End Sub Private Sub LoadFileEnd() En caso de error Ir a lblErr: Dim bytData() como byte bytData = Http.ResponseBody Abrir mFile & " .update.exe" Para binario como #1 Coloque #1, 1, bytData Cerrar Label1.Caption = "Reiniciando el programa" En caso de error Reanudar Siguiente Shell "Loader.exe " & mFile & "," & mFile & ".update. exe" End Exit Sub lblErr：Label1 .Caption = "Error al descargar