CPA全自动安装VB原码
本帖最后由 mengl520 于 2011-9-8 17:43 编辑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原码
配合虚伪桌面使用效果更好,就能全部隐藏
能不能翻译成易语言的丫？ 不懂看代码 先去百度下CPA一点一点积累 额 cpa百度怎么解释是注册会计师 ，郁闷 这个源码干嘛用的
页:
[1]