Skypespamer

Klarafall · 08/27/2010, 01:00

Hey Leute,
habe AutoIt für mich entdeckt und mal einen kleinen Skypespammer "entworfen".

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ###################
; # 	        Skypebot	      #
; #             Klarafall           #
; #		24.08.10	      #
; ###################


#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Skypespammer", 601, 401, 192, 124)
GUISetBkColor(0xFFFFFF)
$Skypebenutzername = GUICtrlCreateInput("Skypebenutzername", 32, 32, 273, 21)
$Start = GUICtrlCreateButton("Start", 232, 328, 177, 65, $WS_GROUP)
$Text1 = GUICtrlCreateInput("Spamtext", 32, 152, 481, 21)
$Input1 = GUICtrlCreateInput("Anzahl", 32, 192, 81, 21)
$Input2 = GUICtrlCreateInput("ID", 32, 250, 60, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlCreatePic (@ScriptDir& "\skype.jpg", 330,8 )

While 1

	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Start
			 $Senden1 = GUICtrlRead ($Text1)
			 $Anzahl1 = GUICtrlRead ($Input1)
			 $ID = GUICtrlRead ($Input2)
			 $Name = GUICtrlRead ($Skypebenutzername)
			 For $i = 0 to $Anzahl1
			 ControlSend ("Skype™ - " & $Name, "", "TChatRichEdit.UnicodeClass" & $ID, $Senden1 & "{Enter}")
			 Next

	EndSwitch
WEnd

Jetzt hab ich ein Problem: Da der Spam-Text dirket den das Edit-Feld (Chatfeld) von Skype geschrieben wird, ändert sich, je nach dem welches Chatfeld ich von meinen Kontakten offen habe, die Edit ID. Öffne ich z.B. als erstes nach dem starten von Skype den Kontak "Hanswurst", hat er die Edit ID 1. Danach öffne ich von "Olgawurst" den Kontakt. Sie hat dementsprechend die ID 2. Was kann ich da machen?

Wenn ihr weitere Verbesserungsvorschläge habt: Immer her damit

MfG

WiiZocker · 08/27/2010, 15:24

Also mit den ID's weiß ich nicht WARUM du die brauchst, könntest du mir das mal sagen?
Aber hätte gerade keine lösung.

Du solltest vllt noch nen Winactive reinbauen, damit nicht sovort gespammt wird sondern erst wenn skype aktiv ist.

Und einen benutzernamen brauchst du nicht.
Es reicht wenn es heißt:
Controlsend("Skype -",'','',$Senden1 & "{ENTER}")

Ich weiß nicht aber vllt könnte es dir helfen wenn du in mein spammer reinschaust /:
Ich habe allerdings keine Gui^^

Code:

HotKeySet ("{ESC}" , "Ende")
$Text = InputBox("TEXT","Was soll geschrieben werden?")
$Dauer = InputBox("DAUER","Wie oft soll gespammt werden?")
$Zaehler = 0
While 1
	If WinActive("Skype") Then
	ControlSend("Skype",'','',$Text)
	ControlSend("Skype",'','',"{Enter}")
	$Zaehler = $Zaehler + 1
	
	If $Zaehler == $Dauer Then
		Exit
		EndIf
	EndIf
WEnd
Func Ende()
	Exit
EndFunc

Ich habe aber statt einer For schleife einen zähler eingebaut.

Musst mal sehen was du daraus verwenden könntest ;D

Klarafall · 08/27/2010, 15:30

ich qweiß nicht ob du den Befehl ControlSend kennst, aber der beinhaltet auch das WinWaitActivate.

Quote:

ControlSend ("Skype™ - " & $Name, "", "TChatRichEdit.UnicodeClass" & $ID, $Senden1 & "{Enter}")

Und die ID brauche ich, damit der Spammer den Text in das Eingabefeld schreibt und nicht irgendwo anders.

WiiZocker · 08/27/2010, 15:53

Achso, es soll also komplett im hintergrund laufen?

bassbanane · 08/27/2010, 15:57

Versuch doch aus dem Speicher auszulesen, welche ID gerade aktiv ist.
Also mal ein wenig mit CheatEngine nachschauen und dann mit NomadMemory auslesen und die dementsprechende ID dann einfügen

Klarafall · 08/27/2010, 17:39

Wenn ich mich Lsut hab werde ich das mal ausprobieren.