Kugoo号码自动申请

原创 2004年03月18日 12:34:00

软件源程序如下:

本程序加上界面即可实现全自动申请。

CSDN_Dev_Image_2004-3-172102051.gif   What's KuGoo? 什么是kugoo?
 

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

CSDN_Dev_Image_2004-3-172102051.gif   文件传输  方便快捷
CSDN_Dev_Image_2004-3-172102051.gif   搜索音乐  在线下载
CSDN_Dev_Image_2004-3-172102051.gif   音乐聊天  同时进行
CSDN_Dev_Image_2004-3-172102051.gif   文件共享  轻松拥有

最新消息: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 Long, 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 GetWindowTextLength 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 hwnd 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)
End Function

Private Sub Timer1_Timer()
If MyHotKey(vbKeyF2) Then
    Timer1.Interval = 0                                            '如果是F2那么停止
    MsgBox "stop!", vbOKOnly, "warning!"
    Exit Sub
End If
aa = FindWindow(vbNullString, "注册新用户 - 基本信息")
If aa <> 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 <> 0 And tt = 3 Then
    SetWindowPos aa, -1, 0, 0, 0, 0, 3
    cc = FindWindowEx(aa, ByVal 0&, vbNullString, "下一步(&N) >")
    sendmessage cc, BM_CLICK, 0, 0
    Sleep 100
    tt = 4
    Exit Sub
End If
aa = FindWindow(vbNullString, "注册新用户 - 安全信息")
If aa <> 0 And tt = 4 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)
    sendmessage cc, WM_SETTEXT, 0, ByVal Text2.Text
    cc = GetWindow(cc, GW_HWNDNEXT)
    sendmessage cc, WM_SETTEXT, 0, ByVal Text2.Text
    cc = GetWindow(cc, GW_HWNDNEXT)
    sendmessage cc, WM_SETTEXT, 0, ByVal Text2.Text
    cc = FindWindowEx(aa, ByVal 0&, vbNullString, "下一步(&N) >")
    sendmessage cc, BM_CLICK, 0, 0
    tt = 5
    Sleep 100
    Exit Sub
End If
aa = FindWindow(vbNullString, "注册新用户 - 注册结果")
If aa <> 0 And tt = 5 Then
    SetWindowPos aa, -1, 0, 0, 0, 0, 3
    bb = FindWindowEx(aa, ByVal 0&, "TPageControl", vbNullString)
    cc = FindWindowEx(bb, ByVal 0&, vbNullString, "注册结果")
    cc = GetWindow(cc, GW_CHILD)
    cc = GetWindow(cc, GW_CHILD)
    mystr$ = Space$(GetWindowTextLength(cc) + 1)
    GetWindowText cc, mystr$, Len(mystr$)
    number1 = Left$(mystr$, 7)
    If Len(number1) > 4 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 aa <> 0 And tt = 1 Then
    SetWindowPos aa, -1, 0, 0, 0, 0, 3
    bb = FindWindowEx(aa, ByVal 0&, "TPanel", vbNullString)
    bb = FindWindowEx(bb, ByVal 0&, "TPanel", vbNullString)
    ppt.x = 0: ppt.y = 0
    ClientToScreen bb, ppt
    If ppt.x < 100 Then Exit Sub
    SetCursorPos ppt.x + 100, ppt.y + 20
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    tt = 2
    Sleep 100
    Exit Sub
End If
aa = FindWindow(vbNullString, "KuGoo共享")
If aa <> 0 Then
    PostMessage aa, WM_CLOSE, 0, 0
    Sleep 100
    Exit Sub
End If
aa = FindWindow(vbNullString, "浏览文件夹")
If aa <> 0 Then
    PostMessage aa, WM_CLOSE, 0, 0
    Sleep 100
    Exit Sub
End If
aa = FindWindow(vbNullString, "KuGoo")
If aa <> 0 And tt = 6 Then
    PostMessage aa, WM_CLOSE, 0, 0
    Sleep 1000
    Call Command1_Click
    Exit Sub
End If
End Sub

免费申请 DUNS 号码

关于如何免费申请 DUNS 号码,请您参考以下信息: 公司版和企业版的 iOS 开发者帐号申请是需要DUNS 号码。 请您首先使用以下链接免费获取DUNS 号码,以...
  • liufp
  • liufp
  • 2016年03月10日 16:14
  • 653

如何申请美国虚拟电话号码

第一、拥有美国虚拟号码的作用 欧美的网站会提供各种各样的免费使用服务,但是他为了限制恶意注册用户,会要求你提供手机短信的验证。 海外代购网站,你想在线下单,你可能需要一个美国当地注册的手机号 第二...
  • huangbangqing12
  • huangbangqing12
  • 2016年01月18日 09:47
  • 3315

9位长的QQ号——自己来拿吧(同学无聊用软件申请了一堆),谁拿了的在下面回复一下,方便大家check哪些已经被拿走了

342917831----ED9ejaODgrc4447667155----2ErJ70MEtUqO417640114----VpW5cmQNOA6j303725548----gZARwZX4L5z...
  • redv
  • redv
  • 2004年12月26日 17:08
  • 1988

怎么让 手机号码 自动分割!

很简单。你只要花上一分钟,你就知道怎么做了! final EditText et_phone = (EditText) findViewById(R.id.et_phone); ...
  • NingZhouXu
  • NingZhouXu
  • 2016年08月25日 15:45
  • 890

常用短信sp号头介绍

106通道一般是指短信通道:国内短信通道主要分为:106通道、电信虚拟短信通道:电话区号(类似021)的、1069三网合一企业实名制通道,106通道一般显示为:106通道(10657/10658移动,...
  • zhulinu
  • zhulinu
  • 2013年12月31日 17:18
  • 3574

如何自动拨打复杂的电话号码

如电话号码是66812345,内线是1234,语言选项是#1#,问题选项是123。 String phonenumber = "66812345,1234,#1#,123"; // , = pa...
  • sheepkx
  • sheepkx
  • 2011年09月22日 01:00
  • 337

Asterisk自动外拨(auto-dial out)功能介绍

Asterisk的Call文件 Asterisk的call文件是结构化的文件,只要符合其规定的结构并放到指定的目录内,Asterisk就会根据文件自动执行外乎动作。 Asterisk call文件是...
  • liu_changliang
  • liu_changliang
  • 2011年08月03日 17:05
  • 1010

ABAP--如何创建和使用sap的号码范围对象

创建号码范围对象: 1.     使用TCODE:SNRO (Simple way to remember is SapNumberRangeObject). 2.      输入号码范围对象的名称...
  • CompassButton
  • CompassButton
  • 2007年09月17日 11:03
  • 2814

苹果开发者账号之DUNS查询与申请

1. 首先登陆苹果开发者中心:https://developer.apple.com/programs/ 如图有一个按钮enroll,意思是苹果开发者报名(说白了就是要交钱,好让你具备APP测试和上线...
  • u011342204
  • u011342204
  • 2015年06月24日 10:18
  • 8166

HTML练习---QQ号码申请

百度一下,你就知道 申请免费账号首页|反馈意见 网页免费申请   QQ靓号申请   手机申请 填写信息申请成功 昵称: 头像: 性别: 女 男 密码: 6-...
  • gengzhi1293443962
  • gengzhi1293443962
  • 2016年10月12日 16:50
  • 566
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Kugoo号码自动申请
举报原因:
原因补充:

(最多只允许输入30个字)