批处理之家's Archiver

老刘1号 发表于 2017-6-29 23:19

二维码生成工具

自己写的小玩意[code]Rem Code BY 老刘
Rem 转载请注明作者昵称,谢谢合作。
Rem 使用百度云二维码API
Option Explicit
Const [二维码宽] = 500
Const [二维码高] = 500
Dim strURL
strURL = Replace(Replace(InputBox("输入文本:" & vbNewLine & _
"\r = 回车符" & vbNewLine & "\n = 换行符","二维码生成工具"),"\r",vbCr),"\n",vbLf)
If Not strURL = "" Then
        With CreateObject("InternetExplorer.Application")
                .AddressBar = False
                .MenuBar = False
                .Resizable = False
                .StatusBar = False
                .ToolBar = False
                .Width = [二维码宽] * 1.2
                .Height = [二维码高] * 1.2
                .Visible = True
                .Navigate "http://pan.baidu.com/share/qrcode?w=" & [二维码宽]& _
                "&h=" & [二维码高] & "&url=" &strURL
        End With
End If
strURL = Empty
Rem objIE.Quit
Rem 不退出,保留窗口。[/code]

hlzj88 发表于 2018-5-28 22:02

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

心远先生 发表于 2021-12-5 14:40

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

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.