EnCodeIt 2.0

GaryFrost · September 7, 2006

I don't know what this means? Is it a good thing?

For you, I would say nope

1905russell · September 7, 2006

For you, I would say nope

Howzthat?

Valik · September 7, 2006

Howzthat?

I make very kindly posts to people when I'm out of patience with them. Posts like this. If Smoke is starting to act like me and Smoke is starting to run out of patience with you...

Creator · September 7, 2006

Well im inclined. So the feature works. :-)

Im very into using COM objects since latest relaese.

You have a need for some test results on that matter or is there an other area of autoit scripting(encoding) that you want to see tested?

Creator

CWorks · September 7, 2006

The problem seems to be
Send("{DOWN "&$iadjdown&"}")
Send("{UP "&$iadjup&"}")
You can take it from there.

i'm not sure if the command is right

but i think it should be like this

Send("{DOWN & $iadjdown}")

Send("{UP & $iadjup}")

or maybe like this

Send("{DOWN}{$iadjdown}")

Send("{UP}{$iadjup}")

well it would depend on what $iadjdown ='s whether to use "$iadjdown" or {$iadjdown} i think

ok got it right from the help

I guess you need the spaces

Send("{DOWN " & $iadjdown & "}")

Send("{UP " & $iadjup & "}")

Edited September 7, 2006 by CWorks

GaryFrost · September 7, 2006

i'm not sure if the command is right
but i think it should be like this

Send("{DOWN & $iadjdown}")
Send("{UP & $iadjup}")

or maybe like this

Send("{DOWN}{$iadjdown}")
Send("{UP}{$iadjup}")

I believe it was correct, the spacing may make it look misleading.

