Gerifield

Oh yes, sorry I forget... This isn't a "static" adress...

I've uploaded the ver. 1.0.3.87 on my upload site. You can download it from there: Download

Try this: #Include <Memory.au3> ;Pid Global $sPid = WinGetProcess("3D Pinball") If @error Then MsgBox(0, "Error", "Failed Retreving Pid.") Exit EndIf ;Open Local $mOpen = _MemoryOpen($sPid) If @error Then MsgBox(0, "Error", "Failed Accesing Memory.") Exit EndIf ;Read #cs $Read = _MemoryRead(0x00AD0C62, $mOpen) If @error Then MsgBox(0, "Error", "Failed To Read Memory") EndIf MsgBox(0, "", $Read) #ce ;Write $Address = InputBox("Adderss", "Enter Address","0x00C0AEBA") $Score = InputBox("Score", "Enter Score..") _MemoryWrite($Address, $mOpen, $Score) ;Close _MemoryClose($mOpen) If @error Then MsgBox(0, "Error", "Failed To Close Handle!") Exit EndIf 0x00C0AEBA adress worked for me! (I used this in my C++ Pinball "Hacker" program too! )

It read the dll source in binary mode, and save it into an au3 file. If you include this created file and call the function, it'll create the original file. (You can store the dll files into the exe, like FileInstall.)

This program generate an includable au3 file from a dll. (The result au3 file is like the "SQLite.dll.au3") You can call your "unpacker" like this: _dll_create_AU3NAME("unpacked dll name.dll") For example if you save "mydll.au3", and include it into your program, use this command: _dll_create_mydll("dllname.dll") -> This will create "dllname.dll", and that'll be the original dll. Code: $dllname = FileOpenDialog("Open",@Scriptdir,"*.* (*.*)") If FileExists($dllname) Then $au3_out = FileSaveDialog("Save",@Scriptdir,"AU3 (*.au3)",16) Else Exit EndIf If $au3_out <> "" Then $readin = FileOpen($dllname,16) $holder = FileRead($readin) FileClose($readin) $holder=StringReplace($holder,"0x","",1) ;MsgBox(0,"",$holder) $tester = FileOpen("test.txt",17) FileWrite($tester,$holder) FileClose($tester) $reopen = FileOpen("test.txt",0) $au3_gen = FileOpen($au3_out,6) $fname = StringSplit($au3_out,"\") $fn = StringSplit($fname[$fname[0]],".") FileWrite($au3_gen,"Func _dll_create_"&$fn[1]&"($n)"&@CRLF) FileWrite($au3_gen,'$dll_data=""'&@CRLF) $holder2="" While 1 $holder2=FileRead($reopen,600) If @error == -1 Then ;MsgBox(0,"","End Of Read!") ExitLoop EndIf $holder2=StringReplace($holder2,"0x","",1) FileWrite($au3_gen,'$dll_data&="'&$holder2&'"'&@CRLF) $holder2="" WEnd FileClose($reopen) FileDelete("test.txt"); -> If you want the dll binary source, don't delete the test.txt FileWrite($au3_gen,@CRLF&'$writer=FileOpen($n,2)'&@CRLF) FileWrite($au3_gen,'$dll_data = "0x" & $dll_data'&@CRLF) FileWrite($au3_gen,'FileWrite($writer,Binary($dll_data))'&@CRLF) FileWrite($au3_gen,'FileClose($writer)'&@CRLF&'EndFunc') FileClose($au3_gen) EndIf I know, this code works like FileInstall, but I think it'll be useful for somebody.... This program works with any file, BUT the au3 size is bigger, than the original file! (Dll, exe, jpg...) I know, that's not the best way, but it works!

