请用VB6.0做一个作品

Posted 2023-03-14

随便什么, 简单的就可以了 如时钟, 调色盘等都可以
有的请+QQ624777998 著明VB,等我查收后一定追加, 谢谢
是VB6.0哦

我发给你。 342447707
我已经上传到纳米盘了，不用注册可以直接下载
http://www.namipan.com/d/91f5e809b63c914ec767f7e05c4332bce244d4afc32a8f00 参考技术A 定时关机呢 要么 752596066 参考技术B 加分给我吧，我这里有100多个实例，够你用的。 参考技术C 这个很简单，现成的代码VB吧都有 参考技术D Dim a

Private Sub Command1_Click()
a = 1

Label1.Caption = ""
If Option1.Value = True Then
apppath = App.Path + "/xt1.htm"
Else
apppath = App.Path + "/xt.htm"
End If
WebBrowser1.Navigate apppath

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Move 0, 0, 0, 0
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
a = a + 1
Dim b As String
Dim Vdoc, vTag
Dim i As Integer
Set Vdoc = WebBrowser1.Document
If a = 2 Then
For i = 0 To Vdoc.All.length - 1
Set vTag = Vdoc.All(i)

If UCase(Vdoc.All(i).tagName) = "TEXTAREA" Then
Vdoc.All(i).Value = Text1.Text
End If
If UCase(Vdoc.All(i).tagName) = "INPUT" Then
Vdoc.All(i).Click
End If
Next i

End If
If a = 3 Then
Label1.Caption = getWebContent(WebBrowser1)
End If
End Sub

Function getWebContent(browser As WebBrowser) As String
On Error GoTo ERR:
Dim doc As Object
Dim i As Integer
Dim strhtml As String
Dim dd As String
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1
If Option1.Value = True Then
dd = doc.All(194).innerText
dd = Left(dd, Len(dd) - 4)
Else

dd = doc.All(193).innerText
dd = Left(dd, Len(dd) - 4)
dd = Right(dd, Len(dd) - 3)
End If
Next i

getWebContent = dd
Exit Function
ERR:
MsgBox "系统没有找到您要查的，请重新输入！"

End Function