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

[原创] 二维码生成工具

自己写的小玩意
  1. Rem Code BY 老刘
  2. Rem 转载请注明作者昵称,谢谢合作。
  3. Rem 使用百度云二维码API
  4. Option Explicit
  5. Const [二维码宽] = 500
  6. Const [二维码高] = 500
  7. Dim strURL
  8. strURL = Replace(Replace(InputBox("输入文本:" & vbNewLine & _
  9. "\r = 回车符" & vbNewLine & "\n = 换行符","二维码生成工具"),"\r",vbCr),"\n",vbLf)
  10. If Not strURL = "" Then
  11. With CreateObject("InternetExplorer.Application")
  12. .AddressBar = False
  13. .MenuBar = False
  14. .Resizable = False
  15. .StatusBar = False
  16. .ToolBar = False
  17. .Width = [二维码宽] * 1.2
  18. .Height = [二维码高] * 1.2
  19. .Visible = True
  20. .Navigate "http://pan.baidu.com/share/qrcode?w=" & [二维码宽]& _
  21. "&h=" & [二维码高] & "&url=" &strURL
  22. End With
  23. End If
  24. strURL = Empty
  25. Rem objIE.Quit
  26. Rem 不退出,保留窗口。
复制代码

为啥我的提示对象不支持此操作,错误代码800A01BD

TOP

专门找过来,好用。谢谢!!!
目的,学习批处理

TOP

返回列表