补充说明:
1.WebBrowser1是pictureBox
2.在客户那里运行exe文件时好像是能够执行的
Private Sub Command1_Click()
Dim URL As String
Dim Flags As Long
Dim TargetFrame As String
Dim PostData() As Byte
Dim Headers As String
Dim tVal As String
URL = "http://www.xxx.com/timeecho.php"
Flags = 0
TargetFrame = ""
PostData = "Information sent to host"
PostData = StrConv(PostData, vbFromUnicode)
Headers = "Content-Type: application/x-www-form-urlencoded" & _
vbCrLf
MyFrame_Name.WebBrowser1.Navigate URL
Do While MyFrame_Name.WebBrowser1.Busy
DoEvents
Loop
dakoku.WebBrowser1.Navigate URL
tVal = dakoku.WebBrowser1.Document.body.outerhtml
tVal = Delete_Tag(tVal)
Debug.Print tVal
End Sub
5 个解决方案
#1
晕,没有人知道吗?
我安装了ocx还是没用。是不是还需要什么设置?
我安装了ocx还是没用。是不是还需要什么设置?
#2
1.WebBrowser1是pictureBox
这个是什么逻辑??
这个是什么逻辑??
#3
WebBrowser1是pictureBox
不知所云
不知所云
#4
WebBrowser1和pictureBox 是两个东东哟,我也不清楚说什么哦
#5
pictureBox 命名为 WebBrowser1了吧?
#1
晕,没有人知道吗?
我安装了ocx还是没用。是不是还需要什么设置?
我安装了ocx还是没用。是不是还需要什么设置?
#2
1.WebBrowser1是pictureBox
这个是什么逻辑??
这个是什么逻辑??
#3
WebBrowser1是pictureBox
不知所云
不知所云
#4
WebBrowser1和pictureBox 是两个东东哟,我也不清楚说什么哦
#5
pictureBox 命名为 WebBrowser1了吧?