いつもお世話になっております。
前回ご回答いただいた方ありがとうございました。
またまた困ったことにログインしたいサイトがあるのですがうまくできません。
ＵＲＬはhttps://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063
なのですが、ログインが二つあり、左側でログインしたいのですが、ボタンを押下できません。
****************************************************
Sub 永久不滅ドットコム()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "https://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.all.ID.Value = "test"
objIE.Document.all.idPassword.Value = "test"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then '何も起こらない
objIE.Document.Links(i).Click
Exit For
End If
Next i
objIE.Document.Forms(0).Click '何も起こらない
objIE.Document.Forms(0).Submit 'エラーになる
Set objIE = Nothing
End Sub
****************************************************
をやってみましたが無理でした・・・
ご教授よろしくお願いします。
VisualStudio2010/.NET4.0で開発しています。
やりたい事
・以下のVBのC#版を作りたい。
継承元のPage_Loadを実行させたい
Public Class Base
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.Write("親Page_Load")
End Sub
End Class
Public Class _Default
Inherits Base
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.Write("子Page_Load")
End Sub
End Class
上記のaspは実行すると画面上に「親Page_Load子Page_Load」と表示される。
だが、以下のプログラムでは「子Page」としか表示されないので困っております。
public class Base : System.Web.UI.Page
{
private void Page_Load(object sender, EventArgs e)
{
Response.Write("親Page");
}
}
public partial class _Default : Base
{
protected void Page_Load(object sender, EventArgs e)
{
Response.Write("子Page");
}
}
よろしくお願いいたします。
説明が非常にへたくそなので、プログラムをそのまま書きます・・・・
スイマセン
Private Sub TextBox1_2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_2.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub
Private Sub TextBox1_4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_4.KeyPress
If (e.KeyChar < "0"c Or e.KeyChar > "9"c) And e.KeyChar <> vbBack Then
e.Handled = True
End If
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub
Private Sub TextBox1_5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_5.KeyPress
If (e.KeyChar < "0"c Or e.KeyChar > "9"c) And e.KeyChar <> vbBack And e.KeyChar <> ","c Then
e.Handled = True
End If
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub
上記のプログラム、TextBox○○○_5.KeyPressの○○○の部分が１から100まであるのですが、あまりにも行数が多くなって長くなるので、ほかのクラスやモジュールにまとめる方法ってありませんか？
よろしくお願いしますｍ（＿＿）ｍ
Sub test1()
Dim objIE As Object
Dim i As Long
Dim MyRow As Long
Dim Str As String
Dim tmp As Variant
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://oshiete.goo.ne.jp/"
objIE.Visible = True
Do While objIE.Busy = True
DoEvents
Loop
Str = objIE.Document.Body.innerHTML 'ソースを抜き出す
tmp = Split(Str, Chr(10)) '配列に格納する
MyRow = 1 '初期値
For i = LBound(tmp) To UBound(tmp)
Cells(MyRow, 1) = tmp(i)
MyRow = MyRow + 1
Next i
objIE.Quit
Set objIE = Nothing
End Sub
**************************************************
Sub test2()
Dim objIE As Object
Dim Str As String
Dim tmp As Variant
Dim i As Long
Dim MyRow As Long
Set objIE = CreateObject("MSXML2.XMLHTTP")
objIE.Open "GET", "http://oshiete.goo.ne.jp/", False
objIE.Send
Str = objIE.responseText 'ソースを抜き出す
tmp = Split(Str, Chr(10)) '配列に格納する
MyRow = 1 '初期値
For i = LBound(tmp) To UBound(tmp)
Cells(MyRow, 1) = tmp(i)
MyRow = MyRow + 1
Next i
Set objIE = Nothing
End Sub
**************************************************
上記の二つのコードは
どちらもＶＢＡでHTMLソースをエクセルに書き出すコードなのですが
結果が違います。
なぜなのでしょうか？
実際のソースを確認したら
CreateObject("MSXML2.XMLHTTP")
の方が正しかったです。
CreateObject("InternetExplorer.Application")
は何が取得されてるのでしょうか？
javascriptのリンクが、<a href="javascript:void(0);">なんたらかんたら</a>
であれば記載のソースが通じるのですが、
【今回の問題】
【html部分】
onclick="javascript:updateDisp();return false;" alt="なんたらかんたら"><input type="hidden" name="allupdate" value="なんたらかんたら">
【javascriptの部分】
function updateDisp(){
update_flg = window.confirm("なんたらかんたら");
if(update_flg == true){
document.updateForm.submit();
}
else{
alert("キャンセルしました。");
}
とやられた途端に全く通じなくなりました。
どのように回避したらよいでしょうか。
【今回のではなく前回の（javascript:void(0);）成功分】
Private Sub CommandButton99_Click()
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://xxxx/entry"
Do While objIE.Busy = True
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:03"))
objIE.Document.all("ShopShopId").Value = Range("C8")
objIE.Document.all("ShopPassword").Value = Range("C9")
objIE.Document.forms(0).submit
Application.Wait (Now + TimeValue("00:00:05"))
For Each Obj In objIE.Document.getElementsByTagName("a")
If Obj.innerText = "なんたらかんたら" Then
Obj.Click
Exit For
End If
Debug.Print objIE.LocationURL
objIE.Navigate "xxxx/entry/entry_tops/all_update?prm=xxxxxxxxxxxxxxxxxxxxxxx"
For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).href = "javascript:void(0);" Then
Application.Wait (Now + TimeValue("00:00:05"))
objIE.Document.Links(i).Click
Application.Wait (Now + TimeValue("00:00:05"))
Exit For
MsgBox "ループ抜け"
End If
Exit Sub
Next
Next
objIE.Quit
End Sub
上記は【今回の問題】に通じません。
'objIE.Navigate.Document.updateForm.fireEvent ("なんたらかんたら")
'objIE.Document.Script.updateDisp "javascript:document.updateForm.submit(true);"
など試行錯誤しておりますが、javascriptのポップアップが回避できません。
どなたか何とかご教授お願いいたします。