This is only an example for SQLite. It creates a database, and you can add, update or delete datas. I think somebody can use it... Pic: #include <GUIConstants.au3> #include <EditConstants.au3> #include <SQLite.au3> #include <SQLite.dll.au3> $form_num = 1 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Sqlite GUI test", 223, 359, 267, 119) $count = GUICtrlCreateInput($form_num, 144, 10, 33, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $b_right = GUICtrlCreateButton(">", 176, 8, 27, 25, 0) $b_left = GUICtrlCreateButton("<", 120, 8, 27, 25, 0) $lname = GUICtrlCreateLabel("Name:", 8, 48, 48, 17) $iname = GUICtrlCreateInput("", 64, 48, 145, 21) $ladress = GUICtrlCreateLabel("Adress:", 8, 88, 45, 17) $iadress = GUICtrlCreateInput("", 64, 88, 145, 21) $iemail = GUICtrlCreateInput("", 64, 128, 145, 21) $lemail = GUICtrlCreateLabel("E-mail:", 8, 128, 46, 17) $lother = GUICtrlCreateLabel("Other:", 8, 168, 46, 17) $eother = GUICtrlCreateEdit("", 64, 168, 145, 121) $badd = GUICtrlCreateButton("Add", 48, 312, 75, 25, 0) $bdel = GUICtrlCreateButton("Delete", 128, 312, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### _SQLite_Startup() If NOT FileExists("database.db") Then $dbn=_SQLite_Open("database.db") _SQLite_Exec($dbn,"CREATE TABLE datas (id,name,adress,email,other);") Else $dbn=_SQLite_Open("database.db") EndIf dataquery($form_num) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE progend() Case $b_right $form_num = $form_num + 1 GUICtrlSetData($count,$form_num) dataquery($form_num) Case $b_left If $form_num == 1 Then $form_num = 1 GUICtrlSetData($count,$form_num) Else $form_num = $form_num - 1 GUICtrlSetData($count,$form_num) dataquery($form_num) EndIf Case $badd IF GUICtrlRead($iname) == "" Then MsgBox(0,"ERORR","Empty name!") Else dataadd($form_num) EndIf Case $bdel datadel($form_num) EndSwitch WEnd Func progend() _SQLite_Close() _SQLite_Shutdown() Exit EndFunc Func dataadd($id) Local $retarr $str1 = GUICtrlRead($iname) $str2 = GUICtrlRead($iadress) $str3 = GUICtrlRead($iemail) $str4 = GUICtrlRead($eother) _SQLite_QuerySingleRow($dbn,"SELECT id FROM datas WHERE id='"&$id&"'",$retarr) If $retarr[0] <> "" Then _SQLite_Exec($dbn,"UPDATE datas SET name='"&$str1&"', adress='"&$str2&"',email='"&$str3&"',other='"&$str4&"' WHERE id='"&$id&"'") Else _SQLite_Exec($dbn,"INSERT INTO datas (id,name,adress,email,other) VALUES ('"&$form_num&"','"&$str1&"','"&$str2&"','"&$str3&"','"&$str4&"');") EndIf EndFunc Func dataquery($id) GUICtrlSetData($iname,"") GUICtrlSetData($iadress,"") GUICtrlSetData($iemail,"") GUICtrlSetData($eother,"") Local $retarr If _SQLite_QuerySingleRow($dbn,"SELECT * FROM datas WHERE id='"&$id&"'",$retarr) == $SQLITE_OK Then If $retarr[0] == "" Then ;MsgBox(0,"ERROR","Query error!") Else GUICtrlSetData($iname,$retarr[1]) GUICtrlSetData($iadress,$retarr[2]) GUICtrlSetData($iemail,$retarr[3]) GUICtrlSetData($eother,$retarr[4]) EndIf EndIf EndFunc Func datadel($id) Local $retarr GUICtrlSetData($iname,"") GUICtrlSetData($iadress,"") GUICtrlSetData($iemail,"") GUICtrlSetData($eother,"") _SQLite_QuerySingleRow($dbn,"SELECT id FROM datas WHERE id='"&$id&"'",$retarr) If $retarr[0] <> "" Then _SQLite_Exec($dbn,"DELETE FROM datas WHERE id='"&$id&"'") EndIf EndFunc (I know that's not a "perfect" code, but it's working! ) sqlite_test_form.au3

Do it, i like the idea! @TehWhale: That is "only" a zip file, and this'll be a website! Your link is bad! http://h1.ripway.com/AutoIt\AutoIt.zip change to http://h1.ripway.com/AutoIt/AutoIt.zip

Post the full code, if you want help! My downloader worked fine! #include <INet.au3> #include <GUIConstantsEx.au3> HotKeySet("^+q","Hkey_pend");Ctrl + Shift + Q $url = "http://playlist.yahoo.com/makeplaylist.dll?sid=56955426&sdm=web&pt=rd" $dlfilename = "test.mov" $size = InetGetSize($url) $perc = 0 $bread = 0 $speed = 0 $GUIM = GUICreate("Downloader",300,100) $progressb = GUICtrlCreateProgress(48,30,200,20) $datalabel = GUICtrlCreateLabel("0 % 0 KB/s",48,52,200,20) GUISetState(@SW_SHOW,$GUIM) InetGet($url, $dlfilename, 1, 1) AdlibEnable("dlit_dat",1000) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Hkey_pend() EndSelect WEnd Func dlit_dat() If @InetGetActive Then $speed = (@InetGetBytesRead - $bread)/1024 $bread = @InetGetBytesRead $perc = $bread * 100 / $size GUICtrlSetData($progressb,$perc) GUICtrlSetData($datalabel,Round($perc,2) & " % " & Round($speed,2) & " KB/s") EndIf If @InetGetBytesRead = $size Then MsgBox(0,"Download","Complete!") Hkey_pend() EndIf If @InetGetBytesRead = -1 Then MsgBox(0, "ERROR", "Invalid URL!") Hkey_pend() EndIf EndFunc Func Hkey_pend() AdlibDisable() InetGet("abort") Exit EndFunc I think this isn't the good topic... :S

Sorry, but this is false! Exe files CAN be executed from resource! (Or from memory!) AutoIt can't do it, but for example C++ or C# do it!

I found a C++ code, but i don't have time to make a dll... Google: http://www.google.hu/search?hl=hu&q=ru...3%A9s&meta=

From an another program? (Or from a zip file, from the memory...)