Сохранение кода сайта в файл

@yTpO · Регистрация: 15.03.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Никто не подскажет, как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB, но рассмотрю и другие варианты решения. Важен результат
Заранее спасибо.

@Антихакер32 · 30.03.2014, 00:09

Ищи исходный код HTML в папке запускаемой программы

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'
'   Антихакер32™
'
Private Sub Command1_Click()
    Dim ret As Long
    Dim s$, s1$
    s = "https://www.cyberforum.ru/visual-basic/thread1133440.html"
    s1 = App.Path & "\1.html"
 
    ret = URLDownloadToFile(0, s, s1, 0, 0)
    If ret = 0 Then MsgBox "Ok" Else MsgBox "Error"
End Sub

@Антихакер32 · 30.03.2014, 00:22

После чего эту страницу даже править можно

@yTpO · 30.03.2014, 12:35 **[ТС]**

Вот что мне пишет консоль на ваш код. Что не так?

@Антихакер32 · 30.03.2014, 13:31

При чем здесь консоль ?

Там код VisualBasic 6.0
который сохраняет страницу в виде файла

Сообщение от yTpO

как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB

@yTpO · 30.03.2014, 19:24 **[ТС]**

FelixMacintosh, Зайдите пожалуйста в контакт, там будет проще объяснить

Добавлено через 5 часов 36 минут
Ребят, помогите плиз. вот грубый кусок кода. проблема в том, что не получаю файл "stat.html". Но вроде всё работает. что не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Function URLDownloadToFile(ByVal pCaller, ByVal szURL, ByVal szFileName, ByVal dwReserved, ByVal lpfnCB) 
End Function
 
 
Dim ret 
Dim sqw, sqw1
sqw = "http://riverrise.net/stats"
sqw1 = "C:\1\stat.html"
ret = URLDownloadToFile(0, sqw, sqw1, 0, 0)
If ret = 0 Then MsgBox "Данные скачаны успешно" Else MsgBox "Ошибка получения данных"
 
 
Dim s,oShellLink,DPath,SearchString, SearchChar, MyPos
'Создаем объект FileSystemObject
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
'Создаем объект File для файла stat.html
set F=FSO.GetFile("stat.html")
'Создаем объект TextStream (ForReading = 1, TristateUseDefault = -2)
Set TextStream=F.OpenAsTextStream(1, -2)
'Считываем строку из файла  
SiteString=TextStream.ReadLine
 
'Поиск информации о реалме х4
x4Status = "></a><div class="
x4StatusOut = InStr(1, SiteString, x4Status)
 
'Вывод информации о x4
WScript.Echo "Frostmourne PvP Server | Rates: 4x | v3.3.5a"
'Статус сервера
i=x4StatusOut
StatusInfo = mid(SiteString, i+16, 14)
if StatusInfo = """state online""" then 
    WScript.Echo "Статус сервера: Работает"
    else WScript.Echo "Статус сервера: Не работает"
end if

@Антихакер32 · 30.03.2014, 19:55

Сообщение от yTpO

Private Function URLDownloadToFile(ByVal pCaller, ByVal szURL, ByVal szFileName, ByVal dwReserved, ByVal lpfnCB)
End Function

Вот это что у тебя ?

тебе лень было посмотреть как у меня реализованно ?

Visual Basic
1
2
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
'

Добавлено через 7 минут
И как твой код работает, непонятно ?

В каком теле процедуры это выполняется ?
как вообще это может работать

@yTpO · 30.03.2014, 20:09 **[ТС]**

Если реализую функцию как у вас, то ошиба такого вида:

@Антихакер32 · 30.03.2014, 20:16

Сейчас пытаюсь исправлять !

Добавлено через 7 минут
Как у тебя объявлен WScript ?

@yTpO · 30.03.2014, 20:23 **[ТС]**

В смысле? Наверное никак, я даже не знаю как и зачем его объявлять. с VB знаком только с неделю, так что прошу не пинать сильно. Часть кода я скинул выше а остальное - простые вычисления

@Антихакер32 · 30.03.2014, 20:58

Вобщем как я понял WScript это главный объект встроенный в оболочку VBS
отдельный файл сценария с расширением .VBS

а я то голову ломаю что это VB6 ...

в нашем басике функции WSH вызываются из подключенного объекта

либо
Shell "Комманда"

