qwee

The file it's gonna search for is Profiles.xml Then it gonna mail it to my e-mail via smtp, and remove itself after 2 days.

Hey. You think you guys can help me with a little program? What it's gonna do: Search the whole computer for a specific file (filename.txt) then send that file to a mail (using SMTP, which I've already fixed) and repeat that every 4 hour, and remove itself from autostart + kill itself after 2 days. Do you think you guys can help me? Remove itself from autostart: RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "RegKey") But how do I make it remove itself after 2 days?

Hey! Question #1: I only want the "real" script to run if a specific window is open, here is my code (remade): While 1 If WinActivate("Untitled - Notepad") Then While 2 run("mspaint.exe") WEnd Else Sleep(10) EndIf WEnd So if the current active window is "Untitled - Notepad" I want the script to start mspaint.exe Question #2: I want to crypt my sourcecode, so other users can't just open it and read the text with a decompiler for autoit. Is there any UDF, if it is, how do I install it? Thanks in advance!

Hey! Working on a small project. What I need: A way for the file to remove it self after 48hours, remove the autostart file and remove a text file and the exe file. Also to kill the proess ofc. Any ideas?

http://www.autoitscript.com/forum/index.ph...mp;#entry137837

Well, I'm sorry if I post alot of total noob questions but I'm learning on my mistakes ^^ Well, to the problem. As some of you might know I'm re-coding a bot for Diablo II so it can be run minimized. This is the error I got: >"C:\Program\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Användare\Nikke\Skrivbord\minimizer\_[Kuk-Bot starter]_.au3" C:\Användare\Nikke\Skrivbord\minimizer\Minimize.au3 (68) : ==> Subscript used with non-Array variable.: $borderwidth = ($winsize[2] - 800) / 2 $borderwidth = ($winsize^ ERROR >Exit code: 1 Time: 1.060oÝ÷ Ø*x«¤lµªíz¶®Ý«­¢+Øìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô(íMµ½ÉÌäíÌ¥±¼%$1=5¥¹¤== ½¹Ñɽ±±È½È Ñѱ¹Ð(íYÉÍ¥½¸Ä¸À(ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô)½ÁÐ ÅÕ½ÐíA¥á± ½½É5½ÅÕ½Ðì°È¤)½ÁÐ ÅÕ½Ðí5½ÕÍ ½½É5½ÅÕ½Ðì°À¤(í½ÁÐ ÅÕ½ÐíIÕ¹ÉɽÉÍÑ°ÅÕ½Ðì°À¤)½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÈÀÀ¤()±½°ÀÌØíIÍѽÉI±´ôÀì((ÀÌØíIÕ¹1½½ÀôÀ(ÀÌØí ÕÉÉ¹Ñ ­äô%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí ½¹¥¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíMÑÑ¥¹ÌÅÕ½Ðì°ÅÕ½Ðí1ÍÑ ­åÕÍÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤((%¹±ÕÅÕ½Ðí%¹¥I¹ÔÌÅÕ½Ðì(%¹±ÕÅÕ½Ðí ¡­Íյ̹ÔÌÅÕ½Ðì(%¹±ÕÅÕ½Ðí5¥¹¥µ¥é¹ÔÌÅÕ½Ðì()%ÀÌØí ­å ½Õ¹ÐÐìÀQ¡¸(%MÑ9áÑ ­ä ¤)¹%()¥± ½Áä¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí}ÑÍÀäÈíÕÍÅÕ½Ðì°ÀÌØíÉAÑ¡9µµÀìÅÕ½ÐìÀäÈíÑÀäÈí±½°ÀäÈíÕÍÅÕ½Ðì°ä¤((íµÍ½à ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØí½ÉÉÝ¥Ñ µÀìÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíѥѱ¡¥¡Ð¤()%]¥¹á¥ÍÑÌ ÀÌØíÉ]¥¹9µ¤Q¡¸(5Í ½à À°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðí1½½­Ì±¥­ÈÝ¥¹½Ü¥Ì±Éä½Á¸ÌÌì ±½Í¥Ð½É±Õ¹¡¥¹Ñ¡½Ð¸ÅÕ½Ðì¤(á¥Ð)¹%()1¥¹± ÅÕ½ÐíM¡½ÝMÕ´ÅÕ½Ðì°ÈÀÀ¤í½ÈÕ¥¹¸¸¸ÉÁ±Ñ¡¡­ÍÕ´¥¸M¡½ÝMÕ´ ¤Ñ¼©ÕÍÐÝ¡ÐѼ±½½¬½È()%1Õ¹¡È ¤ôÀQ¡¸(5Í ½à À°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðí= ¹½ÌÌÌìÝ¥±Ñ¼±½¥¸ÌÌì ÑÑÈ¡¬Ñ¡Éɽȱ½Ñ¼¥¹½ÕÐݡ丸¸ÅÕ½Ðì¤(á¥Ð)±Í(1½Ù¹Ð À°ÅÕ½Ðí1Õ¹¡¥±¼%$¹ÍÕÍÍÕ±±ä±½¥¸Ñ¼Ñ¡1½ä¸ÅÕ½Ðì¤)¹%()¥ ÀÌØíUÍôĤ=H ÀÌØíUÍôȤQ¡¸(% ¡¹¹±)½¥¸ ¤)¹¥((ì()Õ¹ ¡¹¹±)½¥¸ ¤(%½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÐÀ¤(%}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°äÀ´ÀÌØí½ÉÉÝ¥Ñ °ÐÜÀ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Mɹ]¥Ð ÅÕ½Ðí ¡¹¹°ÅÕ½Ðì°ÄÔÀÀÀ¤(%¥ÀÌØíUÍôÄQ¡¸(% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ð콨ÅÕ½ÐìµÀìÀÌØí ¡¹¹±|°Ä¤(% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí9QIôÅÕ½Ðì¤($%M±À ÜÔÀ¤(%¹¥(% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØí%¹¥Ñ5M°Ä¤(% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí9QIôÅÕ½Ðì¤(%M±À ÜÔÀ¤(%½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÈÀÀ¤)¹Õ¹()Õ¹ ¡¹¹±5M ÀÌØíQ¡5ÍÍ9½Ü¤)¥ ÀÌØíUÍôĤ=H ÀÌØíUÍôȤQ¡¸(%½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÐÀ¤(%}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÌÔ´ÀÌØí½ÉÉÝ¥Ñ °ÐÌÀ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Í ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíQ¡5ÍÍ9½Ü°Ä¤(% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíí9QIôÅÕ½Ðì¤(%M±À ÜÔÀ¤(%½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÈÀÀ¤)¹¥)¹Õ¹((ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô(í5¥¸1½½Àèe½ÕȽ½Ì¡ÉÌÌì(ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô)]¡¥±Ä(½ÈÀÌØíIÕ¹ ½Õ¹ÐôÄQ¼ääää(ÀÌØíIÕ¹1½½ÀôÀÌØíIÕ¹1½½À¬Ä(% Éѵ ¤ôÄQ¡¸(ÀÌØí¥¹}|ôQ¥µÉ%¹¥Ð ¤(Ý¡¥± ¡Mɹ ¡¬ ÅÕ½Ðí1½äÅÕ½Ðì¤ôÀ¤9¡Mɹ ¡¬ ÅÕ½Ðí ¡¹¹°ÅÕ½Ðì¤ôÀ¤¤(M±À ÄÀÀÀ¤(%¡Q¥µÉ¥ ÀÌØí¥¹}|¤Ðì%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí ½¹¥¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíMÑÑ¥¹ÌÅÕ½Ðì°ÅÕ½ÐíµQ¥µ½ÕÐÅÕ½Ðì°ÅÕ½ÐìÄÈÀÀÀÀÅÕ½Ð줤Q¡¸(á¥Ñ1½½À(¹%(ݹ(% ÀÌØíIÕ¹1½½ÀÐìä¤9 ÀÌØí ­å ½Õ¹ÐÐìÀ¤Q¡¸(M±À ÄÀÀÀ¬ ÀÌØíµ Éѱä¨ÄÀÀÀ¤¤(±Í(M±À ÔÀÀÀ¬ ÀÌØíµ Éѱä¨ÄÀÀÀ¤¤(¹%(±Í(ÀÌØíIÕ¹1½½ÀôÀ(1½Ù¹Ð À°ÅÕ½ÐíIÍÑÉÑ¥¹È´9Ü­åÌÌÌìÌÌì¡%Ù¥±±¤ÅÕ½Ðì¤(½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°Ô¤(É-¥±° ¤($$¥ÀÌØí ­å ½Õ¹ÐÐìÀQ¡¸($$%MÑ9áÑ ­ä ¤($$¹¥(½ÈÀÌØí±½½ÁôÄѼÔÀ(%1Õ¹¡È ¤ôÀQ¡¸(1½Ù¹Ð À°ÅÕ½Ðí¥±Ñ¼±½¥¸ÅÕ½ÐìµÀìÀÌØí±½½Á¤(É-¥±° ¤(M±À ÌÀÀÀÀÀ¤(±Í(á¥Ñ1½½À(¹%(9áÐ(½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÈÀÀ¤($%¥ ÀÌØíUÍôĤ=H ÀÌØíUÍôȤQ¡¸($$$ ¡¹¹±)½¥¸ ¤($%¹¥(¹%(% ÀÌØíIÕ¹1½½ÀÐìä¤9 ÀÌØí ­å ½Õ¹ÐÐìÀ¤Q¡¸($$ ¡¹¹±5M ÀÌØí1½½ÕÑ5M¤(ÀÌØíIÕ¹1½½ÀôÀ(1½Ù¹Ð À°ÅÕ½ÐíIÍÑÉÑ¥¹È´9Ü­åÌÌÌìÌÌì¡%Ù¥±±¤ÅÕ½Ðì¤(½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°Ô¤(É-¥±° ¤(MÑ9áÑ ­ä ¤(½ÈÀÌØí±½½ÁôÄѼÔÀ(%1Õ¹¡È ¤ôÀQ¡¸(1½Ù¹Ð À°ÅÕ½Ðí¥±Ñ¼±½¥¸ÅÕ½ÐìµÀìÀÌØí±½½Á¤(É-¥±° ¤(M±À ÌÀÀÀÀÀ¤(±Í(á¥Ñ1½½À(¹%(9áÐ(½ÁÐ ÅÕ½ÐíM¹-å±äÅÕ½Ðì°ÈÀÀ¤($$¥ ÀÌØíUÍôĤ=H ÀÌØíUÍôȤQ¡¸($$$ ¡¹¹±)½¥¸ ¤($%¹¥(¹%(í ¡¥­¸ ¤(íá¥Ð(9áÐ)]¹(ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô()Õ¹MÑ9áÑ ­ä ¤()% ÀÌØí ­å ½Õ¹Ð$ÐìĤQ¡¸($ÀÌØí ±-å}4ôÅÕ½ÐìÀäÈíÑÀäÈí±½°ÀäÈíÍàÀäÈíÕÉͽÈÀäÈíÝÙ¥¹à¹ÝØÅÕ½Ðì($ÀÌØíáÁ-å}4ôÅÕ½ÐìÀäÈíÑÀäÈí±½°ÀäÈí¡ÉÌÀäÈí´ÀäÈí½ÀäÈíµ±á½Ü¹½ÅÕ½Ðì(%%¡¥± ½Áä¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí ­åÌÀäÈìÅÕ½ÐìµÀìÀÌØí ÕÉÉ¹Ñ ­äµÀìÅÕ½ÐìÀäÈíÝÙ¥¹à¹ÝØÅÕ½Ðì°ÀÌØíÉAÑ¡9µµÀìÀÌØí ±-å}4°ä¤ôĤ9¡¥± ½Áä¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí ­åÌÀäÈìÅÕ½ÐìµÀìÀÌØí ÕÉÉ¹Ñ ­äµÀìÅÕ½ÐìÀäÈíµ±á½Ü¹½ÅÕ½Ðì°ÀÌØíÉAÑ¡9µµÀìÀÌØíáÁ-å}4°ä¤ôĤQ¡¸($1½Ù¹Ð À°ÅÕ½Ðí ­äÝÌ¥¹©ÑÍÕÍÍÕ±±äøÅÕ½ÐìµÀìÀÌØí ÕÉÉ¹Ñ ­ä¤(%±Í($1½Ù¹Ð À°ÅÕ½Ðí ­äÝÌ9=P¥¹©ÑÍÕÍÍÕ±±äøÅÕ½ÐìµÀìÀÌØí ÕÉÉ¹Ñ ­ä¤(%¹%($($ÀÌØí ÕÉÉ¹Ñ ­äôÀÌØí ÕÉÉ¹Ñ ­ä¬Ä(%¥ ÀÌØí ­å ½Õ¹Ð±ÐìÀÌØí ÕÉÉ¹Ñ ­ä¤Q!8($ÀÌØí ÕÉÉ¹Ñ ­äôÄ(%¹¥($(%%¹¥]ɥѡMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí ½¹¥¹¥¹¤ÅÕ½Ðì°ÅÕ½ÐíMÑÑ¥¹ÌÅÕ½Ðì°ÅÕ½Ðí1ÍÑ ­åÕÍÅÕ½Ðì°ÀÌØí ÕÉÉ¹Ñ ­ä¤)¹%($)¹Õ¹((í1Õ¹¡ÌÈ°±½Ì¥¸°¹ÑÌå½ÔѼѡ±½ä¸IÑÕɹÌÀ¥¥±°Ä¥ÍÕÍ̸)Õ¹1Õ¹¡È ¤(1½Ù¹Ð À°ÅÕ½ÐíMµ½ÉÌäíÌ5¥¹¤==½¹Ñɽ±±È¥Ì±Õ¹¡¥¹¥±¼%$1=½È Ñѱ¹Ð¸¸¸ÅÕ½Ðì¤(%IÕ¸ ÀÌØíÉAÑ¡9µµÀìÅÕ½ÐìÀäÈìÅÕ½ÐìµÀìÀÌØíÉáÕѱµÀìÅÕ½ÐìÅÕ½ÐìµÀìÀÌØíAɵÑÉÌ°ÀÌØíÉAÑ¡9µ¤ôÀQ¡¸(1½Ù¹Ð Ä°ÅÕ½Ðí¥±Ñ¼±Õ¹ ¥±¼ÐÅÕ½ÐìµÀìÀÌØíÉAÑ¡9µµÀìÅÕ½ÐìÀäÈìÅÕ½ÐìµÀìÀÌØíÉáÕѱµÀìÅÕ½Ðì ¡¬å½ÕÈÉAÑ¡9µ­ä¥¸ ½¹¥¹¥¹¤ÅÕ½Ðì¤(IÑÕɸÀ(±Í(1½Ù¹Ð À°ÅÕ½ÐíÈ1½ÍÕÍÍÕ±±äÌÌìÅÕ½Ðì¤(¹%(]¥¹]¥ÑÑ¥Ù ÀÌØíÉ]¥¹9µ¤(%½ÈÀÌØí­Õ¬ôÄѼÄÀÀÀ($$ÀÌØí]%9Í¥éô]¥¹ÑA½Ì ÀÌØíÉ]¥¹9µ¤($%¥ ÀÌØí]%9Í¥élÉtÐìàÀÀ¤Ñ¡¸($$%á¥Ñ±½½À($%±Í($$%ͱÀ ÄÀÀ¤($%¹¥(%9áÐ(]¥¹5½Ù ÀÌØíÉ]¥¹9µ°ÅÕ½ÐìÅÕ½Ðì°À°À¤(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÄÀÀ´ÀÌØí½ÉÉÝ¥Ñ °ÄÀÀ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Mɹ]¥Ð ÅÕ½ÐíQ¥Ñ±MɸÅÕ½Ðì°ÄÔÀÀÀ¤ôÀQ¡¸IÑÕɸÀ(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÌäдÀÌØí½ÉÉÝ¥Ñ °ÌÔÌ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Mɹ]¥Ð ÅÕ½Ðí1½¥¹MɸÅÕ½Ðì°ÈÀÀÀÀ¤ôÀQ¡¸IÑÕɸÀ(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÐÜÜ´ÀÌØí½ÉÉÝ¥Ñ °ÌÌØ´ÀÌØíQ¥Ñ±!¥¡Ð¤(M±À ÀÌØí5¹ÕMÑÑ¥±ä¤( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØí°Ä¤(M±À ÀÌØí5¹ÕMÑÑ¥±ä¤( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííQ ôÅÕ½Ðì¤(M±À ÀÌØí5¹ÕMÑÑ¥±ä¤( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØí@°Ä¤(M±À ÀÌØí5¹ÕMÑÑ¥±ä¤(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÌäÔ´ÀÌØí½ÉÉÝ¥Ñ °ÐÜÀ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Mɹ]¥Ð ÅÕ½Ðí ¡ÉÑÉM±ÐÅÕ½Ðì°ÈÀÀÀÀ¤ôÀQ¡¸IÑÕɸÀ($($ÀÌØía±¥àôÀ($ÀÌØíe±¥àôÀ($%%ÀÌØí ¡ÉM±½ÐôÄQ¡¸($$ÀÌØía±¥àôÄàÀ($$ÀÌØíe±¥àôÄÌÀ($±Í%ÀÌØí ¡ÉM±½ÐôÈQ¡¸($$ÀÌØía±¥àôÐÔÀ($ÀÌØíe±¥àôÄÌÀ($±Í%ÀÌØí ¡ÉM±½ÐôÌQ¡¸($$ÀÌØía±¥àôÄàÀ($ÀÌØíe±¥àôÈÈÔ($±Í%ÀÌØí ¡ÉM±½ÐôÐQ¡¸($$ÀÌØía±¥àôÐÔÀ($ÀÌØíe±¥àôÈÈÔ($±Í%ÀÌØí ¡ÉM±½ÐôÔQ¡¸($$ÀÌØía±¥àôÄÜÄ($ÀÌØíe±¥àôÌÄà($±Í%ÀÌØí ¡ÉM±½ÐôØQ¡¸($$ÀÌØía±¥àôÐÐÜ($ÀÌØíe±¥àôÌÄÔ($±Í%ÀÌØí ¡ÉM±½ÐôÜQ¡¸($$ÀÌØía±¥àôÄàÀ($ÀÌØíe±¥àôÐÄÀ($±Í%ÀÌØí ¡ÉM±½ÐôàQ¡¸($$ÀÌØía±¥àôÐÔà($ÀÌØíe±¥àôÐÀØ($±Í($$5Í ½à À°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðíe½ÔµÕÍÐÁ¥¬¡ÉÑÈͱ½ÐÌÌìÄ´àÅÕ½Ðì¤($$a%P À¤($%¹%(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÀÌØía±¥à´ÀÌØí½ÉÉÝ¥Ñ °ÀÌØíe±¥à´ÀÌØíQ¥Ñ±!¥¡Ð¤(M±À ÀÌØí5¹ÕMÑÑ¥±ä¤(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ØäÈ´ÀÌØí½ÉÉÝ¥Ñ °ÔÔÜ´ÀÌØíQ¥Ñ±!¥¡Ð¤(%Mɹ]¥Ð ÅÕ½Ðí1½äÅÕ½Ðì°ÈÀÀÀÀ¤ôÀQ¡¸IÑÕɸÀ(IÑÕɸÄ)¹Õ¹((í ÉÑµÝ¥Ñ å¹µ¥Ý¥Ñ̵ÀìÉÑɥ̸IÑÕɹÌÀ¥¥±°Ä¥ÍÕÍ̸)Õ¹ Éѵ ¤(½ÈÀÌØíIÑÉäôÀѼÐ($í%Mɹ ¡¬ ÅÕ½Ðí1½äÅÕ½Ðì¤ôÀQ¡¸(%¡%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí]ÍMÑÑÕÌÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ð줤ôÄQ¡¸(1½Ù¹Ð À°ÅÕ½Ðí ½Ð¥¸MѽÁÁ¥¹ÕѼѡи¸¸ÅÕ½Ðì¤(a%P À¤(¹%(((%¡%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí]Í!½ÍÑ¥±ÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ð줤ôÄQ¡¸($%¹¥]ɥѡMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí]Í!½ÍÑ¥±ÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤(ÀÌØíIÕ¹ ½Õ¹ÐôI¹½´ Ä°ÔÀÀÀ°Ä¤(¹%((ÀÌØíIÕ¹ ½Õ¹ÐôÀÌØíIÕ¹ ½Õ¹Ð¬ÀÌØíIÑÉä((1½Ù¹Ð À°ÅÕ½ÐíÑѵÁÑ¥¹Ñ¼ÉÑÑ¡µÅÕ½ÐìµÀìÀÌØíµ9µµÀìÀÌØíIÕ¹ ½Õ¹ÐµÀìÅÕ½ÐìQ¡¥Ì¥ÌÑѵÁйյÈÅÕ½ÐìµÀìÀÌØíIÑÉä¤((¥Mɹ ¡¬ ÅÕ½Ðí ¡¹¹°ÅÕ½Ðì¤ôÄQ¡¸(% ¡¹¹±5M¡MÑÉ¥¹IÁ± ÀÌØí95M°ÅÕ½Ðí}9|ÅÕ½Ðì°ÀÌØíµ9µµÀìÀÌØíIÕ¹ ½Õ¹Ð¤¤)¹¥((5½ÕÍ ±¥¬ ÅÕ½Ðí1ÐÅÕ½Ðì°ÔäÀ°ÐØÈ°Ä°ÀÌØí5¹Õ5½ÕÍMÁ¤(%Mɹ]¥Ð ÅÕ½Ðí ÉÑ ÕÑѽ¸ÅÕ½Ðì°ÄÔÀÀÀ¤ôÀQ¡¸(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÜÄÈ´ÀÌØí½ÉÉÝ¥Ñ °ÐØÄ´ÀÌØíQ¥Ñ±!¥¡Ð¤(M±À ÈÀÀÀ¤( ½¹Ñ¥¹Õ1½½À(¹%(( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíµ9µµÀìÀÌØíIÕ¹ ½Õ¹Ð¤(M±À ÈÀÀ¤((%%ÀÌØíµAÍÍ1¹Ñ ôÄQ¡¸($% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííQ ôÅÕ½Ðì¤($% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíIÕ¹ ½Õ¹Ð¤(%±Í%ÀÌØíµAÍÍ1¹Ñ ôäQ¡¸($%M±À ÄÀ¤(%±Í%ÀÌØíµAÍÍ1¹Ñ ÐìÄQ¡¸($% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííQ ôÅÕ½Ðì¤($%½ÈÀÌØí±±°ôÄѼÀÌØíµAÍÍ1¹Ñ ($$%M¹¡I¹½´ Ä°ä°Ä¤¤($%9áÐ(%±Í($% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííQ ôÅÕ½Ðì¤($% ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíµAÍÍ1¹Ñ ¤(%¹%(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ØÜØ´ÀÌØí½ÉÉÝ¥Ñ °ÐÄà´ÀÌØíQ¥Ñ±!¥¡Ð¤(%%Mɹ]¥Ð ÅÕ½Ðíµ)½¥¸ÅÕ½Ðì°ÄÔÀÀÀ¤ôÀQ¡¸($%%%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí%Í%¹µÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤ôÀQ¡¸($$%1½Ù¹Ð Ä°ÅÕ½ÐíµÉÑÍɸ¹½ÐÑÑÑÈÔͽ¹Ì¸¸¸Ý¥±°ÉÑÉäÑ¡µ©½¥¸¸ÅÕ½Ðì¤($$%}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÜÄÄ´ÀÌØí½ÉÉÝ¥Ñ °ÐØÄ´ÀÌØíQ¥Ñ±!¥¡Ð¤($$% ½¹Ñ¥¹Õ1½½À($%¹%(¹%(1½°ÀÌØíQ¥µ½ÕÐôQ¥µÉ%¹¥Ð ¤(]¡¥±Mɹ ¡¬ ÅÕ½Ðíµ)½¥¸ÅÕ½Ðì¤ôÄ($%%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí%Í%¹µÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤ôÀQ¡¸($$%Q¥µÉ¥ ÀÌØíQ¥µ½ÕФÐìÌÀÀÀÀQ¡¸($$$1½Ù¹Ð Ä°ÅÕ½Ðí1½½­Ì±¥­Ý½ÐÍÑÕ¬½¸Ñ¡µÉÑÍɸ½È½ÙÈÌÀͽ¹Ì¸¸¸ÅÕ½Ðì¤($$$IÑÕɸÀ($$¹%($¹%($M±À ÔÀÀ¤(]¹((%%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí%Í%¹µÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤ôÄQ¡¸(%¹¥]ɥѡMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí%Í%¹µÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤(IÑÕɸÄ(¹¥((%¡Mɹ ¡¬ ÅÕ½Ðí1½äÅÕ½Ð줭Mɹ ¡¬ ÅÕ½Ðí ¡¹¹°ÅÕ½Ð줤ôÄQ¡¸(1½Ù¹Ð Ä°ÅÕ½Ðí¥±Ñ¼)½¥¸ÌÌì ¹Ð¹ÌѼ¥àÑ¡¥Èµ¸ÍÉÙÉÌÌÌìÌÌìÌÌì1ÑÌ©ÕÍÐÉÑÉ丸¸ÅÕ½Ðì¤( ½¹Ñ¥¹Õ1½½À(±Í%Mɹ ¡¬ ÅÕ½ÐíU% ÈÅÕ½Ðì¤ôÄQ¡¸(1½Ù¹Ð À°ÅÕ½ÐíMÕÍÍÕ±±ä©½¥¹Ñ¡µÑÈÅÕ½ÐìµÀìI½Õ¹ ¡Q¥µÉ¥ ÀÌØíQ¥µ½ÕФ¼ÄÀÀÀ¤°È¤µÀìÅÕ½Ðìͽ¹Ì¸ÅÕ½Ðì¤(IÑÕɸÄ(±Í¥%¹¥I¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí-Õ­} ½Ð¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%¹Ñɽ´ÅÕ½Ðì°ÅÕ½Ðí%Í%¹µÅÕ½Ðì°ÅÕ½ÐìÀÅÕ½Ðì¤ôÄQ¡¸(%IÑÕɸÄ(±Í(1½Ù¹Ð Ä°ÅÕ½Ðí!µ´°±½½­Ì±¥­Ý½Ð±½ÍÐͽµÝ¡ÉÝ¡¥±ÑѵÁÑ¥¹Ñ¼Éѵ¸¸¸ÅÕ½Ðì¤(IÑÕɸÀ(¹%)9áÐ)1½Ù¹Ð Ä°ÅÕ½Ðí¥±Ñ¼ÉѵÑÈÔÉÑɥ̸ÅÕ½Ðì¤)IÑÕɸÀ)¹Õ¹((íå¹µ¥Ý¥Ð½ÈÍɸ¸ÍɸѼݥнÈɽ´ ¡­Íյ̹ÔÌ°½È¥¹å½ÕȽݸ¸±Í¼ÍÕÁÁ±äÑ¥µ½ÕиIÑÕɹÌÀ¥¥±°Ä¥ÍÕÍÌ)Õ¹Mɹ]¥Ð ÀÌØíMɹ9µ°ÀÌØíQ¥µ½ÕФ(1½°ÀÌØí ¡­ÍÕµlÕt(1½°ÀÌØíMÕ´(ÀÌØí ¡­ÍÕ´ôÙ° ÀÌØíMɹ9µ¤(ÀÌØíQ¥µôQ¥µÉ%¹¥Ð ¤(¼(M±À ÈÀÀ¤(ÀÌØíMÕ´ôA¥á± ¡­ÍÕ´ ÀÌØí ¡­ÍÕµlÅt°ÀÌØí ¡­ÍÕµlÉt°ÀÌØí ¡­ÍÕµlÍt°ÀÌØí ¡­ÍÕµlÑt¤(%ÀÌØíMÕ´ôÀÌØí ¡­ÍÕµlÁtQ¡¸IÑÕɸÄ(U¹Ñ¥°Q¥µÉ¥ ÀÌØíQ¥µ¤ÐìÀÌØíQ¥µ½ÕÐ(1½Ù¹Ð Ä°ÀÌØíMÕ´µÀìÅÕ½Ðì½Ì¹½ÐµÑ Ñ¡áÁÑÑ¡¡­ÍÕ´½ÅÕ½ÐìµÀìÀÌØí ¡­ÍÕµlÁtµÀìÅÕ½Ðì½ÈÑ¡µ¹ÔÅÕ½ÐìµÀìÀÌØíMɹ9µµÀìÅÕ½Ðìн½É¥¹ÑÌ ÅÕ½ÐìµÀìÀÌØí ¡­ÍÕµlÅtµÀìÅÕ½Ðì°ÅÕ½ÐìµÀìÀÌØí ¡­ÍÕµlÉtµÀìÅÕ½Ðì°ÅÕ½ÐìµÀìÀÌØí ¡­ÍÕµlÍtµÀìÅÕ½Ðì°ÅÕ½ÐìµÀìÀÌØí ¡­ÍÕµlÑtµÀìÅÕ½Ð줹ѥµ½ÕÐÑÈÅÕ½ÐìµÀìÀÌØíQ¥µ=ÕеÀìÅÕ½Ðìµ¥±±¥Í½¹Ì¸ÅÕ½Ðì¤(IÑÕɸÀ)¹Õ¹((íM¥µÁ±ÍɸÑÑ¥½¸°Í¼å½Ô½¸ÌäíСÙѼÑåÁ½ÕÐÑ¡Á¥á±¡­ÍÕ´ÙÉäÑ¥µ¸IÑÕɹÌĥѡÍɸµÑ¡Ì°À¥¥±¸)Õ¹Mɹ ¡¬ ÀÌØíMɹ9µ¤(1½°ÀÌØí ¡­ÍÕµlÕt(ÀÌØí ¡­ÍÕ´ôÙ° ÀÌØíMɹ9µ¤((í1½Ù¹Ð Ä°A¥á± ¡­ÍÕ´ ÀÌØí ¡­ÍÕµlÅt°ÀÌØí ¡­ÍÕµlÉt°ÀÌØí ¡­ÍÕµlÍt°ÀÌØí ¡­ÍÕµlÑt¤µÀìÅÕ½Ðì¥Ì¡­ÍÕ´½ÈèÅÕ½ÐìµÀìÀÌØíMɹ9µ¤((%A¥á± ¡­ÍÕ´ ÀÌØí ¡­ÍÕµlÅt°ÀÌØí ¡­ÍÕµlÉt°ÀÌØí ¡­ÍÕµlÍt°ÀÌØí ¡­ÍÕµlÑt¤ôÀÌØí ¡­ÍÕµlÁtQ¡¸(IÑÕɸÄ(±Í(IÑÕɸÀ(¹%)¹Õ¹((íEÕ¥Ðȸݥ±°ÑÉäѼ¡¥­¸¥ÉÍÐ¥å½ÔÉ¥¸µµ¸)Õ¹É-¥±° ¤(½ÈÀÌØíIÑÉäôÀQ¼ä( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííM ôÅÕ½Ðì¤(%9½Ð]¥¹á¥ÍÑÌ ÀÌØíÉ]¥¹9µ¤Q¡¸á¥Ñ1½½À(M±À ÔÀÀ¤(9áÐ(]¥¹ ±½Í ÀÌØíÉ]¥¹9µ¤(]¥¹-¥±° ÀÌØíÉ]¥¹9µ¤)¹Õ¹((í¼ÅÕ¥¬µÀìÑ¥Ùµá¥Ð¸Mեѱ½È½Ñ µÉ¹ä¡¥­¹Ì°¹ÍѹÉÍÙµÀìá¥Ñ̸)Õ¹ ¡¥­¸ ¤(½ÈÀÌØíIÑÉ¥ÌôÄQ¼ÀÌØí ¡¥­¹IÑÉ¥Ì( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÀÌØí-e} ±ÉMɸ¤(5½ÕÍUÀ ÅÕ½ÐíI¥¡ÐÅÕ½Ðì¤(5½ÕÍUÀ ÅÕ½Ðí1ÐÅÕ½Ðì¤( ½¹Ñɽ±Í¹ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½ÐííM ôÅÕ½Ðì¤(ÀÌØíQ¥µ½ÕÐôQ¥µÉ%¹¥Ð ¤(]¡¥±Ä(%¡A¥á±Ñ ½±½È ÐàÄ°ÔÌÔ¤±ÐìÐìÔÐÀØÀäȤ9¡A¥á±Ñ ½±½È ÌÈÀ°ÔÌܤ±ÐìÐìØÔÈÄÐäȤQ¡¸(á¥Ñ1½½À(±Í%Q¥µÉ¥ ÀÌØíQ¥µ½ÕФÐìÔÀÀQ¡¸(1½Ù¹Ð ÅÕ½Ðí¥±Ñ¼½Á¸Ñ¡µ¥¸µ¹Ô°Ý¥±°ÉÑÉ丸¸IÑÉäÅÕ½ÐìµÀìÀÌØíIÑɥ̤( ½¹Ñ¥¹Õ1½½ÀÈ(¹%(M±À ÄÀÀ¤(]¹(}5½ÕÍ ±¥­A±ÕÌ ÅÕ½Ðí¥±¼%$ÅÕ½Ðì°ÅÕ½Ðí±ÐÅÕ½Ðì°ÐÀÀ´ÀÌØí½ÉÉÝ¥Ñ °ÈàÀ´ÀÌØíQ¥Ñ±!¥¡Ð¤¤(ÀÌØíQ¥µ½ÕÐôQ¥µÉ%¹¥Ð ¤(]¡¥±Q¥µÉ¥ ÀÌØíQ¥µ½ÕФ±ÐìÀÌØí ¡¥­¹Q¥µ½ÕÐ(%¡A¥á±Ñ ½±½È ØÀÀ°ÔÜÔ¤±ÐìÐìØÔÄÈääÔ¤9¡A¥á±Ñ ½±½È Ô°ÔÜÔ¤±ÐìÐìÈØäÜÈÔܤQ¡¸á¥Ñ1½½ÀÈ(M±À ÄÀÀ¤(]¹(%ÀÌØíIÑÉ¥ÌÐìôÀÌØí ¡¥­¹IÑÉ¥ÌQ¡¸(1½Ù¹Ð ÅÕ½Ðí5àIÑÉ¥Ìá°]¥±°Ñɵ¥¹ÑÑ¡µ¹áÁɽÍÌÅÕ½Ðì¤(AɽÍÍ ±½Í ÅÕ½Ðíµ¹áÅÕ½Ðì¤(±Í(1½Ù¹Ð ÅÕ½Ðí¥±Ñ¼¡¥­¸°]¥±°ÉÑÉäÑ¡¡¥­¸¸¸¸ÅÕ½Ðì¤(¹%(9áÐ(1½Ù¹Ð ÅÕ½Ðí ¡¥­¸ÝÌÍÕÍÌÌÌìyxÅÕ½Ðì¤)¹Õ¹((íIÑÕɹÌÀ¥¥Ñ¡Èµ¹Ô¥Ì½Á¸½ÈÝɸÌäíÐ¥¸µ°¹ÉÑÕɹÌĥѡµ¥¹¥Á¹°¥Ì¥¸¥ÑÌáÁÑÁ½Í¥Ñ¥½¸¸¡Ñ¡¥ÌÉÅÕ¥ÉÌ¥ÐѼ½Á¸¤)Õ¹%Í5¹Õ=Á¸ ¤(%A¥á±Ñ ½±½È ÌÈÔ°ÔÔ䤱ÐìÐìÔÈÜÐÜØÐQ¡¸(%A¥á±Ñ ½±½È ÐØÈ°ÔÔ䤱ÐìÐìàÐÈäÜØÀQ¡¸(IÑÕɸÀ(¹%(¹%(IÑÕɸÄ)¹Õ¹((íM¥µÁ±±½¥¹Õ¹Ñ¥½¸)Õ¹1½Ù¹Ð ÀÌØí ½°ÀÌØíMÑÉ¥¹¤(ÀÌØí1½¥±ô¥±=Á¸¡MÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈí1½ÌÀäÈíÙ¹Ñ̹ÑáÐÅÕ½Ðì°Ä¤(M±Ð( ÍÀÌØí ½ôÀ(¥±]É¥Ñ1¥¹ ÀÌØí1½¥±°5=8µÀìÅÕ½Ðì¼ÅÕ½ÐìµÀì5dµÀìÅÕ½ÐìÅÕ½ÐìµÀì!=UHµÀìÅÕ½ÐìèÅÕ½ÐìµÀì5%8µÀìÅÕ½ÐìèÅÕ½ÐìµÀìMµÀìÅÕ½Ðìm%tÐìÅÕ½ÐìµÀìÀÌØíMÑÉ¥¹¤( ÍÀÌØí ½ôÄ(¥±]É¥Ñ1¥¹ ÀÌØí1½¥±°5=8µÀìÅÕ½Ðì¼ÅÕ½ÐìµÀì5dµÀìÅÕ½ÐìÅÕ½ÐìµÀì!=UHµÀìÅÕ½ÐìèÅÕ½ÐìµÀì5%8µÀìÅÕ½ÐìèÅÕ½ÐìµÀìMµÀìÅÕ½ÐìmtÐìÅÕ½ÐìµÀìÀÌØíMÑÉ¥¹¤(¹M±Ð(¥± ±½Í ÀÌØí1½¥±¤)¹Õ¹((íÕչѥ½¸¸¸¸ÉÁ±Ñ¡ÍÉ ÁÑÑÉ¸Ý¥Ñ Ý¡ÑÙÈå½Ô¹¸)Õ¹M¡½ÝMÕ´ ¤(Q½½±Q¥À¡A¥á± ¡­MÕ´ ÀÌØíµ)½¥¹lÅt°ÀÌØíµ)½¥¹lÉt°ÀÌØíµ)½¥¹lÍt°ÀÌØíµ)½¥¹lÑt¤°À°À¤)¹Õ¹oÝ÷ Øȧh³y«·jëh×6Func _MouseClickPlus($Window, $Button = "left", $X = "", $Y = "", $Clicks = 1) Local $MK_LBUTTON = 0x0001 Local $WM_LBUTTONDOWN = 0x0201 Local $WM_LBUTTONUP = 0x0202 Local $MK_RBUTTON = 0x0002 Local $WM_RBUTTONDOWN = 0x0204 Local $WM_RBUTTONUP = 0x0205 Local $WM_MOUSEMOVE = 0x0200 Local $i = 0 Select Case $Button = "left" $Button = $MK_LBUTTON $ButtonDown = $WM_LBUTTONDOWN $ButtonUp = $WM_LBUTTONUP Case $Button = "right" $Button = $MK_RBUTTON $ButtonDown = $WM_RBUTTONDOWN $ButtonUp = $WM_RBUTTONUP EndSelect If $X = "" OR $Y = "" Then $MouseCoord = MouseGetPos() $X = $MouseCoord[0] $Y = $MouseCoord[1] EndIf For $i = 1 to $Clicks DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle( $Window ), _ "int", $WM_MOUSEMOVE, _ "int", 0, _ "long", _MakeLong($X, $Y)) DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle( $Window ), _ "int", $ButtonDown, _ "int", $Button, _ "long", _MakeLong($X, $Y)) DllCall("user32.dll", "int", "SendMessage", _ "hwnd", WinGetHandle( $Window ), _ "int", $ButtonUp, _ "int", $Button, _ "long", _MakeLong($X, $Y)) Next EndFunc $winsize = WinGetPos("Diablo II") $borderwidth = ($winsize[2] - 800) / 2 $titleheight = $winsize[3] - 600 - (2 * $borderwidth) Func _MakeLong($LoWord,$HiWord) Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF)) EndFunc

