Читать всем без исключения это самое первое, что надо сделать!
Самое первое для тех у кого модемы с рекконектами и кто не хочет ждать указанного время рапидой, а пытаться скачать открываем USD заходим в Опции-плагины-RapidShareCom.plg(нажимаем на него появится зелёный кружо к снизу на него нажмите)
Wait time what server report: ставим “0”
Таким образом ЮСд не будет ждать указанного времени и всё время будет пытаться качать!!!
Для тех у кого статические IP лучше ставим 1 зачем в пустую гонять машину!!!
Если в это секции поставить значение больше 1 то будет ждать если время вернул сервер меньше чем указанное и не будет ждять если время больше чем указанное!!! :) :) :)
Как подключить созданный батник к программе:В USDownloader идем в опции(F10) - Планировщик (у меня - "Scheduler") и жмакаем кнопочку, далее в открывшемся окошке ставим "Задача" - "Плагин вернул ошибку", в поле ошибка вводим wait как на картинке!!! В поле "Имя файла" ставим путь к файлу.
Ставим птичку "Ждать завершения"
1. только для DHCP протоколов@echo off
ipconfig /flushdns
ipconfig /release
ipconfig /renew
2.0 Reconnect batch maker 0.0.7 от pasynokПрограммка генерации batch (*.bat) файлов "перезвона" для смены IP адреса
Внимание! Сгенерированный batch файл будет работать только для модемов и роутеров, работающих в режиме модема.Чтобы определить, подходит ли для Вас такой способ переподключения, достаточно при включенном Интернете нажать кнопку "НАЙТИ". Если при этом в соседнем окне появится имя Вашего Интернет-соединения, то, скорее всего, сгенерированный batch файл будет работать. В ином случае - этот способ не для Вас.
Для переподключения к Интернет с целью смены IP адреса в USDownloader, часто используется batch (*.bat) файл. У не слишком искушенного пользователя написание такого batch файла может вызвать затруднения. Чтобы их разрешить, можно воспользоваться данной программкой, которая сгенерирует полностью рабочий batch файл для переподключения к Интренет.
При работе данной программки используются
nircmd (от NirSoft), txtcnv (автор Леонид В.Панов) и printip (об авторстве нет данных).
Для тех, у кого все-таки что-то не получается с реконнектом. Стоит прочесть
FAQ от Dimonius пункт 5PS Тем, кто писал о подозрениях не вирусы. Проверено антивирусами:
Результат сканированияурл статьиМною взято с сайта
http://users.altupdate.ru/cap2.1 ДиалАпrasdial ИМЯ_СОЕДИНЕНИЯ /DISCONNECT
rasdial ИМЯ_СОЕДИНЕНИЯ ЛОГИН ПАРОЛЬ
2.2 ДиалАп@echo off
:new_Call
ipconfig > testip_old
rasdial /DISCONNECT
ping -n 10 127.0.0.1 >nul
rasdial
ipconfig > testip_new
set rez=0
FOR /F "skip=1 tokens=1" %%A IN ('fc /L testip_old testip_new') DO set rez=%%A
if %rez%==FC: goto new_Call
3. Стрим• скачивал прогу ztnbatch (
http://zyxmon.streamclub.ru/files/ZyxMon62.zip 558 kB). Там же есть подробный мануал к ней;
• писал батник на сброс ppoe сессии;
• в расписанни USD ставил после завершения загрузки файла выполнение этого батника;
• если получаем IP адрес с которого кто то такой же умный уже качал (а на стриме это в порядке вещей) ставил в USdownloader.ini waittime=0 и в настройках "Пауза между повторами" тоже 0 и "Количество повторов до ротации" - 5;
• затем в расписании "При ротации ссылки" ставил выполнение того же батника.
Способ несколько неэлегантный, но тем не менее всё работало на ура. За ночь сливал по восемь гигов. Пока (IMHO) пров не начала банить смену IP шника - после выполнения батника не могу получить IP адрес по 1 часу и более. Злой он,блин, этот "Стрим"
Nickol4.Подключение по локальной сети - это относится к сетевушке (которая, скорее всего, у тебя встроена в материнку), а "1394-соединение" - это скорее всего и есть интернет-соединение.
В батнике пишешь:
rasdilal.exe /disconnect (или /d - рвется текущее интернет-соединение)
rasdilal.exe (необходимое соединение устанавливается).
Здесь на мой взгляд уместно поставить паузу, чтоб usd не ломился качать до того, как инет поднялся.
А именно добавим строку:
ping -n 20 127.0.0.1 >nul
где 20 - время ожидания в секундах.
с помощью такого приема можно делать в батниках нужные паузы.
5. РоутерЕсли у вас router, то вот одна программка есть на
http://www.routercontrol.de/Есть список всех поддерживаемых router'ов, выбираешь свой, пишишь reconnect.bat с след. содержимым :
RouterControl.exe /MULTI /DISCONNECT /CONNECT /QUIT
6.Пошаговая инструкция смены IP на СТРИМ для непрерывных закачек через Zyxel P660xxx:
1) Скачать утилиту
http://zyxmon.streamclub.ru/files/ztnbatch04.zip - скопировать ее в папку USDownload (у меня c: USDownload)
2) Написать bat-файл с единственной строкой и тоже положить в c: USDownload:
ZTnBatch -h 192.168.1.1 -p PASSWORD -c "poe drop poe0"
где
192.168.1.1 - IP модема (по умолчанию он такой, если у вас другой - ставьте свой)
PASSWORD - ваш пароль, с которым вы заходите в настройки модема
3) Заходим в Universal Share Downloader
Опции-Расписание и вводим новую строку и заполняем форму:
Ежедневно - После закачки файла (+ задание с ошибкой wait)
c: USDownloadzyx.bat
Скрытым
4) Не забываем отредактировать USDownloader.ini cекцию [Plugin_rapidshare.com]
WaitTime=0
7. NetshЕсли стандартная ipconfig не помогает, могу netsh посоветовать.
Тут
http://www.megalib.com/books/529/netsh/netsh_int_ip.htm все расписано ;)
Кроме того, вот еще выкладываю немного инфы:
Примечание: для XP, 2K:
В пуске жмем "Выполнить..."
Там пишем "cmd", там пишем "netsh /?" жмем ентер и видим справку по программе.
Использование: netsh [-a ] [-c ] [ | -f ]
Применимы следующие команды:
Команды в этом контексте:
? - Отображение списка команд.
add - Добавление элемента конфигурации в список элементов.
bridge - Изменения в контексте 'netsh bridge'.
delete - Удаление элемента конфигурации из списка элементов.
diag - Изменения в контексте 'netsh diag'.
dump - Отображение сценария конфигурации.
exec - Запуск файла сценария.
firewall - Изменения в контексте 'netsh firewall'.
help - Отображение списка команд.
interface - Изменения в контексте 'netsh interface'.
ras - Изменения в контексте 'netsh ras'.
routing - Изменения в контексте 'netsh routing'.
set - Обновление параметров конфигурации.
show - Отображение информации.
winsock - Изменения в контексте 'netsh winsock'.
Доступны следующие дочерние контексты:
bridge diag firewall interface ras routing winsock
Далее набирая последовательно нужные команды вы сможете всегда узнать по ним и по дочерним командам справочную информацию.
8. ADSLДля тех, кто решает задачу поддержания постоянного соединения по ADSL предлагается программа ADSLautoconnect
http://www.adslautoconnect.net/Справка на англицком
http://www.adslautoconnect.net/doc/en/index.htmК сожалению русский язык интерфейса не предусмотрен. Программа работает только с режимом подключения ADSL модема - бридж.
Operating Systems :
Windows 98/SE
Windows Me
Windows NT4/SP6
Windows 2000 all versions
Windows XP all retail versions
Supported Protocols :
This software uses the RAS Manager and supports the following protocols :
PPTP Point To Point Tunnelling Protocol
PPPOA Point To Point Protocol Over ATM
PPPOE Point To Point Protocol Over Ethernet
VERY IMPORTANT : ADSL Autoconnect is not Enternet compatible (from Efficient Networks), you MUST use RAS PPPOE (
http://user.cs.tu-berlin.de/~normanb/ ) if you wish to use ADSL Autoconnect
прога ADSLautoconnect висит в системе сервисом, как только коннект падает, она его восстанавливает, т.е. как только в проге после скачки идет реконнект,сервис тут же поднимает коннект заново.
9.А мне понравилась RasPPPOE - (http://www.raspppoe.com/) - очень просто создает ADSL соединение в виде привычного соединения через телефонную линию - все гениальное просто!
Но, справедливости ради, должен отметить, что сталкивался с другими протоколами ADSL, где программка не работала и приходилось ставить что-то другое. Но если используется протокол PPPOE, то лучшей альтернативы нет.
Oleg_II10. ADSL, режим BridgeСоздаем батник со след. содержимым
:ZZZ
printip.exe > oldip.txt
type oldip.txt
ZTnBatch -h 192.168.1.1 -p ПАРОЛЬ -c "poe drop poe0"
sleep 10
printip.exe > newip.txt
type newip.txt
fc oldip.txt newip.txt > NUL
if %errorlevel%==0 goto ZZZ
sleep 1[/color]
printip.exe и sleep.exe можно найти в тут
http://www.computerhope.com/download/utility/sleep.exe.
ZTnBatch - тулза для Zyxel-ей, выше про нее писал.
-------------------
adsl-модем D-link
Пользуй ztnbatch.exe (
http://zyxmon.streamclub.ru/)
Для реконнекта использую d-link.cmd:
[color=green]ztnbatch -h 192.168.1.1 -loginT root -p pass -timeout 10000 -input disconn.txt
ping -n 8 -w 1000 127.0.0.1 > nul
ztnbatch -h 192.168.1.1 -loginT root -p pass -timeout 10000 -input conn.txt
disconn.txt:
echo "begin;connection0:settings/manual_conn=0;end" | cm_cli
conn.txt:
echo "begin;connection0:settings/manual_conn=1;end" | cm_cli
Вместо pass пароль доступа к модему. Все работает как часы. Удачи.
researcherr
11. У кого "Fritz!Box" с voip поддержкой, поможет эта программка:http://rapidshare.com/files/13486137/1sekReconect.rar• Распаковываем
• Активируем telnet (набираем на телефоне следуещее: #96*7*)
• Указываем в расписании USD, путь к скаченному батнику "FRITZ!Box Reconnecter v1.2". Поставить галку в "Ждать окончания".
Папку "alte" можете стeреть, она не нужна.
vvv12.Если ничего не помогает:
идете на форум по сетям и сет. технологиям, регаетесь там и пишете "Вот у меня такие-то настройки сети, такие-то модем, такие-то система, такой-то тип IP. Мне нужно - пакетный фал, который будет автоматически переподключать сеть, т.е. менять IP. Подскажите мне пожалуйста решение."
Если на нашем форуме будет спец по сетям и модемам - он, я думаю поможет.
Если Вы найдете какое-то решение, просьба выложите его на форуме.
Да и еще одно - если у Вас постоянный IP - поможет только прокси.
------------------------------
материал по netsh -
http://www.petri.co.il/configure_tcp_ip_from_cmd.htm (англ.)
материал по ipconfig -
http://it.bakinity.biz/smart.php?cat=2&id=60&top=1 (ru)
http://from.tshtt.uz/index.php?ind=reviews...iew&iden=16 (ru)
материал по rasdial -
http://www.megalib.com/books/529/r/rasdial.htmматериал по fritzbox -
http://ruforum.de/thread.php?threadid=4522...db20bead6c7585a-----
форумы по сетям и сетевым технологиям:
http://forum.ixbt.com/?id=32http://forum.ixbt.com/?id=14http://forum.altmaster.ru/forumdisplay.php?f=130http://forum.3dnews.ru/forumdisplay.php?s=...&forumid=1713. для роутеров DSL, ADSLАрхив -
http://dump.ru/files/6/6008475987/Распаковыем, в файле reboot.txt
Пишем:
Код:
192.168.1.1 23
WAIT "Login:"
SEND "LOGINm"
WAIT "Password:"
SEND "PASSm"
WAIT ">"
SEND "system restartm"
SEND "user logoutm"
где:
192.168.1.1 - ваш IP (мoдeмa)
LOGIN - логин к модему
PASS - пароль к нему-же
ок.
К расписанию USD привязываем "reboot.bat"
автор:
Albert Yale,
Для модема Planet ADE-4400
192.168.1.254 23
WAIT "Password:"
SEND "PASSm"
WAIT ">"
SEND "wan adsl resetm"
SEND "user logoutm"
где:
192.168.1.254 - ваш IP (мoдeмa)
LOGIN - логин к модему
PASS - пароль к нему-же
автор:
1Demon14. После долгих и кровопролитных боев :D с роутером родилось следуюшее решение:Качаем
http://rapidshare.com/files/50859934/autoTln.zipзеркало
http://depositfiles.com/files/1572028распаковываем.
ищем файл doit.rpc,
открываем его блокнотом и меняем под себя:
Код:
h 192.168.1.1
c
p 2000
s LOGIN
p 1000
s #13
p 2000
s PASS
p 1000
s #13
p 2000
s reboot
s #13
p 15000
d
вместо 192.168.1.1 - IP вашegо модема;
вместо LOGIN - ваш логин;
вместо PASS - ваш пасс;
p 15000 - пауза на смену вашего IP, в милисекундах.
здесь ставим к примеру если нужно 1 минута:
p 60000
Чтобы все заработало запускайте файл autoTln.exe
Спасибки уходят:
Рустам Пашакулов - за программу AutoTln и ее ридми :)
Fantos - за то, что другая программа у него не работала, и он указал возможность использовать AutoTln.
ну и канешно мне - за решение проблемы
После долгих и кровопролитных... в файле doit.rpc изменил
строку "s reboot" на "s set wan adsl reset". Это работает для Planet ADE-4400. И более изящно, чем reboot.
прислал NaGCiM15.модель - Westell 6100
provider -Verizon DSL
соединение USB/LAN (эмуляция)
Мой ответ на forum.eklmns.com(краткие пояснения)
"RouterControl" не поддерживает мой Westell 6100. Никакие советы dimonius faq не прокатывали. Поэтому пришлось идти своим путем
1. в MS DoS окне прогони магические строки ipconfig /flaushdns /release /renew
2. после /renew посмoтри, что у тебя стоит на Default Gateway - у меня 192.168.1.1
3. набери в любом браузере
http://192.168.1.1 (твой Default Gateway) - выйдешь на Web Interface. Там будет кнопка "Disconnect", после нажатия ждешь n- минут, после чего жмешь "Connect". Любопытно, что при физическом отключении модема для смены IP требовалось ~5 min, а при этом nul вызывается в ютом случае ПОСЛЕ, а НЕ ВО ВРЕМЯ процесса и, собственно, код (выкладывать .exe не могу - на это есть причины). Естественно, что нужна VB6 run-time library. Если есть вопросы по коду - пиши
Проверка внешнего IP и смена dynamic IP для модема Westell 6100
Internet APIs, regular expressions, Router Web interface, WebBrowser Control
Код использует wininet.dll APIs regular expressions для проверки Public IP. В случае, если один из "What is my IP" сайтов отключен, программа пытается достучаться до следующего. В случае, если wininet.dll API возвращает ошибку, программа преобразует код ошибки в текст.
WebBrowser control используется для имитации нажима клавиш "disconnect/reconnect" пользователем. После нажатия клавиши программа ждет, пока не получит ответ на event DocumentComplete, а затем пока статус Web документа не становится "complete".
Время на запрос изменения IP получено экспвриментально. Замечено, что иногда модем реконнектится "сам по себе", не получив новый IP. В связи с этим в процессе ожидания вводена дополнительная проверка на статус в документе (innertext).
Программа может быть вызвана из .bat файла. Комманда start /wait (в окне MS DOS) висит и ожидает завершония процесса.
Если есть вопросы, с удовольствием отвечу
Код:
In project references:
Microsoft HTML Object Library - C:\winnt\system32\mshtml.tlb
MIcrosoft VB Script Regular expressions 5.5 - C:\winnt\system32\vbscript.dll\3
On form - WebBrowser Control name - brwProxy
Code in module:
Option Explicit
Public Sub Main()
frmRouter.Show
frmRouter.ChangeIP
Unload frmRouter
End Sub
code in form:
Option Explicit
Dim bStatus As Boolean
Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000 ' don't write this item to the cache
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Const INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const SCUSERAGENT = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, _
ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, _
ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long) _
As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Private Sub brwProxy_DocumentComplete(ByVal pDisp As Object, URL As Variant)
bStatus = True
End Sub
Private Sub WaitForBrowser(Link As String)
'2 - navNoHistory
bStatus = False
brwProxy.Navigate2 Link, 2
Do While bStatus = False
DoEvents
Loop
Do While brwProxy.Document.ReadyState <> "complete"
DoEvents
Loop
End Sub
Private Sub WaitForModemStatus(Status As Integer, HTMLDocFR As HTMLDocument)
'Disconnect - 2
'connect - 1
bStatus = False
HTMLDocFR.PPPAction.PPPRequest.Value = Status
HTMLDocFR.PPPAction.currentCnIndex.Value = 0
HTMLDocFR.PPPAction.submit
Do While bStatus = False
DoEvents
Loop
Do While brwProxy.Document.ReadyState <> "complete"
DoEvents
Loop
End Sub
Private Sub WaitInterval(Seconds As Integer, _
Release As Boolean, HTMLDocFR As HTMLDocument, CheckConnect As Boolean)
Dim Date1 As Date
Dim DateTemp As Date
Dim intDiff As Integer
Date1 = Now
DateTemp = DateAdd("s", Seconds, Date1)
Do While Now < DateTemp
DoEvents
intDiff = DateDiff("s", Now, DateTemp)
If CheckConnect Then
If intDiff < Seconds And intDiff Mod 10 = 0 Then
If VerifyDisconnect(HTMLDocFR) Then
Exit Do
End If
End If
End If
Loop
End Sub
Public Sub ChangeIP()
Dim strTemp As String
Dim HTMLDocFR As MSHTML.HTMLDocument
Dim HTMLDoc As MSHTML.HTMLDocument
Dim strOldIP As String
Dim strNewIP As String
strTemp = "http://192.168.1.1"
WaitForBrowser strTemp
Set HTMLDoc = brwProxy.Document
Set HTMLDocFR = HTMLDoc.frames(0).Document
strOldIP = GetPublicIP
strNewIP = strOldIP
Do While strOldIP = strNewIP
'Disconnect
WaitForModemStatus 2, HTMLDocFR
WaitInterval 55, True, HTMLDocFR, True
If Not VerifyDisconnect(HTMLDocFR) Then
'connect
WaitForModemStatus 1, HTMLDocFR
WaitInterval 5, True, HTMLDocFR, False
End If
strNewIP = GetPublicIP
Loop
End Sub
Private Function VerifyDisconnect(HTMLDocFR As HTMLDocument) As Boolean
On Error GoTo Error_Handler
VerifyDisconnect = False
If InStr(HTMLDocFR.body.innerText, "Auto RegistrationUP") > 0 Then
VerifyDisconnect = True
End If
Exit Function
Error_Handler:
End Function
Public Function GetPublicIP() As String
Dim WebSites(6) As String
Dim strPublicIP As String
Dim I As Integer
strPublicIP = ""
WebSites(0) = "http://vbnet.mvps.org/resources/tools/getpublicip.shtml"
WebSites(1) = "http://whatismyip.com"
WebSites(2) = "http://www.whatismyip.org"
WebSites(3) = "http://www.showmyip.com"
WebSites(4) = "http://www.auditmypc.com/whats-my-ip.asp"
WebSites(5) = "http://myip.dk"
WebSites(6) = "http://formyip.com"
I = 0
Do While Len(Trim(strPublicIP)) = 0
strPublicIP = GetPublicIPSingle(WebSites(I))
I = I + 1
If I > 6 Then I = 0
Loop
GetPublicIP = strPublicIP
End Function
Private Function GetPublicIPSingle(WebSite As String) As String
Dim strRet As String
strRet = OpenCurUrl(WebSite)
GetPublicIPSingle = ""
With New RegExp
.MultiLine = True
.Pattern = "(\d{1,4}.\d{1,4}.\d{1,4}.\d{1,4})"
If .Test(strRet) Then
GetPublicIPSingle = .Execute(strRet).Item(0).SubMatches(0)
End If
End With
End Function
Private Function TranslateErrorCode(ByVal lErrorCode As Long) As String
Select Case lErrorCode
Case 0
Case 12001: TranslateErrorCode = "No more handles could be generated at this time"
Case 12002: TranslateErrorCode = "The request has timed out."
Case 12003: TranslateErrorCode = "An extended error was returned from the server."
Case 12004: TranslateErrorCode = "An internal error has occurred."
Case 12005: TranslateErrorCode = "The URL is invalid."
Case 12006: TranslateErrorCode = "The URL scheme could not be recognized, or is not supported."
Case 12007: TranslateErrorCode = "The server name could not be resolved."
Case 12008: TranslateErrorCode = "The requested protocol could not be located."
Case 12009: TranslateErrorCode = "A request to InternetQueryOption or InternetSetOption specified an invalid option value."
Case 12010: TranslateErrorCode = "The length of an option supplied to InternetQueryOption or InternetSetOption is incorrect for the type of option specified."
Case 12011: TranslateErrorCode = "The request option can not be set, only queried. "
Case 12012: TranslateErrorCode = "The Win32 Internet support is being shutdown or unloaded."
Case 12013: TranslateErrorCode = "The request to connect and login to an FTP server could not be completed because the supplied user name is incorrect."
Case 12014: TranslateErrorCode = "The request to connect and login to an FTP server could not be completed because the supplied password is incorrect. "
Case 12015: TranslateErrorCode = "The request to connect to and login to an FTP server failed."
Case 12016: TranslateErrorCode = "The requested operation is invalid. "
Case 12017: TranslateErrorCode = "The operation was canceled, usually because the handle on which the request was operating was closed before the operation completed."
Case 12018: TranslateErrorCode = "The type of handle supplied is incorrect for this operation."
Case 12019: TranslateErrorCode = "The requested operation can not be carried out because the handle supplied is not in the correct state."
Case 12020: TranslateErrorCode = "The request can not be made via a proxy."
Case 12021: TranslateErrorCode = "A required registry value could not be located. "
Case 12022: TranslateErrorCode = "A required registry value was located but is an incorrect type or has an invalid value."
Case 12023: TranslateErrorCode = "Direct network access cannot be made at this time. "
Case 12024: TranslateErrorCode = "An asynchronous request could not be made because a zero context value was supplied."
Case 12025: TranslateErrorCode = "An asynchronous request could not be made because a callback function has not been set."
Case 12026: TranslateErrorCode = "The required operation could not be completed because one or more requests are pending."
Case 12027: TranslateErrorCode = "The format of the request is invalid."
Case 12028: TranslateErrorCode = "The requested item could not be located."
Case 12029: TranslateErrorCode = "The attempt to connect to the server failed."
Case 12030: TranslateErrorCode = "The connection with the server has been terminated."
Case 12031: TranslateErrorCode = "The connection with the server has been reset."
Case 12036: TranslateErrorCode = "The request failed because the handle already exists."
Case Else: TranslateErrorCode = "Error details not available."
End Select
End Function
Private Function OpenCurUrl(ByVal sURL As String) As String
Dim hInet As Long 'inet handle
Dim hFile As Long 'url handle
Dim lFlags As Long
'read file vars
On Error GoTo ErrHandler
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 1024
Dim sBuffer As String
Dim lNumberOfBytesRead As Long
lFlags = INTERNET_FLAG_NO_CACHE_WRITE Or _
INTERNET_FLAG_RELOAD Or _
INTERNET_FLAG_PRAGMA_NOCACHE
'connect
hInet = InternetOpen(SCUSERAGENT, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If hInet <> 0 Then
hFile = InternetOpenUrl(hInet, sURL, vbNullString, 0, lFlags, 0)
If CBool(hFile) Then
'read file
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hFile, sReadBuffer, 1024, lNumberOfBytesRead)
sBuffer = sBuffer & Left(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
OpenCurUrl = sBuffer
Else
OpenCurUrl = TranslateErrorCode(Err.LastDllError)
End If
Else
OpenCurUrl = "Failed to initialize INET"
End If
ErrHandler:
If hFile <> 0 Then InternetCloseHandle hFile
If hInet <> 0 Then InternetCloseHandle hInet
If Err.Number > 0 Then
OpenCurUrl = "Error " & Err.Number & ": " & Err.Description
End If
End Function
bat file:
@echo off
start /wait C:\VBprojects\routervb\routervb.exe
ping 127.0.0.1 -n 1 >nul
16.Для тех у кого модем Calisto в режиме роутераКачаем это файл и делаем всё как там в ридми написано...
http://depositfiles.com/files/1475857http://rapidshare.com/files/48659079/recon_calisto.rarЕщё один вариант для калисто
http://blackmanos.narod.ru/calisto2.rarраспаковать и запускать для рекконекта файл recconect.bat
17. Подходит для D-link DSL-2500U и DSL-2540U Вот написал мануал и скрипты для новых D-link:
http://chairday.narod.ru/DSL-2500U.htmlТочно подходит для D-link DSL-2500U и DSL-2540U, возможно и к другим.
Подробности тут:
http://chairday.narod.ru/DSL-2500U.htmlНаписал и сделал chairday
18. Подходит для D-link DSL-2520U/BRU/D Вот для тех у кого D-link DSL-2520U/BRU/D качайте я сделал готовый реконект
http://depositfiles.com/files/5292358сделал Budar
19. найти свой модем тутhttp://www.paehl.de/reconnect/http://curl.haxx.se/Не которые материалы были взяты с сайтов
http://usd.mybb.ru и
http://users.altupdate.ru/cap/
Реклама
Информация
!
и так раз 50 не отхдя от кассы, пока игру не скачаешь!
