批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创] 二维码生成工具

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

自己写的小玩意

  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 不退出,保留窗口。
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

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

TOP

返回列表