Question

VB代码求助

1）利用VB的webbrower控制，制作浏览器

2）要求能设置来路referer
回答通过的悬赏分可以提高到700

Answer 1

简单的浏览器代码：
窗体上放置
WebBrowser cmdGo cmdHome cmdBack cmdExit 4个按钮控件 和一个输入地址的txtURL 文本框控件

Option Explicit
Private InitWidth As Long ' Form 的原始大小
Private InitHeight As Long

Private Sub cmdBack_Click()
On Error Resume Next
WebBrowser.GoBack
txtURL.Text = ""
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdGo_Click()

If Len(txtURL.Text) > 0 Then
WebBrowser.Navigate txtURL.Text
Else
WebBrowser.Stop
MsgBox "Please Enter a valid URL.", vbOKOnly, "Invalid URL"
txtURL.SetFocus
End If

End Sub

Private Sub cmdHome_Click()
'打开默认主页
WebBrowser.Navigate "tup.tsinghua.edu.cn"
txtURL.Text = "tup.tsinghua.edu.cn"
End Sub

Private Sub Form_Load()
InitWidth = ScaleWidth
InitHeight = ScaleHeight
Dim Ctl As Control
' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中
On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control
For Each Ctl In Me '也能正常执行
Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl
On Error GoTo 0

txtURL.Text = "http://www.baidu.com"
WebBrowser.Navigate "http://www.baidu.com"

End Sub

Private Sub Form_Resize()
Dim D(4) As Double
Dim I As Long
Dim TempPos As Long
Dim StartPos As Long
Dim Ctl As Control
Dim TempVisible As Boolean
Dim ScaleX As Double
Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
On Error Resume Next
For Each Ctl In Me
TempVisible = Ctl.Visible
Ctl.Visible = False
StartPos = 1
' 读取 Control 的原始位置、大小、字型大小
For I = 0 To 4
TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)
If TempPos > 0 Then
D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
D(I) = 0
End If
' 根据比例设定 Control 的位置、大小、字型大小
Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY
'Ctl.Width = D(2) * ScaleX
'Ctl.Height = D(3) * ScaleY
If ScaleX < ScaleY Then
Ctl.FontSize = D(4) * ScaleX
Else
Ctl.FontSize = D(4) * ScaleY
End If
Next I
Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0

End Sub

Private Sub txtURL_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
WebBrowser.Navigate txtURL.Text
End If
End Sub

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;
IEApp: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Url := 'http://localhost/test/referer.asp'; //我本地的表单网页文件
Ref := 'http://XXX.XXXX.com/cachedir/1052/37/98/3798915_5.htm';//这里设置了 referer
Headers := 'Referer: ' + Ref ;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);//应该是带有 referer的 载入了本地将要提交的表单网页...
end;

Answer 3

http://www.namipan.com/d/1c40ad170910d6a2b39ab09872baf1971d29f7148d110000

按你要求的浏览器~

Answer 4

1、你是要把txt文件内容加密吗？可以考虑用chr()和asc()函数来处理。