[B] MSN Ringer

[Spliti]

ahja und was für ein Virus soll das sein?

[krusty]

is doch kein virus oO
kannst mir den source code vlt mal schicken =DD
ich finds richtig lustig ;D

[jdot]

lustiges tool und funktioniert. ;D
weiter so.

[KillerBoy-Dennis]

Krieg ich bitte auch den Sourcecode?

[Razzer60]

Hats eigentlich jemand tested?
Alle schreiben super.. Aber keiner probierts.^^

[Shadowman06]

Schaut ganz intresant aus hmm...




GLOBAL Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_EVENT_MINIMIZE = -4
Global Const $GUI_EVENT_RESTORE = -5
Global Const $GUI_EVENT_MAXIMIZE = -6
Global Const $GUI_EVENT_PRIMARYDOWN = -7
Global Const $GUI_EVENT_PRIMARYUP = -8
Global Const $GUI_EVENT_SECONDARYDOWN = -9
Global Const $GUI_EVENT_SECONDARYUP = -10
Global Const $GUI_EVENT_MOUSEMOVE = -11
Global Const $GUI_EVENT_RESIZED = -12
Global Const $GUI_EVENT_DROPPED = -13
Global Const $GUI_RUNDEFMSG = "GUI_RUNDEFMSG"
Global Const $GUI_AVISTOP = 0
Global Const $GUI_AVISTART = 1
Global Const $GUI_AVICLOSE = 2
Global Const $GUI_CHECKED = 1
Global Const $GUI_INDETERMINATE = 2
Global Const $GUI_UNCHECKED = 4
Global Const $GUI_DROPACCEPTED = 8
Global Const $GUI_NODROPACCEPTED = 4096
Global Const $GUI_ACCEPTFILES = $GUI_DROPACCEPTED
Global Const $GUI_SHOW = 16
Global Const $GUI_HIDE = 32
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $GUI_FOCUS = 256
Global Const $GUI_NOFOCUS = 8192
Global Const $GUI_DEFBUTTON = 512
Global Const $GUI_EXPAND = 1024
Global Const $GUI_ONTOP = 2048
Global Const $GUI_FONTITALIC = 2
Global Const $GUI_FONTUNDER = 4
Global Const $GUI_FONTSTRIKE = 8
Global Const $GUI_DOCKAUTO = 1
Global Const $GUI_DOCKLEFT = 2
Global Const $GUI_DOCKRIGHT = 4
Global Const $GUI_DOCKHCENTER = 8
Global Const $GUI_DOCKTOP = 32
Global Const $GUI_DOCKBOTTOM = 64
Global Const $GUI_DOCKVCENTER = 128
Global Const $GUI_DOCKWIDTH = 256
Global Const $GUI_DOCKHEIGHT = 512
Global Const $GUI_DOCKSIZE = 768
Global Const $GUI_DOCKMENUBAR = 544
Global Const $GUI_DOCKSTATEBAR = 576
Global Const $GUI_DOCKALL = 802
Global Const $GUI_DOCKBORDERS = 102
Global Const $GUI_GR_CLOSE = 1
Global Const $GUI_GR_LINE = 2
Global Const $GUI_GR_BEZIER = 4
Global Const $GUI_GR_MOVE = 6
Global Const $GUI_GR_COLOR = 8
Global Const $GUI_GR_RECT = 10
Global Const $GUI_GR_ELLIPSE = 12
Global Const $GUI_GR_PIE = 14
Global Const $GUI_GR_DOT = 16
Global Const $GUI_GR_PIXEL = 18
Global Const $GUI_GR_HINT = 20
Global Const $GUI_GR_REFRESH = 22
Global Const $GUI_GR_PENSIZE = 24
Global Const $GUI_GR_NOBKCOLOR = -2
Global Const $GUI_BKCOLOR_DEFAULT = -1
Global Const $GUI_BKCOLOR_TRANSPARENT = -2
Global Const $GUI_BKCOLOR_LV_ALTERNATE = -33554432
Global Const $GUI_WS_EX_PARENTDRAG = 1048576
#region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\sergej\desktop\neuer ordner (5)\forms\msn.kxf
$MSN = GUICreate("MSN", 243, 94, 285, 170)
GUISetBkColor(12632256)
$PIC1 = GUICtrlCreatePic("abc.jpg", 0, 0, 241, 100, 0)
$RING = GUICtrlCreateGroup("Ring", 8, 8, 225, 65)
GUICtrlSetBkColor(-1, 16777215)
$A = GUICtrlCreateButton("5x", 16, 32, 60, 25, 0)
$B = GUICtrlCreateButton("10x", 90, 32, 60, 25, 0)
$C = GUICtrlCreateButton("25x", 163, 32, 60, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $A
For $I = 1 To 5
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("Windows Live Messenger", "http://rad.msn.com/A")
If Not WinActive("Windows Live Messenger", "http://rad.msn.com/A") Then WinActivate("Windows Live Messenger", "http://rad.msn.com/A")
WinWaitActive("Windows Live Messenger", "http://rad.msn.com/A")
Send("{ENTER}")
Sleep(250)
Send("{ALT}+t+r")
Send("{ESC}")
Sleep(650)
Next
Case $B
For $I = 1 To 10
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("Windows Live Messenger", "http://rad.msn.com/A")
If Not WinActive("Windows Live Messenger", "http://rad.msn.com/A") Then WinActivate("Windows Live Messenger", "http://rad.msn.com/A")
WinWaitActive("Windows Live Messenger", "http://rad.msn.com/A")
Send("{ENTER}")
Sleep(250)
Send("{ALT}+t+r")
Send("{ESC}")
Sleep(650)
Next
Case $C
For $I = 1 To 25
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("Windows Live Messenger", "http://rad.msn.com/A")
If Not WinActive("Windows Live Messenger", "http://rad.msn.com/A") Then WinActivate("Windows Live Messenger", "http://rad.msn.com/A")
WinWaitActive("Windows Live Messenger", "http://rad.msn.com/A")
Send("{ENTER}")
Sleep(250)
Send("{ALT}+t+r")
Send("{ESC}")
Sleep(650)
Next
EndSwitch
WEnd


Ps. Naja eigentlich ja ganz einfach warten bis in des messenger fenster geklickt wird per shortcut die gewählte person nachricht senden wählen und dann wieder shortcut ringing fesnter schließen und des eben ne bestimmte anzahl lang wiederholen

[Spliti]

jap =) hier ist version 2


DOWNLOAD NEW VERSION

[Shadowman06]

1. ich hätt eigentlich n schiebreglererwartet
2. mach eds raus dass ma des ding nur in der taskleiste ausschalten kann
3. geh bei selbstgemachten programmen lieber immer nur 0,1 stellen (am besten noch weniger) bei der programmversion hoch sonst bis du nach 1ner Woche auf version 100

Added after 3 hours 13 minutes:

Ich hab des jetzt auch mal Programmiert machn neuen Thread auf kannst ja anschaun