Там твой код для скрипта он в среде VB6
не будет работать вернее будет
только там нужно подключать WHS либо создать с помощью CreateObject(...
обратись к модератору Dragokas он шарит в скриптах
он даже сам увидит если будет онлайн, жди

@yTpO · 30.03.2014, 21:05 **[ТС]**

Хорошо спасибо. А на VB6 можно реализовать сохранение кода сайта в файл? мне-то какая разница какие файлы запускать батником. могу vb6 запустить, он сохранит мне код, а потом vbs, а он распознает.

@Pro_grammer · 30.03.2014, 21:11

В VBS по соображениям безопасности нет возможности работать напрямую с WIN API, а функция URLDownloadToFile это и есть API.

Для vbs есть другой способ. Сохраниете э то код с расширением .vbs и запустите на выполнение. Через некоторое время на диске c:\test.txt будет эта страница

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'URL файла в Интернете
sUrlRequest =  "https://www.cyberforum.ru/visual-basic/thread1133440.html"
'создание объекта XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
'oXMLHTTP.Open "GET", sUrlRequest, False, MyName, MyPassword
oXMLHTTP.Open "GET", sUrlRequest, False
'получение файла
oXMLHTTP.Send
'создание и открытие текстового файла для сохранения
set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "c:\test.txt", True
Set f = fso.OpenTextFile("c:\test.txt", 2, True)
'сохранение
f.WriteLine(oXMLHTTP.Responsetext)

И ни каких компиляторов!

@Антихакер32 · 30.03.2014, 21:40

Здесь я дал код который точно в VB6 будет работать, тоесть считает первую страницу этой темы и сохнанит в файле 1.Html
в той-же папке откуда была запущенна прога

таким вот текстом

Кликните здесь для просмотра всего текста

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" dir="ltr" lang="ru"> <head>
<base href="https://www.cyberforum.ru/" /> <link rel="canonical" href="https://www.cyberforum.ru/visual-basic/thread1133440.html" /> <base href="https://www.cyberforum.ru/" /> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> <meta name="keywords" content="Сохранение,кода,сайта,в,файл, Сохранение кода сайта в файл, компьютерный форум программистов киберфорум сайберфорум сайбер компьютеры программирование софт" /> <meta name="description" content="Доброго времени суток. Никто не подскажет, как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB, но рассмотрю и другие вар" /> <meta name="verify-v1" content="z+WrViDt9OodkKaYoo8+s1dOXfL/ka6bQ0jBGkxrRAQ=" /> <meta name='yandex-verification' content='7313400c5792ee7b' /> <meta name="msvalidate.01" content="F8DD8BF8D2F28E27DEEDE322E0C4A04 8" /> <meta name='wmail-verification' content='33380466938a2eaf' /> <style type="text/css" id="vbulletin_css">
/**
* vBulletin 3.8.7 PL3 CSS
* Style: 'Обычный стиль'; Style ID: 1
*/
@import url("https://www.cyberforum.ru/clientscript/vbulletin_css/style-891a4baa-00001.css");
</style> <link rel="stylesheet" type="text/css" href="https://www.cyberforum.ru/clientscript/vbulletin_important.css?v=387" /> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/yui/yahoo-dom-event/yahoo-dom-event.js?v=387"></script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/yui/connection/connection-min.js?v=387"></script> <script type="text/javascript">  </script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_global.js?v=387"></script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_menu.js?v=387"></script> <link rel="alternate" type="application/rss+xml" title="Форум программистов и сисадминов CyberForum.ru RSS Feed" href="https://www.cyberforum.ru/external.php?type=RSS2" /> <link rel="alternate" type="application/rss+xml" title="Visual Basic - CyberForum.ru - RSS Feed" href="https://www.cyberforum.ru/external.php?type=RSS2&forumids=29" /> <link type="application/opensearchdescription+xml" rel="search" href="https://www.cyberforum.ru/opensearch.xml" title="CyberForum.ru" /> <link rel="stylesheet" href="https://www.cyberforum.ru/clientscript/vbulletin_css/geshi.css" type="text/css" media="screen" /> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/post_thanks_collapse.js"></script> <script type="text/javascript" src="https://apis.google.com/js/plusone.js">
{lang: 'ru'}
</script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/jquery.js"></script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_vbpost.js"></script> <script type="text/javascript">
function initSpoilers(context)
{
var context = context || 'body';
$('div.spoiler-head', $(context))
.click(function(){
$(this).toggleClass('unfolded');
$(this).next('div.spoiler-body').slideToggle('fast');
})
;
}

$(document).ready(function(){
initSpoilers('body');
});
</script> <link rel="stylesheet" type="text/css" href="https://www.cyberforum.ru/clientscript/vbulletin_css/spoiler.css" /> <script type="text/javascript" src="http://yui.yahooapis.com/combo?2.7.0/build/get/get-min.js"></script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/post_thanks.js"></script><script type="text/javascript" src="https://www.cyberforum.ru/clientscript/post_thanks_collapse.js"></script><style type="text/css">  </style> <title>Сохранение кода сайта в файл - Visual Basic - CyberForum.ru</title> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_post_loader.js?v=387"></script> <style type="text/css" id="vbulletin_showthread_css">  </style> <style type="text/css">
span.sortarrow {position:absolute;}
span.sortarrow img {border:0;}
a.sortheader {text-decoration:none; display:block; width:100%;}
</style> <script type="text/javascript">
var IMGDIR_BUTTON = "https://www.cyberforum.ru/images/buttons";
</script> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/sorttable.js"></script> </head> <body onload=""> <script type="text/javascript">

var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-595018-2']);
_gaq.push(['_trackPageview']);

(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();

</script> <script src="//mc.yandex.ru/metrika/watch.js" type="text/javascript"></script> <script type="text/javascript">
try { var yaCounter29317 = new Ya.Metrika({id:29317,
trackLinks:true,type:1});}
catch(e) { }
</script> <noscript><div><img src="//mc.yandex.ru/watch/29317?cnt-class=1" style="position:absolute; left:-9999px;" alt="" /></div></noscript> <div align="center"> <div class="page" style="width: 100%; text-align: left"> <div style="margin:0px 3px 0px 3px" align="left"> <table style="margin: 0px 0px 5px 0px;"><tr> <td width="285px" align="left" valign="middle"><a href="https://www.cyberforum.ru/"><img border="0" src="https://www.cyberforum.ru/images/cyberforum_logo.jpg" height="50px" alt="Форум программистов и сисадминов CyberForum.ru" /></a></td> <td width="100%" align="right" valign="middle"> <div style="float: right;"> <script type="text/javascript" src="//yandex.st/share/share.js" charset="utf-8"></script> <div class="yashare-auto-init" data-yashareL10n="ru" data-yashareType="none" data-yashareQuickServices="yaru,vkontakte,fac ebook,twitter,odnoklassniki,moimir,lj,mo ikrug,gplus"></div> </div> </td> </tr></table> <div style="margin: 0px 0px 5px 0px;"> <script language="javascript" type="text/javascript"></script> </div> <div class="vbmenu_popup" id="vbbloglinks_menu" style="display:none;margin-top:3px" align="left"> <table cellpadding="4" cellspacing="1" border="0"> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/blogs/">Блоги программистов и сисадминов</a></td> </tr> </table> </div> <table class="tborder" cellpadding="6" cellspacing="1" border="0" width="100%" align="center"> <tr> <td class="alt1" width="100%"> <table cellpadding="0" cellspacing="0" border="0"> <tr valign="bottom"> <td><a href="https://www.cyberforum.ru/visual-basic/thread1133440.html#" onclick="history.back(1); return false;"><img src="https://www.cyberforum.ru/images/misc/navbits_start.gif" alt="Вернуться" border="0" /></a></td> <td> </td> <td width="100%"><span class="navbar"><a href="https://www.cyberforum.ru/" accesskey="1">Форум программистов и сисадминов CyberForum.ru</a></span> <span class="navbar">> <a href="https://www.cyberforum.ru/programming/">Форум Форум программистов</a></span> <span class="navbar">> <a href="https://www.cyberforum.ru/basic/">Форум Basic</a></span> <span class="navbar">> <a href="https://www.cyberforum.ru/visual-basic/">Форум Visual Basic</a></span> </td> </tr> <tr> <td class="navbar" style="font-size:12pt; padding-top:5px" colspan="3"><a href="https://www.cyberforum.ru/visual-basic/thread1133440.html"><img class="inlineimg" src="https://www.cyberforum.ru/images/misc/navbits_finallink_ltr.gif" alt="Перезагрузить страницу" border="0" /></a> <h1>Visual Basic -
Сохранение кода сайта в файл

</h1></td> </tr> </table> </td> <td class="alt2" nowrap="nowrap" style="padding:0px"> <form action="https://www.cyberforum.ru/login.php?do=login" method="post" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)"> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_md5.js?v=387"></script> <table cellpadding="0" cellspacing="3" border="0"> <tr> <td class="smallfont" style="white-space: nowrap;"><label for="navbar_username">E-mail</label></td> <td><input type="text" class="bginput" style="font-size: 11px" name="vb_login_username" id="navbar_username" size="20" accesskey="u" tabindex="101" value="E-mail" onfocus="if (this.value == 'E-mail') this.value = '';" /></td> <td class="smallfont" nowrap="nowrap"><label for="cb_cookieuser_navbar"><input type="checkbox" name="cookieuser" value="1" tabindex="103" id="cb_cookieuser_navbar" accesskey="c" checked="checked" />Запомнить?</label></td> </tr> <tr> <td class="smallfont"><label for="navbar_password">Пароль</label></td> <td><input type="password" class="bginput" style="font-size: 11px" name="vb_login_password" id="navbar_password" size="20" tabindex="102" /></td> <td><input type="submit" class="button" value="Вход" tabindex="104" title="Введите адрес вашей электронной почты и пароль, чтобы войти, или нажмите кнопку 'Регистрация', чтобы зарегистрироваться." accesskey="s" /></td> </tr> <td class="smallfont" colspan="2"><a href="https://www.cyberforum.ru/login.php?do=lostpw">Восстановить пароль</a></td> <td class="smallfont"><a href="https://www.cyberforum.ru/register.php">Регистрация</a></td> </tr> <tr> <td class="smallfont" colspan="3"></td> </tr> </table> <input type="hidden" name="s" value="55c3bfb8efefc67ada8d8c28e016c39c" /> <input type="hidden" name="securitytoken" value="guest" /> <input type="hidden" name="do" value="login" /> <input type="hidden" name="vb_login_md5password" /> <input type="hidden" name="vb_login_md5password_utf" /> </form> </td> </tr> </table> <div class="tborder" style="padding:1px; border-top-width:0px"> <table cellpadding="0" cellspacing="0" border="0" width="100%" align="center"> <tr align="center"> <td class="vbmenu_control"><a href="https://www.cyberforum.ru/announcement.php?a=3">Правила</a></td> <td class="vbmenu_control"><a id="vbbloglinks" href="https://www.cyberforum.ru/blogs/">Блоги</a><script type="text/javascript">vbmenu_register("vbbloglinks ");</script></td> <td class="vbmenu_control"><a id="community" href="https://www.cyberforum.ru/visual-basic/thread1133440.html?nojs=1#community" rel="nofollow" accesskey="6">Сообщество</a> <script type="text/javascript"> vbmenu_register("community"); </script></td> <td class="vbmenu_control"><a href="https://www.cyberforum.ru/search.php" rel="nofollow">Поиск</a></td> </tr> </table> </div> <table cellspacing="1" cellpadding="5" border="0" align="center" width="100%" class="tborder" style="margin: 10px 0px 0px 0px;"><tr> <td width="100%" class="alt1" align="center" valign="middle"> <script type="text/javascript"> </script> <script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </td> </tr></table> <br /> <div class="vbmenu_popup" id="community_menu" style="display:none;margin-top:3px" align="left"> <table cellpadding="4" cellspacing="1" border="0"> <tr><td class="thead">Ссылки сообщества</td></tr> <tr><td class="vbmenu_option"><a href="https://www.cyberforum.ru/groups/">Социальные группы</a></td></tr> </table> </div> <div class="vbmenu_popup" id="navbar_search_menu" style="display:none;margin-top:3px" align="left"> <table cellpadding="4" cellspacing="1" border="0"> <tr> <td class="thead">Поиск по форуму</td> </tr> <tr> <td class="vbmenu_option" title="nohilite"> <form action="https://www.cyberforum.ru/search.php?do=process" method="post"> <input type="hidden" name="do" value="process" /> <input type="hidden" name="quicksearch" value="1" /> <input type="hidden" name="childforums" value="1" /> <input type="hidden" name="exactname" value="1" /> <input type="hidden" name="s" value="55c3bfb8efefc67ada8d8c28e016c39c" /> <input type="hidden" name="securitytoken" value="guest" /> <div><input type="text" class="bginput" name="query" size="25" tabindex="1001" /><input type="submit" class="button" value="Вперёд" tabindex="1004" /></div> <div style="margin-top:6px"> <label for="rb_nb_sp0"><input type="radio" name="showposts" value="0" id="rb_nb_sp0" tabindex="1002" checked="checked" />Отобразить темы</label>
 
<label for="rb_nb_sp1"><input type="radio" name="showposts" value="1" id="rb_nb_sp1" tabindex="1003" />Отображать сообщения</label> </div> </form> </td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/tags/" rel="nofollow">Поиск по метке</a></td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/search.php" accesskey="4" rel="nofollow">Расширенный поиск</a></td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/post_thanks.php?do=findallthanks">Найти все сообщения с благодарностями</a></td> </tr><tr> <td class="thead">Поиск по блогам</td> </tr> <tr> <td class="vbmenu_option" title="nohilite"> <form action="https://www.cyberforum.ru/blog_search.php?do=dosearch" method="post"> <input type="hidden" name="s" value="55c3bfb8efefc67ada8d8c28e016c39c" /> <input type="hidden" name="securitytoken" value="guest" /> <input type="hidden" name="do" value="dosearch" /> <input type="hidden" name="quicksearch" value="1" /> <div><input type="text" class="bginput" name="text" size="25" tabindex="2003" /><input type="submit" class="button" value="Вперёд" tabindex="2004" /></div> </form> </td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/blogs/tags/" rel="nofollow">Поиск по метке</a></td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/blog_search.php?55c3bfb8efefc67ada8d8c28 e016c39cdo=search">Расширенный поиск</a></td> </tr> <tr> <td class="thead">Поиск пользователей</td> </tr> <tr> <td class="vbmenu_option" title="nohilite"> <form action="https://www.cyberforum.ru/members/list/" method="post"> <input type="hidden" name="s" value="55c3bfb8efefc67ada8d8c28e016c39c" /> <input type="hidden" name="securitytoken" value="guest" /> <input type="hidden" name="do" value="getall" /> <div><input type="text" class="bginput" name="ausername" size="25" value="" title="Имя" /><input type="submit" class="button" value="Вперёд" /></div> </form> </td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/memberlist.php?do=search">Расширенный поиск пользователей</a></td> </tr> <tr><td class="thead">Мои сообщения и темы</td></tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/search.php?do=finduser&u=0">Мои сообщения</a></td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/search.php?do=process&showposts=0&am p;starteronly=1&exactname=1&sear chuser=Незарегистрированный">Мои темы</a></td> </tr> <tr> <td class="vbmenu_option"><a href="https://www.cyberforum.ru/search.php?do=process&showposts=0&am p;starteronly=0&exactname=1&sear chuser=Незарегистрированный">Темы с моими сообщениями</a></td> </tr> </table> </div> <div class="vbmenu_popup" id="pagenav_menu" style="display:none"> <table cellpadding="4" cellspacing="1" border="0"> <tr> <td class="thead" nowrap="nowrap">К странице...</td> </tr> <tr> <td class="vbmenu_option" title="nohilite"> <form action="https://www.cyberforum.ru/" method="get" onsubmit="return this.gotopage()" id="pagenav_form"> <input type="text" class="bginput" id="pagenav_itxt" style="font-size:11px" size="4" /> <input type="button" class="button" id="pagenav_ibtn" value="Вперёд" /> </form> </td> </tr> </table> </div> <a name="poststop" id="poststop"></a> <table cellpadding="0" cellspacing="0" border="0" width="100%" style="margin-bottom:3px"> <tr valign="bottom"> <td class="smallfont" align="left" width="240px"> <a target="_blank" href="https://www.cyberforum.ru/newreply.php?do=newreply&noquote=1&a mp;p=5970970" rel="nofollow"><img src="https://www.cyberforum.ru/images/buttons/reply.gif" alt="Ответ" border="0" /></a> <a target="_blank" href="https://www.cyberforum.ru/newthread.php?do=newthread&f=29" rel="nofollow"><img src="https://www.cyberforum.ru/images/buttons/newthread.gif" alt="Создать новую тему" border="0" /></a></td> <td class="smallfont" style="padding-left: 5px;"></td> <td class="smallfont" align="left"></td> </tr> </table> <table class="tborder" cellpadding="6" cellspacing="1" border="0" width="100%" align="center" style="border-bottom-width:0px"> <tr> <td class="tcat" width="100%"> <div class="smallfont">

 
</div> </td> </tr> </table> </div> </div> </div> <div id="posts"> <div align="center"> <div class="page" style="width: 100%; text-align: left"> <div style="margin:0px 3px 0px 3px" align="left"> <div id="edit5970970" style="padding:0px 0px 6px 0px"> <table id="post5970970" class="tborder" cellpadding="6" cellspacing="0" border="0" width="100%" align="center"> <tr> <td class="thead" style="font-weight:normal; border: 1px solid #AAAAAA; border-right: 0px" > <a name="post5970970"><img class="inlineimg" src="https://www.cyberforum.ru/images/statusicon/post_old.gif" alt="Старый" border="0" /></a>
Вчера, 23:50

</td> <td colspan="2" class="thead" style="font-weight:normal; border: 1px solid #AAAAAA; border-left: 0px" align="right">
 

#<a href="https://www.cyberforum.ru/post5970970.html" target="_blank" rel="nofollow" id="postcount5970970" name="1"><strong>1</strong></a> </td> </tr> <tr valign="top"> <td class="alt2" width="170px" style="border: 1px solid #AAAAAA; border-top: 0px; border-bottom: 0px"> <div> <span class="bigusername"><span id="tagg_360437" style="display:none;">@</span>yTpO</span> </div> <div class="smallfont">Новичок</div> <div class="smallfont">
 <br /> <div>Регистрация: 15.03.2013</div> <div>
Сообщений: 42
</div> <div>Репутация: <span id="repdisplay_5970970_360437" title="Репутация пользователя"><b>3</b></span> (<span id="repdisplay_5970970_360437" title="Благодарностей за сообщения">3</span>)</div> <div> </div> </div> </td> <td colspan="2" class="alt1" id="td_post_5970970" style="padding-top: 3px; border-right: 1px solid #AAAAAA" > <div class="smallfont"> <strong>Сохранение кода сайта в файл / Visual Basic</strong> </div> <hr size="0.5px" style="color:#AAAAAA; background-color:#AAAAAA" /> <div id="post_message_5970970"> Доброго времени суток.<br />
Никто не подскажет, как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB, но рассмотрю и другие варианты решения. Важен результат<br />
Заранее спасибо. </div> <div style="margin: 15px 0px 5px 0px;"> <script type="text/javascript"> </script> <script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </div> </td> </tr> <tr> <td class="alt2" style="border: 1px solid #AAAAAA; border-top: 0px"> </td> <td colspan="2" class="alt1" align="left" valign="top" style="border: 1px solid #AAAAAA; border-left: 0px; border-right: 0px; border-top: 0px"> </td> </tr> </table> <div style="margin: 5px 0px 0px 0px"> <table class="tborder" cellpadding="6" cellspacing="1" border="0" width="100%" align="center"> <thead> <tr> <td class="tcat">
Другие темы раздела
</td> <td class="tcat" align="right"> <span class="smallfont">Форум программистов Visual Basic. Программирование на Visual Basic. Помощь в решении задач.</a> </td> </tr> </thead> <tbody></tbody> </table> </div> <div style="background-color: #FFFACD; border: 1px solid #CDBFA2; margin: 10px 0px 5px 0px; padding: 7px; text-align:center; font-size: 15px"> <b>После <a href="https://www.cyberforum.ru/register.php">регистрации</a> реклама в сообщениях будет скрыта и будут доступны все возможности форума.</b> </div> </div> </div> </div> </div> <div id="lastpost"></div></div> <div align="center"> <div class="page" style="width: 100%; text-align: left"> <div style="margin:0px 3px 0px 3px" align="left"> <table cellpadding="0" cellspacing="0" border="0" width="100%" style="margin-top:0px"> <tr valign="top"> <td class="smallfont" width="240px"> <a target="_blank" href="https://www.cyberforum.ru/newreply.php?do=newreply&noquote=1&a mp;p=5970970" rel="nofollow"><img src="https://www.cyberforum.ru/images/buttons/reply.gif" alt="Ответ" border="0" /></a> <a target="_blank" href="https://www.cyberforum.ru/newthread.php?do=newthread&f=29" rel="nofollow"><img src="https://www.cyberforum.ru/images/buttons/newthread.gif" alt="Создать новую тему" border="0" /></a></td> </tr> </table> <table> <tr> <td width="100%"></td> <td> </td> </tr> </table> <script type="text/javascript" src="https://www.cyberforum.ru/clientscript/vbulletin_lightbox.js?v=387"></script> <script type="text/javascript">  </script> <br /> <table class="tborder" cellpadding="6" cellspacing="1" border="0" width="100%" align="center"> <thead> <tr> <td class="tcat" width="100%" colspan="2">
Похожие темы<a name="similarthreads"></a> </td> </tr> </thead> <tbody> <tr class="thead" align="center"> <td class="thead">Тема</td> <td class="thead" width="10%" nowrap="nowrap">Автор</td> </tr> <tr> <td class="alt1" align="left"> <b>Заказать программу</b> <a target="_blank" href="https://www.cyberforum.ru/order-program/thread1076985.html"> <b>Чтение из файла,перевод из доп кода в прямой из него в десятичный и дальнейшее сохранение в файл С#</b></a><br/><span class="smallfont">3. Текстовый файл f.txt содержит дополнительные коды некоторых чисел (знаковый разряд отделяется от числа точкой). Требуется получить соответствующие числа в десятичной системе счисления, полученные числа в том же порядке записать в текстовый файл g.txt.
Пример:
1-ая строка файла f.txt...</span> </td> <td class="alt2" nowrap="nowrap"><span class="smallfont">DimaLord</span></td> </tr> <tr> <td class="alt1" align="left"> <b>Администрирование Windows</b> <a target="_blank" href="https://www.cyberforum.ru/windows-admin/thread959346.html"> <b>Изменяю файл hosts, ставлю напротив сайта ip адрес другого сайта</b></a><br/><span class="smallfont">По идее должен идти редирект на этот самый другой сайт. Например строчка 87.240.156.161 www.kiss.ru должна редиректить сайт www.kiss.ru на vk.com (кто не знает, ip адрес vk 87.240.156.161). но почему то все остается как было. Спокойно заходишь на сайт kiss.ru и нифига не редиректит. Почему?</span> </td> <td class="alt2" nowrap="nowrap"><span class="smallfont">verbenin</span></td> </tr> <tr> <td class="alt1" align="left"> <b>C++ Builder</b> <a target="_blank" href="https://www.cyberforum.ru/cpp-builder/thread45031.html"> <b>Сохранение HTML кода страницы.</b></a><br/><span class="smallfont">Как можно без TWebBrowser сохранить HTML код WEB страницы?</span> </td> <td class="alt2" nowrap="nowrap"><span class="smallfont">sloosar</span></td> </tr> <tr> <td class="alt1" align="left"> <b>Pascal (Паскаль)</b> <a target="_blank" href="https://www.cyberforum.ru/pascal/thread300082.html"> <b>Добавить к программе след действия: Сохранение и загрузка информации в текст. файл. Сохранение и загрузка информации в типизированный файл.</b></a><br/><span class="smallfont">Помогите добавить к программе след действия: Сохранение и загрузка информации в текст. файл. Сохранение и загрузка информации в типизированный файл.Завтра надо сдать

uses crt;
const n=100;
type
sotrud = record
oklad: integer;
fam,name,podrazd : string;
end;

Var</span> </td> <td class="alt2" nowrap="nowrap"><span class="smallfont">AntoshiN</span></td> </tr> <tr> <td class="alt1" align="left"> <b>Lisp</b> <a target="_blank" href="https://www.cyberforum.ru/lisp/thread354456.html"> <b>Сохранение кода</b></a><br/><span class="smallfont">Как сохранять код программы в CLISP 2.49
Расскажите по-подробнее, пожалуйста</span> </td> <td class="alt2" nowrap="nowrap"><span class="smallfont">Phe`V</span></td> </tr> </tbody> </table> <br /> <table cellpadding="0" cellspacing="0" border="0" width="100%" align="center"> <tr valign="bottom"> <td width="100%" valign="top"> </td> <td class="smallfont" align="right"> <table cellpadding="0" cellspacing="0" border="0"> </table> </td> </tr> </table> <table width="100%"><tr> <td align="left"> <script type="text/javascript" src="//yandex.st/share/share.js" charset="utf-8"></script> <div class="yashare-auto-init" data-yashareL10n="ru" data-yashareType="button" data-yashareQuickServices="yaru,vkontakte,fac ebook,twitter,odnoklassniki,moimir,lj,mo ikrug,gplus"></div> </td> <td align="right"> <span class="smallfont">Текущее время: <span class="time">00:06</span>. Часовой пояс GMT +4.</span> </td> <table cellspacing="1" cellpadding="5" border="0" align="center" width="100%" class="tborder" style="margin: 10px 0px 0px 0px;"><tr> <td class="alt1" width="100%" align="center"> <div id="yandex_ad"></div> <script type="text/javascript">
(function(w, d, n, s, t) {
w[n] = w[n] || [];
w[n].push(function() {
Ya.Direct.insertInto(29317, "yandex_ad", {
stat_id: 2,
ad_format: "direct",
font_size: 1,
type: "grid",
limit: 4,
title_font_size: 1,
site_bg_color: "F4F4F4",
title_color: "000080",
url_color: "666666",
text_color: "000000",
hover_color: "0066FF",
favicon: true,
no_sitelinks: false
});
});
t = d.documentElement.firstChild;
s = d.createElement("script");
s.type = "text/javascript";
s.src = "http://an.yandex.ru/system/context.js";
s.setAttribute("async", "true");
t.insertBefore(s, t.firstChild);
})(window, document, "yandex_context_callbacks");
</script> </td> </tr></table> <br /> </div> </div> </div> <form action="https://www.cyberforum.ru/" method="get" style="clear:left"> <table cellpadding="6" cellspacing="0" border="0" class="tborder" style="width: 100%;" align="center"> <tr> <td class="tfoot"> <select name="langid" onchange="switch_id(this, 'lang')"> <optgroup label="Выбор языка"> <option value="3" class="" >-- English (EN)</option> <option value="2" class="" selected="selected">-- Russian (RU)</option> </optgroup> </select> </td> <td class="tfoot" width="50%"> <span class="smallfont">КиберФорум - форум программистов, компьютерный форум, программирование</span> </td> <td class="tfoot" align="right" width="100%" colspan="2"> <div class="smallfont"> <strong> <a href="https://www.cyberforum.ru/advert.php" rel="nofollow">Реклама</a> -
<a href="https://www.cyberforum.ru/sendmessage.php" rel="nofollow" accesskey="9">Обратная связь</a> -

<a href="https://www.cyberforum.ru/visual-basic/thread1133440.html#top" onclick="self.scrollTo(0, 0); return false;">Вверх</a> </strong> </div> </td> </tr> </table> <table cellpadding="6" cellspacing="0" border="0" class="tborder" style="width: 100%;" align="center"> <tr class="alt1" align="right"> <td align="left" class="smallfont" width="500px">
Powered by vBulletin® Version 3.8.7 PL3<br />Copyright ©2000 - 2014, vBulletin Solutions, Inc.
<td align="right" width="300px"> <script type="text/javascript"></script> <script type="text/javascript">//<![CDATA[
var a='',js=10;try{a+=';r='+escape(document. referrer);}catch(e){}try{a+=';j='+naviga tor.javaEnabled();js=11;}catch(e){}
try{s=screen;a+=';s='+s.width+'*'+s.heig ht;a+=';d='+(s.colorDepth?s.colorDepth:s .pixelDepth);js=12;}catch(e){}
try{if(typeof((new Array).push('t'))==="number")js=13;}catc h(e){}
try{document.write('<a href="http://top.mail.ru/jump?from=1495058">'+
'<img src="http://d0.cd.b6.a1.top.mail.ru/counter?id=1495058;t=49;js='+js+a+';rand ='+Math.random()+
'" alt="Рейтинг@Mail.ru" style="border:0;" height="31" width="88" \/><\/a>');}catch(e){}//]]></script> <noscript><p><a href="http://top.mail.ru/jump?from=1495058"> <img src="http://d0.cd.b6.a1.top.mail.ru/counter?js=na;id=1495058;t=49"
style="border:0;" height="31" width="88" alt="Рейтинг@Mail.ru" /></a></p></noscript> <span id="openstat1131905"></span> <script type="text/javascript">
var openstat = { counter: 1131905, image: 5081, color: "c3c3c3", next: openstat, track_links: "ext" };
(function(d, t, p) {
var j = d.createElement(t); j.async = true; j.type = "text/javascript";
j.src = ("https:" == p ? "https:" : "http:") + "//openstat.net/cnt.js";
var s = d.getElementsByTagName(t)[0]; s.parentNode.insertBefore(j, s);
})(document, "script", document.location.protocol);
</script> </td> </tr> </table> <div class="smallfont" align="center"> </div> </div> </form> <script type="text/javascript">  </script> <div style="display:none"> </div>
<script type="text/javascript">
//<![CDATA[

window.orig_onload = window.onload;
window.onload = function() {
var cpost=document.location.hash.substring(1 );var cpost2='';if(cpost){ var ispost=cpost.substring(0,4)=='post';if(i spost)cpost2='post_'+cpost.substring(4); if((cobj = fetch_object(cpost))||(cobj = fetch_object(cpost2))){cobj.scrollIntoVi ew(true);}else if(ispost){cpostno = cpost.substring(4,cpost.length);if(parse Int(cpostno)>0){location.replace('https://www.cyberforum.ru/showthread.php?p='+cpostno);};} }

if(typeof window.orig_onload == "function") window.orig_onload();
}

//]]>
</script>
</body> </html>

Добавлено через 5 минут

Сообщение от Pro_grammer

В VBS по соображениям безопасности нет возможности работать напрямую с WIN API, а функция URLDownloadToFile это и есть API.

Теперь понятно почему вызвало проблеммы

Добавлено через 19 минут
Pro_grammer а вот интересно, Вы упомянули что напрямую
нельзя это сделать, как тогда в скриптах вызывать такие функции "не напрямую"

@Pro_grammer · 30.03.2014, 22:03

Сообщение от FelixMacintosh

как тогда в скриптах вызывать такие функции "не напрямую"

Есть метод. DynamicWrapperX - это ActiveX компонент (СОМ-сервер). Он предоставляет возможность из скриптов на JScript и VBScript вызывать функции, экспортируемые dll-библиотеками, в частности функции Windows API.

@yTpO · 31.03.2014, 02:07 **[ТС]**

Pro_grammer, а как бы мне поставить условие, что программа не получила доступ к данным сайта (нет интернета к примеру), то оно написало какую-нибудь ошибку

Добавлено через 34 минуты
всё. проблему с соединением решил сам.

@Антихакер32 · 19.06.2014, 13:34

а кто эту проблему не решил сам, вот подсказка..

Visual Basic
1
2
3
4
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef IpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    MsgBox IIf( InternetGetConnectedState(0&, 0&), "Есть контакт !", "Нет соединения :( "    )
End Sub

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72

	Сохранение кода сайта в файл 29.03.2014, 23:50. Показов 3278. Ответов 16 Метки нет (Все метки) Доброго времени суток. Никто не подскажет, как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB, но рассмотрю и другие варианты решения. Важен результат Заранее спасибо. 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	30.03.2014, 00:22
	После чего эту страницу даже править можно Миниатюры 0

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72
	30.03.2014, 12:35 [ТС]
	Вот что мне пишет консоль на ваш код. Что не так? 0

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72
	30.03.2014, 20:09 [ТС]
	Если реализую функцию как у вас, то ошиба такого вида: 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	30.03.2014, 20:16
	Сейчас пытаюсь исправлять ! Добавлено через 7 минут Как у тебя объявлен WScript ? 1

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72
	30.03.2014, 20:23 [ТС]
	В смысле? Наверное никак, я даже не знаю как и зачем его объявлять. с VB знаком только с неделю, так что прошу не пинать сильно. Часть кода я скинул выше а остальное - простые вычисления 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	30.03.2014, 20:58
	Вобщем как я понял WScript это главный объект встроенный в оболочку VBS отдельный файл сценария с расширением .VBS а я то голову ломаю что это VB6 ... в нашем басике функции WSH вызываются из подключенного объекта либо Shell "Комманда" Там твой код для скрипта он в среде VB6 не будет работать вернее будет только там нужно подключать WHS либо создать с помощью CreateObject(... обратись к модератору Dragokas он шарит в скриптах он даже сам увидит если будет онлайн, жди 1

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72
	30.03.2014, 21:05 [ТС]
	Хорошо спасибо. А на VB6 можно реализовать сохранение кода сайта в файл? мне-то какая разница какие файлы запускать батником. могу vb6 запустить, он сохранит мне код, а потом vbs, а он распознает. 0

@yTpO 6 / 6 / 3 Регистрация: 15.03.2013 Сообщений: 72
	31.03.2014, 02:07 [ТС]
	Pro_grammer, а как бы мне поставить условие, что программа не получила доступ к данным сайта (нет интернета к примеру), то оно написало какую-нибудь ошибку Добавлено через 34 минуты всё. проблему с соединением решил сам. 0

Сохранение кода сайта в файл

Решение