http://www.xtremevbtalk.com/showthread.php?t=74163 Прийдется регнуться, но код, судя по всему, на vb6 Вот прямой линк на другой исходник: http://sourceforge.net/projects/ircbotvb6/files/ircclientvb6/Source%20Code%20Update/ircbot-1.0.0beta01.zip/download.
Кто знает как данные с микрофона перевести в текст? Весь инет облазил, нигде не нашел такого, только наоборот из текстбокса на динамики
Собственно сама проблема - загружается сайт в браузер, на нем делается програмное заполнение формы и далее необходимо переходить по ссылкам нажимая на CMD на форме - вот в упор не могу понять каким образом осущесвить нажатие на ссылку. Инспектирование ID ссылки как то не помогает мне - может что не так делаю Вот код заполнения логи и пассКод Visual Basic Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE DoEvents Loop login = Text1.Text pass = Text2.Text Id = Text3.Text WebBrowser1.Document.All.Item("email").Value = login 'заполнение поля с логином WebBrowser1.Document.All.Item("pass").Value = pass 'заполнение поля с паролем WebBrowser1.Document.All.Item("id_button").Click 'клик по кнопке WebBrowser1.Silent = True ' Отключение выводов об ошибке на веб странице Вот как пытаюсь нажать ссылку 1Код Visual Basic 1 WebBrowser1.Document.All.Item("page_actions").Click Вот код страничкиКод HTML 1 <a href="/xxx?act=edit" onclick="return nav.go(this, event)">Идти сюда</a> С третьей ссылкой вообще все сложнее, она находится в меню которое открывается только после того как наведешь мышку на ссылку номер 2. Подскажите пожалуйста, что делать? Желательно примерами - ибо програмил до этого лет 6 назад и то чисто как хобби - вот и сейчас просто для себя маленькую утилитку делаю.page_actions
Как вариант перебраться на vb.net(синтаксис почти тот же, но возможностей гораздо больше), отснифать как с сайтом общается браузер и дальше имитировать с помощь httpwebrequest'ов.
Не пробывал, но проще, скорей всего, нет: http://www.vbforums.com/showthread.php?334645-Winsock-Making-HTTP-POST-GET-Requests http://forums.geekstoolbox.com/showthread.php?390-HTTP-Post-Example
Новый вопрос Всем доброго времени суток. Собственно вопрос: на форме есть web браузер с загруженной страничкой, командно нажимаю на кнопку и начинает открывать НОВОЕ ОКНО IE, как сделать так, чтобы открытие происходило в том же самом окне - без вызова нового процесса IE, а лучше в другом окне браузера на форме? Заранее спасибо за адекватные ответы.
кто знает как получить размер страницы в web-browser. Просьба не писать www.*.\?q=размер страницы в web-browser
http://www.sql.ru/forum/actualthread.aspx?tid=955110 Как вариант. Пс четвертая ссылка сами знаете где.
помогите пожалуйста, вот что мне нужно: есть значит цикл: For i1 = 1 To 7 For i2 = 1 To 7 For i3 = 1 To 7 For i4 = 1 To 7 For i5 = 1 To 7 For i6 = 1 To 7 For i7 = 1 To 7 a += 1 F(a) = str(i1) + str(i2) + str(i3) + str(i4) + str(i5) + str(i6) + str(i7) My.Computer.FileSystem.WriteAllText("out.txt", F(a) + vbCrLf, True) Next Next Next Next Next Next Next как мне организовать возможность изменять число циклов, а именно: пусть есть текстовое поле и кнопка, в поле ввел например число 4, и цикл стал таким, ну или стал выполняться как этот: For i1 = 1 To 4 For i2 = 1 To 4 For i3 = 1 To 4 For i4 = 1 To 4 a += 1 F(a) = str(i1) + str(i2) + str(i3) + str(i4) My.Computer.FileSystem.WriteAllText("out.txt", F(a) + vbCrLf, True) Next Next Next Next это вообще возможно? помогите пожалуйста, очень надо.
На компе нет VB.NET, так что только общий принцип Code: t=0 sub looper(n, limit) if n=0 then 'делаем что-то t=t+1 else for i=1 to limit looper (n-1, limit) next end if end sub looper (3) '3 вложенных цикла msgbox (t) чуть подправил, n -- кол-во "вложеных" циклов, limit предел(в коде это видно)
Как читать данные процесса? Process1.BeginOutputReadLIne() выдает ошибку, что поток не перенаправлен, а про перенаправление ничего найти не могу
Привет всем !!! Столкнулся с такой проблемой при мапе дисков vbs скриптом не вижу название шары , только написан типа .... путь до шары и буква диска . Как сделать так чтоб Диск сетевой диск назывался типа "Бухгалтерия" ???? Помогите . Help !!!! Вот код, что не правильно пишу ? Option Explicit Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") On Error Resume Next WshNetwork.MapNetworkDrive "O:", "\\ADSRV\1" ErrCheck Err.Number Sub ErrCheck(nr) Select Case nr Case 0 Case -2147024811 mDrive = "O:\" Set oShell = CreateObject("Shell.Application") oShell.NameSpace(mDrive).Self.Name = "Бухгалтерия" End Select End Sub
PHP: ip = System.Net.Dns.GetHostAddresses(domain).ToList.Item(0).ToString Не вкурсе, как задать таймаут? Или берутся системные настройки, и нужно писать свою функцию на сокетах? P.S. Таймаут на получение записи ДНС
