Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim s As Strings = WebBrowser1.Document.body.innerhtml
Dim p As Long, q As Long, n As Long, sT As String
Text1 = "": Text2 = "": Text3 = "": Text4 = ""If InStr(s, "群主:") = 0 Then Exit SubIf InStr(s, "群类型:") = 0 Then Exit ... |