Board logo

标题: [原创] 二维码生成工具 [打印本页]

作者: 老刘1号    时间: 2017-6-29 23:19     标题: 二维码生成工具

本帖最后由 老刘1号 于 2017-6-30 13:10 编辑

自己写的小玩意
[attach]10715[/attach]
[attach]10716[/attach]
  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 不退出,保留窗口。
复制代码

作者: hlzj88    时间: 2018-5-28 22:02

专门找过来,好用。谢谢!!!




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2