调用网页源代码使用: Dim str As String Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.open "get", "https://v1.hitokoto.cn/", True xmlHTTP1.send While xmlHTTP1.readyState <> 4 DoEvents Wend chuli (xmlHTTP1.responseText) text = s Set xmlHTTP1 = Nothing Donwload可以使用系统API: ...

VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。 FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。 IsWindowVisible函数检索指定窗口的可见性状态。 ShowWindow函数设置指定窗口的显示状态。 Option Explicit Private Declare Function FindWindow Lib "use...