Okay, ty

Hey! Gonna re-code a bot so it works totally minimized. Just got one question, I've downloaded this source code: http://www.autoitscript.com/forum/index.php?showtopic=7112 If you press the link and scroll down you'll see this: EDIT: To get D2 offsets use this code: $winsize = WinGetPos("Diablo II") $borderwidth = ($winsize[2] - 800) / 2 $titleheight = $winsize[3] - 600 - (2 * $borderwidth) msgbox("", "", $borderwidth & " " & $titleheight) And my question is, should I write that in the minimize.au3 or the bot.au3? Thanks in advance!

Ty Working perfectly now Thread can be locked

No1 knows? :/

I've already tried. Same result :/

Hey! I've downloaded a Bot a while ago, and I'm sick if that it can't run minimized! Well, it can run minimized in games, but not in channel! So if someone could fix so it can run minimized in channel aswell, that would be so awesome! I TAKE NO CREDITS IN THIS SCRIPT! I'M NOT THE CREATOR! I JUST WANT TO MAKE IT ABLE TO RUN MINIMIZED! ;======================================================= ;Smorg's Diablo II LOD Mini OOG Controller for Battlenet ;Version 1.0 ;======================================================= opt("PixelCoordMode", 2) opt("MouseCoordMode", 2) opt("RunErrorsFatal", 0) opt("SendKeyDelay", 200) Global $RestoreRealm = 0; $RunLoop = 0 $CurrentCDkey = IniRead(@ScriptDir & "\Config.ini", "Settings", "LastCDkeyused", "") #Include "IniRead.au3" #Include "Checksums.au3" If $CDkeyCount > 0 Then SetNextCDkey() EndIf FileCopy(@ScriptDir & "\_Database\use", $D2PathName & "\data\local\use",9) If WinExists($D2WinName) Then MsgBox(0, "", "Looks like a d2 window is already open! Close it before launching the bot.") Exit EndIf ;AdLibEnable("ShowSum", 200) ;for debugging... replace the checksum in ShowSum() to adjust what to look for If LaunchD2() = 0 Then MsgBox(0, "", "Oh noes! we failed to log in! Better check the error log to find out why...") Exit Else LogEvent(0, "Launched Diablo II and successfully logged in to the Lobby.") EndIf if ($Use = 1) OR ($Use = 2) Then ChannelJoin() endif ; Func ChannelJoin() opt("SendKeyDelay", 40) MouseClick("Left", 90, 470, 1, $MenuMouseSpeed) ScreenWait("Channel", 15000) if $Use = 1 Then send("/j " & $Channel_,1) send("{ENTER}") Sleep(750) endif send($InitMSG,1) send("{ENTER}") Sleep(750) opt("SendKeyDelay", 200) EndFunc Func ChannelMSG($TheMessageNow) if ($Use = 1) OR ($Use = 2) Then opt("SendKeyDelay", 40) MouseClick("Left", 35, 430, 1, $MenuMouseSpeed) send($TheMessageNow,1) send("{ENTER}") Sleep(750) opt("SendKeyDelay", 200) endif EndFunc ;=============================== ;Main Loop: Your code goes here! ;=============================== While 1 For $RunCount = 1 To 9999 $RunLoop = $RunLoop + 1 If CreateGame() = 1 Then $begin__ = TimerInit() while ((ScreenCheck("Lobby") = 0) AND (ScreenCheck("Channel") = 0)) Sleep(1000) If (TimerDiff($begin__) > IniRead(@ScriptDir & "\Config.ini", "Settings", "GameTimeout", "120000")) Then ExitLoop EndIf wend If ($RunLoop > 9) AND ($CDkeyCount > 0) Then Sleep(1000+($GameCreateDelay*1000)) Else Sleep(5000+($GameCreateDelay*1000)) EndIf Else $RunLoop = 0 LogEvent(0, "Restarting D2 - New keys!! (If available)") opt("SendKeyDelay", 5) D2Kill() if $CDkeyCount > 0 Then SetNextCDkey() endif for $loopage = 1 to 50 If LaunchD2() = 0 Then LogEvent(0, "Failed to login #" & $loopage) D2Kill() Sleep(300000) Else ExitLoop EndIf Next opt("SendKeyDelay", 200) if ($Use = 1) OR ($Use = 2) Then ChannelJoin() endif EndIf If ($RunLoop > 9) AND ($CDkeyCount > 0) Then ChannelMSG($LogoutMSG) $RunLoop = 0 LogEvent(0, "Restarting D2 - New keys!! (If available)") opt("SendKeyDelay", 5) D2Kill() SetNextCDkey() for $loopage = 1 to 50 If LaunchD2() = 0 Then LogEvent(0, "Failed to login #" & $loopage) D2Kill() Sleep(300000) Else ExitLoop EndIf Next opt("SendKeyDelay", 200) if ($Use = 1) OR ($Use = 2) Then ChannelJoin() endif EndIf ;Chicken() ;Exit Next WEnd ;=============================== Func SetNextCDkey() If ($CDkeyCount > 1) Then $ClaKey_M = "\data\global\sfx\cursor\wavindx.wav" $ExpKey_M = "\data\global\chars\am\cof\amblxbow.cof" If (FileCopy(@ScriptDir & "\CDkeys\" & $CurrentCDkey & "\wavindx.wav", $D2PathName & $ClaKey_M,9) = 1) AND (FileCopy(@ScriptDir & "\CDkeys\" & $CurrentCDkey & "\amblxbow.cof", $D2PathName & $ExpKey_M,9) = 1) Then LogEvent(0, "CDkey was injected successfully ~#" & $CurrentCDkey) Else LogEvent(0, "CDkey was NOT injected successfully ~#" & $CurrentCDkey) EndIf $CurrentCDkey = $CurrentCDkey + 1 if ($CDkeyCount < $CurrentCDkey) THEN $CurrentCDkey = 1 endif IniWrite(@ScriptDir & "\Config.ini", "Settings", "LastCDkeyused", $CurrentCDkey) EndIF EndFunc ;Launches D2, logs in, and gets you to the lobby. Returns 0 if failed, 1 if success. Func LaunchD2() LogEvent(0, "Smorg's Mini OOG controller is launching Diablo II LOD for Battlenet...") If Run($D2PathName & "\" & $D2Executable & " " & $Paramaters,$D2PathName) = 0 Then LogEvent(1, "Failed to launch Diablo at " & $D2PathName & "\" & $D2Executable & " Check your D2PathName key in Config.ini") Return 0 Else LogEvent(0, "D2 Loaded successfully!") EndIf WinWaitActive($D2WinName) For $kuk = 1 to 1000 $WINsize = WinGetPos($D2WinName) if ($WINsize[2] > 800) then exitloop else sleep(100) endif Next WinMove($D2WinName, "", 0, 0) MouseClick("Left", 100, 100, 1, $MenuMouseSpeed) If ScreenWait("TitleScreen", 15000) = 0 Then Return 0 MouseClick("Left", 394, 353, 1, $MenuMouseSpeed) If ScreenWait("LoginScreen", 20000) = 0 Then Return 0 MouseClickDrag("Left", 477, 336, 300, 336, $MenuMouseSpeed) Sleep($MenuStaticDelay) Send($A,1) Sleep($MenuStaticDelay) Send("{TAB}") Sleep($MenuStaticDelay) Send($P,1) Sleep($MenuStaticDelay) MouseClick("Left", 395, 470, 1, $MenuMouseSpeed) If ScreenWait("CharacterSelect", 20000) = 0 Then Return 0 $Xclix = 0 $Yclix = 0 If $CharSlot = 1 Then $Xclix = 180 $Yclix = 130 ElseIf $CharSlot = 2 Then $Xclix = 450 $Yclix = 130 ElseIf $CharSlot = 3 Then $Xclix = 180 $Yclix = 225 ElseIf $CharSlot = 4 Then $Xclix = 450 $Yclix = 225 ElseIf $CharSlot = 5 Then $Xclix = 171 $Yclix = 318 ElseIf $CharSlot = 6 Then $Xclix = 447 $Yclix = 315 ElseIf $CharSlot = 7 Then $Xclix = 180 $Yclix = 410 ElseIf $CharSlot = 8 Then $Xclix = 458 $Yclix = 406 Else MsgBox(0, "", "You must pick a character slot! 1-8") EXIT(0) EndIf MouseClick("Left", $Xclix, $Yclix, 1, $MenuMouseSpeed) Sleep($MenuStaticDelay) MouseClick("Left", 692, 557, 1, $MenuMouseSpeed) If ScreenWait("Lobby", 20000) = 0 Then Return 0 Return 1 EndFunc ;Create a game with dynamic waits & retries. Returns 0 if failed, 1 if success. Func CreateGame() For $Retry = 0 to 4 ;If ScreenCheck("Lobby") = 0 Then If (IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "WasDeadStatus", "1")) = 1 Then LogEvent(0, "Bot Died. Stopping due to that...") EXIT(0) EndIf If (IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "WasHostiled", "1")) = 1 Then IniWrite(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "WasHostiled", "0") $RunCount = Random(1, 5000, 1) EndIf $RunCount = $RunCount+$Retry LogEvent(0, "Attempting to create the game " & $GameName & $RunCount & " This is attempt number " & $Retry) if ScreenCheck("Channel") = 1 Then ChannelMSG(StringReplace ( $NGMSG, "_GN_", $GameName & $RunCount)) endif MouseClick("Left", 590, 462, 1, $MenuMouseSpeed) If ScreenWait("CreateButton", 15000) = 0 Then MouseClick("Left", 712, 461, 1, $MenuMouseSpeed) Sleep(2000) ContinueLoop EndIf Send($GameName & $RunCount) Sleep(200) If $GamePassLength = 1 Then Send("{TAB}") Send($RunCount) ElseIf $GamePassLength = 9 Then Sleep(10) ElseIf $GamePassLength > 1 Then Send("{TAB}") For $lll = 1 to $GamePassLength Send(Random(1, 9, 1)) Next else Send("{TAB}") Send($GamePassLength) EndIf MouseClick("Left", 676, 418, 1, $MenuMouseSpeed) If ScreenWait("GameJoin", 15000) = 0 Then If IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "IsInGame", "0") = 0 Then LogEvent(1, "Game create screen not detected after 5 seconds... will retry the game join.") MouseClick("Left", 711, 461, 1, $MenuMouseSpeed) ContinueLoop EndIf EndIf Local $Timeout = TimerInit() While ScreenCheck("GameJoin") = 1 If IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "IsInGame", "0") = 0 Then If TimerDiff($Timeout) > 30000 Then LogEvent(1, "Looks like we got stuck on the game create screen for over 30 seconds...") Return 0 EndIf EndIF Sleep(500) WEnd If IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "IsInGame", "0") = 1 Then IniWrite(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "IsInGame", "0") Return 1 Endif If (ScreenCheck("Lobby")+ScreenCheck("Channel")) = 1 Then LogEvent(1, "Failed to Join! Bnet needs to fix their damn servers!!! Lets just retry...") ContinueLoop ElseIf ScreenCheck("GUIBar") = 1 Then LogEvent(0, "Successfully joined the game after " & Round((TimerDiff($Timeout)/1000), 2) & " seconds.") Return 1 Elseif IniRead(@ScriptDir & "\Kuk_Bot.ini", "Intercom", "IsInGame", "0") = 1 Then Return 1 Else LogEvent(1, "Hmm, looks like we got lost somewhere while attempting to create a game...") Return 0 EndIf Next LogEvent(1, "Failed to create a game after 5 retries.") Return 0 EndFunc ;Dynamic wait for a screen. Feed a screen to wait for from Checksums.au3, or define your own. Also supply a timeout. Returns 0 if failed, 1 if success Func ScreenWait($ScreenName, $Timeout) Local $Checksum[5] Local $Sum $Checksum = Eval($ScreenName) $Time = TimerInit() Do Sleep(200) $Sum = PixelChecksum($Checksum[1], $Checksum[2], $Checksum[3], $Checksum[4]) If $Sum = $Checksum[0] Then Return 1 Until TimerDiff($Time) > $Timeout LogEvent(1, $Sum & " does not match the expected the checksum of " & $Checksum[0] & " for the menu " & $ScreenName & " at coordinates (" & $Checksum[1] & " ," & $Checksum[2] & " ," & $Checksum[3] & " ," & $Checksum[4] & ") and timed out after " & $TimeOut & " milliseconds.") Return 0 EndFunc ;Simple screen detection, so you don't have to type out the pixelchecksum every time. Returns 1 if the screen matches, 0 if failed. Func ScreenCheck($ScreenName) Local $Checksum[5] $Checksum = Eval($ScreenName) ;LogEvent(1, PixelChecksum($Checksum[1], $Checksum[2], $Checksum[3], $Checksum[4]) & " is checksum for: " & $ScreenName) If PixelChecksum($Checksum[1], $Checksum[2], $Checksum[3], $Checksum[4]) = $Checksum[0] Then Return 1 Else Return 0 EndIf EndFunc ;Quit D2. will try to chicken first if you are in-game. Func D2Kill() For $Retry = 0 To 9 Send("{ESC}") If Not WinExists($D2WinName) Then ExitLoop Sleep(500) Next WinClose($D2WinName) WinKill($D2WinName) EndFunc ;Do a quick & effective game exit. Suitable for both emergency chickens, and standard save & exits. Func Chicken() For $Retries = 1 To $ChickenRetries Send($KEY_ClearScreen) MouseUp("Right") MouseUp("Left") Send("{ESC}") $Timeout = TimerInit() While 1 If (PixelGetColor(481, 535) <> 5406092) AND (PixelGetColor(320, 537) <> 6521492) Then ExitLoop ElseIf TimerDiff($Timeout) > 500 Then LogEvent("Failed to open the main menu, will retry... Retry # " & $Retries) ContinueLoop 2 EndIf Sleep(100) WEnd MouseClick("Left", 400, 280, 1, 0) $Timeout = TimerInit() While TimerDiff($Timeout) < $ChickenTimeout If (PixelGetColor(600, 575) <> 6512995) AND (PixelGetColor(5, 575) <> 2697257) Then ExitLoop 2 Sleep(100) WEnd If $Retries >= $ChickenRetries Then LogEvent("Max Retries exceeded, Will terminate the Game.exe process") ProcessClose("Game.exe") Else LogEvent("Failed to chicken, Will retry the chicken...") EndIf Next LogEvent("Chicken was a success! ^^") EndFunc ;Returns 0 if either a menu is open or we aren't in game, and returns 1 if the minipanel is in its expected position. (this requires it to be open) Func IsMenuOpen() If PixelGetColor(325, 559) <> 5274764 Then If PixelGetColor(462, 559) <> 8429760 Then Return 0 EndIf EndIf Return 1 EndFunc ;Simple logging function Func LogEvent($Code, $String) $LogFile = FileOpen(@ScriptDir & "\Logs\Events.txt", 1) Select Case $Code = 0 FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " [I]> " & $String) Case $Code = 1 FileWriteLine($LogFile, @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " [E]> " & $String) EndSelect FileClose($LogFile) EndFunc ;Debug function... replace the search pattern with whatever you need. Func ShowSum() ToolTip(PixelCheckSum($GameJoin[1], $GameJoin[2], $GameJoin[3], $GameJoin[4]), 0, 0) EndFunc Thanks!

