随笔分类 -  按键精灵

摘要：如下面的代码所示，获取新浪博客某个指定网页的源码verurl = "http://blog.sina.com.cn/s/blog_9ea1db7b0101o7ch.html?" & now()Set Http = CreateObject("Microsoft.XMLHTTP")Http.open ... 阅读全文

摘要：Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As St 阅读全文

摘要：/*361 颜色相似度测试*/If Plugin.Sys.GetOSType >= 4 Then cls2 = "MSPaintView"Else cls2 = "AfxFrameOrView42u"End If Hwnd = Plugin.Window.Find("MSPaintApp", 0) Hwnd2 = Plugin.Window.FindEx(Hwnd, 0, cls2, 0)h = Plugin.Window.FindEx(Hwnd2, 0, 0, 0)x = 50y = 50//绑定窗口Set dm = crea 阅读全文