158.htm

一些简单的编程例子 都是网页的形式

<p></p>
<p>注释： 写入文件</p>
<p>WritToFile (txtOutput.Text)</p>
<p></p>
<p>txtOutput1.Navigate BrowserFile</p>
<p></p>
<p>sbHTTPStatus.Panels(2).Text = ""</p>
<p>sbHTTPStatus.Panels(1).Text = ""</p>
<p>Else</p>
<p>注释： Alternative way to handle binary files.</p>
<p>sbHTTPStatus.Panels(2).Text = ""</p>
<p>sbHTTPStatus.Panels(1).Text = ""</p>
<p>ReDim BinaryData(0)</p>
<p>vtDataChunk = Inet1.GetChunk(1024, icByteArray)</p>
<p>Do While UBound(vtDataChunk) > 0</p>
<p>If UBound(BinaryData) = 0 Then</p>
<p>Offset = 0</p>
<p>Else</p>
<p>Offset = UBound(BinaryData) + 1</p>
<p>End If</p>
<p>ReDim Preserve BinaryData(LBound(BinaryData) To Offset + UBound(vtDataChunk))</p>
<p>For Counter = 0 To UBound(vtDataChunk)</p>
<p>BinaryData(Counter + Offset) = CByte(vtDataChunk(Counter))</p>
<p>Next Counter</p>
<p>vtDataChunk = Inet1.GetChunk(1024, icByteArray)</p>
<p>Loop</p>
<p>End If</p>
<p>If bPerformingRequest Then</p>
<p>If Not BinaryFile Then</p>
<p>PageResources.URL = txtURL.Text</p>
<p>PageResources.AddLinksFromDocument txtOutput.Text, txtURL</p>
<p>AddLinksToTreeView PageResources</p>
<p>Else</p>
<p>注释： Alternative way to handle binary files.</p>
<p>BinaryFileID = FreeFile</p>
<p>Open FilenameForBinaryData For Binary As BinaryFileID</p>
<p>Put BinaryFileID, , BinaryData()</p>
<p>Close BinaryFileID</p>
<p>End If</p>
<p>txtURL.Enabled = True</p>
<p>tmrBusy.Enabled = False</p>
<p>Me.MousePointer = vbDefault</p>
<p>bPerformingRequest = False</p>
<p>cmdPerformRequest.Enabled = True</p>
<p>cmdPerformRequest.Caption = "执行查询"</p>
<p>End If</p>
<p>Case Else</p>
<p>End Select</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub picDivider_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)</p>
<p></p>
<p>If Button = vbLeftButton Then</p>
<p>picDivider.Left = _</p>
<p>MaxLong(200, _</p>
<p>MinLong((picDivider.Left + x), _</p>
<p>(Me.ScaleWidth - 260)))</p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub picDivider_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)</p>
<p></p>
<p>tvURLTreeView.Width = picDivider.Left - tvURLTreeView.Left</p>
<p>txtOutput1.Left = picDivider.Left + picDivider.Width</p>
<p>txtOutput1.Width = Me.ScaleWidth - (txtOutput1.Left + 60)</p>
<p></p>
<p>SaveSetting App.Path, "Option", "Split", picDivider.Left</p>
<p></p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub tmrBusy_Timer()</p>
<p></p>
<p>Static Counter As Integer</p>
<p>Counter = (Counter + 1) Mod (ilBusyIcons.ListImages.Count)</p>
<p>picBusy.Picture = ilBusyIcons.ListImages(Counter + 1).Picture</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub tvURLTreeView_NodeClick(ByVal Node As Node)</p>
<p></p>
<p>If (Node.Key <> Node.Root.Key) And _</p>
<p>(Not (Node Is ActiveTreeNode)) And _</p>
<p>(Not bPerformingRequest) Then</p>
<p>Set ActiveTreeNode = Node</p>
<p>txtURL.Text = Node.Key</p>
<p>cmdPerformRequest_Click</p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub txtURL_GotFocus()</p>
<p></p>
<p>注释： 只选择域名or IPAddress</p>
<p>Dim lLen As Long</p>
<p>lLen = InStr(1, UCase(txtURL), UCase("http://"))</p>
<p>If lLen > 0 Then</p>
<p>txtURL.SelStart = lLen + 6</p>
<p>txtURL.SelLength = Len(txtURL) - lLen - 6</p>
<p>Else</p>
<p>txtURL.SelStart = 0</p>
<p>txtURL.SelLength = Len(txtURL)</p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub txtURL_KeyPress(KeyAscii As Integer)</p>
<p></p>
<p>If KeyAscii = 13 Then</p>
<p>cmdPerformRequest_Click</p>
<p>End If</p>
<p>End Sub</p>
<p></p>
<p>Public Sub AddLinksToTreeView(PageResources As clsHTMLPageResourceNode)</p>
<p>Dim CurrentNode As Node</p>
<p>Dim Link As clsHTMLPageResourceNode</p>
<p></p>
<p>On Error Resume Next</p>
<p></p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add("WWW", tvwChild, _</p>
<p>PageResources.URL, _</p>
<p>PageResources.URL, _</p>
<p>icoSERVER, icoSERVER)</p>
<p>If Not (CurrentNode Is Nothing) Then</p>
<p>Set ActiveTreeNode = CurrentNode</p>
<p>End If</p>
<p></p>
<p>For Each Link In PageResources.PageLinks</p>
<p></p>
<p>Dim sExt As String</p>
<p>sExt = Right(Link.Path, 3) 注释：取最后三个</p>
<p>sExt = UCase(sExt)</p>
<p></p>
<p>Select Case sExt</p>
<p></p>
<p>Case "HTM"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoTXT, icoDOCUMENT)</p>
<p>Case "HTML"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoTXT, icoDOCUMENT)</p>
<p>Case "GIF"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoGIF, icoGIF)</p>
<p>Case "JPG"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoJPG, icoJPG)</p>
<p>Case "CSS"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoCSS, icoCSS)</p>
<p>Case "ASP"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoASP, icoASP)</p>
<p>Case "BMP"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoBMP, icoBMP)</p>
<p>Case "MPG"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoRA, icoRA)</p>
<p>Case "AVI"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoRA, icoRA)</p>
<p>Case ".RA"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoRA, icoRA)</p>
<p>Case "INC"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoCSS, icoCSS)</p>
<p>Case "TXT"</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoDOCUMENT, icoDOCUMENT)</p>
<p>Case Else</p>
<p>If InStr(1, sExt, "/") > 1 Then 注释：文件夹</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoFloder, icoFloder1)</p>
<p>Else</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoOTHER, icoOTHER)</p>
<p>End If</p>
<p>End Select</p>
<p></p>
<p>If Not CurrentNode Is Nothing Then</p>
<p>CurrentNode.EnsureVisible</p>
<p>End If</p>
<p>Next Link</p>
<p></p>
<p>For Each Link In PageResources.PageElements</p>
<p>Set CurrentNode = tvURLTreeView.Nodes.Add _</p>
<p>(PageResources.URL, tvwChild, _</p>
<p>Link.URL, Link.Path, _</p>
<p>icoIMAGE, icoIMAGE)</p>
<p>If Not CurrentNode Is Nothing Then</p>
<p>CurrentNode.EnsureVisible</p>
<p>End If</p>
<p>Next Link</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Public Sub WritToFile(sContent As String)</p>
<p></p>
<p>Dim lFree As Long</p>
<p>lFree = FreeFile</p>
<p>Open BrowserFile For Output As #lFree</p>
<p></p>
<p>Print #lFree, sContent</p>
<p></p>
<p>Close #lFree</p>
<p></p>
<p>End Sub</p>
<p> </p>