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 "...
窗口类
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(...