Send("{DOWN " & $iadjdown & "}")
Send("{UP " & $iadjup & "}")
oÝ÷ ÚØ^iº/zÈhºW[zØ^±©jÈÓ~¢iØÝ£

SmOke_N · September 7, 2006

The problem seems to be

Send("{DOWN "&$iadjdown&"}")
Send("{UP "&$iadjup&"}")

You can take it from there.

This example encoded ran fine:

Global Const $M61F5A282CB77F878 = Int(99/3+15*100/4-13^2+81/3-17-245+99/3+15*100/4-13^2+81/3-17)
Global Const $M61F5A282CB77FE88 = _M61F5A282CB774888('7A7B', $M61F5A282CB77F878)
Global Const $M66F5A282CB77F888 = _M61F5A282CB77F898('A8717C847B4D', $M61F5A282CB77FE88)
Global Const $M61F8A282CB77F888 = _M61F5A282CB77F898('A8827D4D', $M61F5A282CB77FE88)
Global Const $M61F5A282C377F888 = _M61F5A282CB77F898('AA', $M61F5A282CB77FE88)
$M61F5A2E2CB77F888 = 2
$M6FF5A282CB77F888 = 2
Send($M66F5A282CB77F888&$M61F5A2E2CB77F888&$M61F5A282C377F888)
Sleep(3000)
Send($M61F8A282CB77F888&$M6FF5A282CB77F888&$M61F5A282C377F888)
Func _M61F5A282CB77F898($M61F0A282CB77F888, $M61F5A282CB772888)
Local $M61F5A282C677F888
$M61F0A282CB77F888 = _M61F51282CB77F888($M61F0A282CB77F888)
For $M61F5A28ECB77F888 = 1 to StringLen($M61F0A282CB77F888)
$M61F5A282C677F888 = $M61F5A282C677F888 & Chr(Asc(StringMid($M61F0A282CB77F888,$M61F5A28ECB77F888,1))-$M61F5A282CB772888)
Next
Return $M61F5A282C677F888
EndFunc
Func _M61F51282CB77F888($M61F5A282CB77F888)
Local $M61F5A282CB78F888, $M61F5A282CB77A888, $M61F5A281CB77F888, $M61F5A282CB17F888, $M61F5A282CB77F688, $M63F5A282CB77F888, $M61F5A282CB77F828, $M61F51282CB77F888
$M61F5A282CB77A888 = StringSplit($M61F5A282CB77F888, "")
If Mod($M61F5A282CB77A888[0], 2) <> 0 Then Return SetError(1, 0, -1)
For $M61F5A281CB77F888 = 1 To $M61F5A282CB77A888[0]
$M61F5A282CB77F828 = $M61F5A282CB77A888[$M61F5A281CB77F888]
$M61F5A281CB77F888 += 1
$M61F51282CB77F888 = $M61F5A282CB77A888[$M61F5A281CB77F888]
$M61F5A282CB17F888 = Dec($M61F5A282CB77F828 & $M61F51282CB77F888)
If @error <> 0 Then Return SetError(1, 0, -1)
$M61F5A282CB77F688 = Chr($M61F5A282CB17F888)
$M61F5A282CB78F888 &= $M61F5A282CB77F688
Next
Return $M61F5A282CB78F888
EndFunc
Func _M61F5A282CB774888($M61F0A282CB77F888, $M61F5A282CB77F878)
Local $M61F5A282C677F888
$M61F5A28BCB77F888 = 70
$M61F0A282CB77F888 = _M61F51282CB77F888($M61F0A282CB77F888)
For $M61F5A28ECB77F888 = 1 to StringLen($M61F0A282CB77F888)
$M61F5A282C677F888 &= Chr(Asc(StringMid($M61F0A282CB77F888,$M61F5A28ECB77F888,1))-Int($M61F5A28BCB77F888))
Next
Return $M61F5A282C677F888
EndFunc

Exact example (giving vars values).

SmOke_N · September 8, 2006

After thining about it, I forgot to mention that EnCodeIt can only do so much in predicting poor coding habbits.

See the first post to see the "Required type of coding style" bullet.

Creator · September 8, 2006

Auw this hurts. Im back at work where we have proxied internet connection. EncodeIt seems not prepared voor checking over a proxied connection. I tested using a proxy config script in IE, a static proxy setting in IE and last but not least installed the ISA firewall client. To my suprise even the latter didnt pick up the connection request.

Is there a chance to put in a lil proxy option form. Im a system administrator and use autoit mainly at work. Encoding at work is not possible now and my guess is this could be an issue(if you hold on the the online check at startup ;-) ) for a majority of systemadmins cause the chances are real that most off em work over proxied connections.

Creator

1905russell · September 8, 2006

Auw this hurts. Im back at work where we have proxied internet connection. EncodeIt seems not prepared voor checking over a proxied connection. I tested using a proxy config script in IE, a static proxy setting in IE and last but not least installed the ISA firewall client. To my suprise even the latter didnt pick up the connection request.

Is there a chance to put in a lil proxy option form. Im a system administrator and use autoit mainly at work. Encoding at work is not possible now and my guess is this could be an issue(if you hold on the the online check at startup ;-) ) for a majority of systemadmins cause the chances are real that most off em work over proxied connections.

Creator

Okay I finally isolated the problem. It was the if statement. It runs fine ie $iadjup =0 until encoded then $iadjup becomes = 8

Run this then encode and run

Global $iadjup = 0
Global $iadjdown = 2

UpDownProblem()

Func UpDownProblem()
    Global $sWTitle=WinGetTitle("")
    Global $sWText=WinGetText("")
    $hwnd = WinGetHandle($sWTitle)
    $menu_hwnd = GetMenu($hwnd)
    $submenu = GetSubMenu($menu_hwnd,3)
    $sCText = GetMenuString($submenu,4,1)
    MsgBox(4096,"1a",$iadjup & @LF & @LF & $sCText)
        If $sCText = "Text" Then
            $iadjup = 8
        MsgBox(4096,"1a",$iadjup & @LF & @LF & $sCText)
            $sCText = ""
        Endif
    
        
