pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

autoit private pastebin - collaborative debugging tool What's a private pastebin?


Posted by bjkaiser on Wed 13 May 11:05
report abuse | download | new post

  1. #cs ----------------------------------------------------------------------------
  2.        
  3.         AutoIt Version: 3.2.4.9
  4.         Author:         Björn Kaiser <kaiser.bjoern@gmx.net>
  5.        
  6.         Script Function:
  7.        
  8.        
  9. #ce ----------------------------------------------------------------------------
  10.  
  11. Opt("MustDeclareVars", 1)
  12. #include <wimgapi.au3>
  13. ;~ #include <DllCallback.au3>
  14.  
  15. Dim $fhandle, $vhandle, $imageinfo, $i, $pProgress
  16. $pProgress = DllCallBackRegister ("_Progress", "int", "dword;lparam;wparam;ptr")
  17. ConsoleWriteError("DllCallBack error: " & @error & @CRLF & "_DllCallBack rc: " & $pProgress & @CRLF)
  18. $pProgress = DllCallbackGetPtr($pProgress)
  19. ProgressOn("Wimgapi.dll","Applying image ...")
  20. Apply("c:\temp\test.wim", "C:\temp\")
  21. ;~ ProgressOn("Wimgapi.dll","Capturing image ...")
  22. ;~ Capture("c:\temp\test.wim", "C:\temp\1\")
  23. DllCallBackFree($pProgress)
  24. ProgressOff()
  25.  
  26. Func _Progress($1,$2,$3,$4)
  27.         If $1 = 38008 Then
  28.                 ProgressSet($2,"Remaining time : " & Int($3 / 1000) & " seconds")
  29.         EndIf
  30. ;~ If $1 = 38008 Then
  31.         ConsoleWrite("_Progress: " & @CRLF & $1 & @CRLF & $2 & @CRLF & $3 & @CRLF & $4 & @CRLF)
  32. ;~ EndIf
  33.  
  34. Return $wim_msg_success
  35. ;~ Return 0
  36. EndFunc
  37.  
  38. Func Apply($wim,$sPath)
  39. Local $rc_apply, $rc_close, $rc_shutdown, $lhandle, $rc_temppath
  40.         $fhandle = _wim_createfile ($wim, $wim_generic_read)
  41. ;~      ConsoleWrite("_wim_createfile : " & $fhandle & @CRLF)
  42.         $rc_temppath = _wim_settemporarypath($fhandle,@TempDir)
  43. ;~      ConsoleWrite("_wim_settemporarypath : " & $rc_temppath & @CRLF)
  44.         $lhandle = _wim_loadimage ($fhandle,1)
  45. ;~      ConsoleWrite("_wim_loadimage : " & $lhandle & @CRLF)
  46.         _wim_registermessagecallback($fhandle,$pProgress)
  47.         $rc_apply = _wim_applyimage ($lhandle, $sPath)
  48. ;~      ConsoleWrite("_wim_applyimage : " & $rc_apply & @CRLF)
  49.         _wim_unregistermessagecallback($fhandle,$pProgress)
  50.         $rc_close = _wim_closehandle ($lhandle)
  51. ;~      ConsoleWrite("_wim_closehandle : " & $rc_close & @CRLF)
  52.         $rc_close = _wim_closehandle ($fhandle)
  53. ;~      ConsoleWrite("_wim_closehandle : " & $rc_close & @CRLF)
  54.         $rc_shutdown = _wim_shutdown ()
  55. ;~      ConsoleWrite("_wim_shutdown : " & $rc_shutdown & @CRLF)
  56. EndFunc   ;==>Apply
  57.  
  58. Func Capture($wim,$sPath)
  59.         $fhandle = _wim_createfile ($wim,$wim_generic_write,$wim_create_always,$wim_flag_verify,$wim_compress_xpress)
  60.  
  61. ;~ $imageinfo = _wim_getimageinformation ($fhandle)
  62.  
  63. ;~ ConsoleWrite("-- ImageInfo createFile" & @CRLF & UBound($imageinfo) & @CRLF)
  64. ;~ For $i = 0 To UBound($imageinfo) - 1
  65. ;~      ConsoleWrite("$imageinfo[" & $i & "]: " & $imageinfo[$i] & @CRLF)
  66. ;~ Next
  67. ;~ _wim_setimageinformation ($fhandle, $imageinfo[3], $imageinfo[1])
  68.         _wim_registermessagecallback($fhandle,$pProgress)
  69.         $vhandle = _wim_captureimage ($fhandle, $sPath)
  70.         _wim_unregistermessagecallback($fhandle,$pProgress)
  71. ;~ $imageinfo = _wim_getimageinformation ($vhandle)
  72. ;~ ConsoleWrite("-- ImageInfo catureImage" & @CRLF & UBound($imageinfo) & @CRLF)
  73. ;~ For $i = 0 To UBound($imageinfo) - 1
  74. ;~      ConsoleWrite("$imageinfo[" & $i & "]: " & $imageinfo[$i] & @CRLF)
  75. ;~ Next
  76. ;~ _wim_setimageinformation ($vhandle, $imageinfo[3], $imageinfo[1])
  77.  
  78.         _wim_closehandle ($vhandle)
  79.         _wim_closehandle ($fhandle)
  80.         _wim_shutdown ()
  81. EndFunc   ;==>Capture

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with @@


Remember me so that I can delete my post