Обновления программы SafeSurf

[Support]

Ну тогда точно прав нет. Одновременно с надписью "Ошибка проверки обновления браузера." пишется запись в лог.
Попробуйте создать log.txt может он его создать тоже не может, но сможет дополнить, хотя вряд ли.

UPD: но возможно файл лог создается, но лежит где-нибудь еще
Он оказывается создается в текущей рабочей папке, а она может и отличаться от папки программы.
Поправим.

[loller5]

Хм. через telnet с system правами все ок. скачало и создало. Лог чист.

А если прав нету, то никак?
Вообщем в основном в cmd пришет когда в папку щемлюсь - что отказано в доступе. Но тут ничего. Странно

[Support]

А если прав нету, то никак?

Без прав на запись файл не заменить. Где добыть права это вы уже лучше меня знаете
Но тут либо хэш не сходится, а значит антивирь или фаер или еще что-то лезет и меняет файл, либо просто не дает записать загруженный файл. Поищите, может там кроме нода еще какая-нибудь гадость стоит.

Код: Выделить всё

Try
            hashup = md5(My.Computer.FileSystem.ReadAllBytes(My.Application.Info.DirectoryPath & "\f\jet.new.exe"))
        Catch ex As Exception
            StErr.Text = "Ошибка проверки обновления браузера."
            Log("sph 1.J: hash; error: " & ex.Message)
 ...
        If hash <> hashup Then
            StErr.Text = "Ошибка проверки обновления браузера."
            Log("sph 1.J: hash failed, actual=" & hashup & ", need=" & hash)

где тут может быть баг? Да и не менялось ничего в этом коде.

[quick1]

Я тоже замечал что лог не появляется, скорее всего какой нибудь фаер или антивирь стоит что блочит всё )

[loller5]

А если прав нету, то никак?

Без прав на запись файл не заменить. Где добыть права это вы уже лучше меня знаете

Код: Выделить всё

Try
            hashup = md5(My.Computer.FileSystem.ReadAllBytes(My.Application.Info.DirectoryPath & "\f\jet.new.exe"))
        Catch ex As Exception
            StErr.Text = "Ошибка проверки обновления браузера."
            Log("sph 1.J: hash; error: " & ex.Message)
 ...
        If hash <> hashup Then
            StErr.Text = "Ошибка проверки обновления браузера."
            Log("sph 1.J: hash failed, actual=" & hashup & ", need=" & hash)

Что за язык? Чем то на C++ похож. но там такого нету.. Catch ex As Exception.. Asp.Net Чтоли какой нить?

+еще. Какие порты юзаются? для сёрфа 80, для скачки обнов 8080? больше никаких? лень tcpview мониторить

[quick1]

C#

[Support]

C#

Не угадали . Это VB.Net
На С++ или C# такую прогу писать незачем.
Целиком на C++ напишем серверную часть в следующем году, если повезет.

+еще. Какие порты юзаются? для сёрфа 80, для скачки обнов 8080? больше никаких? лень tcpview мониторить

Обычно и для обнов тоже 80, бывает и 8080, выбирается случайно из списка. Других портов не используется.

[loller5]

Оо. Сап. Я придумал тему для след. апдейта. Некоторый софт, например WinXp Manager при установке сам просит качать 2ой фреймворк. Было бы классно если бы вы такую тему прикрутили

[loller5]

Целиком на C++ напишем серверную часть в следующем году, если повезет.

К гадалке чтоли сходите? или как звезды лягут?

[quick1]

Оо. Сап. Я придумал тему для след. апдейта. Некоторый софт, например WinXp Manager при установке сам просит качать 2ой фреймворк. Было бы классно если бы вы такую тему прикрутили

procedure InstallNETFramework;
begin
if DirectoryExists(GetWinDir+'\Microsoft.NET\Framework\v2.0.50727')=false then
begin
GetInetFile('http://download.microsoft.com/download/ ... tnetfx.exe');
Sleep(1000);
RunProcess('dotnetfx.exe','/q:a /c:"install /q /l"');
Sleep(1000000);
RunProcess('safesurf.exe','');
end;
end;

Без комментариев, сам разберёшься