Send("{DOWN "&$iadjdown&"}")
Send("{UP "&$iadjup&"}")
Exit
EndFunc
;Larry's code to access menus
Func GetMenu($GM_hWnd)
    If $GM_hWnd <= 0 Then Return 0
    Local $GM_r = DllCall("user32.dll", "hwnd", "GetMenu", _
            "hwnd", $GM_hWnd)
    If Not @error Then Return $GM_r[0]
;MsgBox(4096,"",$GM_r[0] & @LF & @LF & $GM_r[1])
    Return 0
EndFunc;==>GetMenu
 
Func GetSubMenu($GSM_hWnd, $GSM_pos)
    If $GSM_hWnd <= 0 Or $GSM_pos < 0 Then Return 0
    Local $GSM_r = DllCall("user32.dll", "hwnd", "GetSubMenu", _
            "hwnd", $GSM_hWnd, _
            "int", $GSM_pos)
    ;MsgBox(4096,"",$GSM_r[0] & @LF & @LF & $GSM_r[1])

    If Not @error Then Return $GSM_r[0]
    Return 0

EndFunc;==>GetSubMenu

Func GetMenuString($GMS_hWnd, $GMS_id, $GMS_Opt = 0)
    Local Const $MF_BYCOMMAND = 0x00000000
    Local Const $MF_BYPOSITION = 0x00000400
    If $GMS_hWnd <= 0 Or $GMS_id < 0 Then Return 0
    If $GMS_Opt = 0 Then
        $GMS_Opt = $MF_BYCOMMAND
    Else
        $GMS_Opt = $MF_BYPOSITION
    EndIf
;MsgBox(4096,"",$GMS_Opt)
    Local $GMS_r = DllCall("user32.dll", "int", "GetMenuString", _
            "hwnd", $GMS_hWnd, _
            "int", $GMS_id, _
            "str", "", "int", 0, _
            "int", $GMS_Opt)
    If @error Then Return 0
    $GMS_r = DllCall("user32.dll", "int", "GetMenuString", _
            "hwnd", $GMS_hWnd, _
            "int", $GMS_id, _
            "str", "", "int", $GMS_r[0] + 1, _
            "int", $GMS_Opt)
    If @error Then Return 0
    Return $GMS_r[3]
EndFunc;==>GetMenuString

Edited September 8, 2006 by 1905russell

Wooltown · September 8, 2006

I get a message saying: "You must be a registered member with AutoIt to use EnCodIt", what is this ????

How do I register ???????

Creator · September 8, 2006

I get a message saying: "You must be a registered member with AutoIt to use EnCodIt", what is this ????

How do I register ???????

I get a message saying: "You must be a registered member with AutoIt to use EnCodIt", what is this ????
How do I register ???????

Just join this forum by clicking the "register" link

Wooltown · September 8, 2006

I am registered in the forum if that is what you mean ?

////

WOOLTOWN

Creator · September 8, 2006

gne gne wooltown....just kiddin...your autoit cookie MUST still be present for EncodeIt to "see" you as a registered member. Maybe cookie cleaner is your problem

Wooltown · September 8, 2006

Nope, cookies is turned on and I am recognized as my alias in the forum using Internet Explorer 6.0 in Win 2000.

Creator · September 8, 2006

hmmm...then SmOke_N is probably the only 1 who can explain that.

I filemonned the startup of encodeit and saw the search for the cookie, thats how i found out the membership check.

Good luck in finding the reason.

Creator

Creator · September 8, 2006

do you have a cookie like <username>@autoitscript[x].txt in your cookie folder??

Wooltown · September 8, 2006

Yes, I have !

Creator · September 8, 2006

hmmm...thats strange. I cant explain that. But in my case: if i delete the cookie -> the message of not being a member pops up. After logging in here (recreate cookie) the message stays away.

