VB中Get网页源码和DownLoad函数

调用网页源代码使用: 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: ...
2018-08-30 20:52 | 阅读 1386 次 | 评论 0 条

VB6中任务栏的隐藏

VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。 FindWindow函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。 IsWindowVisible函数检索指定窗口的可见性状态。 ShowWindow函数设置指定窗口的显示状态。 Option Explicit Private Declare Function FindWindow Lib "use...
2018-08-30 20:34 | 阅读 1527 次 | 评论 0 条
浏览8413次
最新评论