执行程序
不联网状态下访问时，如图，他是直接内嵌访问IE
联网时正常访问。
从如上情况可以看出，他只是写了个窗体，链接访问网站，同时将所有IE等按钮去除了。如上所示的程序，有谁会吗，请指教。
或者可以是本机如上登陆窗口，可以配置登陆链接的IP（网址），端口号可以配置任意访问网站

用webbrowser控件，很容易做到的。问题是，不通过ie上网，还可以通过其他途径上的，简单的方法就是：打开我的电脑，在地址栏输入网址，就可以上网了。为什么非要通过这个程序上呢。

Sample Code :

Option Explicit

Private Sub Form_Load()
Dim DataString() As String
    DataString = Split(Now, "/")
    WebBrowser1.Navigate2 "www."
    StatusBar1.Panels(1).Text = "代码谘询请访问网站 : http://www."
    StatusBar1.Panels(2).Text = DataString(0) & "年" & DataString(1) & "月" & Mid(DataString(2), 1, InStr(DataString(2), " ") - 1) & "日 " & WeekNum
End Sub

Private Sub Form_Resize()
    WebBrowser1.Left = 0
    WebBrowser1.Top = 0
    WebBrowser1.Width = Form1.Width
    WebBrowser1.Height = Form1.Height
End Sub

Private Function WeekNum() As String
Dim NowTime As Date, i As Integer

    NowTime = Now
    
    i = Weekday(NowTime, vbMonday)
    
    Select Case i
        Case 0
            WeekNum = "星期日"
        Case 1
            WeekNum = "星期一"
        Case 2
            WeekNum = "星期二"
        Case 3
            WeekNum = "星期三"
        Case 4
            WeekNum = "星期四"
        Case 5
            WeekNum = "星期五"
        Case 6
            WeekNum = "星期日"
    End Select
    
End Function

至于WebBrowser窗口里面的东西～看你要写在VB中里也行～连到网络上也行～
之前贴过怎用WebBrowser编写网页代码了～这里就不多说了～

个人看起来～把介面切开来～大概就这几项而已～


运行的结果大概是这样～


[ 本帖最后由 wube 于 2011-6-9 11:49 编辑 ]

那段代码是放到VB窗体的代码里面，到时候直接生成EXE吗？我是一点代码不懂的

运行后，出现此错误，就是关于StatusBar1.Panels(2).Text = DataString(0) & "年" & DataString(1) & "月" & Mid(DataString(2), 1, InStr(DataString(2), " ") - 1) & "日 " & WeekNum
显示就错误。

你的状态栏控件的面板数目？还是宽度问题？你自己调试一下～

[ 本帖最后由 wube 于 2011-6-9 17:41 编辑 ]

可能你没拉出StatusBar控件吧～那是最下面显示资讯用的～还要让它新增一个面板（预设只有一个）～
Microsoft Windows Common Controls 6.0 (SP6) 里的其中一项～

关于超出边界问题，StatusBar都放了，而且2个窗口

关于超出边界问题，StatusBar都放了，而且2个窗口 ，同时StatusBar属性，现有个新问题请教楼主，关于网站中内容打开时，弹出的网页（模态和非模态）也是在VB窗口中，如下图所示，图中弹出的选择产品为模态对话框（是在窗体中），但两者窗体有区别，弹出窗体关闭时没有退出提示，母窗体有退出提示

如果你跳出的窗体是VB里的Form之一～退出提示要写在那个跳出的窗体的这个事件中～

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    '退出提示
End Sub

我也想仿谷歌～练习写了个VB6的浏览器～想在连结中新增视窗却不行～所以你那是怎做的？
HTML码全写在VB6里面吗？

[ 本帖最后由 wube 于 2011-6-14 19:28 编辑 ]