Sorry that i cant be more helpfull

Creator

SmOke_N · September 8, 2006

Okay I finally isolated the problem. It was the if statement. It runs fine ie $iadjup =0 until encoded then $iadjup becomes = 8

Run this then encode and run

Global $iadjup = 0
Global $iadjdown = 2

UpDownProblem()

Func UpDownProblem()
    Global $sWTitle=WinGetTitle("")
    Global $sWText=WinGetText("")
    $hwnd = WinGetHandle($sWTitle)
    $menu_hwnd = GetMenu($hwnd)
    $submenu = GetSubMenu($menu_hwnd,3)
    $sCText = GetMenuString($submenu,4,1)
    MsgBox(4096,"1a",$iadjup & @LF & @LF & $sCText)
        If $sCText = "Text" Then
            $iadjup = 8
        MsgBox(4096,"1a",$iadjup & @LF & @LF & $sCText)
            $sCText = ""
        Endif
    
        
Send("{DOWN "&$iadjdown&"}")
Send("{UP "&$iadjup&"}")
Exit
EndFunc
;Larry's code to access menus
Func GetMenu($GM_hWnd)
    If $GM_hWnd <= 0 Then Return 0
    Local $GM_r = DllCall("user32.dll", "hwnd", "GetMenu", _
            "hwnd", $GM_hWnd)
    If Not @error Then Return $GM_r[0]
;MsgBox(4096,"",$GM_r[0] & @LF & @LF & $GM_r[1])
    Return 0
EndFunc;==>GetMenu
 
Func GetSubMenu($GSM_hWnd, $GSM_pos)
    If $GSM_hWnd <= 0 Or $GSM_pos < 0 Then Return 0
    Local $GSM_r = DllCall("user32.dll", "hwnd", "GetSubMenu", _
            "hwnd", $GSM_hWnd, _
            "int", $GSM_pos)
;MsgBox(4096,"",$GSM_r[0] & @LF & @LF & $GSM_r[1])

    If Not @error Then Return $GSM_r[0]
    Return 0

EndFunc;==>GetSubMenu

Func GetMenuString($GMS_hWnd, $GMS_id, $GMS_Opt = 0)
    Local Const $MF_BYCOMMAND = 0x00000000
    Local Const $MF_BYPOSITION = 0x00000400
    If $GMS_hWnd <= 0 Or $GMS_id < 0 Then Return 0
    If $GMS_Opt = 0 Then
        $GMS_Opt = $MF_BYCOMMAND
    Else
        $GMS_Opt = $MF_BYPOSITION
    EndIf
;MsgBox(4096,"",$GMS_Opt)
    Local $GMS_r = DllCall("user32.dll", "int", "GetMenuString", _
            "hwnd", $GMS_hWnd, _
            "int", $GMS_id, _
            "str", "", "int", 0, _
            "int", $GMS_Opt)
    If @error Then Return 0
    $GMS_r = DllCall("user32.dll", "int", "GetMenuString", _
            "hwnd", $GMS_hWnd, _
            "int", $GMS_id, _
            "str", "", "int", $GMS_r[0] + 1, _
            "int", $GMS_Opt)
    If @error Then Return 0
    Return $GMS_r[3]
EndFunc;==>GetMenuString

1905Russel, I'm curious if you even bothred to read what I posted 10 hours before you posted this?

http://www.autoitscript.com/forum/index.ph...st&p=232687

http://www.autoitscript.com/forum/index.ph...st&p=231190

I explained your problem in that post without even seeing that you were having that specific problem... (Not yours specific just people in general).

It's a result of a poor coding style (Poor as EnCodeIt sees it).

@Wooltown, been working on my other project (my real one ) all night, hadn't bothered to check here... I'm a bit tired, so I'll have to see what I can do about your situation and the Proxie situation someone else posted before.

EnCodeIt 2.0

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Posted Images

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Recently Browsing 0 members