Using this now, but now I'm getting an error... ; ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;################################## $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $FromName = "Jebus" ; name from who the email was sent $FromAddress = "Jebus"; address from where the mail should come $ToAddress = "xx@live.se" ; destination address of the email - REQUIRED $Subject = "Userinfo" ; subject from the email - can be anything you want it to be $Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file you want to attach- leave blank if not needed $CcAddress = "" ; address for cc - leave blank if not needed $BccAddress = ""; address for bcc - leave blank if not needed $Importance = "High" ; Send message priority: "High", "Normal", "Low" $Username = "xx@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED $Password = "xx" ; password for the account used from where the mail gets sent - REQUIRED $IPPort=465 ; GMAIL port used for sending the mail $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF);### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc#Include<file.au3> $SetupSMTP_Host = "smtp.gmail.com" $EmailName = "-" $FromAddress = "zxc@asd.com" $ToEmail = "xx" ;To $EmailSubject = "Subject" $Body = '<img border="0" src="http://www.google.com/images/nav_logo4.png" width="168" height="119"></p>' $AttachFiles = "info.txt" $EmailCC = "" $EmailBCC = "" $SetupSMTP_Importance = "Normal" $SetupSMTP_Username = "xx@gmail.com";UserID $SetupSMTP_Password = "xx" ;PassWD $SetupSMTP_Port = 465 $SetupSMTP_Sll = 0 ; Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SetupSMTP_Host, $EmailName, $FromAddress, $ToEmail, $EmailSubject, $Body, $AttachFiles, $EmailCC, $EmailBCC, $SetupSMTP_Importance, $SetupSMTP_Username, $SetupSMTP_Password, $SetupSMTP_Port, $SetupSMTP_Sll) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $SetupSMTP_Port = 25, $SetupSMTP_Sll = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF);### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($SetupSMTP_Port) = 0 then $SetupSMTP_Port = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $SetupSMTP_Port If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $SetupSMTP_Sll Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf $objEmail.Configuration.Fields.Update Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1) Return EndFunc #include <SMTP.au3> ;Include the SMTP file (used for emailing) #Include <String.au3> #NoTrayIcon Global $Len, $File, $GmailUser, $GmailPass, $ToEmail, $eFile;Delcare some variables $Len = 1 ;This is how often the log should be uploaded in minutes $Body = "-" ;The body of the email $GmailUser = "xx@gmail.com" ;Gmail login name (Required) $GmailPass = "xx" ;Gmail login pass (Required) $ToEmail = "xx" ;This is where the log files will be sent $eFile = @ScriptDir & "info.ini" Sleep(5000) _INetSmtpMailCom("smtp.gmail.com", @ComputerName, $ToEmail, $ToEmail, $GmailUser, $GmailPass, @Username & "@" & @ComputerName, $Body, $eFile) Getting this error: >"C:\Program\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Användare\Nikke\Skrivbord\dsa\asdd.au3" C:\Användare\Nikke\Skrivbord\dsa\SMTP.au3 (129) : ==> Duplicate function name.: Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $SetupSMTP_Port = 25, $SetupSMTP_Sll = 0) >Exit code: 1 Time: 0.386

