虚拟主机教程

Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle As Long
 
Private Sub Form_Load()
    myHand_handle = LoadCursor(0, IDC_HAND)
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If myHand_handle <> 0 Then SetCursor myHand_handle
End Sub

Private Sub Command1_Click()
    Dim xmldom As New DOMDocument
    Dim objnodes As IXMLDOMNodeList
    Dim element As IXMLDOMNode
 
    'Call xmldom.Load(App.Path & "\1.xml")
    Set XMLHTTP = CreateObject("Microsoft.xmlhttp")
    XMLHTTP.Open "GET", "http://163.com/test.xml", False
    XMLHTTP.setRequestHeader "Content-Type", "text/xml"
    XMLHTTP.send
    Set xmldom = XMLHTTP.responseXML
    Set objnodes = xmldom.documentElement.selectSingleNode("//root").childNodes
    For Each element In objnodes
        MsgBox GetNodeValue(element, "text")
    Next
 
End Sub
 
Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, _
ByVal node_name As String, _
Optional ByVal default_value As String = "") As String
Dim value_node As IXMLDOMNode
 
Set value_node = start_at_node.selectSingleNode(".//" & node_name)
If value_node Is Nothing Then
GetNodeValue = default_value
Else
GetNodeValue = value_node.Text
End If
End Function