[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 批处理调用opengl

对capi.dll进行了修改,以使得opengl可以跳转回脚本,请自行下载glut32测试,目前已成功进行初始化
  1. @echo on
  2. set capi=API Call kernel32 GetModuleHandleW $capi.dll
  3. if not "%capi_ret%"=="" goto next
  4. echo 正在进行opengl初始化...
  5. capi
  6. set capi=mem alloc 4
  7. set var1=%capi_ret%
  8. set capi=mem put ;%var1% ;1
  9. set capi=mem alloc 4
  10. set var2=%capi_ret%
  11. set capi=mem put ;%var2% $""
  12. set capi=mem alloc 4
  13. set var3=%capi_ret%
  14. set capi=mem put ;%var3% ;%var2%
  15. set capi=mem alloc 4
  16. set var4=%capi_ret%
  17. set capi=mem put ;%var4% ;%var3%
  18. set capi=API Call glut32 glutInit ;%var1% ;%var4%
  19. set capi=API Call glut32 glutInitWindowPosition ;100 ;100
  20. set capi=API Call glut32 glutInitWindowSize ;800 ;600
  21. set capi=API Call glut32 glutInitDisplayMode ;16
  22. set capi=API Call glut32 glutCreateWindow #asdfasdfasd
  23. ::对应capi.dll内存10012504 共236字节的内存空间
  24. set capi=API Call kernel32 GetModuleHandleW $cmd.exe
  25. set /a cmd_address=%capi_ret%
  26. set capi=API Call glut32 glutDisplayFunc ;268444932
  27. set capi=API Call glut32 glutMainLoop
  28. :next
  29. set capi=API Call glut32 glClear ;16384
  30. pause
  31. set capi=API Call glut32 glBegin ;4
  32. set capi=API Call glut32 glVertex2f ;1 ;1
  33. set capi=API Call glut32 glVertex2f ;10 ;10
  34. set capi=API Call glut32 glVertex2f ;1 ;19
  35. set capi=API Call glut32 glEnd
  36. pause
复制代码

返回列表