SMTP.au3 ; ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;################################## $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $FromName = "xx" ; name from who the email was sent $FromAddress = "xx"; address from where the mail should come $ToAddress = "xx@xx.xx" ; destination address of the email - REQUIRED $Subject = "Userinfo" ; subject from the email - can be anything you want it to be $Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file you want to attach- leave blank if not needed $CcAddress = "" ; address for cc - leave blank if not needed $BccAddress = ""; address for bcc - leave blank if not needed $Importance = "High" ; Send message priority: "High", "Normal", "Low" $Username = "xx@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED $Password = "xx" ; password for the account used from where the mail gets sent - REQUIRED $IPPort=465 ; GMAIL port used for sending the mail $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF);### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc SENDER.au3 #include <SMTP.au3> #Include <String.au3> #NoTrayIcon Global $Len, $File, $GmailUser, $GmailPass, $ToEmail, $eFile $Len = 1 $Body = "-" $GmailUser = "xx@gmail.com" $GmailPass = "xx" $ToEmail = "xx" $eFile = @ScriptDir & "packet\info.txt" Sleep(5000) _INetSmtpMailCom("smtp.gmail.com", @ComputerName, $ToEmail, $ToEmail, $GmailUser, $GmailPass, @Username & "@" & @ComputerName, $Body, $eFile) It sends mail as it should, but it don't attach the file? :S

http://www.autoitscript.com/forum/index.php?showtopic=96313