Vb+html

[SSecurity]

Хакер, если он не имеет доступа к фреймам то он и сделать там ничего не сможет

[nekeda]

не работает ни первое, ни второе.
А чем устанавливается этот доступ ко фреймам? Или его всегда нету?

[Хакер]

Если src фрейма и src родителя одинаковы в отношении хоста, доступ не блокируется.

[Summer.05]

Чувствую, что истина где-то рядом, но совсем запутался.
У меня есть (VB6) файл dis.htm
Его надо по клику кнопки на форме открыть в браузере. Но я не знаю, какой браузер может быть установлен на других компьютерах (ослик, опера или лисичка....). Как обойти эту проблему?
Спасибо!

[Хакер]

А зачем тебе знать? Тебе нужно показать в броузере по умолчанию? ShellExecutre поможет тебе.

Или тебе надо показать в каком-то конкретном броузере? Тогда и Shell и ShellExecute помогут тебе.

[Summer.05]

Хакер
Спасибо, Телепат!
Вот образец:
Shell "C:\windows\notepad.exe"

Формируя такую команду, мне все равно надо указывать имя экзешника....

[iGrok]

Shell "cmd /c " + chr(34) + "start c:\boot.ini" + chr(34)
Посмори, что получится. Попробуй указать вместо c:\boot.ini путь к своей html...

[Summer.05]

iGrok
Спасибо, работает.
Но вот какая загогулина:


TDBGrid1.ExportToFile App.Path & "\Dis.html", False 'работает, создает файл в нужной директории

Shell "cmd /c " + Chr(34) + "start c:\Pedagog\Dis.html" + Chr(34) работает, запускает файл из той же директории, но путь - абсолютный

Shell "cmd /c " + Chr(34) + "Start App.Path & \Dis.html" + Chr(34) ' не работает, так как путь относительный.

Вероятно, я что-то не так с синтаксисом намудрил?

[iGrok]

Угу. Намудрил. =)
Просто start не может понять, что это за путь такой:
"App.Path & \Dis.html"
Может, если написать его вот так, оно заработает? ,-)
Shell "cmd /c " + Chr(34) + "Start " + App.Path + "\Dis.html" + Chr(34)

Вообще, вот тебе универсальная штука (только для XP и W2k!):

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

Sub OpenFile(FilePath as String)
    Shell "cmd /c " + chr(34) + "start " + FilePath + Chr(34)
End Sub

[Summer.05]

iGrok
Вот тебе огромное СПАСИБО! Ты мне сэкономил кучу времени...

[Хакер]

Summer.05

А чем тебя ShellExecutre не устраивает?

[Summer.05]

Хакер
Дружище, я совсем запутался в синтаксисе и полдня мучался. Так и не разобрался. А iGrok дал мне такой синтаксис, который сразу заработал. Вот я и решил остановиться пока....
Тебе спасибо за внимание!

[iGrok]

На будущее - ты ShellExecute все-таки поизучай..
ShellExecute, конечно, правильнее. =)

З.Ы. И чего тут сложного?
Чутка переделанный пример из API-Guide...

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

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Sub ShellStart(FileName As String, Optional Path As String = "c:\")
    ShellExecute 0, vbNullString, FileName, vbNullString, Path, SW_SHOWNORMAL
End Sub

[Хакер]

Summer.05
Игрок дал тебе квази-универсальный способ. Если универсальностью считается работа только под XP и Win2k - я промолчу, и тихо так уйду из этой темы.

Если под универсальностью понимается действительно универсальность (т.е. факт того, что код будет работать начиная с Win95 и заканчивая WinVist-ой.) - то следует юзать ShellExecute.

[iGrok]

Хакер, под Вистой я его просто не проверял. Вообще, эта штука должна работать под всеми NT-Like ОСями.. Честно говоря, я уже давно не забочусь о совместимости с Win9x / Me. Только в исключительных случаях. А то так и до Win3.1+win32 недалеко..

Нет, я с тобой не спорю. Это не универсальный способ.
Универсальный я вывесил следующим постом =)

[Summer.05]

Хакер
iGrok
Спасибо Вам!
Буду изучать, но только после отпуска. До сентября!

[nekeda]

а как отправить форму? пробовал

document.all("имя_формы").submit
document.all("имя_кнопки").click
document.all("имя_кнопки").submit
document.getelemetsbyname("имя формы").submit
document.getelemetsbyname("имя кнопки").click

не работет..

[Хакер]

document.all["имя_формы"].submit();

[nekeda]

WebTr.Document.All ["frmlogin"].Submit()

"Необходии объект"

форма вот: <form method="post" action="/login.php" name=frmlogin>
кнопка вот: <input type="submit" name="try_login" value="Вход">

[Хакер]

Блин. Ну кто ж знал что у тебя там VB?.

Ты написал
document.foo.bar

Такой вид записи ( не WB.Document а просто document) характерен для JS.

Если у тебя VB, поставь обратно квадратные скобки.

WB.Document.Forms("frmlogin").Submit()

[nekeda]

я вот тоже удивился

мм.. а Submit и submit это не одно и то же?

Теперь после сабмита остаётся только введёный логин, пароль пропадает.. хотя до сабминта пароль в поле есть.

[Хакер]

ну вообще метод называется submit. Но имена методов case insensitive...

[nekeda]

ясн. Так, ну раз после сабмита без ошибки пропадает пароль, значит сам метод сработал и ошибка в другом?

[Хакер]

Ну может там стоит событие onsubmit, которое мешает?

[nekeda]

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

Как бы нажать на кнопку не отправляя формы? у неё ID нету. вот код <input type="submit" name="try_login" value="Вход">

[Хакер]

у неё индекс есть.

[nekeda]

all(GetIndexByName).click или как?) если б были видны все доступные свойства..

[Хакер]

nekeda
подключи Microsoft HTML Object Library и все доступные свойства откроются тебе.

[nekeda]

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

For i = 0 To WebTr.Document.All.Length - 1
If WebTr.Document.All(i).name = "try_login" Then WebTr.Document.All(i).Click: Exit For
Next

ещё вот так пробовал..

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

For Each Elem In WebTr.Document.All
  If Elem.Name = "try_login" Then
    Elem.Click
  Exit For
  End If
Next

пробовал не .click а .submit; пробовал искать не по имени, а по типу "submit".. Обджект стилл дазнт суппорт зыс проперти ор метод )

[Хакер]

nekeda
А какого типа Elem ?