- ベストアンサー
"with"のここでの意味がわかりません。
relaxadorの回答
- relaxador
- ベストアンサー率42% (91/214)
こんにちは。 「with including」ですか、まあ冗長的だなと僕は思います。 ご参考まで。
関連するQ&A
- WebBrowserにてsubmitの前にnavigateしてしまう
いつもお世話になっております。 ＶＢ2005ユーザーです。 WebBrowser内の"submit"を押したあと、違うページに行きたいのですが、 "submit"を押す前に"Navigate"で指定しているページに行ってしまいます。 このようなコードを書いています。 With WebBrowser1 .Navigate("最初のＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Document.Forms(0).InvokeMember("submit") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Navigate("次の指定ＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop 「指定ＵＲＬ」は"submit"により新しいＨＴＭＬが生まれるので、その後の作業のためにどうしても"submit"を押したいのですが、上のようなコードですと先に「指定ＵＲＬ」に行ってしまいます。 "submit"をクリックせず、無視してしまうのです。 Navigate("次の指定ＵＲＬ")を外せばクリックしてくれるのですが・・・。 WebBrowserを完全に待機させる方法などが必要なのでしょうか？ 宜しくご教授のほどお願い致します。
- ベストアンサー
- Visual Basic
- いつもお世話になっています。
いつもお世話になっています。 アメリカの語学学校に入学申し込みをしたいのですが、申込金（application fee)50ドルが必要なのですが、どのように支払えばいいのかがわかりません。学校のサイトには Application checklist: □Completed Application form □Completed Certificate of Finances □Official copies of supporting financial documents □Nonrefundable application deposit of $50(in US dollars) Mail completed forms with supporting documentation to the address listed above. と書いてあります。 オンラインでの申し込みはしていないみたいです。 つまりこの50ドルは他の書類と一緒に送るということなのしょうか？ それとも海外送金をするということなのでしょうか？ 教えていただけたら幸いです。
- 締切済み
- その他（留学）
- ＶＢ2005、WebBrowserにてログインが成功したか失敗したかを判断
お世話になっております。 ＶＢ2005ユーザーです。 WebBrowserを使用し、windowsフォームに入力した内容を元にログインし、ログインが成功したか失敗したかを判断したいのです。 With WebBrowser1 .Navigate("ログインしたいＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete '読み込み終わるまで待つ System.Windows.Forms.Application.DoEvents() Loop .Document.All.GetElementsByName("ＩＤ")(0).InnerText = ＩＤ.Text .Document.All.GetElementsByName("パスワード")(0).InnerText = パスワード.Text .Document.Forms(0).InvokeMember("submit") という物を使い、その後にログイン成功か失敗かを判断するために、 If .Document.Body.Innertext = "ログイン失敗" Then MsgBox("だめ") Exit Sub Else MsgBox("ＯＫ") Exit Sub End If というコードを使ってみたのですが、Innertextの情報を読み取っていないのか、Else MsgBox("ＯＫ")に飛んでしまいます。 Navigateにて進んだ先のＨＴＭＬ情報（Innertext）と、コチラが指定したい情報が一致しているかの判断はどのようなコードを記述すればいいのでしょうか？
- ベストアンサー
- Visual Basic
- vb2005のWebbrowserコントロールでSubmitすると動作
vb2005のWebbrowserコントロールでSubmitすると動作がおかしいのですが Browser.Navigate("http://hyperlink.xrea.jp/regist.php") Do While Not Browser.ReadyState = WebBrowserReadyState.Complete Application.DoEvents() Loop Browser.Document.All.GetElementsByName("site_name")(0).InnerText = "test" ・ ・ Browser.Document.Forms(0).InvokeMember("submit") このようなソースなのですが、submit後のページが <div id="copyright"> Copyright By ***</div></body></html> のように、最後の方しか返してこないのです。 手動でsubmitボタンをクリックすると大丈夫なのですが、なぜだかわかるでしょうか？
- ベストアンサー
- Visual Basic
- あるサイト（https://search.npb.go.jp/kanp
あるサイト（https://search.npb.go.jp/kanpou/）の認証画面に自動的にID/PASSを入力して、自動的にログインするようなプログラムを作りたいのですが、ID/PASSの入力は問題無く行えるものの、ログインの際にエラー（予期しない操作により、処理中にエラーが発生しました。再度ログインを行ってください。）となります。何が悪いのでしょうか？ 【ログイン部分のプログラム】 ieTarget = CreateObject("InternetExplorer.Application") ieTarget.Visible = TrueValue = KANPOU_ID .document.Forms(0).elements("password").Value = KANPOU_PASS .document.forms(0).elements.submit() ieTarget.navigate("https://search.npb.go.jp/kanpou/") Do While (ieTarget.busy) Loop Do While (ieTarget.document.ReadyState <> "complete") Loop With ieTarget .document.Forms(0).elements("uji.model.4.value_userId").Value =KANPOU_ID .document.Forms(0).elements("password").Value = KANPOU_PASS .document.forms(0).elements.submit() End With
- ベストアンサー
- Visual Basic
- 日本語訳をお願いします。
お願いします。 The Wi-Fi Alliance is making the following specifications available for non-Members to purchase and download. Members may download these specifications at no charge by visiting Specifications. For any questions regarding the material within these documents, please Contact Us. Your privacy is important to us. See our Terms of Use and Privacy Policy. All purchases of specifications are final. No refunds will be issued. If you have trouble downloading the specifications, please contact us. All fields are required, except where indicated.
- ベストアンサー
- 英語
- Web画面をプリントする方法（エクセルVBA）
エクセル2000です。 VBAでNavigateを使いWeb画面（イントラネット）を開き、 .Document.all.Item("Hoge****No").Value = Target.Text のような方法で入力を行い、 .Document.forms(0).submit で送信ボタンクリックして新たな画面を開くところまではできております。 次に、その開いた画面をプリントしたいのです。 どのようなコードになるのでしょうか？ ご教示いただければ幸いです。 (o。_。)oペコッ 現在のコードは以下のとおりです。 Dim objIE As Object Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '複数セル不可 If Target.Column <> 1 Then Exit Sub 'A列のみ対象 'IEが起動しているかチェック。objIE.Nameプロパティの取得に成功したら起動とみなす。 Dim tmp As String On Error Resume Next tmp = objIE.Name If Err.Number <> 0 Then 'エラーならIEが起動していないので、起動する Set objIE = CreateObject("InternetExplorer.Application") End If On Error GoTo 0 With objIE .Navigate "http://******.co.jp/******/**/***/Details/DetailsScr/init" .Visible = True Do While .Busy = True DoEvents Loop .Document.all.Item("Hoge****No").Value = Target.Text 'テストボックスへ入力：Name属性で指定 'オートコンプリートなどの機能が働く場合があるので、念のため待機 Do While .Busy = True DoEvents Loop .Document.forms(0).submit '送信ボタンクリック End With End Sub
- ベストアンサー
- その他MS Office製品
- 英文の意味を教えて下さい<(_ _)>
アメリカのネットショップで小物を購入予定です。1個10円ぐらいなので大量に購入予定です。 いつもの担当者がいなくなってその事などについても返事が来ています。英語にお詳しい方ぜひ教えて下さい。お願いします<(_ _)> Thanks for your email. I am aware of you as customer as becki spoke about you couple of times. Unfortunately becki left us couple of weeks ago. Please send your emails to AAA and BBB so that one of the girls will process the order for you. Their email addresses are AAA@and BBB@ Please copy me in all your emails so that I can make sure the enquiries are dealt with. We can consider giving you exclusivity for Japanese market provided you give us business plan. How much do you spend per month at the moment? Please send us the big order you are referring to.
- ベストアンサー
- 英語