|
>ログオン後、どのように繋いでいけばいいのでしょうか?
>お手数おかけしますが、よろしくお願いします。
ここは、JavaScript教室ではありません。
VB質問箱です。
OLEとIEで検索してください。
下記でマイクロソフトのドキュメントを参考にしましょう。
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
JavaScriptリファレンス
http://www.tohoho-web.com/js/index.htm
<html>
<head>
<title>new_page_1.html</title>
</head>
<body>
<script type="text/javascript">
<!--
function SelectMenu()
{
confirm("Hello World")
}
function TestHit()
{
MENU1.onclick();
}
//-->
</script>
<table border="0">
<tbody>
<tr>
<td id="MENU1" onmouseover="DoMouseOver('MENU1')"
onmouseout="DoMouseOut('MENU1')" onclick="SelectMenu(1);" class="menu"
align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap"
valign="middle" width="185">メニュー1</td>
</tr>
<tr>
<td id="MENU2" onmouseover="DoMouseOver('MENU2')"
onmouseout="DoMouseOut('MENU2')" onclick="SelectMenu(2);" class="menu"
align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap"
valign="middle" width="185">メニュー2</td>
</tr>
<tr>
<td top="" onclick="TestHit();"
style="background-color: rgb(255, 255, 204); text-align: center;">Hello
World<br>
</td>
</tr>
</tbody>
</table>
</body>
</html>
Private Sub CommandButton1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate "http://自分のページ/new_page_1.html" ' ローカルで試すならセキュリティを下げる
Do While (objIE.Busy)
DoEvents
Loop
Call objIE.document.all.Menu1.Click
End Sub
|
|