本文目录一览：
- 1、谁能给我一个易语言的 *** 盗号源码啊 ！不会被杀的
- 2、求腾讯 *** 的Vb源代码
- 3、求vb杀死 *** 进程源代码，给10分，谢谢！
- 4、谁回用vb6.0来编一个 *** 盗密器
- 5、关于用VB *** *** 本地盗号程序的问题
谁能给我一个易语言的 *** 盗号源码啊 ！不会被杀的
加分 我发给你 我自己试过了的 还行 有教程 生成的是木马文件 我自己没开杀毒软件 不知会不会被杀毒软件查杀 但我发给了好友试了一下 不会被 *** 封杀
求腾讯 *** 的Vb源代码
楼主别天真了， *** 是VC++开发的，不可能有VB源代码。不过不知楼主要来干嘛，如果是通讯软件代码还是有的
求vb杀死 *** 进程源代码，给10分，谢谢！
shell "taskkill /f /im *** .exe"
=================
那就用WMI
Private Sub Command1_Click()
Set wmi = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In wmi
If obj.Name = " *** .exe" Then obj.Terminate
Next
End Sub
谁回用vb6.0来编一个 *** 盗密器
盗 *** 主要用hook
找到登录界面的句柄，获得号码和密码的句柄，纪录号码和密码。
我有一个拦截键盘的hook的代码，你参考下吧~！
——————————————————————————————
'以下在.Bas
Option Explicit
Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2
Public Sub UnHookKBD()
If hnexthookproc 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这三个叁数是固定的，不能动，而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf后的名称一样便可，不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code
'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function
MyKBHFunc = 0 '讯息要处理
If iCode 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '侦测 有没有按到PrintScreen键
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function
'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub
关于用VB *** *** 本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944