Конференция VBStreets

**Just me** » 01.06.2006 (Чт) 16:03

жаль что никто не знает как это сделать. действительно майкрософт умнее всех

**alibek** » 01.06.2006 (Чт) 16:05

Да, действительно...

**Antonariy** » 01.06.2006 (Чт) 16:13

Эхх...

Код: Выделить всё: Set webbrowser=CreateObject("InternetExplorer.Application") webbrowser.Visible=True

**Just me** » 01.06.2006 (Чт) 16:36

Айй спасибо!!!
Огромное человеческое спасибо! Ты можешь гордиться тем, что помог человеку на этой планете!

**Antonariy** » 01.06.2006 (Чт) 17:28

Гордыня - один из смертных грехов. Пожалуй, не буду. :wink:

**Just me** » 01.06.2006 (Чт) 19:58

тут еще один тупой вопрос-как делать функции в VBs?
В общем надо чтобы функция получала строковую переменную
после нужных мне обработок функция возвращала логическую переменную. Плиз распишите, а то я только только перехожу на VBs, без хелпа.

зы Antonariy гордиться надо в душЕ, а не в дУше

**Хакер** » 01.06.2006 (Чт) 20:12

Just me

Код: Выделить всё: Function MyFunc(ByVal SomeStringVariable As String) As Boolean Dim bResult As Boolean ' Тут какие-то твои некому не понятные операции со строкой ' в процессе которой ты установишь значение bResult MyFunc = bResult End Function

вообще, скажи что значит "нужных мне обработок"

**Just me** » 01.06.2006 (Чт) 20:19

режу строчку на нужные мне кусочки.
открываю файл, ищу в этом файле одну из этих строчкек. если нахожу, отправляется true, else false
что-то ругается...

Scripting runtime error '1006': (line 1; column 29)
Предполагается наличие ")".
Offending line: >> Function MyFunc(ByVal strval As String) As Boolean

**Хакер** » 01.06.2006 (Чт) 20:23

Just me, вызывает проблему?

Как разрезать строчку на кусочке?
Как найти кусочек строчки в файле?
Case Else?

**Just me** » 01.06.2006 (Чт) 20:23

нет, на эти вопросы я уже нашел ответы в интернете.(я про реззанье кусочков). а вот на ошибку 1006 нет

**Хакер** » 01.06.2006 (Чт) 20:25

Так ты на VBScripte'что ли делаешь?
Чё ж ты сразу не сказал?

Убери все [As xxxxx]

в VBScripte' нет этих типов переменных

**Just me** » 01.06.2006 (Чт) 20:36

спасибо

**Just me** » 01.06.2006 (Чт) 23:36

еще вопрос-как удалить определенный файл? спасибо, что не отрекаетесь от меня, незнающего язык VB

**Хакер** » 01.06.2006 (Чт) 23:43

Код: Выделить всё: Kill "имя файла"

или через FSO

**Nicky** » 02.06.2006 (Пт) 7:50

Хакер писал(а):
Код: Выделить всё
Kill "имя файла"

или через FSO

Kill'а нет в VBS. FSO

**Just me** » 02.06.2006 (Пт) 12:30

проблемка. может даже глюк. В общем в коде, используя instr

expirint=instr(2,lcase(x),"exp:")
expirstr=mid(x,expirint+49,8 )

я указал в instr(2..-вторую попавшуюся комбинацию а он мне находит только первую, хотя в самой строчке x два "exp:". в чем дело, кто-нибудь знает? Хотя во всех других схожих строчках он выдает верное положение символов "exp:"

**Antonariy** » 02.06.2006 (Пт) 12:53

instr(2 означает не вторую попавшуюся комбинацию, а то, что поиск начинаестя со второго символа строки.

**Just me** » 02.06.2006 (Пт) 12:55

Ааа! Спасибо! А то меня действительно замкнуло

Благодарю.

**Just me** » 02.06.2006 (Пт) 18:17

как лучше всего сделать задержку скрипта, пока грузится страничка

Do While WebBrowser1.busy
'???
Loop

на VBS команда Sleep(100) вызывает вылет из программы.

**VVitafresh** » 02.06.2006 (Пт) 18:59

как лучше всего сделать задержку скрипта

Должно работать:

Код: Выделить всё: WScript.Sleep 1000

**Just me** » 02.06.2006 (Пт) 19:07

замето WScript что писать? у меня он требует такой объект. :lol:

**VVitafresh** » 02.06.2006 (Пт) 19:27

WScipt это и есть объект.

Ты вообще как(где) используешь VBS? Я показал пример, который работает через Windows® Script Host. Запусти файл с расширением *.vbs и содержимым:

Код: Выделить всё: msgbox "Сейчас: " & Now WScript.Sleep 2000 msgbox "Прошло 2 секунды..."

Или ты юзаешь VBS непосредственно из Visual Basic'a?

**Just me** » 02.06.2006 (Пт) 21:13

Юзаю в програмке. ПРограмка-бот для Warcraft III, называется Steath Bot. Там написано что можно писать свои скрипты в текстовом файле. Бот написат на VBS, и поэтому скрипты можно писать(как-бы дополнительные) тоже на VBS. Язык этот я почти не знаю. Чтобы перейти на следующий уровень мне нужно знать много команд :idea:

.

По задержке-есть что-нибудь еще? Раньше я использовал padqueue() но эта команда очень плохая, она просто оттягивает неизбежность того или иного процесса.

**Just me** » 03.06.2006 (Сб) 20:11

мда, действительно проблемка. пока что обхожусь этим

Do While WebBrowser1.busy
Loop

, но скоро это меня доведет до нервного срыва. Комп зависает на несколько секунд...

**Just me** » 05.06.2006 (Пн) 22:21

Set webbrowser1=CreateObject("InternetExplorer.Application")
webbrowser1.Visible=false
WebBrowser1.Navigate "w...."
WebBrowser1.Quit

Когда этим пользуешься, загружает ли он картинки??

**GSerg** » 06.06.2006 (Вт) 6:04

1. Сделай видимым и проверь.
2. Прекрати делать 3 постинга подряд.
3. Пользуйся поиском.

**Antonariy** » 06.06.2006 (Вт) 8:55

Just me писал(а):мда, действительно проблемка. пока что обхожусь этим

Do While WebBrowser1.busy
doevents
Loop

, но скоро это меня доведет до нервного срыва. Комп зависает на несколько секунд...

А еще лучше

Код: Выделить всё: Do While WebBrowser1.ReadyState <> 4 DoEvents Loop

**Just me** » 06.06.2006 (Вт) 12:59

Set webbrowser1=CreateObject("InternetExplorer.Application")
webbrowser1.Visible=false
WebBrowser1.Navigate "..."
Do While WebBrowser1.ReadyState <> 4
Loop
WebBrowser1.Quit

когда это делаю, происходит свертывание с текущей программы. что делать?

**Antonariy** » 06.06.2006 (Вт) 13:28

свертывание с текущей программы

Это что за код да винчи?

Конференция VBStreets

информация из html

Кто сейчас на конференции