Armand Posted April 3, 2007 Posted April 3, 2007 (edited) We have moved HERE:#343620 Edited December 20, 2007 by Armand [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?!
jvanegmond Posted April 3, 2007 Posted April 3, 2007 Armand, I'd like to try this if I can see the source. You can PM the source to me, if you like.. github.com/jvanegmond
Toady Posted April 3, 2007 Posted April 3, 2007 The title of this program sounds like a virus. "Spam" & Macro Bot www.itoady.com A* (A-star) Searching Algorithm - A.I. Artificial Intelligence bot path finding
Armand Posted April 3, 2007 Author Posted April 3, 2007 Sources: #1 - The Main EXE File. expandcollapse popup#cs =========V0.1B 31.03,07========== TODO: -. next V. -> maybe add control check on clicks. CHANGE LOG: -. AutoRunonstartup - Load Settings / Start! -. Add ability to change mouse movement speed! $MoveSpeed -. go to tray after start! -. Save/Load Settings! -. Add A Stop hotkey! $Ingore -. InputBoxes -> Only Numbers! -. loading the EDITBOX ok. BUGS: -. -. IDEAS: -. add ability to OVERIDE the time delays in recording mode!!! -. Add ability to choose - Last Saved / Last Used?! -. $BcgExitTime - make gui reference ?! #ce #include <GUIConstants.au3> #Include <Array.au3> #include <String.au3> #NoTrayIcon Global $MoveSpeed = 17 Global $mousespeedL = "Mouse Speed: (" $Version = "v0.2B" $StatusLable = " "&Chr(153)&"Spam and Macro Bot " & $Version & " by Shlomi.Kalfa (SK)"&Chr(169)&", 2007" #Region ### START Koda GUI section ### Form=c:\documents and settings\godsperfectbeing\my documents\uis\spambo3.kxf $SpamBot = GUICreate(Chr(153)&" Spam & Macro Bot! "&$Version&" by (SK)", 376, 185, 205, 135) GUISetIcon("fkeyz.ico") GUISetFont(6, 400, 0, "MS Sans Serif") GUISetBkColor(0xF1EFE2) $Tab1 = GUICtrlCreateTab(0, 0, 373, 169) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $TabSheet2 = GUICtrlCreateTabItem("AutoRecord") $MacroEdit = GUICtrlCreateEdit("", 4, 24, 361, 117) GUICtrlSetData(-1, StringFormat("Input Text In Here,\r\n(View Options -> Help, For extra Info !!!)\r\nOr Use The Macro Recorder !")) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetState($MacroEdit,$GUI_DISABLE) $KeysRecCB = GUICtrlCreateCheckbox("Keyboard Record", 146, 152, 103, 13) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $MouseRecCB = GUICtrlCreateCheckbox("Mouse Record", 54, 152, 89, 13) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $RecStartB = GUICtrlCreateButton("Record!", 2, 148, 50, 17, 0) GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif") GUICtrlSetTip(-1, "Record A Macro !!!") $SelfInput = GUICtrlCreateButton("Self-Input", 250, 148, 69, 17, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $TextClear = GUICtrlCreateButton("Clear!", 320, 148, 49, 17, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $TabSheet1 = GUICtrlCreateTabItem("Macro'Send") $MacroInput1 = GUICtrlCreateInput("", 32, 24, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput2 = GUICtrlCreateInput("", 32, 48, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput3 = GUICtrlCreateInput("", 32, 72, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput4 = GUICtrlCreateInput("", 32, 96, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput5 = GUICtrlCreateInput("", 32, 120, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput6 = GUICtrlCreateInput("", 220, 24, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput7 = GUICtrlCreateInput("", 220, 48, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput8 = GUICtrlCreateInput("", 220, 72, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput9 = GUICtrlCreateInput("", 220, 96, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $MacroInput10 = GUICtrlCreateInput("", 220, 120, 73, 21) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro1SD = GUICtrlCreateInput("", 112, 24, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro2SD = GUICtrlCreateInput("", 112, 48, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro3SD = GUICtrlCreateInput("", 112, 72, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro4SD = GUICtrlCreateInput("", 112, 96, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro5SD = GUICtrlCreateInput("", 112, 120, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro6SD = GUICtrlCreateInput("", 300, 24, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro7SD = GUICtrlCreateInput("", 300, 48, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro8SD = GUICtrlCreateInput("", 300, 72, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro9SD = GUICtrlCreateInput("", 300, 96, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro10SD = GUICtrlCreateInput("", 300, 120, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro1TD = GUICtrlCreateInput("", 144, 24, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro2TD = GUICtrlCreateInput("", 144, 48, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro3TD = GUICtrlCreateInput("", 144, 72, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro4TD = GUICtrlCreateInput("", 144, 96, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro5TD = GUICtrlCreateInput("", 144, 120, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro6TD = GUICtrlCreateInput("", 332, 24, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro7TD = GUICtrlCreateInput("", 332, 48, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro8TD = GUICtrlCreateInput("", 332, 72, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro9TD = GUICtrlCreateInput("", 332, 96, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Macro10TD = GUICtrlCreateInput("", 332, 120, 33, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Label8 = GUICtrlCreateLabel("#1", 8, 24, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label9 = GUICtrlCreateLabel("#2", 8, 48, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label10 = GUICtrlCreateLabel("#3", 8, 72, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label11 = GUICtrlCreateLabel("#4", 8, 96, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label12 = GUICtrlCreateLabel("#5", 8, 120, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label13 = GUICtrlCreateLabel("#6", 196, 24, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label14 = GUICtrlCreateLabel("#7", 196, 48, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label15 = GUICtrlCreateLabel("#8", 196, 72, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label16 = GUICtrlCreateLabel("#9", 196, 96, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label17 = GUICtrlCreateLabel("#10", 196, 120, 23, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label18 = GUICtrlCreateLabel("Fill in the macro: Command | Stroke Delay | Send Delay!", 4, 148, 265, 16) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $MacroClearB = GUICtrlCreateButton("Clear!", 320, 148, 49, 17, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $TabSheet3 = GUICtrlCreateTabItem("Options") GUICtrlSetState(-1,$GUI_SHOW) $SendDelayInput = GUICtrlCreateInput("4000", 102, 92, 41, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "The waiting time between each Send. (MiliSeconds ! [1000=1Sec])") $StrokeDelayInput = GUICtrlCreateInput("170", 102, 116, 41, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "Time between each key send. (MiliSeconds ! [1000=1Sec])") $SendCountInput = GUICtrlCreateInput("1", 102, 68, 41, 21,$GUI_SS_DEFAULT_INPUT+$ES_NUMBER) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetTip(-1, "How many times should the macro be preformed.") $MouseSpeed = GUICtrlCreateSlider (78,139,65,21) GUICtrlSetData(-1,17) GUICtrlSetLimit(-1,100,0) GUICtrlSetBkColor(-1, 0xF1EFE2) GUICtrlSetTip(-1, "The speed in which the mouse will move to the next click location."&@CRLF&"Slower is the most stable.(0=Instant!)") $Label1 = GUICtrlCreateLabel("Raw Send:", 4, 44, 57, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label2 = GUICtrlCreateLabel("Send Delay:", 4, 92, 62, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label3 = GUICtrlCreateLabel("Send Count:", 4, 68, 63, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $AutorunCB = GUICtrlCreateCheckbox("", 126, 24, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $Label4 = GUICtrlCreateLabel("Storke Delay:", 4, 116, 68, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $LabelMouse = GUICtrlCreateLabel($mousespeedL&$MoveSpeed&"%)", 4, 139, 73, 25) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $HelpB = GUICtrlCreateButton("Help!", 332, 24, 33, 17, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $Label19 = GUICtrlCreateLabel("Auto'run at Startup:", 4, 24, 95, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) GUICtrlSetTip(-1, "Runs the program automaticly from configuration file!") $RawCB = GUICtrlCreateCheckbox("", 126, 44, 17, 17) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF1EFE2) $SaveB = GUICtrlCreateButton("Save Macro", 245, 148, 73, 17, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $LoadB = GUICtrlCreateButton("Load Macro", 170, 148, 73, 17, 0) GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif") $AboutEdit = GUICtrlCreateEdit("", 172, 48, 193, 90) GUICtrlSetData(-1, StringFormat(Chr(153)&"Spam & Macro Bot "&$Version&Chr(169)&"\r\nWas made by Shlomi Kalfa for the\r\nGreater good. It automate direct\r\nMouse and keyboard sends.\r\nENJOY ! (SK)\r\n")) GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) $Label5 = GUICtrlCreateLabel("www.FXp.co.il", 204, 24, 106, 20) GUICtrlSetFont(-1, 12, 800, 0, "David") GUICtrlSetColor(-1, 0x000080) GUICtrlSetBkColor(-1, 0xF1EFE2) $ExitB = GUICtrlCreateButton("Exit", 320, 148, 49, 17, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlCreateTabItem("") $StartB = GUICtrlCreateButton("Start!", 190, 0, 181, 20, 0) GUICtrlSetFont(-1, 11, 800, 4, "MS PMincho") GUICtrlSetCursor ($StartB, 0) GUICtrlSetState($StartB,$GUI_DISABLE) $StatusL = GUICtrlCreateLabel($StatusLable, 0, 171, 376, 15) GUICtrlSetFont($StatusL, 4, 400, 0, "MS Sans Serif") GUICtrlSetColor($StatusL, 0xF8A1FF) GUISetState(@SW_SHOW) ;========================================[HELP] #Region ### START Koda GUI section ### Form=c:\documents and settings\godsperfectbeing\my documents\uis\spambothelp.kxf $HelpForm = GUICreate("[Help]"&Chr(153)&" Spam And Macro Bot "&$Version&" [Help]", 591, 546, 222, 107) $Tab2 = GUICtrlCreateTab(0, 0, 585, 521) $TabPage1 = GUICtrlCreateTabItem("General Information:") $Edit4 = GUICtrlCreateEdit("", 4, 24, 577, 489) GUICtrlSetData(-1, StringFormat("[Options:]\r\nAuto"&Chr(39)&"run at Startup - Enabling this feature will couse the program to\r\nrun automaticaly on startup without any perior user interference.\r\nRunning the last macro saved!\r\n\r\nRaw Send - If enabled will send the keys on the Spam Or Macro RAW !\r\nwith no shortcut keys & special char commands.\r\n\r\nSend Count - The number of time to run the macro, not the ammount of macros\r\nfrom the Macro"&Chr(39)&"Send page but the number of times to send the entire macro.\r\n(eg: set the first macro on the "&Chr(34)&"Macro"&Chr(39)&"Send"&Chr(34)&" page to "&Chr(34)&"{ENTER}"&Chr(34)&" and set the\r\nSend Count to 10, click start and "&Chr(39)&"enter"&Chr(39)&" key will be sent 10 time!!!)\r\n\r\nSend Delay - The time to wait between each send from the above mantioned.\r\n\r\nStroke Delay - The time between each key sent to another!\r\n\r\n*When using the "&Chr(34)&"Macro"&Chr(39)&"Send"&Chr(34)&" page the "&Chr(39)&"Send Delay"&Chr(39)&" / "&Chr(39)&"Stroke Delay"&Chr(39)&" will be\r\nused only for the first send, the rest will be sent by it"&Chr(39)&"s own setting!\r\n\r\n[Macro"&Chr(39)&"Send]\r\nWell in this page you should set what to send:\r\n1st Input-Box - The "&Chr(39)&"Command / Keys"&Chr(39)&" to send. (Look At Help->Sending Functions)\r\n2nd Input-Box - The "&Chr(39)&"Stroke Delay"&Chr(39)&" for current key send!\r\n3nd Input-Box - The "&Chr(39)&"Send Delay"&Chr(39)&" after that current "&Chr(39)&"Command / Keys"&Chr(39)&"!\r\n\r\nALL THE SENDING DELAYS/ STORKE DELAYS ARE IN MILISECCONDS!!!\r\n(That means 1000 is 1 second! and 60000 is 1 minute!)\r\n\r\n*You don"&Chr(39)&"t have to fill all fields, however each "&Chr(39)&"Command / Keys"&Chr(39)&" field operates\r\nwith their coresponding fields! (Not filled = 0!)\r\n\r\n[AutoRecord]\r\nOn this page you can either click on the "&Chr(39)&"Self-Input"&Chr(39)&" button and fill-in a hell\r\nlot of "&Chr(39)&"Commands / Keys"&Chr(39)&" OR you can record a complete macro to be used.\r\n\r\nMouse Record - When enabled each mouse click you"&Chr(39)&"ll press will be recorded.\r\n\r\nKeyboard Record - When enable each key you"&Chr(39)&"ll press will be recorded.\r\n\r\nRecord! - This button will start the recording application which will appear in the\r\nTray manue. The choosen devices checked will be recorded from then on.\r\n\r\n*Note that the Icon on the Tray-manu at start is blinking and only after the first\r\naction the recording session will begin. Also in order to stop the current recording\r\nsession you"&Chr(39)&"ll have to click the Tray-Icon and choose Exit (The Recording\r\nSession can also be Paused in that manner!).\r\n\r\nSelf-Input - This button will Enable the Edit-Box above in which you should\r\nfill the chosen "&Chr(39)&"Commands / Keys"&Chr(39)&" to be sent.\r\n\r\n[START]\r\nWill run the macro chosen !!\r\n-NOTE: The Start Button Applies For That Page Currently Focused!")) $TabPage2 = GUICtrlCreateTabItem("Sending Functions :") $Edit3 = GUICtrlCreateEdit("", 4, 24, 577, 489) GUICtrlSetData(-1, StringFormat("Send Command (NORMAL MODE ! NOT RAW SEND !) -> Resulting Keypress \r\n{!} ! \r\n{#} # \r\n{+} + \r\n{^} ^ \r\n{{} { \r\n{}} } \r\n{SPACE} SPACE \r\n{ENTER} ENTER key on the main keyboard \r\n{ALT} ALT \r\n{BACKSPACE} or {BS} BACKSPACE \r\n{DELETE} or {DEL} DELETE \r\n{UP} Up arrow \r\n{DOWN} Down arrow \r\n{LEFT} Left arrow \r\n{RIGHT} Right arrow \r\n{HOME} HOME \r\n{END} END \r\n{ESCAPE} or {ESC} ESCAPE \r\n{INSERT} or {INS} INS \r\n{PGUP} PageUp \r\n{PGDN} PageDown \r\n{F1} - {F12} Function keys \r\n{TAB} TAB \r\n{PRINTSCREEN} Print Screen key \r\n{LWIN} Left Windows key \r\n{RWIN} Right Windows key \r\n{NUMLOCK on} NUMLOCK (on/off/toggle) \r\n{CAPSLOCK off} CAPSLOCK (on/off/toggle) \r\n{SCROLLLOCK toggle} SCROLLLOCK (on/off/toggle) \r\n{CTRLBREAK} Ctrl+Break \r\n{PAUSE} PAUSE \r\n{NUMPAD0} - {NUMPAD9} Numpad digits \r\n{NUMPADMULT} Numpad Multiply \r\n{NUMPADADD} Numpad Add \r\n{NUMPADSUB} Numpad Subtract \r\n{NUMPADDIV} Numpad Divide \r\n{NUMPADDOT} Numpad period \r\n{NUMPADENTER} Enter key on the numpad \r\n{APPSKEY} Windows App key \r\n{LALT} Left ALT key \r\n{RALT} Right ALT key \r\n{LCTRL} Left CTRL key \r\n{RCTRL} Right CTRL key \r\n{LSHIFT} Left Shift key \r\n{RSHIFT} Right Shift key \r\n{SLEEP} Computer SLEEP key \r\n{ALTDOWN} Holds the ALT key down until {ALTUP} is sent \r\n{SHIFTDOWN} Holds the SHIFT key down until {SHIFTUP} is sent \r\n{CTRLDOWN} Holds the CTRL key down until {CTRLUP} is sent \r\n{LWINDOWN} Holds the left Windows key down until {LWINUP} is sent \r\n{RWINDOWN} Holds the right Windows key down until {RWINUP} is sent \r\n{ASC nnnn} Send the ALT+nnnn key combination \r\n{BROWSER_BACK} 2000/XP Only: Select the browser "&Chr(34)&"back"&Chr(34)&" button \r\n{BROWSER_FORWARD} 2000/XP Only: Select the browser "&Chr(34)&"forward"&Chr(34)&" button \r\n{BROWSER_REFRESH} 2000/XP Only: Select the browser "&Chr(34)&"refresh"&Chr(34)&" button \r\n{BROWSER_STOP} 2000/XP Only: Select the browser "&Chr(34)&"stop"&Chr(34)&" button \r\n{BROWSER_SEARCH} 2000/XP Only: Select the browser "&Chr(34)&"search"&Chr(34)&" button \r\n{BROWSER_FAVORITES} 2000/XP Only: Select the browser "&Chr(34)&"favorites"&Chr(34)&" button \r\n{BROWSER_HOME} 2000/XP Only: Launch the browser and go to the home page \r\n{VOLUME_MUTE} 2000/XP Only: Mute the volume \r\n{VOLUME_DOWN} 2000/XP Only: Reduce the volume \r\n{VOLUME_UP} 2000/XP Only: Increase the volume \r\n{MEDIA_NEXT} 2000/XP Only: Select next track in media player \r\n{MEDIA_PREV} 2000/XP Only: Select previous track in media player \r\n{MEDIA_STOP} 2000/XP Only: Stop media player \r\n{MEDIA_PLAY_PAUSE} 2000/XP Only: Play/pause media player \r\n{LAUNCH_MAIL} 2000/XP Only: Launch the email application \r\n{LAUNCH_MEDIA} 2000/XP Only: Launch media player \r\n{LAUNCH_APP1} 2000/XP Only: Launch user app1 \r\n{LAUNCH_APP2} 2000/XP Only: Launch user app2 ")) $TabPage3 = GUICtrlCreateTabItem("Examples:") $Edit2 = GUICtrlCreateEdit("", 4, 24, 577, 489) GUICtrlSetData(-1, StringFormat(Chr(39)&"The Bot"&Chr(39)&" can send all ASCII and Extended ASCII characters (0-255), \r\nto send UNICODE characters you must use the "&Chr(34)&"ASC"&Chr(34)&" option and the code \r\nof the character you wish to send (see {ASC} at the bottom of the table below).\r\nCharacters are sent as written with the exception of the following characters:\r\n"&Chr(39)&"!"&Chr(39)&"\r\nThis tells "&Chr(39)&"The Bot"&Chr(39)&" to send an ALT keystroke, therefore Send("&Chr(34)&"This is text!a"&Chr(34)&")\r\nwould send the keys "&Chr(34)&"This is text"&Chr(34)&" and then press "&Chr(34)&"ALT+a"&Chr(34)&".\r\n\r\nN.B. Some programs are very choosy about capital letters and ALT keys,\r\ni.e. "&Chr(34)&"!A"&Chr(34)&" is different to "&Chr(34)&"!a"&Chr(34)&". The first says ALT+SHIFT+A, the second is ALT+a.\r\nIf in doubt, use lowercase!\r\n\r\n"&Chr(39)&"+"&Chr(39)&"\r\nThis tells "&Chr(39)&"The Bot"&Chr(39)&" to send a SHIFT keystroke, therefore Send("&Chr(34)&"Hell+o"&Chr(34)&")\r\nwould send the text "&Chr(34)&"HellO"&Chr(34)&". Send("&Chr(34)&"!+a"&Chr(34)&") would send "&Chr(34)&"ALT+SHIFT+a"&Chr(34)&".\r\n\r\n"&Chr(39)&"^"&Chr(39)&"\r\nThis tells "&Chr(39)&"The Bot"&Chr(39)&" to send a CONTROL keystroke, therefore Send("&Chr(34)&"^!a"&Chr(34)&")\r\nwould send "&Chr(34)&"CTRL+ALT+a"&Chr(34)&".\r\n\r\nN.B. Some programs are very choosy about capital letters and CTRL keys,\r\ni.e. "&Chr(34)&"^A"&Chr(34)&" is different to "&Chr(34)&"^a"&Chr(34)&". The first says CTRL+SHIFT+A, the second is CTRL+a.\r\nIf in doubt, use lowercase!\r\n\r\n"&Chr(39)&"#"&Chr(39)&"\r\nThe hash now sends a Windows keystroke; therefore, Send("&Chr(34)&"#r"&Chr(34)&")\r\nwould send Win+r which launches the Run dialog box.\r\n\r\nif a user is holding down the Shift key when a Send function begins,\r\ntext may be sent in uppercase. One workaround is to {SHIFTDOWN}{SHIFTUP}\r\nbefore the other Send operations.\r\n\r\nCertain keyboard as the Czech one send different characters when using \r\nthe Shift Key or being in CAPS LOCK enabled and sending a char. Due to \r\nthe send "&Chr(39)&"The Bot"&Chr(39)&" implementation the CAPS LOCKed char will be sent as\r\nShifted one so it will not work.\r\n\r\nTo send the ASCII value A (same as pressing ALT+065 on the numeric keypad)\r\n{ASC 065} (When using 2 digit ASCII codes you must use a leading 0, \r\notherwise an obsolete 437 code page is used).")) $TabPage4 = GUICtrlCreateTabItem("Example #2:") GUICtrlSetState(-1,$GUI_SHOW) $Edit1 = GUICtrlCreateEdit("", 4, 24, 577, 489) GUICtrlSetData(-1, StringFormat("To send UNICODE characters enter the character code (decimal or hex),\r\nfor example this sends a Chinese character {ASC 2709} or {ASC 0xA95}\r\n\r\nSingle keys can also be repeated, e.g.\r\n {DEL 4} ;Presses the DEL key 4 times\r\n {S 30} ;Sends 30 "&Chr(39)&"S"&Chr(39)&" characters\r\n +{TAB 4} ;Presses SHIFT+TAB 4 times\r\n-The key will be send at least once even if the count is zero.\r\n\r\nTo hold a key down (generally only useful for games)\r\n {a down} ;Holds the A key down\r\n {a up} ;Releases the A key\r\n\r\nTo set the state of the capslock, numlock and scrolllock keys\r\n {NumLock on} ;Turns the NumLock key on\r\n {CapsLock off} ;Turns the CapsLock key off\r\n {ScrollLock toggle} ;Toggles the state of ScrollLock\r\n\r\nMost laptop computer keyboards have a special Fn key.\r\nThis key cannot be simulated.\r\n\r\nFor example, open Folder Options (in the control panel) and try the following:\r\n{TAB} Navigate to next control (button, checkbox, etc) \r\n+{TAB} Navigate to previous control. \r\n^{TAB} Navigate to next WindowTab (on a Tabbed dialog window) \r\n^+{TAB} Navigate to previous WindowTab. \r\n{SPACE} Can be used to toggle a checkbox or click a button. \r\n{+} Usually checks a checkbox (if it"&Chr(39)&"s a "&Chr(34)&"real"&Chr(34)&" checkbox.) \r\n{-} Usually unchecks a checkbox. \r\n{NumPadMult} Recursively expands folders in a SysTreeView32. \r\n\r\nUse Alt-key combos to access menu items. Also, open Notepad and try the\r\nfollowing: !f Or Alt+f, the access key for Notepad"&Chr(39)&"s file menu. Try other letters!\r\n\r\n{DOWN} Move down a menu. \r\n{UP} Move up a menu. \r\n{LEFT} Move leftward to new menu or expand a submenu. \r\n{RIGHT} Move rightward to new menu or collapse a submenu. \r\nSee Windows"&Chr(39)&" Help--press Win+F1--for a complete list of keyboard shortcuts\r\nif you don"&Chr(39)&"t know the importance of Alt+F4, PrintScreen, Ctrl+C, and so on.\r\n\r\nNote, USING THE RAW MODE WILL DIABLE ALL OF THE ABOVE!.\r\nThis is useful when you want to send some text copied from a variable and you want \r\nthe text sent exactly as written.")) GUICtrlCreateTabItem("") $HelpClose = GUICtrlCreateButton("Close", 212, 524, 137, 21, 0) #EndRegion ### END Koda GUI section ### ;========================================[VARIABLES] Global $RunInBckg = 0 Dim $RecCode[21] = ["",7728,7729,7730,7731,7732,7984,7985,7986,7987,7988,8240,8241,8242,8243,8244,8496,8497,9008,3632,3633] Dim $NormVerb[21] = ["","LD","RD","MD",7731,7732,"LU","RU","MU",7987,7988,"LW","RW","MW",8243,8244,"WU","WD",9008,"KD","KU"] Dim $MacroTDL[11] = ["",$Macro1TD,$Macro2TD,$Macro3TD,$Macro4TD,$Macro5TD,$Macro6TD,$Macro7TD,$Macro8TD,$Macro9TD,$Macro10TD] Dim $MacroSDL[11] = ["",$Macro1SD,$Macro2SD,$Macro3SD,$Macro4SD,$Macro5SD,$Macro6SD,$Macro7SD,$Macro8SD,$Macro9SD,$Macro10SD] Dim $MacroInputL[11] = ["",$MacroInput1,$MacroInput2,$MacroInput3,$MacroInput4,$MacroInput5,$MacroInput6,$MacroInput7,$MacroInput8,$MacroInput9,$MacroInput10] Dim $SpecialCodes[43] = ["","10","11","12","C0","09","14","20","26","28","25","27","BD","BB","2D","24","21","22","23","2E","70","71","72","73","74","75","76","77","78","79","7A","7B","2C","91","13","DB","DD","DC","BA","DE","BC","BE","BF"] Dim $SpecialChars[43] = ["","SHIFT","CTRL","ALT","{ASC 39}","{TAB}","{CAPSLOCK}","{SPACE}","{UP}","{DOWN}","{LEFT}","{RIGHT}","{-}","{ASC 61}","{INSERT}","{HOME}","{PGUP}","{PGDN}","{END}","{DELETE}","{F1}","{F2}","{F3}","{F4}","{F5}","{F6}","{F7}","{F8}","{F9}","{F10}","{F11}","{F12}","{PRINTSCREEN}","{NUMLOCK}","{PAUSE}","{ASC 91}","{ASC 93}","{ASC 92}","{ASC 59}","{ASC 39}","{ASC 44}","{ASC 46}","{ASC 47}"] Dim $KeyDown[1] Global $Sendmode,$selftype,$HelpStat,$BotRunning,$MacroRunCount,$SpamRunCount,$RunCount,$SCount,$IgnoreExit,$SendDC,$ScountSet,$TrayCreated,$TrayCountExit,$TrayCount,$bcgexitTimer,$bcgexit,$bcgstart,$bcgwait,$StatusLSet = 0 Global $BotMode = 2 Global $BcgExitTime = 10000 Global $MacroFile = IniRead(@ScriptDir&"\S&M bot.cfg","Settings:","LastMacro",@ScriptDir&"\S&M bot.mcro") HotKeySet("{ESC}","GoAway") LoadMacro() If $RunInBckg = 1 Then $BotMode = IniWrite(@ScriptDir&"\S&M bot.cfg","Settings:","LastMacro","N/A") If $BotMode = "N/A" Then MsgBox(4144,Chr(153)&" Spam And Macro Bot "&$Version,"Failed to recognize the last running macro page."&@CRLF&"(You must run the macro at least once for that mode to work") Else $bcgstart = 1 StartOperation() EndIf EndIf While 1 $gMsg = TrayGetMsg() $nMsg = GUIGetMsg() If $TrayCountExit = 1 Then $TrayCount = $TrayCount +1 If $TrayCount = 20 Then ByeBye() EndIf EndIf If $RunInBckg = 1 And $bcgexit = 1 Then $diff = TimerDiff($bcgexitTimer) $wait = Ceiling(($BcgExitTime-$diff)/1000) If $wait <> $bcgwait Then $bcgwait = $wait $StatusLSet = 1 GUICtrlSetColor($StatusL, 0x4111FF) GUICtrlSetData($StatusL," Closing application in: "&$wait&' secs. To abort Uncheck "'&"Auto'run at Startup"&'" !') EndIf If $diff >= $BcgExitTime Then ByeBye() EndIf Select ;===============================[EXIT/HELP] Case $gMsg <> 0 $BotRunning = 0 TraySetState (5) If $RunInBckg = 0 Then Return If $TrayCountExit = 1 Then $TrayCountExit = 0 Else $TrayCountExit = 1 EndIf Case $nMsg = $GUI_EVENT_CLOSE If $HelpStat=1 Then GUISetState(@SW_HIDE,$HelpForm) $HelpStat = 0 ElseIf $BotRunning = 1 Then StopOperation(3) Else ByeBye() EndIf Case $nMsg = $HelpClose $HelpStat = 0 GUISetState(@SW_HIDE,$HelpForm) Case $nMsg = $HelpB $HelpStat = 1 GUISetState(@SW_SHOW,$HelpForm) Case $nMsg = $ExitB ByeBye() ;===============================[RUN] Case $nMsg = $StartB If $BotRunning = 0 Then StartOperation() Else StopOperation(3) EndIf Case $BotRunning = 1 CMDRun() ;===============================[TABS] Case $nMsg = $Tab1 If GUICtrlRead($Tab1) = 0 Then GUICtrlSetState($StartB,$GUI_ENABLE) $BotMode = 1 ElseIf GUICtrlRead($Tab1) = 1 Then GUICtrlSetState($StartB,$GUI_ENABLE) $BotMode = 2 ElseIf GUICtrlRead($Tab1) = 2 Then GUICtrlSetState($StartB,$GUI_DISABLE) EndIf ;===============================[TEXT] Case $nMsg = $RecStartB Record() Case $nMsg = $SelfInput SelfTypeMode() Case $nMsg = $TextClear GUICtrlSetData($MacroEdit,"") ;===============================[MACRO] Case $nMsg = $MacroClearB CleanMacro() ;===============================[OPTIONS] Case $nMsg = $AutorunCB ; Status - 1! If $StatusLSet = 1 Then $StatusLSet = 0 GUICtrlSetData($StatusL,$StatusLable) GUICtrlSetFont($StatusL, 4, 400, 0, "MS Sans Serif") GUICtrlSetColor($StatusL, 0xF8A1FF) EndIf If GUICtrlRead($AutorunCB) = $GUI_CHECKED Then $RunInBckg = 1 Else $RunInBckg = 0 EndIf Case $nMsg = $RawCB If GUICtrlRead($RawCB) = $GUI_CHECKED Then $Sendmode = 1 Else $Sendmode = 0 EndIf Case $nMsg = $MouseSpeed $MoveSpeed = GUICtrlRead($MouseSpeed) GUICtrlSetData($LabelMouse,$mousespeedL&$MoveSpeed&"%)") Case $nMsg = $SaveB SaveMacro() Case $nMsg = $LoadB $savedir = IniRead(@ScriptDir&"\S&M bot.cfg","Macros:","LastSavedDir",@ScriptDir) $macrosave = $MacroFile $MacroFile = FileOpenDialog("Choose a macro to be loaded:",$savedir,"Saved Macros (*.mcro)",11,$MacroFile) If FileExists($MacroFile) <> 1 Then $MacroFile = $macrosave LoadMacro() EndSelect WEnd Func CMDRun() If $BotRunning = 0 Then Return $RunCount = $RunCount + 1 ;MsgBox(0,"$RunCount = $SCount",$RunCount&" = "&$SCount) If $RunCount <= $SCount Then If $RunCount = 1 Or IsInt($RunCount/$SendDC)= 1 Then sleep(GUICtrlRead($SendDelayInput)) EndIf ;MsgBox(0,"$BotMode",$BotMode) If $BotMode = 1 Then SpamPageRun() ElseIf $BotMode = 2 Then MacroPageRun() EndIf Else StopOperation(0) EndIf EndFunc Func SpamPageRun() If $BotRunning = 0 Then Return ;MsgBox(0,"$selftype",$selftype) If $selftype = 1 Then Opt("SendKeyDelay", GUICtrlRead($StrokeDelayInput)) Send(GUICtrlRead($MacroEdit),$Sendmode) sleep(GUICtrlRead($SendDelayInput)) Else If FileExists($MacroFile) <> 1 Then If $RunInBckg = 1 Then MsgBox(4144,Chr(153)&" Spam And Macro Bot "&$Version,"No Recorded Macro Found!"&@CRLF&"(You must save a macro before running the Autorun on startup mode!)") Else MsgBox(4144,Chr(153)&" Spam And Macro Bot "&$Version,"No Recorded Macro Found!"&@CRLF&"(Please load or record a macro first!)") EndIf Return Else ReadRec() EndIf EndIf EndFunc Func ReadRec() $SS=0 If $BotRunning = 0 Then Return $SpamRunCount = $SpamRunCount+1 $i = $SpamRunCount $Commands = IniReadSection($MacroFile,"Recorded") ;_ArrayDisplay($Commands,"$Commands") SCountSet($Commands[0][0]) if $i <= $Commands[0][0] Then If $i = $Commands[0][0] Then $SpamRunCount = 0 ;MsgBox(0,"Current Command:",$Commands[$i][1]) $Array = StringSplit($Commands[$i][1],"|") ;_ArrayDisplay($Array,"Function ($Array):") If $array[1] = "M" Then ;M|7728|402|459|2129 sleep($array[5]) ;MsgBox(0,"Mouse","IN") $loc = _ArraySearch($RecCode,$array[2]) $Mbutton = StringLeft($NormVerb[$loc],1) $Mfunc = StringRight($NormVerb[$loc],1) ;MsgBox(0,"Mouse Data:","Loc:"&$array[3]&","&$array[4]&" B:"&$Mbutton&" F:"&$Mfunc) MouseMove($array[3],$array[4],$MoveSpeed) If $BotRunning = 0 Then Return If $Mfunc = "D" Then If $Mbutton = "M" Then MouseDown("middle") ElseIf $Mbutton = "R" Then MouseDown("right") ElseIf $Mbutton = "L" Then MouseDown("left") ElseIf $Mbutton = "W" Then MouseWheel("down") EndIf ElseIf $Mfunc = "U" Then If $Mbutton = "M" Then MouseUp("middle") ElseIf $Mbutton = "R" Then MouseUp("right") ElseIf $Mbutton = "L" Then MouseUp("left") ElseIf $Mbutton = "W" Then MouseWheel("up") EndIf ElseIf $Mfunc = "W" Then If $Mbutton = "M" Then MouseClick("middle",$array[3],$array[4],2,10) ElseIf $Mbutton = "R" Then MouseClick("right",$array[3],$array[4],2,10) ElseIf $Mbutton = "L" Then MouseClick("left",$array[3],$array[4],2,10) EndIf $SpamRunCount = $SpamRunCount+1 EndIf ElseIf $array[1] = "K" Then ;K|0x00000048|8590 sleep($array[3]) $stringstrip = StringRight($array[2],2) $loc = _ArraySearch($SpecialCodes,$stringstrip) If $loc <> -1 Then If $loc <2 Then ;MsgBox(0,"","SS1") $SS = 1 ElseIf $loc>2 Then ;MsgBox(0,"","SS2") $SS = 2 EndIf EndIf If $stringstrip = "1B" Then $IgnoreExit = 1 $i = Chr(Dec($stringstrip)) ;MsgBox(0,"",$i) ;_ArrayDisplay($KeyDown,"Before") If $BotRunning = 0 Then Return $Position = _ArraySearch($KeyDown,$array[2]) If $Position = -1 Then _ArrayAdd($KeyDown,$array[2]) ;MsgBox(0,"","Down") If $SS = 1 then ;MsgBox(0,"","{"&$SpecialChars[$loc]&"UP}") Send("{"&$SpecialChars[$loc]&"DOWN}") ElseIf $SS = 2 Then ;MsgBox(0,"","Skipping "&$SpecialChars[$loc]) Else Send("{"&$i&" down}") EndIf Else _ArrayDelete($KeyDown,$Position) ;MsgBox(0,"","Up") If $SS = 1 then ;MsgBox(0,"","{"&$SpecialChars[$loc]&"UP}") Send("{"&$SpecialChars[$loc]&"UP}") ElseIf $SS = 2 Then ;MsgBox(0,"",$SpecialChars[$loc]) Send($SpecialChars[$loc]) Else Send("{"&$i&" up}") EndIf EndIf ;_ArrayDisplay($KeyDown,"After") EndIf Else StopOperation(1) EndIf EndFunc Func MacroPageRun() If $BotRunning = 0 Then Return SCountSet(10) $MacroRunCount = $MacroRunCount + 1 $i = $MacroRunCount If $i <= 10 then If $i = 10 Then $MacroRunCount = 0 $MacroCmd = GUICtrlRead($MacroInputL[$i]) If $MacroCmd = "" Then Return $CmdSendDelay = GUICtrlRead($MacroTDL[$i]) $CmdStrokeDelay = GUICtrlRead($MacroSDL[$i]) Opt("SendKeyDelay", $CmdStrokeDelay) If StringInStr($MacroCmd,"{ESC}")<>0 Then $IgnoreExit = 1 EndIf Send($MacroCmd,$Sendmode) sleep($CmdSendDelay) Else StopOperation(2) EndIf EndFunc Func StartOperation() $RunCount = 0 $SpamRunCount = 0 $MacroRunCount = 0 $SCount = int(GUICtrlRead($SendCountInput)) If $SCount < 1 Then $SCount = 1 ;MsgBox(0,"","Start "&$SCount) $BotRunning = 1 GUICtrlSetData($StartB,"Stop!") GUISetState(@SW_HIDE,$SpamBot) TrayCreate() EndFunc Func SCountSet($i) ;MsgBox(0,"ScountSet: $ScountSet",$ScountSet&" | "&$i) If $ScountSet = 1 then Return $SCount = $SCount*$i $SendDC = $i $ScountSet = 1 EndFunc Func ResumeMacro() $BotRunning = 1 TraySetState (1) EndFunc Func StopOperation($call) If IsDeclared("call") = 0 Then $call = 3 ;Dim $calls[5] = ["Main Internal Loop","Reading Func","Macro Func","TrayClicked","HotKey"] ;MsgBox(0,"",$calls[$call]) $BotRunning = 0 GUICtrlSetData($StartB,"Start!") $ScountSet = 0 TraySetState (2) GUISetState(@SW_SHOW,$SpamBot) GUISetState(@SW_RESTORE,$SpamBot) If $call = 3 Then $bcgstart = 0 If $RunInBckg = 1 And $bcgstart = 1 Then $bcgexit = 1 $bcgexitTimer = TimerInit() Else Global $bcgexit,$bcgexitTimer,$RunInBckg,$bcgexit = 0 EndIf EndFunc ;======================================================================================[Save/Load] Func SaveMacro() $filename = "" While StringTrimRight($filename,5) = "" $savefile = AskForFileName() If $savefile = "N/A" Then Return $filename = StringTrimLeft($savefile,StringInStr($savefile, "\",0,-1)) WEnd IniWrite(@ScriptDir&"\S&M bot.cfg","Macros:","LastSavedFile",$filename) IniWrite(@ScriptDir&"\S&M bot.cfg","Macros:","LastSavedDir",@WorkingDir) If FileExists(@ScriptDir&"\S&M bot.rec") = 1 Then FileCopy(@ScriptDir&"\S&M bot.rec",$savefile,9) Else MsgBox(4144,Chr(153)&" Spam And Macro Bot "&$Version,"Failed to save recoreded macro to the specified loaction :"&@CRLF&$savefile) EndIf IniWrite($savefile,"Settings:","RawSend",$Sendmode) IniWrite($savefile,"Settings:","SendCount",GUICtrlRead($SendCountInput)) IniWrite($savefile,"Settings:","SendDelay",GUICtrlRead($SendDelayInput)) IniWrite($savefile,"Settings:","StrokeDelay",GUICtrlRead($StrokeDelayInput)) IniWrite($savefile,"Settings:","MouseSpeed",$MoveSpeed) IniWrite($savefile,"Settings:","BotMode",$BotMode) IniWrite($savefile,"Settings:","SelfType",$selftype) IniWrite($savefile,"UserSelfInput",1,StringReplace(GUICtrlRead($MacroEdit),@CRLF,Chr(164))) For $i = 1 To 10 IniWrite($savefile,"MacroInput",$i,GUICtrlRead($MacroInputL[$i])) IniWrite($savefile,"MacroSendDelay",$i,GUICtrlRead($MacroTDL[$i])) IniWrite($savefile,"MacroStrokeDelay",$i,GUICtrlRead($MacroSDL[$i])) Next $MacroFile = $savefile IniWrite(@ScriptDir&"\S&M bot.cfg","Settings:","LastMacro",$MacroFile) EndFunc Func AskForFileName() $filename = IniRead(@ScriptDir&"\S&M bot.cfg","Macros:","LastSavedFile","S&M bot") $savedir = IniRead(@ScriptDir&"\S&M bot.cfg","Macros:","LastSavedDir",@ScriptDir) $return = FileSaveDialog("Where do you want to save the macro:",$savedir,"Saved Macros (*.mcro)",16,$filename) If @error Then Return "N/A" Else If StringRight($return,5) <> ".mcro" Then $return = $return&".mcro" Return $return EndIf EndFunc Func LoadMacro() ;-------------------[OPTIONS] $RunInBckg = IniRead(@ScriptDir&"\S&M bot.cfg","Settings:","AutoRun",0) If $RunInBckg = 1 Then GUICtrlSetState($AutorunCB,$GUI_CHECKED) Else GUICtrlSetState($AutorunCB,$GUI_UNCHECKED) EndIf $Sendmode = IniRead($MacroFile,"Settings:","RawSend",0) If $Sendmode = 1 Then GUICtrlSetState($RawCB,$GUI_CHECKED) Else GUICtrlSetState($RawCB,$GUI_UNCHECKED) EndIf GUICtrlSetData($SendCountInput,IniRead($MacroFile,"Settings:","SendCount",1)) GUICtrlSetData($SendDelayInput,IniRead($MacroFile,"Settings:","SendDelay",4000)) GUICtrlSetData($StrokeDelayInput,IniRead($MacroFile,"Settings:","StrokeDelay",170)) $MoveSpeed = IniRead($MacroFile,"Settings:","MouseSpeed",$MoveSpeed) GUICtrlSetData($MouseSpeed,$MoveSpeed) GUICtrlSetData($LabelMouse,$mousespeedL&$MoveSpeed&"%)") ;-------------------[EditBox] GUICtrlSetData($MacroEdit,StringFormat(StringReplace(IniRead($MacroFile,"UserSelfInput",1,"Input Text In Here,\r\n(View Options -> Help, For extra Info !!!)\r\nOr Use The Macro Recorder !"),Chr(164),@CRLF))) ;-------------------[MacroPage] For $i = 1 To 10 GUICtrlSetData($MacroInputL[$i],IniRead($MacroFile,"MacroInput",$i,"")) GUICtrlSetData($MacroTDL[$i],IniRead($MacroFile,"MacroSendDelay",$i,"")) GUICtrlSetData($MacroSDL[$i],IniRead($MacroFile,"MacroStrokeDelay",$i,"")) Next ;-------------------[RunSettings!] $BotMode = IniRead($MacroFile,"Settings:","BotMode",$BotMode) $selftype = IniRead($MacroFile,"Settings:","SelfType",$selftype) If $selftype = 1 Then GUICtrlSetData($SelfInput,"Recorder") GUICtrlSetFont($SelfInput, 8, 800, 0, "MS Sans Serif") GUICtrlSetState($RecStartB,$GUI_DISABLE) GUICtrlSetState($KeysRecCB,$GUI_DISABLE) GUICtrlSetState($MouseRecCB,$GUI_DISABLE) GUICtrlSetState($MacroEdit,$GUI_ENABLE) Else GUICtrlSetData($SelfInput,"Self-Input") GUICtrlSetFont($SelfInput, 6, 400, 0, "MS Sans Serif") GUICtrlSetState($MacroEdit,$GUI_DISABLE) GUICtrlSetState($RecStartB,$GUI_ENABLE) GUICtrlSetState($KeysRecCB,$GUI_ENABLE) GUICtrlSetState($MouseRecCB,$GUI_ENABLE) EndIf EndFunc ;======================================================================================[TERMINALS] Func GoAway() If $BotRunning = 0 Then Return If $IgnoreExit = 1 Then $IgnoreExit = 0 Return Else StopOperation(4) EndIf EndFunc Func TrayCreate() If $TrayCreated = 0 Then $TrayCreated = 1 Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown. $infoitem = TrayCreateItem("Stop Macro!") TrayItemSetOnEvent(-1,"StopOperation") $exititem = TrayCreateItem("Resume Macro") TrayItemSetOnEvent(-1,"ResumeMacro") TraySetIcon("fkeyz.ico") TraySetToolTip ("Dear user, click here to pause the macro!!!") TrayTip("Macro Recorder "&$Version&" (SK)","Dear user, click here to pause the macro!!!"&@CRLF&"(To restore the application Interface Choose Stop Macro!)",3) EndIf TraySetState (1) EndFunc Func CleanMacro() For $i = 1 To 10 guictrlsetdata($MacroTDL[$i],"") guictrlsetdata($MacroSDL[$i],"") guictrlsetdata($MacroInputL[$i],"") Next EndFunc func ByeBye() IniWrite(@ScriptDir&"\S&M bot.cfg","Settings:","LastMacro",$MacroFile) IniWrite(@ScriptDir&"\S&M bot.cfg","Settings:","AutoRun",$RunInBckg) Exit EndFunc Func SelfTypeMode() If $selftype = 0 Then GUICtrlSetData($SelfInput,"Recorder") GUICtrlSetFont($SelfInput, 8, 800, 0, "MS Sans Serif") GUICtrlSetState($RecStartB,$GUI_DISABLE) GUICtrlSetState($KeysRecCB,$GUI_DISABLE) GUICtrlSetState($MouseRecCB,$GUI_DISABLE) GUICtrlSetState($MacroEdit,$GUI_ENABLE) $selftype = 1 Else GUICtrlSetData($SelfInput,"Self-Input") GUICtrlSetFont($SelfInput, 6, 400, 0, "MS Sans Serif") GUICtrlSetState($MacroEdit,$GUI_DISABLE) GUICtrlSetState($RecStartB,$GUI_ENABLE) GUICtrlSetState($KeysRecCB,$GUI_ENABLE) GUICtrlSetState($MouseRecCB,$GUI_ENABLE) $selftype = 0 EndIf EndFunc Func Record() $CMD = "'/SK' " $keyParam = "" $mouseParam = "" If GUICtrlRead($KeysRecCB) = $GUI_UNCHECKED Then $keyParam = "-K " If GUICtrlRead($MouseRecCB) = $GUI_UNCHECKED Then $mouseParam = "-M" $CmdParam = $keyParam&$mouseParam If StringLen($CmdParam)=5 Then MsgBox(4144,Chr(153)&" Spam And Macro Bot "&$Version,"No recording device choosen!") Return EndIf GUISetState(@SW_HIDE,$SpamBot) ShellExecuteWait("Macro Recorder v1.0.exe",$CMD&$CmdParam) GUISetState(@SW_SHOW,$SpamBot) GUISetState(@SW_RESTORE,$SpamBot) $MacroFile = @ScriptDir&"\S&M bot.rec" EndFunc #2 The Macro Recorder: expandcollapse popup#cs =========V0.2 28.03,07========== TODO: -. -. BUGS: -. -. CHANGE LOG: -. Comments: -. Parameters: -K = doesn't record keyboard. -M = doesn't record mouse. #ce #Include <Constants.au3> If _StringInArray($CmdLine, '/SK') <> -1 Then Exit Const $WH_KEYBOARD = 2 Const $WH_CBT = 5 Const $WH_MOUSE = 7 Const $WM_AUTOITLBUTTONDOWN = 0x1400 + 0x0A30 Const $WM_AUTOITRBUTTONDOWN = 0x1400 + 0x0A31 Const $WM_AUTOITMBUTTONDOWN = 0x1400 + 0x0A32 Const $WM_AUTOITXBUTTONDOWN1 = 0x1400 + 0x0A33 Const $WM_AUTOITXBUTTONDOWN2 = 0x1400 + 0x0A34 Const $WM_AUTOITLBUTTONUP = 0x1400 + 0x0B30 Const $WM_AUTOITRBUTTONUP = 0x1400 + 0x0B31 Const $WM_AUTOITMBUTTONUP = 0x1400 + 0x0B32 Const $WM_AUTOITXBUTTONUP1 = 0x1400 + 0x0B33 Const $WM_AUTOITXBUTTONUP2 = 0x1400 + 0x0B34 Const $WM_AUTOITLDBLCLK = 0x1400 + 0x0C30 Const $WM_AUTOITRDBLCLK = 0x1400 + 0x0C31 Const $WM_AUTOITMDBLCLK = 0x1400 + 0x0C32 Const $WM_AUTOITXDBLCLK1 = 0x1400 + 0x0C33 Const $WM_AUTOITXDBLCLK2 = 0x1400 + 0x0C34 Const $WM_AUTOITMOUSEWHEELUP = 0x1400 + 0x0D30 Const $WM_AUTOITMOUSEWHEELDOWN = 0x1400 + 0x0D31 Const $WM_AUTOITMOUSEMOVE = 0x1400 + 0x0F30 Const $HCBT_SETFOCUS = 0x1400 + 0x1A30 Const $HCBT_ACTIVATE = 0x1400 + 0x1A31 Const $HCBT_CREATEWND = 0x1400 + 0x1A32 Const $HCBT_DESTROYWND = 0x1400 + 0x1A33 Const $HCBT_MINMAX = 0x1400 + 0x1A34 Const $WM_KEYDOWN = 0x0400 + 0x0A30 Const $WM_KEYUP = 0x0400 + 0x0A31 Global $n,$msg,$buffer = "" HotKeySet("{PAUSE}","GoAway") $gui = GUICreate("Recording") GUISetIcon ("seen.ico") Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) TraySetOnEvent(BitOR($TRAY_EVENT_PRIMARYDOWN,$TRAY_EVENT_SECONDARYDOWN),"SK_PauseRec") TraySetState (5) $SK_trayStop = TrayCreateItem("Stop Recording!") TrayItemSetOnEvent(-1,"SK_GoAway") $SK_trayResume = TrayCreateItem("Resume Recording") TrayItemSetOnEvent(-1,"SK_ResumeRec") TraySetToolTip ("Dear User, Recording starts after first user action.") TrayTip("Macro Recorder v1.0 (SK)","Dear user, to stop this recording session"&@CRLF&"click Here or hit the [Pause] button!!!"&@CRLF&"+Recording starts after first user action.",7) TraySetIcon ("seen.ico") Global $DLLinst = DLLCall("kernel32.dll","hwnd","LoadLibrary","str",".\hook.dll") Global $mouseHOOKproc = DLLCall("kernel32.dll","hwnd","GetProcAddress","hwnd",$DLLInst[0],"str","MouseProc") Global $keyHOOKproc = DLLCall("kernel32.dll","hwnd","GetProcAddress","hwnd",$DLLInst[0],"str","KeyProc") Global $cbtHOOKproc = DLLCall("kernel32.dll","hwnd","GetProcAddress","hwnd",$DLLInst[0],"str","CBTProc") Global $hhMouse = DLLCall("user32.dll","hwnd","SetWindowsHookEx","int",$WH_MOUSE, _ "hwnd",$mouseHOOKproc[0],"hwnd",$DLLinst[0],"int",0) Global $hhKey = DLLCall("user32.dll","hwnd","SetWindowsHookEx","int",$WH_KEYBOARD, _ "hwnd",$keyHOOKproc[0],"hwnd",$DLLinst[0],"int",0) Global $hhCBT = DLLCall("user32.dll","hwnd","SetWindowsHookEx","int",$WH_CBT, _ "hwnd",$cbtHOOKproc[0],"hwnd",$DLLinst[0],"int",0) DLLCall(".\hook.dll","int","SetValuesMouse","hwnd",$gui,"hwnd",$hhMouse[0]) DLLCall(".\hook.dll","int","SetValuesKey","hwnd",$gui,"hwnd",$hhKey[0]) DLLCall(".\hook.dll","int","SetValuesCBT","hwnd",$gui,"hwnd",$hhCBT[0]) GUIRegisterMsg($WM_AUTOITLDBLCLK,"myfunc") GUIRegisterMsg($WM_AUTOITRDBLCLK,"myfunc") GUIRegisterMsg($WM_AUTOITMDBLCLK,"myfunc") GUIRegisterMsg($WM_AUTOITLBUTTONDOWN,"myfunc") GUIRegisterMsg($WM_AUTOITRBUTTONDOWN,"myfunc") GUIRegisterMsg($WM_AUTOITLBUTTONUP,"myfunc") GUIRegisterMsg($WM_AUTOITRBUTTONUP,"myfunc") GUIRegisterMsg($WM_AUTOITMBUTTONDOWN,"myfunc") GUIRegisterMsg($WM_AUTOITMBUTTONUP,"myfunc") GUIRegisterMsg($WM_AUTOITMOUSEWHEELUP,"myfunc") GUIRegisterMsg($WM_AUTOITMOUSEWHEELDOWN,"myfunc") ;GUIRegisterMsg($WM_AUTOITMOUSEMOVE,"myfunc") GUIRegisterMsg($HCBT_ACTIVATE,"myCBTfunc") GUIRegisterMsg($WM_KEYDOWN,"myKeyfunc") GUIRegisterMsg($WM_KEYUP,"myKeyfunc") ;================================================================== $SK_Timer = TimerInit() $SK_CountCMD = 0 $SK_announced = 0 $SK_Recording=1 While 1 $msg = GUIGetMsg() If $msg = -3 Then ExitLoop WEnd Func MyFunc($hWndGUI, $MsgID, $WParam, $LParam) If $SK_Recording = 0 Then Return If _StringInArray($CmdLine, "-M") <> -1 Then Return SK_Tray() $SK_MouseCord = MouseGetPos() If $SK_CountCMD = 0 Then IniDelete("S&M bot.rec","Recorded") $SK_CountCMD = $SK_CountCMD +1 IniWrite("S&M bot.rec","Recorded",$SK_CountCMD,"M|"&$MsgID&"|"&$SK_MouseCord[0]&"|"&$SK_MouseCord[1]&"|"&Round(TimerDiff($SK_Timer))) $SK_Timer = TimerInit() EndFunc Func MyCBTFunc($hWndGUI, $MsgID, $WParam, $LParam) Return EndFunc Func MyKeyFunc($hWndGUI, $MsgID, $WParam, $LParam) If $SK_Recording = 0 Then Return If _StringInArray($CmdLine, "-K") <> -1 Then Return SK_Tray() If $SK_CountCMD = 0 Then IniDelete("S&M bot.rec","Recorded") $SK_CountCMD = $SK_CountCMD +1 IniWrite("S&M bot.rec","Recorded",$SK_CountCMD,"K|"&$WParam&"|"&Round(TimerDiff($SK_Timer))) $SK_Timer = TimerInit() EndFunc Func GoAway() Exit EndFunc Func SK_GoAway() $Recorded = IniReadSection("S&M bot.rec","Recorded") For $i = 0 To 3 IniDelete("S&M bot.rec","Recorded",$Recorded[0][0]-$i) Next Exit EndFunc Func OnAutoItExit() If _StringInArray($CmdLine, '/SK') <> -1 Then Return DLLCall("user32.dll","int","UnhookWindowsHookEx","hwnd",$hhMouse[0]) DLLCall("user32.dll","int","UnhookWindowsHookEx","hwnd",$hhKey[0]) DLLCall("user32.dll","int","UnhookWindowsHookEx","hwnd",$hhCBT[0]) DLLCall("kernel32.dll","int","FreeLibrary","hwnd",$DLLinst[0]) EndFunc Func SK_Tray() TraySetState (8) If $SK_announced <> 1 Then $SK_announced = 1 TraySetToolTip ("Recording...") TrayTip("Macro Recorder v1.0 (SK)","Started Recording",2) EndIf EndFunc Func SK_ResumeRec() $SK_Recording = 1 TraySetState(1) EndFunc Func SK_PauseRec() $SK_Recording = 0 TraySetState (5) EndFunc Func _StringInArray($a_Array, $s_String) Local $i_ArrayLen = UBound($a_Array) - 1 For $i = 0 To $i_ArrayLen If $a_Array[$i] = $s_String Then Return $i EndIf Next SetError(1) Return -1 EndFunc ;==>_StringInArray *This is just the first beta guys, it seems to work nice tough (-: [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?!
Armand Posted April 4, 2007 Author Posted April 4, 2007 Here is a screen shot: [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?!
jvanegmond Posted April 4, 2007 Posted April 4, 2007 Armand, could you image... In the topic you made in General Support someone shouted out you were making a key logger... Sometimes you just have to trust someone. You did a good job! :] github.com/jvanegmond
Siddhartha Posted April 4, 2007 Posted April 4, 2007 (edited) Sometimes you just have to trust someone.You did a good job! :]@Armand: I agree, you did do a cool job@Manadar Quote Above: this is true, and also sometimes you must trust people but along with good virus scanners --------------------------------------------------------------------------------------------------------------------------------------------------------------For the "S___M_Bot.exe":Virus Total:CODEAntivirus Version Update Result AhnLab-V3 2007.4.5.0 04.04.2007 no virus found AntiVir 7.3.1.48 04.04.2007 no virus found Authentium 4.93.8 04.04.2007 no virus found Avast 4.7.936.0 04.04.2007 no virus found AVG 7.5.0.447 04.04.2007 no virus found BitDefender 7.2 04.04.2007 no virus found CAT-QuickHeal 9.00 04.04.2007 no virus found ClamAV devel-20070312 04.04.2007 no virus found DrWeb 4.33 04.04.2007 no virus found eSafe 7.0.15.0 04.04.2007 suspicious Trojan/Worm eTrust-Vet 30.7.3540 04.04.2007 no virus found Ewido 4.0 04.04.2007 no virus found FileAdvisor 1 04.05.2007 no virus found Fortinet 2.85.0.0 04.04.2007 no virus found F-Prot 4.3.1.45 04.04.2007 no virus found F-Secure 6.70.13030.0 04.04.2007 no virus found Ikarus T3.1.1.3 04.04.2007 no virus found Kaspersky 4.0.2.24 04.05.2007 no virus found McAfee 5001 04.04.2007 no virus found Microsoft 1.2405 04.04.2007 no virus found NOD32v2 2168 04.04.2007 no virus found Norman 5.80.02 04.04.2007 no virus found Panda 9.0.0.4 04.05.2007 no virus found Prevx1 V2 04.05.2007 no virus found Sophos 4.16.0 03.30.2007 no virus found Sunbelt 2.2.907.0 04.03.2007 no virus found Symantec 10 04.04.2007 no virus found TheHacker 6.1.6.085 04.04.2007 no virus found VBA32 3.11.3 04.04.2007 no virus found VirusBuster 4.3.7:9 04.04.2007 no virus found Webwasher-Gateway 6.0.1 04.04.2007 Worm.Win32.ModifiedUPX.gen!90 (suspicious) Aditional Information File size: 232815 bytes MD5: 76faaeaafecf85e940fbb5b72abc51ce SHA1: 78a05d3df017cf41bea781ff46a77143f64af427 packers: UPX packers: UPX packers: UPX Jotti:CODEFile: S_&_M_Bot.exe Status: OK MD5 76faaeaafecf85e940fbb5b72abc51ce Packers detected: PE_PATCH.UPX, UPX Scanner results Scan taken on 04 Apr 2007 22:35:22 (GMT) AntiVir Found nothing ArcaVir Found nothing Avast Found nothing AVG Antivirus Found nothing BitDefender Found nothing ClamAV Found nothing Dr.Web Found nothing F-Prot Antivirus Found nothing F-Secure Anti-Virus Found nothing Fortinet Found nothing Kaspersky Anti-Virus Found nothing NOD32 Found nothing Norman Virus Control Found nothing Panda Antivirus Found nothing Rising Antivirus Found nothing VirusBuster Found nothing VBA32 Found nothing For the "Macro_Recorder_v1.0.exe":VirusTotal:CODEAntivirus Version Update Result AhnLab-V3 2007.4.5.0 04.04.2007 no virus found AntiVir 7.3.1.48 04.04.2007 no virus found Authentium 4.93.8 04.04.2007 no virus found Avast 4.7.936.0 04.04.2007 no virus found AVG 7.5.0.447 04.04.2007 no virus found BitDefender 7.2 04.04.2007 no virus found CAT-QuickHeal 9.00 04.04.2007 no virus found ClamAV devel-20070312 04.04.2007 no virus found DrWeb 4.33 04.04.2007 no virus found eSafe 7.0.15.0 04.04.2007 suspicious Trojan/Worm eTrust-Vet 30.7.3543 04.05.2007 no virus found Ewido 4.0 04.04.2007 no virus found FileAdvisor 1 04.05.2007 no virus found Fortinet 2.85.0.0 04.04.2007 no virus found F-Prot 4.3.1.45 04.04.2007 no virus found F-Secure 6.70.13030.0 04.04.2007 no virus found Ikarus T3.1.1.3 04.04.2007 no virus found Kaspersky 4.0.2.24 04.05.2007 no virus found McAfee 5001 04.04.2007 no virus found Microsoft 1.2405 04.04.2007 no virus found NOD32v2 2168 04.04.2007 no virus found Norman 5.80.02 04.04.2007 no virus found Panda 9.0.0.4 04.05.2007 no virus found Aditional Information File size: 204411 bytes MD5: 042dcb5fb044226e582af200acb9b7c7 SHA1: caabb23bbec46caaf32bc113941f7e408a5a41c1 packers: UPX packers: UPX packers: UPX Jotti:CODEFile: Macro_Recorder_v1.0.exe Status: OK MD5 042dcb5fb044226e582af200acb9b7c7 Packers detected: PE_PATCH.UPX, UPX Scanner results Scan taken on 04 Apr 2007 22:35:29 (GMT) AntiVir Found nothing ArcaVir Found nothing Avast Found nothing AVG Antivirus Found nothing BitDefender Found nothing ClamAV Found nothing Dr.Web Found nothing F-Prot Antivirus Found nothing F-Secure Anti-Virus Found nothing Fortinet Found nothing Kaspersky Anti-Virus Found nothing NOD32 Found nothing Norman Virus Control Found nothing Panda Antivirus Found nothing Rising Antivirus Found nothing VirusBuster Found nothing VBA32 Found nothing These are in no way messed with, I didnt change anything. The scans are true. There are other virus scanners, you like em,you can use em. Seems totall clean on Jotti, course Jotti does occasionally miss things, im not gonna lie, and some things showed up on VirusTotal.In no way am I trying to conclude and persuade that this file is either clean nor infected/dirty in any way.These scans will help you decide whether you want to use it, or not. You choose, so don't cry about it if something happens, and dont just totally flame Armand for no reason. Thank You.~Nikolai ***Edit*** Sorry, that spelling error was driving me nuts Edited April 4, 2007 by Nikolai
Armand Posted April 7, 2007 Author Posted April 7, 2007 @Armand: I agree, you did do a cool job@Manadar Quote Above: this is true, and also sometimes you must trust people but along with good virus scanners --------------------------------------------------------------------------------------------------------------------------------------------------------------For the "S___M_Bot.exe":Virus Total:CODEAntivirus Version Update Result AhnLab-V3 2007.4.5.0 04.04.2007 no virus found AntiVir 7.3.1.48 04.04.2007 no virus found Authentium 4.93.8 04.04.2007 no virus found Avast 4.7.936.0 04.04.2007 no virus found AVG 7.5.0.447 04.04.2007 no virus found BitDefender 7.2 04.04.2007 no virus found CAT-QuickHeal 9.00 04.04.2007 no virus found ClamAV devel-20070312 04.04.2007 no virus found DrWeb 4.33 04.04.2007 no virus found eSafe 7.0.15.0 04.04.2007 suspicious Trojan/Worm eTrust-Vet 30.7.3540 04.04.2007 no virus found Ewido 4.0 04.04.2007 no virus found FileAdvisor 1 04.05.2007 no virus found Fortinet 2.85.0.0 04.04.2007 no virus found F-Prot 4.3.1.45 04.04.2007 no virus found F-Secure 6.70.13030.0 04.04.2007 no virus found Ikarus T3.1.1.3 04.04.2007 no virus found Kaspersky 4.0.2.24 04.05.2007 no virus found McAfee 5001 04.04.2007 no virus found Microsoft 1.2405 04.04.2007 no virus found NOD32v2 2168 04.04.2007 no virus found Norman 5.80.02 04.04.2007 no virus found Panda 9.0.0.4 04.05.2007 no virus found Prevx1 V2 04.05.2007 no virus found Sophos 4.16.0 03.30.2007 no virus found Sunbelt 2.2.907.0 04.03.2007 no virus found Symantec 10 04.04.2007 no virus found TheHacker 6.1.6.085 04.04.2007 no virus found VBA32 3.11.3 04.04.2007 no virus found VirusBuster 4.3.7:9 04.04.2007 no virus found Webwasher-Gateway 6.0.1 04.04.2007 Worm.Win32.ModifiedUPX.gen!90 (suspicious) Aditional Information File size: 232815 bytes MD5: 76faaeaafecf85e940fbb5b72abc51ce SHA1: 78a05d3df017cf41bea781ff46a77143f64af427 packers: UPX packers: UPX packers: UPX Jotti:CODEFile: S_&_M_Bot.exe Status: OK MD5 76faaeaafecf85e940fbb5b72abc51ce Packers detected: PE_PATCH.UPX, UPX Scanner results Scan taken on 04 Apr 2007 22:35:22 (GMT) AntiVir Found nothing ArcaVir Found nothing Avast Found nothing AVG Antivirus Found nothing BitDefender Found nothing ClamAV Found nothing Dr.Web Found nothing F-Prot Antivirus Found nothing F-Secure Anti-Virus Found nothing Fortinet Found nothing Kaspersky Anti-Virus Found nothing NOD32 Found nothing Norman Virus Control Found nothing Panda Antivirus Found nothing Rising Antivirus Found nothing VirusBuster Found nothing VBA32 Found nothing For the "Macro_Recorder_v1.0.exe":VirusTotal:CODEAntivirus Version Update Result AhnLab-V3 2007.4.5.0 04.04.2007 no virus found AntiVir 7.3.1.48 04.04.2007 no virus found Authentium 4.93.8 04.04.2007 no virus found Avast 4.7.936.0 04.04.2007 no virus found AVG 7.5.0.447 04.04.2007 no virus found BitDefender 7.2 04.04.2007 no virus found CAT-QuickHeal 9.00 04.04.2007 no virus found ClamAV devel-20070312 04.04.2007 no virus found DrWeb 4.33 04.04.2007 no virus found eSafe 7.0.15.0 04.04.2007 suspicious Trojan/Worm eTrust-Vet 30.7.3543 04.05.2007 no virus found Ewido 4.0 04.04.2007 no virus found FileAdvisor 1 04.05.2007 no virus found Fortinet 2.85.0.0 04.04.2007 no virus found F-Prot 4.3.1.45 04.04.2007 no virus found F-Secure 6.70.13030.0 04.04.2007 no virus found Ikarus T3.1.1.3 04.04.2007 no virus found Kaspersky 4.0.2.24 04.05.2007 no virus found McAfee 5001 04.04.2007 no virus found Microsoft 1.2405 04.04.2007 no virus found NOD32v2 2168 04.04.2007 no virus found Norman 5.80.02 04.04.2007 no virus found Panda 9.0.0.4 04.05.2007 no virus found Aditional Information File size: 204411 bytes MD5: 042dcb5fb044226e582af200acb9b7c7 SHA1: caabb23bbec46caaf32bc113941f7e408a5a41c1 packers: UPX packers: UPX packers: UPX Jotti:CODEFile: Macro_Recorder_v1.0.exe Status: OK MD5 042dcb5fb044226e582af200acb9b7c7 Packers detected: PE_PATCH.UPX, UPX Scanner results Scan taken on 04 Apr 2007 22:35:29 (GMT) AntiVir Found nothing ArcaVir Found nothing Avast Found nothing AVG Antivirus Found nothing BitDefender Found nothing ClamAV Found nothing Dr.Web Found nothing F-Prot Antivirus Found nothing F-Secure Anti-Virus Found nothing Fortinet Found nothing Kaspersky Anti-Virus Found nothing NOD32 Found nothing Norman Virus Control Found nothing Panda Antivirus Found nothing Rising Antivirus Found nothing VirusBuster Found nothing VBA32 Found nothing These are in no way messed with, I didnt change anything. The scans are true. There are other virus scanners, you like em,you can use em. Seems totall clean on Jotti, course Jotti does occasionally miss things, im not gonna lie, and some things showed up on VirusTotal.In no way am I trying to conclude and persuade that this file is either clean nor infected/dirty in any way.These scans will help you decide whether you want to use it, or not. You choose, so don't cry about it if something happens, and dont just totally flame Armand for no reason. Thank You.~Nikolai ***Edit*** Sorry, that spelling error was driving me nuts What the hell why does it find anything suspiciouse ?!-> LOOK AT CODE INCLUDED !!!! u can just compile it and use !!!!(-: [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?!
Siddhartha Posted April 7, 2007 Posted April 7, 2007 i didnt say anything about it, i think you did good. I just posted scan results for it so people wouldnt be bugging you about it. Saying it had loads of viruses, which unfortunately usually happens.
jvanegmond Posted April 9, 2007 Posted April 9, 2007 i didnt say anything about it, i think you did good. I just posted scan results for it so people wouldnt be bugging you about it. Saying it had loads of viruses, which unfortunately usually happens. Nikolai, your AV is shit. github.com/jvanegmond
Siddhartha Posted April 9, 2007 Posted April 9, 2007 (edited) Nikolai, your AV is shit. lol my AV? My AV rox ur sox biatch Thats the retarded online virus scanner, Jotti and Virustotal.I made my own AV. It catches everything!Dun be talkin bout my AV like that , I smack ya like a ninja ***Edit*** grrr....spelling things wrong drives my insane Edited April 9, 2007 by Nikolai
ade Posted May 3, 2007 Posted May 3, 2007 Hello I am a noob at this so prob something stupid I am doing, or not doing. Compiled the code and runs ok (as in macro send) but when I try to record mouse and/or keyboard it doesnt seem to register any inputs at all so when i click stop recording it kicks up an error: Line 0 (File "C:\..........Macro Recorder v1.0.exe"): IniDelete("S&M bot.rec","Recorded",$Recorded[0][0]-$i) IniDelete("S&M bot.rec","Recorded",$Recorded^ERROR Error:Subscript used with non-Array variable Can someone tell what is the solution to this?? I really need the mouse input to work Thanks
Toady Posted May 3, 2007 Posted May 3, 2007 Why is this called program called "spam"? I dont understand this. I tried using this but its kinda confusing. I like it, just don't know how to use it, do I manually type in my keys becuase it won't record any keyboard presses. Also, I got the same error that ade got too. www.itoady.com A* (A-star) Searching Algorithm - A.I. Artificial Intelligence bot path finding
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now