【菜鸟学飞】怎样点击360安全卫士提示中的"允许本次操作"单选框???

Question

小弟现写代码如下,但功能不能实现,希望大大为我解困,在下感激不尽.
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'360安全卫士提示框没有标题,我就用了WindowFromPoint,如果Mouse移到框内就选上单选按钮.
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
    
Private Type POINTAPI
     x As Long
     y As Long
End Type
    
Dim strC As String * 255Private Sub Form_Load()
     With Timer1
         .Interval = 200
         .Enabled = True
     End With
End SubPrivate Sub Timer1_Timer()
     Dim tP As POINTAPI
     Dim intWinHwnd As Long, intOptHwnd As Long, intBtnHwnd As Long
     GetCursorPos tP
     intWinHwnd = WindowFromPoint(tP.x, tP.y)'360安全卫士提示框没有标题,我就用了WindowFromPoint,如果Mouse移到框内就选上单选按钮.
     Me.Caption = intWinHwnd
    
     GetWindowText intWinHwnd, strC, 255
     Debug.Print strC
     If InStr(1, strC, "误报反馈") <> 0 Then
         Do
             intOptHwnd = FindWindowEx(intWinHwnd, 0, "Button", vbNullString)'SPY++查不到单选按钮的文本
             Do While intOptHwnd <> 0 '这个循环$%$@#@^$@^#@^#$!!@%#$#
                 SendMessage intOptHwnd, WM_LBUTTONDOWN, 0, ByVal 0&
                 SendMessage intOptHwnd, WM_LBUTTONUP, 0, ByVal 0&
                
                 intOptHwnd = FindWindowEx(intWinHwnd, intOptHwnd, "Button", vbNullString)
                 DoEvents
             Loop
             DoEvents
             intBtnHwnd = FindWindowEx(intWinHwnd, 0, "Button", "确定")'确定是可以找到的
         Loop While intBtnHwnd = 0 '找到了就退出吧
        
         SendMessage intBtnHwnd, WM_LBUTTONDOWN, 0, ByVal 0&
         SendMessage intBtnHwnd, WM_LBUTTONUP, 0, ByVal 0&
     End If
End Sub代码大致这样,希望各位大神帮帮忙.谢谢了...................................

Answer 1

R3下想操作360和难很难，现在360对我们是这样的，它把Windows当作他老婆了，而且是那种后宫老婆，不允许别人看一眼的，所以他把老婆的内裤咋、内衣啊都是“量身定做”的，比如LZ上面想跑到后宫里面非礼他老婆，360自然不同意了。
比如前段时间那个金山XX不是想分他老婆一杯羹，结果被360无耻的暴菊了，唉
不过，肯定有人不择手段的弓虽奸360老婆的PS：我已经N年没用过360了，LZ可以试试mouse_event把，或许可以

Answer 2

不知道用AutoHotKey行不行，估计十有八九也不行。

Answer 3

LZ可以试试mouse_event把，或许可以
顶