Un bot care se conecteaza pe DC si zice pe mainchat ce melodie asculti din winamp.De asemenea din bot poti controla winampu sa schimbi la urmatoarea melodie etc Momentan dau paste doar la sursa aici ca e simpla ..dak nu va iese zicetzi
1 Form
Private Sub chameleonButton1_Click() sock.Close sock.RemoteHost = Text1.Text sock.RemotePort = Text2.Text sock.Connect Timer2.Enabled = True End Sub Private Sub Command1_Click() SendMessage hwndWinamp, WM_COMMAND, 40044, 0 End Sub
Private Sub Command2_Click() SendMessage hwndWinamp, WM_COMMAND, 40048, 0 End Sub
Private Sub Command3_Click() SendMessage hwndWinamp, WM_COMMAND, 40045, 0 End Sub
Function Lock2Key(StrLock As String) As String Dim TLock2Key As String Dim TChar As Integer Dim rLock As String If Len(StrLock) < 3 Then Lock2Key = Left$("BROKENCLIENT", Len(StrLock)) Exit Function End If For i = 7 To Len(StrLock) If Mid$(StrLock, i, 3) = " Pk" Then i = Len(StrLock) Else rLock = rLock & Mid$(StrLock, i, 1) End If Next i TLock2Key = Chr$(Asc(Left$(rLock, 1)) Xor Asc(Right$(rLock, 1)) Xor Asc(Mid$(rLock, Len(rLock) - 1, 1)) Xor 5) For i = 2 To Len(rLock) TLock2Key = TLock2Key & Chr$(Asc(Mid$(rLock, i, 1)) Xor Asc(Mid$(rLock, i - 1, 1))) Next i For i = 1 To Len(TLock2Key) TChar = Asc(Mid$(TLock2Key, i, 1)) TChar = TChar * 16 + TChar \ 16 'Swap bits 11110000 -> 00001111 TChar = TChar Mod 256 If TChar = 0 Or TChar = 5 Or TChar = 36 Or TChar = 96 Or TChar = 124 Or TChar = 126 Then Lock2Key = Lock2Key & "/%DCN" & Right$("000" & TChar, 3) & "%/" Else Lock2Key = Lock2Key & Chr$(TChar) End If Next i End Function Private Sub Command4_Click() SendMessage hwndWinamp, WM_COMMAND, 40046, 0 End Sub
Private Sub Command5_Click() SendMessage hwndWinamp, WM_COMMAND, 40144, 0 End Sub
Private Sub Command6_Click() SendMessage hwndWinamp, WM_COMMAND, 40148, 0 End Sub
Private Sub Command7_Click() SendMessage hwndWinamp, WM_COMMAND, 40047, 0 End Sub
Private Sub Timer1_Timer() hwndWinamp = FindWindow("Winamp v1.x", vbNullString) Dim winamptitle As String winamptitle = Space$(2048) talle = GetWindowText(hwndWinamp, winamptitle, Len(winamptitle)) Label1.Caption = Mid(winamptitle, 1, Len(winamptitle) - End Sub
Private Sub Timer2_Timer() On Error Resume Next Dim varuser As String Dim varlock As String Dim varkey As String Dim rLock As String sock.GetData varlock, vbString For i = 1 To Len(varlock) If Mid(StrLock, i, 3) = " Pk" Then i = Len(varlock) Else rLock = rLock & Mid(varlock, i, 1) End If Next i varlock = rLock varkey = Lock2Key(varlock) Chat.Text = (varlock) sock.SendData "$Key " & varkey & "|" sock.SendData "$ValidateNick " + Text4.Text + "|" sock.SendData "$Version 1.0091|" sock.SendData "$MyINFO $ALL " + Text4.Text + " Music <++ V:0.401,M:A,H:2/0/0,S:5>$ $Satellite$$81245012693$|" sock.SendData "$GetNickList|" sock.GetData varuser, vbString sock.SendData "$GetINFO " + Text4.Text + " " + Text4.Text + "|" Timer3.Enabled = True Timer2.Enabled = False End Sub
Private Sub Timer3_Timer() On Error Resume Next sock.SendData "<" + Text4.Text + "> " + Text3.Text + " " + Text5.Text + " " + Label1.Caption + "|" Timer4.Enabled = True Timer3.Enabled = False End Sub
Private Sub Timer4_Timer() On Error Resume Next sock.SendData "$Quit " & Text4.Text & "|" sock.Close sock.RemoteHost = Text1.Text sock.RemotePort = Text2.Text sock.Connect Timer4.Enabled = False End Sub
2 Modul in care scrietzi:
Public hwndWinamp As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const WM_COMMAND = &H111
Winamp BOT – poza de Lord_DaZuRa, in Visual Basic · 54.9KB
