BP

Option Explicit Dim JScript, CString '定义线程级变量 '每个线程不同 Dim Window, File Dim HttpProgress Const IsDebug = 0 Const Version = "0.0.0.4" Sub Main() If Globals("App").PrevInstance Then Dim ws, WMI, Process Set ws = CreateObject("wscript.shell") ws.SendKeys "...
QQ飞车 | 2021-06-17 22:20 | 阅读 1321 次 | 评论 0 条

窗口类

Option Explicit ' By音符,QQ:337855632 Time:2020-03-17 Class Window_Class Private PostMessage, SendMessage Public Function GetText(ByVal hWnd) Dim pszText pszText = Space(255) GetText = Left(pszText, Api.ECall("user32.dll", "GetWindowTextW", hWnd, pszText, Len(...
默认分类 | 2021-03-25 16:29 | 阅读 346 次 | 评论 0 条
浏览1667次
最新评论