Ja ich stell in den Thread mal ein paar skripts von TPT-Coding (is nen zusammenschluss von mir und einam Freaun, und wir proggen eig in c++, aba auch ein wenig in autoit^^)
So das erste is nen WinAmp spammer
er is noch nich ganz fertig^^
also:
zum spammen strg + m drücken und zum beenden bild hoch
C
$g_szVersion = "asdjkjkasdfjkasdjfjasdjkjfajdfsdjkfjkasdjfjkasdjfasdjkfjkjkasdfjk"
If WinExists($g_szVersion) Then Exit ; It's already running
AutoItWinSetTitle($g_szVersion)
#Include <Misc.au3>
#include <GUIConstants.au3>
Opt("SendKeyDelay", 0)
Opt("SendKeyDownDelay", 0)
Opt("TrayIconHide", 1)
$Form1 = GUICreate("WinAmp Spammer 4 everywhere", 298, 140, 228, 133, -1, $WS_EX_TOOLWINDOW)
GUICtrlCreateLabel("WinAmpstatus:", 0, 8, 75, 17)
$status = GUICtrlCreateLabel("OFF", 80, 0, 27, 22, $SS_SUNKEN)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("Spamstyle (use %s for currently played song!", 0, 32, 212, 17)
$Input1 = GUICtrlCreateInput(".:%s:.", 0, 56, 297, 31, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetColor(-1, 0xFF0000)
$start = GUICtrlCreateButton("Start", 0, 112, 89, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$About = GUICtrlCreateButton("About", 104, 112, 89, 25)
$Exit = GUICtrlCreateButton("Exit", 208, 112, 89, 25)
GUISetState(@SW_SHOW)
While 1
;~ msgbox(0, "", GUICtrlGetState($start))
if ProcessExists("winamp.exe") And GUICtrlGetState($start) = 144 Then
GUICtrlSetState($start, $GUI_ENABLE)
GUICtrlSetData($status, "ON")
GUICtrlSetColor($status, 0x00FFFF)
EndIf
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE or $msg = $exit
ExitLoop
Case $msg = $start
GUISetState(@sw_hide)
loop(guictrlread($input1))
EndSelect
WEnd
Exit
func loop($style)
While 1
If _IsPressed("21") Then
ExitLoop
ElseIf _IsPressed("11") AND _IsPressed("4D") Then
ShowMessage($style)
EndIf
sleep(20)
WEnd
Exit
EndFunc
Func ShowMessage($style)
;~ If getsong() = 0 then msgbox(0, "", "0")
$text = StringReplace($style, "%s", getsong())
Send($text, 1)
EndFunc
Func getsong()
If ProcessExists("winamp.exe") Then
$var = WinList()
For $i = 1 to $var[0][0]
If $var[$i][0] <> "" AND StringRight($var[$i][0], 6) = "WinAmp" Then
$song = StringReplace($var[$i][0], " - WinAmp", "")
$letters = Stringsplit($song, "")
For $x = 0 To $letters[0]
If $letters[$x] = "." Then
$count = $x
$x = $letters[0]
EndIf
Next
$letters = StringLeft($song, $count + 1)
$song = StringReplace($song, $letters, "")
Return $song
EndIf
Next
Else
$song = "not playing a song"
Return $song
EndIf
EndFunc
Alles anzeigen