二维码生成工具

老刘1号

自己写的小玩意

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

专门找过来，好用。谢谢！！！

心远先生

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