快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

澳门新葡亰黑平台:Kugoo号码自动申请



软件源法度榜样如下:

本法度榜样加上界面即可实现全自动申请。

What's KuGoo? 什么是kugoo?

KuGoo是是专业的P2P音乐及文件传输软件。经由过程KuGoo,用户可以方便、 快捷、安然地实现 音乐查找,即时通讯,文件传输,文件共享等收集利用。与50万用户同分享。

文件传输方便快捷

搜索音乐在线下载

音乐谈天同时进行

文件共享轻松拥有

最新消息:2月8日,酷狗用户跨越100万!

300万首共享音乐,10000多在线音乐迷

注释没有加。由于主要只涉及几个api函数。盼望用获得的同伙可以用用

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpWindowName As String) As Long

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 ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare澳门新葡亰黑平台 Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo 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 L澳门新葡亰黑平台ong, ByVal cy As Long, ByVal wFlags 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

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) 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 Get澳门新葡亰黑平台WindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwn澳门新葡亰黑平台d As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Private Type POINTAPI'定义鼠标位置用

x As Long

y As Long

End Type

Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下

Const MOUSEEVENTF_LEFTUP = &H4'模拟鼠标左键抬起

Const WM_SETTEXT = &HC'设置文本框的值

Const GW_CHILD = 5'查找子控件

Const GW_HWNDNEXT = 2'查找下一个子控件

Const BM_CLICK = &HF5'发送单击事故

Private Const WM_CLOSE = &H10

Private ppt As POINTAPI

Private dddd, phnd As Long, tt

Private Const SYNCHRONIZE = &H100000

Const PROCESS_QUERY_INFORMATION = &H400

Private pid, pnd, ppd

Private Sub Command1_Click()

tt = 1

Timer1.Interval = 50

Randomize

a1 = Int((90 - 65 + 1) * Rnd + 65)

a2 = Int((90 - 65 + 1) * Rnd + 65)

a3 = Int((90 - 65 + 1) * Rnd + 65)

a4 = Int((90 - 65 + 1) * Rnd + 65)

a5 = Int((90 - 65 + 1) * Rnd + 65)

a6 = Int((90 - 65 + 1) * Rnd + 65)

Text2.Text = Chr$(a1) + Chr$(a2) + Chr$(a3) + Chr$(a4) + Chr$(a5) + Chr$(a6)

pid = Shell(App.Path + "\kugoo.exe", vbNormalFocus)

'"c:\Program Files\KuGoo\kugoo.exe", vbNormalFocus)

Sleep 1000

End Sub

Private Sub Command2_Click(澳门新葡亰黑平台)

Timer1.Interval = 0

End Sub

Private Function MyHotKey(vKeyCode) As Boolean'设置热键

MyHotKey = (GetAsyncKeyState(vKeyCode)0 And tt = 2 Then

SetWindowPos aa, -1, 0, 0, 0, 0, 3

bb = FindWindowEx(aa, ByVal 0&, "TPageControl", vbNullString)

cc = FindWindowEx(bb, ByVal 0&, vbNullString, "基础信息")

cc = FindWindowEx(cc, ByVal 0&, "TEdit", vbNullString)

ewnd = GetWindow(cc, GW_HWNDNEXT)

ewnd = GetWindow(ewnd, GW_HWNDNEXT)

ewnd = GetWindow(ewnd, GW_HWNDNEXT)

sendmessage ewnd, WM_SETTEXT, 0, ByVal Text1.Text

cc = FindWindowEx(aa, ByVal 0&, vbNullString, "下一步(&N) >")

sendmessage cc, BM_CLICK, 0, 0

Sleep 100

tt = 3

Exit Sub

End If

aa = FindWindow(vbNullString, "注册新用户 - 小我信息")

If aa ")

sendmessage cc, BM_CLICK, 0, 0

Sleep 100

tt = 4

Exit Sub

End If

aa = FindWindow(vbNullString, "注册新用户 - 安然信息")

If aa ")

sendmessage cc, BM_CLICK, 0, 0

tt = 5

Sleep 100

Exit Sub

End If

aa = FindWindow(vbNullString, "注册新用户 - 注册结果")

If aa4 Then

Open App.Path + "\kugoo.txt" For Append As #3

Print #3, CStr(number1) + "----" + Text2.Text

Close #3

Else

Call Command1_Click

End If

tt = 6

Me.Caption = CStr(number1)

PostMessage aa, WM_CLOSE, 0, 0

Sleep 100

Exit Sub

End If

aa = FindWindow(vbNullString, "登岸 Kugoo")

If aa0 Then

PostMessage aa, WM_CLOSE, 0, 0

Sleep 100

Exit Sub

End If

aa = FindWindow(vbNullString, "浏览文件夹")

If aa0 And tt = 6 Then

PostMessage aa, WM_CLOSE, 0, 0

Sleep 1000

Call Command1_Click

Exit Sub

End If

End Sub

您可能还会对下面的文章感兴趣: