Dim WithEvents WebBrowser1 As SHDocVwCtl.WebBrowser
Dim dWinFolder As New ShellWindows
Dim objIE As Object
Private 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
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim objIehwnd As Long
Const JgDz = "*******" '登陸地址
Dim r As Long
Private Sub CommandButton1_Click() '登錄
Set WebBrowser1 = Nothing
r = ShellExecute(0, "open", Jgdz, 0, 0, 3)
For r = 1 To 10000
For Each objIE In dWinFolder
If objIE.LocationURL = Jgdz Then
Set WebBrowser1 = objIE ？？？？vb中提示：錯誤，型別不匹配
WebBrowser1.Silent = True
objIehwnd = objIE.hwnd
CommandButton1.Enabled = False
Exit Sub
End If
Next
Next
End Sub
不知還有其它錯誤沒有,請賜教,謝謝!!!
uj5u.com熱心網友回復：
改成這樣好像就可以了？Dim WithEvents WebBrowser1 As SHDocVwCtl.WebBrowser_V1
uj5u.com熱心網友回復：
謝謝！！！改成Dim WithEvents WebBrowser1 As SHDocVwCtl.WebBrowser_V1，沒有錯誤提示。但WebBrowser1沒有DocumentComplete事件，請賜教。
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
那不是有嗎……
uj5u.com熱心網友回復：
謝謝指導，沒有DocumentComplete事件的。uj5u.com熱心網友回復：
你的代碼中，這兩個物件的“類”本來就是不同的。
我仔細看了一下WebBrowser_V1類的屬性，它跟WebBrowser類物件之間好像也沒有“物件互換”的屬性或方法。
不知道你能不能用WebBrowser_V1的 DownloadComplete事件 來替代處理？
uj5u.com熱心網友回復：
感謝Chen8013,方便留個聯系方式，QQ或電話，好當面請教。謝謝！！！uj5u.com熱心網友回復：
試試用另外的名稱錯開來。 比如：Dim WithEvents web1 As SHDocVwCtl.WebBrowser_V1
另外，你這片代碼是要做自動登錄嗎？如果是的話可以直接操作物件objIE
uj5u.com熱心網友回復：
首先感謝sysdzw的指導。VBA中的源代碼:
Dim WithEvents WebBrowser1 As WebBrowser
Dim dWinFolder As New ShellWindows
Dim objIE As Object
Private 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
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim objIehwnd As Long
Const JgDz = "*******" '登陸地址
Dim r As Long
Private Sub Command1_Click() '登錄
Set WebBrowser1 = Nothing
r = ShellExecute(0, "open", Jgdz, 0, 0, 3)
For r = 1 To 10000
For Each objIE In dWinFolder
If objIE.LocationURL = Jgdz Then
Set WebBrowser1 = objIE
WebBrowser1.Silent = True
objIehwnd = objIE.hwnd
Command1.Enabled = False
Exit Sub
End If
Next
Next
End Sub
問題:
想改在VB6.0,IE6下運行,提示:
1.Dim WithEvents WebBrowser1 As WebBrowser
Set WebBrowser1 = objIE????? vb6中提示：錯誤，型別不匹配
2. Dim WithEvents WebBrowser1 As WebBrowser_V1
Set WebBrowser1 = objIE沒有錯誤提示,但沒有DocumentComplete事件
使用其它事件有錯誤,最好使用DocumentComplete事件,謝謝!!!
uj5u.com熱心網友回復：
Dim WithEvents web1 As SHDocVwCtl.WebBrowser_V1Set WebBrowser1 = objIE沒有錯誤提示，沒有DocumentComplete事件
使用其它事件有錯誤,最好使用DocumentComplete事件,謝謝!!!
uj5u.com熱心網友回復：
WebBrowser_V1是早期的版本3.0以前的,所以他支持的引數很有限.不支持
DocumentComplete
不太了解你的操作,可以嘗試用winsock或者XMLHTTP實作Post與Get來實作登陸操作.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81863.html
標籤：控件